simplify title logic

[~bandali/bndl.org] / bandali / prefs.scm

;;; 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
;;; published by the Free Software Foundation; either version 3 of the
;;; License, or (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see
;;; <http://www.gnu.org/licenses/>.

(define-module (bandali prefs)
  #:export (my-scheme
            my-domain
            my-url
            my-tag-prefix
            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-primary-date-format "~1")
(define my-secondary-date-format "~A ~B ~e, ~Y")