Merge branch 'master' into spanish

diff --combined haunt.scm
index 5a0a077ee21f3cdd1ad84bcd44f062b4b28f544d,7ad26eebc47d1e48cce23476d47d4f6bd9f05d62..5003a42540f531ec8634f520471cad1d7b51c1ba
--- 1/haunt.scm
--- 2/haunt.scm
+++ b/haunt.scm
@@@ -33,9 -33,13 +33,13 @@@
                   `(" "
                     (span (@ (style "margin: 0 3px")) ⦿)
                     (span (@ (class "tags"))
-                          ,@(map (lambda (tag)
-                                   `((a (@ (href ,(format #f "tags/~a.html" tag))) ,tag) " "))
-                                 tags)))))
+                          ,@(drop-right
+                               (apply
+                                append
+                                (map (lambda (tag)
+                                       `((a (@ (href ,(format #f "tags/~a.html" tag))) ,tag) ", "))
+                                     tags))
+                               1)))))
          (else
           div))))
  
@@@ -62,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))))
@@@ -105,37 -108,27 +109,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)