diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-05-10 22:53:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-05-10 22:53:11 +0200 |
| commit | 5bc389389a640da689a03783092a679e8fd655a9 (patch) | |
| tree | 381adc043bcb56f10708abab7f7d5c5975f1dd14 | |
| parent | Add flags for just running the text flower. (diff) | |
| download | calp-5bc389389a640da689a03783092a679e8fd655a9.tar.gz calp-5bc389389a640da689a03783092a679e8fd655a9.tar.xz | |
Add HTML footer.
| -rw-r--r-- | module/output/html.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 0c8c3eb3..0ccefec0 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -245,10 +245,14 @@ calendars)))) (body (div (@ (class "root")) - (main (@ (class "calendar")) + (main + (div (@ (class "calendar")) ,(time-marker-div) (div (@ (class "days")) ,@(stream->list (stream-map lay-out-day evs)))) + (footer (span "Page generated " ,(date->string (current-date))) + (span (a (@ (href "https://git.hornquist.se/calparse")) + "Source Code")))) (aside (@ (class "sideinfo")) (div (@ (class "about")) (div ,(cal-table (start-of-month start) |