diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-22 18:07:55 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-22 18:07:55 +0100 |
| commit | 283b23d387b64e614bbc831bc65fadacd514d278 (patch) | |
| tree | 4f2b12d862434e5ca8f6d0a16fc280ffc94b5b99 | |
| parent | Re-add move X-HNH-FILENAME from VCALENDAR to VEVENT. (diff) | |
| download | calp-283b23d387b64e614bbc831bc65fadacd514d278.tar.gz calp-283b23d387b64e614bbc831bc65fadacd514d278.tar.xz | |
html output comments.
| -rw-r--r-- | module/output/html.scm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index cd983955..7e86f778 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -252,10 +252,12 @@ (body (div (@ (class "root")) (main + ;; Actuall calendar (div (@ (class "calendar")) ,(time-marker-div) (div (@ (class "days")) ,@(stream->list (stream-map lay-out-day evs)))) + ;; Page footer (footer (span "Page generated " ,(date->string (current-date))) (span (a (@ (href ,(repo-url) "/calparse")) "Source Code")) @@ -263,18 +265,27 @@ (url (format #f "~a/calparse/commit/?id=~a" (repo-url) hash))) `(span "Version " (a (@ (href ,url)) ,hash))))) + ;; Whole sidebar (aside (@ (class "sideinfo")) + ;; Small calendar and navigation (div (@ (class "about")) - (a (@ (href ,(date->string (set (date-month start) = (- 1)) "~Y-~m-~d") ".html") + ;; prev button + (a (@ (href ,(date->string (set (date-month start) = (- 1)) + "~Y-~m-~d") ".html") (class "nav hidelink")) (div (@ (class "nav")) "«")) + ;; calendar table (div ,(cal-table (start-of-month start) (current-date))) - (a (@ (href ,(date->string (set (date-month start) = (+ 1)) "~Y-~m-~d") ".html") + + ;; next next-button + (a (@ (href ,(date->string (set (date-month start) = (+ 1)) + "~Y-~m-~d") ".html") (class "nav hidelink")) (div (@ (class "nav")) "»"))) + ;; List of events (div (@ (class "eventlist")) ,@(stream->list (stream-map fmt-day evs))))))))) |