From b2b366a6fa6efa2c6cb30df5d099e8e15ce12d29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 11 Jul 2020 00:05:42 +0200
Subject: Javascript bind advanced fields + special formatting.

---
 module/output/html.scm | 14 ++++++++++++--
 static/script.js       | 38 ++++++++++++++++++++++++++++++++++----
 2 files changed, 46 insertions(+), 6 deletions(-)

diff --git a/module/output/html.scm b/module/output/html.scm
index d55e40f0..c45e626b 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -427,8 +427,18 @@
                   `(span (@ (class "summary")) ,(prop ev 'SUMMARY))))
             (div
              ,(call-with-values (lambda () (fmt-time-span ev))
-                (case-lambda [(start) `(div ,start)]
-                             [(start end) `(div ,start " — " ,end)]))
+                (case-lambda [(start) `(div (span (@ (class "dtstart")
+                                                     (data-fmt "%H:%M"))
+                                                  ,start))]
+                             [(start end) `(div (span (@ (class "dtstart")
+                                                         ;; TODO same format string
+                                                         ;; as fmt-time-span used
+                                                         (data-fmt "%H:%M"))
+                                                      ,start)
+                                                " — "
+                                                (span (@ (class "dtend")
+                                                         (data-fmt "%H:%M"))
+                                                      ,end))]))
              ,(when (and=> (prop ev 'LOCATION) (negate string-null?))
                 `(div (b "Plats: ")
                       (div (@ (class "location"))
diff --git a/static/script.js b/static/script.js
index afbb66eb..b512a89a 100644
--- a/static/script.js
+++ b/static/script.js
@@ -332,10 +332,11 @@ window.onload = function () {
 
             lst = el.properties["_slot_" + field] = []
             for (let s of el.getElementsByClassName(field)) {
-                lst.push(s);
+                let f = ((s, v) => s.innerHTML = v.format(s.dataset && s.dataset.fmt));
+                lst.push([s, f]);
             }
             for (let s of el.querySelectorAll(field + " > :not(parameters)")) {
-                lst.push(s);
+                lst.push([s, (s, v) => s.innerHTML = v]);
                 el.properties["_value_" + field] = s.innerHTML;
             }
 
@@ -347,12 +348,18 @@ window.onload = function () {
                     },
                     set: function (value) {
                         this["_value_" + field] = value;
-                        for (let slot of el.properties["_slot_" + field]) {
-                            slot.innerHTML = value;
+                        for (let [slot,updater] of el.properties["_slot_" + field]) {
+                            updater(slot, value);
                         }
                     }
                 });
         }
+
+        el.properties.dtstart = new Date(el.properties.dtstart);
+
+        el.properties["_slot_dtstart"].push(
+            [el.style, (s, v) => s.top = time_to_percent(v)]);
+
     }
 
     document.onkeydown = function (evt) {
@@ -411,3 +418,26 @@ function toggle_child_popup(el) {
     let popup = el.getElementsByClassName("popup-container")[0];
     toggle_popup(popup);
 }
+
+
+function format_date(date, str) {
+    let fmtmode = false;
+    let outstr = "";
+    for (var i = 0; i < str.length; i++) {
+        if (fmtmode) {
+            switch (str[i]) {
+            case 'H': outstr += (date.getHours() + "").padStart(2, "0"); break;
+            case 'M': outstr += (date.getMinutes() + "").padStart(2, "0"); break;
+            case 'S': outstr += (date.getSeconds() + "").padStart(2, "0"); break;
+            }
+            fmtmode = false;
+        } else if (str[i] == '%') {
+            fmtmode = true;
+        } else {
+            outstr += str[i];
+        }
+    }
+    return outstr;
+}
+Object.prototype.format = function () { return this; } /* any number of arguments */
+Date.prototype.format = function (str) { return format_date (this, str); }
-- 
cgit v1.2.3