(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)
(site #:title "Javier Sancho"
#:domain "jsancho.org"
- #:build-directory "site-spanish"
+ #:build-directory "site"
#:default-metadata
'((author . "Javier Sancho")
(description . "Evangelizador del software libre - Programador")