diff options
author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-04 14:25:15 +0200 |
---|---|---|
committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-04 14:25:15 +0200 |
commit | 94a68dffff741be5ed45adcb37d453773f13c6fe (patch) | |
tree | 24e43964e86fc56220c8fe2bd964dcbda20d7bb2 /src/atom.scm | |
parent | 20f86d289bdb8cbdc622a500f4b96aff9e87ec45 (diff) |
Make project structure and builder script
Diffstat (limited to 'src/atom.scm')
-rw-r--r-- | src/atom.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/atom.scm b/src/atom.scm index 9f71f00..229c032 100644 --- a/src/atom.scm +++ b/src/atom.scm @@ -74,7 +74,8 @@ (define* (feed #:key (title "") (subtitle "") (uri "") - (entries '())) + (entries '()) + #:allow-other-keys) (let* ((f (make-feed uri title subtitle @@ -95,7 +96,8 @@ (content-html '()) (categories '()) (contributors '()) - (media '())) + (media '()) + #:allow-other-keys) (define (id-from-title title) (string-map (lambda (c) (if (char-set-contains? char-set:letter c) c #\-)) @@ -113,12 +115,14 @@ media)) (define* (person name #:key (email "") - (uri "")) + (uri "") + #:allow-other-keys) (make-person name email uri)) (define* (media path #:key (title "") - (uri "")) + (uri "") + #:allow-other-keys) (define (type path) (let* ((extension (car (last-pair (string-split path #\.)))) (type (assoc-ref mime-types extension))) |