diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-03 19:15:27 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-03 19:15:27 +0100 |
commit | 033cf78ee6102ca104b04460abfbbfa84cf22cbf (patch) | |
tree | c6462a533bbe143430cf90cdfa00b7c8a810746f /module/output/html.scm | |
parent | Work. (diff) | |
download | calp-033cf78ee6102ca104b04460abfbbfa84cf22cbf.tar.gz calp-033cf78ee6102ca104b04460abfbbfa84cf22cbf.tar.xz |
Fix date<=.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index d64c7aa1..cf70b583 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -122,6 +122,9 @@ (attr ev 'DTSTART))))) (stream->list events)))) ;; (format (current-error-port) "lay-out-day: ~a~%" (date->string date)) + (format (current-error-port) "long=~a, short=~a~%" + (length long-events) + (length short-events)) (fix-event-widths! time-obj short-events) (fix-event-widths! time-obj long-events) `(div (@ (class "day")) @@ -184,7 +187,7 @@ ;; For sidebar, just text (define (fmt-single-event ev) - (format (current-error-port) "fmt-single-event: ~a~%" (attr ev 'X-HNH-FILENAME)) + ;; (format (current-error-port) "fmt-single-event: ~a~%" (attr ev 'X-HNH-FILENAME)) `(article (@ (id ,(UID ev)) (class "eventtext CAL_bg_" ,(html-attr (attr (parent ev) 'NAME)))) @@ -201,7 +204,7 @@ ;; Single event in side bar (text objects) (define (fmt-day day) (let* (((date . events) day)) - (format (current-error-port) "fmt-day: ~a~%" (date->string date)) + ;; (format (current-error-port) "fmt-day: ~a~%" (date->string date)) `(section (@ (class "text-day")) (header (h2 ,(let ((s (date->string date "~Y-~m-~d"))) `(a (@ (href "#" ,s) |