From 94a68dffff741be5ed45adcb37d453773f13c6fe Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Wed, 4 Oct 2023 14:25:15 +0200 Subject: Make project structure and builder script --- src/atom.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/atom.scm') 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))) -- cgit v1.2.3