diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 19:12:48 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 19:12:48 +0200 |
| commit | 4810e380ed10c1983f00944d31716f1d0683b6a5 (patch) | |
| tree | 42b09db2aa5fe98b832b015db8b5cd88a1ba4d04 /module/html/html.scm | |
| parent | Fix terminal output. (diff) | |
| download | calp-4810e380ed10c1983f00944d31716f1d0683b6a5.tar.gz calp-4810e380ed10c1983f00944d31716f1d0683b6a5.tar.xz | |
Add command line option parsing.
Diffstat (limited to '')
| -rw-r--r-- | module/html/html.scm | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/module/html/html.scm b/module/html/html.scm index 467ed413..3dcfdb55 100644 --- a/module/html/html.scm +++ b/module/html/html.scm @@ -145,19 +145,20 @@ car) (group-stream events))) - `(html (head - (title "Calendar") - (meta (@ (charset "utf-8"))) - ,(include-css "static/style.css") - (style ,(format #f "~:{.CAL_~a { background-color: ~a; color: ~a }~%~}" - (map (lambda (c) - (list (html-attr (if (pair? (attr c 'NAME)) - (car (attr c 'NAME)) - (attr c 'NAME))) - (or (attr c 'COLOR) "white") - (or (and=> (attr c 'COLOR) calculate-fg-color) "black"))) - calendars)))) - (body (div (@ (class "calendar")) - ,@(time-marker-div) - (div (@ (class "days")) - ,@(stream->list (stream-map lay-out-day evs))))))) + ((@ (sxml simple) sxml->xml) + `(html (head + (title "Calendar") + (meta (@ (charset "utf-8"))) + ,(include-css "static/style.css") + (style ,(format #f "~:{.CAL_~a { background-color: ~a; color: ~a }~%~}" + (map (lambda (c) + (list (html-attr (if (pair? (attr c 'NAME)) + (car (attr c 'NAME)) + (attr c 'NAME))) + (or (attr c 'COLOR) "white") + (or (and=> (attr c 'COLOR) calculate-fg-color) "black"))) + calendars)))) + (body (div (@ (class "calendar")) + ,@(time-marker-div) + (div (@ (class "days")) + ,@(stream->list (stream-map lay-out-day evs)))))))) |