From 3592829387367d54dcc4dc1c5cd4862586cc705d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 13 Apr 2015 19:40:55 -0400
Subject: post: Add post-date procedure.

* haunt/post.scm (%default-date): New variable.
  (post-date): New procedure.
* haunt/builder/atom.scm (post->atom-entry): Use post-date.
* README.md (Example Configuration): Remove date from default metadata.
---
 README.md              |  6 ++----
 haunt/builder/atom.scm |  2 +-
 haunt/post.scm         | 10 ++++++++++
 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)))
 
-- 
cgit v1.2.3