Remove assumption that content is enclosed in <article>

1 files changed, 6 insertions, 7 deletions

diff --git a/haunt.scm b/haunt.scm
index d7cb9b5..0fa918b 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -67,13 +67,12 @@
 (define (first-paragraph post)
   (let loop ((sxml (post-sxml post))
              (result '()))
-    (when (eqv? (car sxml) 'article)
-      (match (cdr sxml)
-        (() (reverse result))
-        ((or (('p ...) _ ...) (paragraph _ ...))
-         (reverse (cons paragraph result)))
-        ((head . tail)
-         (loop tail (cons head result)))))))
+    (match sxml
+      (() (reverse result))
+      ((or (('p ...) _ ...) (paragraph _ ...))
+       (reverse (cons paragraph result)))
+      ((head . tail)
+       (loop tail (cons head result))))))
 
 (define %collections
   `(("Recent Blog Posts" "index.html" ,posts/reverse-chronological)))