diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 23:55:37 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 23:55:37 +0200 |
| commit | bc8c3900dc2d6807b6fe0eca1b9e3cba717fb8af (patch) | |
| tree | d1ba86db19f21785d0a815192f523a24a7b1cc26 | |
| parent | Fix number of problems with new serializers. (diff) | |
| download | calp-bc8c3900dc2d6807b6fe0eca1b9e3cba717fb8af.tar.gz calp-bc8c3900dc2d6807b6fe0eca1b9e3cba717fb8af.tar.xz | |
Changed HTML to include xcal instead of parameters.
| -rw-r--r-- | module/output/html.scm | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 402d2f07..94377255 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -151,20 +151,6 @@ ,(fmt-single-event ev)))) -(define (->string a) - (format #f "~a" a)) - -(define (data-attributes event) - (hash-map->list - (match-lambda* - [(key (vlines ...)) (list (string->symbol (format #f "data-~a" key)) - (string-join (map (compose ->string value) vlines) ","))] - [(key vline) - (list (string->symbol (format #f "data-~a" key)) - (->string (value vline)))] - [_ (error "What are you doing‽")]) - (attributes event))) - ;;; Procedures for wide output @@ -208,8 +194,10 @@ ,(when (and (attr ev 'PARTSTAT) (eq? 'TENTATIVE (attr ev 'PARTSTAT))) " tentative")) - (data-tipped-options ,(format #f "inline: '~a'" popup-id)) - ,@(when (debug) (data-attributes ev))))) + (data-tipped-options ,(format #f "inline: '~a'" popup-id))))) + ,(when (debug) + `(script (@ (type "application/calendar+xml")) + ,((@ (output xcal) vcomponent->sxml) ev))) ,(when (attr ev 'RRULE) `(span (@ (class "repeating")) "↺")) ,((get-config 'summary-filter) ev (attr ev 'SUMMARY)) |