From 829680f1e6f392bbd9efc15eed52fe275097583e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 26 Apr 2020 02:05:53 +0200
Subject: HTML event attributes added as html attributes.

---
 module/output/html.scm | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/module/output/html.scm b/module/output/html.scm
index b8e63202..e671087e 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -126,6 +126,15 @@
           [_ (error "What are you doing‽")])
         (attributes event)))))
 
+(define (data-attributes event)
+  (hash-map->list
+   (match-lambda*
+     [(key vline)
+      (list (string->symbol (format #f "data-~a" key))
+            (format #f "~a" (value vline)))]
+     [_ (error "What are you doing‽")])
+   (attributes event)))
+
 
 
 ;;; Procedures for wide output
@@ -193,7 +202,10 @@
                 ;; 7 june.
                 ,(when (date<? date (as-date (get-datetime (attr ev 'DTEND))))
                    " continuing"))
-              (style ,style))
+              (style ,style)
+              ;; TODO only if in debug mode?
+              ,@(data-attributes ev))
+
            (div (@ (class "event-inner"))
                 ;; NOTE These popup's are far from good. Main problem being that
                 ;; the often render off-screen for events high up on the screen.
@@ -253,7 +265,8 @@
                    " continuing"
                    )
                 )
-              (style ,style))
+              (style ,style)
+              ,@(data-attributes ev))
            (div (@ (class "event-inner"))
                 (div (@ (class "popup"))
                      ,(event-debug-html ev))
-- 
cgit v1.2.3