Merge branch 'master' into spanish

diff --combined haunt.scm
index 5003a42540f531ec8634f520471cad1d7b51c1ba,1828bc6f2eedfd49a95ae41e031fd86ff79ac67d..da6bb846d289b9ce4ce36da5a95c2adcfa9d36a1
--- 1/haunt.scm
--- 2/haunt.scm
+++ b/haunt.scm
@@@ -66,8 -66,7 +66,8 @@@
                                  (li (@ (id "blog-title-header"))
                                      (a (@ (href "index.html"))
                                         (h1 ,(assoc-ref metadata 'author)))))
 -                            (ul (@ (class "navigation-items center")))
 +                            (ul (@ (class "navigation-items center"))
 +                                (li (a (@ (href "https://en.jsancho.org/")) "in english")))
                              (ul (@ (class "navigation-items right"))
                                  ,@(map (lambda (page)
                                           `(li (a (@ (href ,(cdr page))) ,(car page))))
@@@ -90,10 -89,16 +90,16 @@@
                              (site-post-slug site post) ".html"))
  
           (define (get-paragraphs sxml count)
-            (let ((pars (filter
-                         (lambda (e) (and (pair? e) (eq? (car e) 'p)))
-                         sxml)))
-              (list-head pars (min count (length pars)))))
+              (define (getp sxml count res)
+                (cond ((or (= count 0) (null? sxml))
+                       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))))
+              (reverse (getp sxml count '())))
                     
             (define (post-summary post)
               (or (post-ref post 'summary)
@@@ -109,37 -114,27 +115,37 @@@
                                 ,(post-date-and-tags (post-date post) (get-tags post)))
                                ,(post-summary post)
                                (footer (@ (class "read-more"))
 -                                         (a (@ (href ,(post-uri post))) "...read more..."))))
 +                                         (a (@ (href ,(post-uri post))) "...seguir leyendo..."))))
                    (posts/reverse-chronological posts))))))
  
  (define about-page
    (static-page
 -   "About me"
 +   "Sobre mi"
     "about.html"
 -   `((h2 "hi."))))
 +   `((div
 +      (article
 +       (header (h2 "Sobre mi"))
 +       (img (@ (src "images/jsancho.jpg") (width "150") (height "150") (align "left") (style "margin: 10px;")))
 +       (p "Me llamo Javier Sancho y soy programador y defensor del software libre. Vivo en Castellón, España.")
 +       (p "Conocí GNU/Linux y el software libre durante mis estudios universitarios en la " (a (@ (href "http://www.uji.es/")) "Universitat Jaume I") " y desde entonces mi compromiso con esas ideas ha ido en aumento.")
 +       (p "Fue en 2003 cuando empecé como activista, participando en eventos relacionados con el software libre, manifestaciones en contra de las patentes de software, charlas y jornadas informativas en parties, institutos, etc.")
 +       (p "Disfruto programando y lo hago con el lenguaje que más se ajuste a mis necesidades (Python, PHP, Golang, Erlang, ...). Durante muchos años mi lenguaje favorito fue C, aunque con el tiempo ese lugar privilegiado han pasado a ocuparlo Lisp y Scheme a partes iguales. Soy un enamorado del paradigma funcional.")
 +       (p "Estoy casado con una mujer maravillosa y tengo un hijo que no deja de sorprenderme cada día. Son mi mayor alegría.")
 +       (p "Aparte de este blog, a veces comparto pensamientos en " (a (@ (href "https://twitter.com/jsancho_gpl")) "Twitter") ". Puedes contactar conmigo en " (a (@ (href "mailto:jsf@jsancho.org")) "jsf@jsancho.org") "."))))))
  
  (define %collections
    `(("Home" "index.html" ,posts/reverse-chronological)))
  
  (site #:title "Javier Sancho"
        #:domain "jsancho.org"
 +      #:build-directory "site-spanish"
        #:default-metadata
        '((author . "Javier Sancho")
 -        (description . "Free Software Evangelist - Programmer")
 +        (description . "Evangelizador del software libre - Programador")
          (email . "jsf@jsancho.org")
          (picture . "images/jsancho.jpg")
 -        (pages . (("projects" . "http://git.jsancho.org/")
 -                ("about me" . "about.html"))))
 +        (pages . (("proyectos" . "http://git.jsancho.org/")
 +                ("sobre mi" . "about.html"))))
        #:readers (list sxml-reader html-reader)
        #:builders (list (blog #:theme flex-theme #:collections %collections)
                         (atom-feed)