diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-16 02:13:21 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-16 02:14:17 +0200 |
commit | a6bc74e67a3a3442533cd46f5e8a8d5f129cea07 (patch) | |
tree | 15f1fa0dac468de642e04c8f0202772f47c88889 /module/calp/html/vcomponent.scm | |
parent | Merge html-validator. (diff) | |
download | calp-a6bc74e67a3a3442533cd46f5e8a8d5f129cea07.tar.gz calp-a6bc74e67a3a3442533cd46f5e8a8d5f129cea07.tar.xz |
Fix comments being constantly added to po files.
xgettext:s comment fetcher doesn't handle the same source string at
multiple places, with different comments. Meaning that at those places
all comments were copied over each time.
This commit remove the problematic comments from the source code.
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/vcomponent.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 069b9a28..4e54de89 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -69,9 +69,7 @@ "unknown"))))) (time ,(let ((dt (prop event 'DTSTART))) (if (datetime? dt) - ;; Compact event list date + time (datetime->string dt (_ "~Y-~m-~d ~H:~M")) - ;; Compact event list date only (date->string dt (_ "~Y-~m-~d") )))) (a (@ (href ,(date->string (as-date (prop event 'DTSTART)) "/week/~Y-~m-~d.html"))) ;; Button for viewing calendar, accompanied by a calendar icon @@ -237,9 +235,7 @@ (let ((date (car day)) (events (cdr day))) `(section (@ (class "text-day")) - (header (h2 ,(let ((s (date->string date - ;; Header for sidebar day - (_ "~Y-~m-~d")))) + (header (h2 ,(let ((s (date->string date (_ "~Y-~m-~d")))) `(a (@ (href "#" ,s) (class "hidelink")) ,s)))) ,@(stream->list |