diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-04 17:36:44 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-04 17:36:44 +0200 |
| commit | bb59ca85ff27a51a2c532d330b3b5f947ac7fb9e (patch) | |
| tree | a45c5101249af3671a768a506c4f1c1a03101cf0 /module | |
| parent | work (diff) | |
| download | calp-bb59ca85ff27a51a2c532d330b3b5f947ac7fb9e.tar.gz calp-bb59ca85ff27a51a2c532d330b3b5f947ac7fb9e.tar.xz | |
Work on calendar from event in frontend, broken.
Diffstat (limited to 'module')
| -rw-r--r-- | module/calp/html/vcomponent.scm | 2 | ||||
| -rw-r--r-- | module/calp/html/view/calendar.scm | 56 | ||||
| -rw-r--r-- | module/vcomponent/xcal/output.scm | 5 |
3 files changed, 33 insertions, 30 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 1b97e9b8..09d0038b 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -208,7 +208,7 @@ `(div (@ (class " eventtext edit-tab ")) (form (@ (class "edit-form")) (select (@ (class "calendar-selection")) - (option "- Choose a Calendar -") + (option "- Choose a Calendar -") ,@(let ((dflt (get-config 'default-calendar))) (map (lambda (calendar) (define name (prop calendar 'NAME)) diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index dfcd2264..94175071 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -294,34 +294,34 @@ ;; This would idealy be a <template> element, but there is some ;; form of special case with those in xhtml, but I can't find ;; the documentation for it. - ,@(let* ((cal (vcalendar - name: "Generated" - children: (list (vevent - ;; The event template SHOULD lack - ;; a UID, to stop potential problems - ;; with conflicts when multiple it's - ;; cloned mulitple times. - dtstart: (datetime) - dtend: (datetime) - summary: "" - ;; force a description field, - ;; but don't put anything in - ;; it. - description: "")))) - (event (car (children cal)))) - `( - ;; (div (@ (class "template event-container") (id "event-template") - ;; ;; Only needed to create a duration. So actual dates - ;; ;; dosen't matter - ;; (data-start "2020-01-01") - ;; (data-end "2020-01-02")) - ;; ,(caddar ; strip <a> tag - ;; (make-block event `((class " generated "))))) - ;; TODO merge this into the event-set, add attribute - ;; for non-displaying elements. - ;; (div (@ (class "template") (id "popup-template")) - ;; ,(popup event (string-append "popup" (html-id event)))) - )) + ;; ,@(let* ((cal (vcalendar + ;; name: "Generated" + ;; children: (list (vevent + ;; ;; The event template SHOULD lack + ;; ;; a UID, to stop potential problems + ;; ;; with conflicts when multiple it's + ;; ;; cloned mulitple times. + ;; dtstart: (datetime) + ;; dtend: (datetime) + ;; summary: "" + ;; ;; force a description field, + ;; ;; but don't put anything in + ;; ;; it. + ;; description: "")))) + ;; (event (car (children cal)))) + ;; `( + ;; ;; (div (@ (class "template event-container") (id "event-template") + ;; ;; ;; Only needed to create a duration. So actual dates + ;; ;; ;; dosen't matter + ;; ;; (data-start "2020-01-01") + ;; ;; (data-end "2020-01-02")) + ;; ;; ,(caddar ; strip <a> tag + ;; ;; (make-block event `((class " generated "))))) + ;; ;; TODO merge this into the event-set, add attribute + ;; ;; for non-displaying elements. + ;; ;; (div (@ (class "template") (id "popup-template")) + ;; ;; ,(popup event (string-append "popup" (html-id event)))) + ;; )) ;; Auto-complets when adding new fields to a component ;; Any string is however still valid. diff --git a/module/vcomponent/xcal/output.scm b/module/vcomponent/xcal/output.scm index 692b3ec2..095c61c2 100644 --- a/module/vcomponent/xcal/output.scm +++ b/module/vcomponent/xcal/output.scm @@ -121,7 +121,10 @@ ,(vline->value-tag vline)))]) (properties component)))) (unless (null? props) - `(properties ,@props))) + `(properties + ;; NOTE + (x-hnh-calendar-name (text ,(prop (parent component) 'NAME))) + ,@props))) ,(unless (null? (children component)) `(components ,@(map vcomponent->sxcal (children component))))))) |