From 2021774b6c6b93b6260eb4ef07b68cefda1d5b92 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Wed, 28 Feb 2018 12:42:09 +0100 Subject: [PATCH] Only count paragraphs for post summaries --- haunt.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/haunt.scm b/haunt.scm index 1828bc6..c594fd9 100644 --- a/haunt.scm +++ b/haunt.scm @@ -94,10 +94,8 @@ res) ((and (pair? (car sxml)) (eq? (caar sxml) 'p)) (getp (cdr sxml) (- count 1) (cons (car sxml) res))) - ((and (pair? (car sxml)) (eq? (caar sxml) 'a)) - (getp (cdr sxml) count (cons (car sxml) res))) (else - (getp (cdr sxml) count res)))) + (getp (cdr sxml) count (cons (car sxml) res))))) (reverse (getp sxml count '()))) (define (post-summary post) -- 2.39.2