From a6bc74e67a3a3442533cd46f5e8a8d5f129cea07 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 16 Jun 2022 02:13:21 +0200 Subject: 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. --- module/vcomponent/datetime/output.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'module/vcomponent/datetime/output.scm') 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")))])) -- cgit v1.2.3