diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-12 01:19:12 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-12 01:19:12 +0200 |
commit | b32db09994c1a84b22406f61557cceb66eeb5198 (patch) | |
tree | b340423dcdfcc73c7ef5493d614e73d453bf6cf4 /module | |
parent | Remove unused decimal_time_to_string. (diff) | |
download | calp-b32db09994c1a84b22406f61557cceb66eeb5198.tar.gz calp-b32db09994c1a84b22406f61557cceb66eeb5198.tar.xz |
Fix graphical event overflow.
Diffstat (limited to 'module')
-rw-r--r-- | module/output/html.scm | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index feb68795..8fbd4286 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -230,14 +230,18 @@ (eq? 'TENTATIVE (prop ev 'PARTSTAT))) " tentative")) (onclick "toggle_child_popup(this)")))) - ,(when (prop ev 'RRULE) - `(span (@ (class "repeating")) "↺")) - (span (@ (class "summary")) - ,((get-config 'summary-filter) ev (prop ev 'SUMMARY))) - ,(when (prop ev 'LOCATION) - `(span (@ (class "location")) - ,(string-map (lambda (c) (if (char=? c #\,) #\newline c)) - (prop ev 'LOCATION)))) + ;; Inner div to prevent overflow. Previously "overflow: none" + ;; was set on the surounding div, but the popup /needs/ to + ;; overflow. + (div (@ (class "event-body")) + ,(when (prop ev 'RRULE) + `(span (@ (class "repeating")) "↺")) + (span (@ (class "summary")) + ,((get-config 'summary-filter) ev (prop ev 'SUMMARY))) + ,(when (prop ev 'LOCATION) + `(span (@ (class "location")) + ,(string-map (lambda (c) (if (char=? c #\,) #\newline c)) + (prop ev 'LOCATION))))) ,(popup ev popup-id))))) ;; Format single event for graphical display @@ -822,6 +826,7 @@ `((class " generated ") (style " width: calc(100% * var(--editmode)) "))))))))))) + ;; file existing but is of wrong type, (define (create-files) |