website: Summarize blog posts on the overview page.

* website/haunt.scm (summarize-post): New procedure.
(post->sxml): Use it.
* website/posts/kickoff.md: Move "DRAFT" below.

1 files changed, 11 insertions, 5 deletions

diff --git a/website/haunt.scm b/website/haunt.scm
index c86ed04..a230226 100644
--- a/website/haunt.scm
+++ b/website/haunt.scm
@@ -179,14 +179,20 @@ representation."
               ;; There's an implicit "/index.html" here.
               "/" (site-post-slug site post))))
 
+(define (summarize-post post uri)
+  (match (post-sxml post)
+    ((('p paragraph ...) _ ...)
+     `((p ,@paragraph)
+       (p (a (@ (href ,uri)) "Continue reading…"))))
+    (body
+     body)))
+
 (define* (post->sxml post #:key post-uri summarize?)
   "Return the SXML for POST."
   (define post-body*
-    ;; (if summarize?
-    ;;     (cut summarize-post <> post-uri)
-    ;;     post-sxml*)
-    post-sxml
-    )
+    (if summarize?
+        (cut summarize-post <> post-uri)
+        post-sxml))
 
   `(div (@ (class "post"))
         (h1 (@ (class "title"))