| 1 | ;;; Copyright © 2019 Amin Bandali <bandali@gnu.org> |
| 2 | ;;; |
| 3 | ;;; This program is free software; you can redistribute it and/or |
| 4 | ;;; modify it under the terms of the GNU General Public License as |
| 5 | ;;; published by the Free Software Foundation; either version 3 of the |
| 6 | ;;; License, or (at your option) any later version. |
| 7 | ;;; |
| 8 | ;;; This program is distributed in the hope that it will be useful, |
| 9 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 10 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| 11 | ;;; General Public License for more details. |
| 12 | ;;; |
| 13 | ;;; You should have received a copy of the GNU General Public License |
| 14 | ;;; along with this program. If not, see |
| 15 | ;;; <http://www.gnu.org/licenses/>. |
| 16 | |
| 17 | (define-module (bandali prefs) |
| 18 | #:export (my-scheme |
| 19 | my-domain |
| 20 | my-url |
| 21 | my-tag-prefix |
| 22 | my-primary-date-format |
| 23 | my-secondary-date-format)) |
| 24 | |
| 25 | (define my-scheme 'https) |
| 26 | (define my-domain "bandali.eu.org") |
| 27 | (define my-url |
| 28 | (string-append (symbol->string my-scheme) "://" my-domain)) |
| 29 | (define my-tag-prefix "tags") |
| 30 | (define my-primary-date-format "~1") |
| 31 | (define my-secondary-date-format "~A ~B ~e, ~Y") |