diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 21:02:35 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 21:02:35 +0200 |
| commit | ab243461b0108b473ac514f5c25a0558ead9cbd2 (patch) | |
| tree | fc630c9b6df99708cf99bc9802214111d6b53684 /module/output | |
| parent | Update TODO. (diff) | |
| download | calp-ab243461b0108b473ac514f5c25a0558ead9cbd2.tar.gz calp-ab243461b0108b473ac514f5c25a0558ead9cbd2.tar.xz | |
Add popup close button.
Diffstat (limited to 'module/output')
| -rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 6bebcf4d..21eba258 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -191,7 +191,9 @@ ;; NOTE These popup's are far from good. Main problem being that ;; the often render off-screen for events high up on the screen. (div (@ (class "popup")) - ,(event-debug-html ev)) + ,(event-debug-html ev) + (button (@ (onclick "close_popup(this)")) "×") + ) (a (@ (href "#" ,(UID ev)) (class "hidelink")) (div (@ (class "body")) |