diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-04 11:26:26 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-10 22:16:02 +0100 |
commit | 7f996d9c90e7815c1507876dfc733f0c29066474 (patch) | |
tree | 4d2d4247413bdfdeb8b07a55b4860538f121e687 /module | |
parent | Add mkdir for html on chunked. (diff) | |
download | calp-7f996d9c90e7815c1507876dfc733f0c29066474.tar.gz calp-7f996d9c90e7815c1507876dfc733f0c29066474.tar.xz |
HTML tiny cal fix fragment links.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 6b2f8b6e..74ed2f97 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -268,7 +268,7 @@ (define ((td attr other-date) text) `(td (@ ,attr) (a (@ (href ,(date->string other-date "~Y-~m-~d") - ".html#" ,(date->string other-date "~Y-~m-~d")) + ".html#" ,(date->string (set (day other-date) text) "~Y-~m-~d")) (class "hidelink")) ,text))) @@ -292,7 +292,8 @@ ,@(cdr p))) (map (lambda (d) `((@ (class ,(when (date=? today (set (day date) d)) "today"))) - (a (@ (href "#" ,(date->string date "~Y-~m-~d")) + (a (@ (href "#" ,(date->string (set (day date) d) + "~Y-~m-~d")) (class "hidelink")) ,d))) current)) ;; | 1 2 ... |