diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-21 00:34:59 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-21 00:34:59 +0100 |
commit | 3fbfd2b20adb64c200f6fbae948cb46fad287766 (patch) | |
tree | 577336e10c9d31f0146d2b7018816e0045ce63c0 /module | |
parent | Reintroduce horizontal-time-markers. (diff) | |
download | calp-3fbfd2b20adb64c200f6fbae948cb46fad287766.tar.gz calp-3fbfd2b20adb64c200f6fbae948cb46fad287766.tar.xz |
Add rudementary popup system.
Diffstat (limited to 'module')
-rw-r--r-- | module/output/html.scm | 26 |
1 files changed, 22 insertions, 4 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 26cf4b86..36424edc 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -88,6 +88,18 @@ +(define (event-debug-html event) + `(table + (tbody + ,@(hash-map->list + (match-lambda* + [(key vline) + `(tr (th ,key) (td ,(format #f "~a" (value vline))))] + [_ (error "What are you doing‽")]) + (attributes event))))) + + + ;;; Procedures for wide output @@ -149,7 +161,11 @@ ,(when (date<? date (as-date (attr ev 'DTEND))) " continuing")) (style ,style)) - ,((summary-filter) ev (attr ev 'SUMMARY)))) + (div (@ (class "event-inner")) + (div (@ (class "popup")) + ,(event-debug-html ev)) + (div (@ (class "body")) + ,((summary-filter) ev (attr ev 'SUMMARY)))))) ) @@ -183,9 +199,11 @@ ,(when (and (attr ev 'PARTSTAT) (string= "TENTATIVE" (attr ev 'PARTSTAT))) " tentative")) (style ,style)) - ,((summary-filter) ev (attr ev 'SUMMARY)))) - - ) + (div (@ (class "event-inner")) + (div (@ (class "popup")) + ,(event-debug-html ev)) + (div (@ (class "body")) + ,((summary-filter) ev (attr ev 'SUMMARY))))))) ;; Lay out complete day (graphical) |