simplify title logic
[~bandali/bndl.org] / bandali / prefs.scm
index c908eb8..1896ea1 100644 (file)
@@ -1,4 +1,4 @@
-;;; Copyright © 2019 Amin Bandali <bandali@gnu.org>
+;;; Copyright © 2019-2020 Amin Bandali <bandali@gnu.org>
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
             my-domain
             my-url
             my-tag-prefix
-            my-date-format))
+            my-primary-date-format
+            my-secondary-date-format))
 
 (define my-scheme 'https)
 (define my-domain "bandali.eu.org")
 (define my-url
   (string-append (symbol->string my-scheme) "://" my-domain))
 (define my-tag-prefix "tags")
-(define my-date-format "~B ~e, ~Y")
-
+(define my-primary-date-format "~1")
+(define my-secondary-date-format "~A ~B ~e, ~Y")