aboutsummaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-07-10 19:55:50 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-07-10 19:55:50 +0200
commit9afb9e2c0a08cf0a175afb32bb47023de7db35d7 (patch)
tree3edfd3074bfa4c9dd3c4c0ddf50b74d0de587965 /module
parentServe xml under .html, month view xhtml content-type. (diff)
downloadcalp-9afb9e2c0a08cf0a175afb32bb47023de7db35d7.tar.gz
calp-9afb9e2c0a08cf0a175afb32bb47023de7db35d7.tar.xz
Fix popup close buttons, and ESC to close all.
Diffstat (limited to 'module')
-rw-r--r--module/output/html.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/module/output/html.scm b/module/output/html.scm
index be48a636..14848335 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -164,14 +164,13 @@
"unknown"))))
,(btn "×"
title: "Stäng"
- onclick: ""
+ onclick: (format #f "close_popup(~a)" id)
class: '("close-tooltip"))
,(btn "🗑"
title: "Ta bort"
;; Apparently an id gets recieved
;; as the whole object in js.
- onclick: (format #f "remove_event(~a)"
- id)))
+ onclick: (format #f "remove_event(~a)" id)))
,(tabset
(append