From: Javier Sancho <jsf@jsancho.org>
Date: Fri, 2 Jul 2021 11:38:14 +0000 (+0000)
Subject: Merge branch 'master' into spanish
X-Git-Url: https://git.jsancho.org/?p=blog.git;a=commitdiff_plain;h=refs%2Fheads%2Fspanish;hp=-c

Merge branch 'master' into spanish
---

1fac6935afe41b0899aa04bad395d714af6cd75c
diff --combined haunt.scm
index 64ea236,89b8e7e..21cb4ce
--- a/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)