Merge branch 'master' into spanish

diff --combined haunt.scm
index 64ea236d5f62b439437afe670ffdbfcbf3ce2418,89b8e7edd2ab4336fd4aa0abf934837c900da218..21cb4ce8d49334440610e820671ac108e5750e51
--- 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))))
@@@ -101,7 -100,7 +101,7 @@@
                     
             (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)
@@@ -113,37 -112,27 +113,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"
        #: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)