Start rework on js setup.

1 files changed, 89 insertions, 4 deletions

diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm
index 556c3d85..340db7d5 100644
--- a/module/calp/html/view/calendar/week.scm
+++ b/module/calp/html/view/calendar/week.scm
@@ -52,10 +52,95 @@
 
                 ,@(for event in (stream->list
                                  (events-between start-date end-date events))
-                       ((@ (calp html vcomponent ) popup) event (string-append "popup" (html-id event))))
-
-                )))))
-
+                       ((@ (calp html vcomponent ) popup)
+                        event (string-append "popup" (html-id event))))
+
+                ))
+      ;; description in sidebar / tab of popup
+      (template (@ (id "vevent-description"))
+                ,(description-template)
+                )
+
+      ;; edit tab of popup
+      (template (@ (id "vevent-edit"))
+                ,((@ (calp html vcomponent) edit-template)))
+
+      ;; "physical" block
+      (template (@ (id "vevent-block"))
+                ,(block-template)
+                )
+
+      )))
+
+;; based on the output of fmt-single-event
+(define (description-template)
+  '(div (@ (class " eventtext summary-tab " ()))
+        (h3 ((span (@ (class "repeating")) "↺")
+             (span (@ (class "bind summary")
+                      (data-property "summary"))
+                   "Test")))
+        (div (div (time (@ (class "bind dtstart")
+                           (data-property "dtstart")
+                           (data-fmt "~L~H:~M")
+                           (datetime "2021-09-29T19:56:46"))
+                        "19:56")
+                  "\xa0—\xa0"
+                  (time (@ (class "bind dtend")
+                           (data-property "dtend")
+                           (data-fmt "~L~H:~M")
+                           (datetime "2021-09-29T19:56:46"))
+                        "20:56"))
+             (div (@ (class "fields"))
+                  (div (b "Plats: ")
+                       (div (@ (class "bind location")
+                               (data-property "location"))
+                            "Alsättersgatan 13"))
+                  (div (@ (class "bind description")
+                          (data-property "description"))
+                       ("With a description"))
+                  (div (@ (class "categories"))
+                       (a (@ (class "category")
+                             (href "/search/?"
+                                   "q=%28member%20%22test%22%20%28or%20%28prop%20event%20%28quote%20CATEGORIES%29%29%20%28quote%20%28%29%29%29%29"))
+                          test))
+                  (div (@ (class "rrule"))
+                       "Upprepas "
+                       "varje vecka"
+                       ".")
+                  (div (@ (class "last-modified"))
+                       "Senast ändrad "
+                       "2021-09-29 19:56")))))
+
+(define (block-template)
+  `(div (@ ; (id ,(html-id ev))
+           (data-calendar "unknown")
+           (class "event CAL_unknown" 
+             ;; ,(when (and (prop ev 'PARTSTAT)
+             ;;             (eq? 'TENTATIVE (prop ev 'PARTSTAT)))
+             ;;    " tentative")
+             ;; ,(when (and (prop ev 'TRANSP)
+             ;;             (eq? 'TRANSPARENT (prop ev 'TRANSP)))
+             ;;    " transparent")
+             )
+           (onclick "toggle_popup('popup' + this.id)")
+           )
+        ;; Inner div to prevent overflow. Previously "overflow: none"
+        ;; was set on the surounding div, but the popup /needs/ to
+        ;; overflow (for the tabs?).
+        (div (@ (class "event-body"))
+             `(span (@ (class "repeating")) ; "↺"
+                    )
+             (span (@ (class "bind summary")
+                      (data-property "summary"))
+                   ; ,(format-summary  ev (prop ev 'SUMMARY))
+                   )
+             `(span (@ (class "bind location")
+                       (data-property "location")))
+             ;; Document symbol when we have text
+             `(span (@ (class "description"))
+                    ; "🗎"
+                    ))
+        ) )
 
 
 (define (time-marker-div)