X-Git-Url: https://git.jsancho.org/?p=blog.git;a=blobdiff_plain;f=haunt.scm;h=21cb4ce8d49334440610e820671ac108e5750e51;hp=89b8e7edd2ab4336fd4aa0abf934837c900da218;hb=refs%2Fheads%2Fspanish;hpb=13af096803526653ae2b8260028d372cf23403db diff --git a/haunt.scm b/haunt.scm index 89b8e7e..21cb4ce 100644 --- a/haunt.scm +++ b/haunt.scm @@ -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)))) @@ -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)