(a (@ (href "index.html"))
(h1 ,(assoc-ref metadata 'author)))))
(ul (@ (class "navigation-items center"))
- (li (a (@ (href "https://jsancho.org/")) "in spanish")))
+ (li (a (@ (href "https://www.jsancho.org/")) "in spanish")))
(ul (@ (class "navigation-items right"))
,@(map (lambda (page)
`(li (a (@ (href ,(cdr page))) ,(car page))))
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)
(or (post-ref post 'summary)
- (get-paragraphs (cdr (post-sxml post)) 3)))
+ (get-paragraphs (cdar (post-sxml post)) 3)))
`(
,@(map (lambda (post)