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/vcomponent | |
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 'module/vcomponent')
-rw-r--r-- | module/vcomponent/datetime/output.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/vcomponent/datetime/output.scm b/module/vcomponent/datetime/output.scm index f4085bbf..b75fd564 100644 --- a/module/vcomponent/datetime/output.scm +++ b/module/vcomponent/datetime/output.scm @@ -58,8 +58,9 @@ => (lambda (s) (cond [(prop ev 'DTEND) => (lambda (e) + ;; start = end, only return one value (if (date= e (date+ s (date day: 1))) - (_ "~Y-~m-~d") ; start = end, only return one value + (_ "~Y-~m-~d") (values (_ "~Y-~m-~d") (_ "~Y-~m-~d"))))] ;; no end value, just return start @@ -72,6 +73,7 @@ (_ "~H:~M") ;; Note the non-breaking space (_ "~Y-~m-~d ~H:~M")))) + (values fmt-str fmt-str)) ;; Note the non-breaking space (_ "~Y-~m-~d ~H:~M")))])) |