summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--README.md6
-rw-r--r--haunt/builder/atom.scm2
-rw-r--r--haunt/post.scm10
3 files changed, 13 insertions, 5 deletions
diff --git a/README.md b/README.md
index 4b597a4..5634ac3 100644
--- a/README.md
+++ b/README.md
@@ -29,10 +29,8 @@ Example Configuration
(site #:title "Built with Guile"
#:domain "dthompson.us"
#:default-metadata
- `((author . "David Thompson")
- (email . "davet@gnu.org")
- ;; If I'm careless and forget a date, use the UNIX epoch.
- (date . ,(make-date 0 0 0 0 1 1 1970 0)))
+ '((author . "David Thompson")
+ (email . "davet@gnu.org"))
#:readers (list sxml-reader html-reader)
#:builders (list (blog)
(atom-feed)
diff --git a/haunt/builder/atom.scm b/haunt/builder/atom.scm
index 337de6d..1cfe1e3 100644
--- a/haunt/builder/atom.scm
+++ b/haunt/builder/atom.scm
@@ -51,7 +51,7 @@
(name ,(post-ref post 'author))
,(let ((email (post-ref post 'email)))
(if email `(email ,email) '())))
- (updated ,(date->string* (post-ref post 'date)))
+ (updated ,(date->string* (post-date post)))
(link (@ (href ,(string-append "/" (post-slug post) ".html"))
(rel "alternate")))
(summary (@ (type "html"))
diff --git a/haunt/post.scm b/haunt/post.scm
index 08c8872..361fd6d 100644
--- a/haunt/post.scm
+++ b/haunt/post.scm
@@ -34,6 +34,8 @@
post-metadata
post-ref
post-slug
+ %default-date
+ post-date
posts/reverse-chronological
posts/group-by-tag
@@ -59,6 +61,14 @@
char-set:whitespace))
"-"))
+(define %default-date
+ (make-date 0 0 0 0 1 1 1970 0)) ; UNIX epoch
+
+(define (post-date post)
+ "Return the date for POST, or '%default-date' if no date is
+specified."
+ (or (post-ref post 'date) %default-date))
+
(define (post-time post)
(date->time-utc (post-ref post 'date)))