]> git.jsancho.org Git - blog.git/commitdiff
Merge branch 'master' into spanish
authorJavier Sancho <jsf@jsancho.org>
Tue, 13 Feb 2018 11:31:17 +0000 (12:31 +0100)
committerJavier Sancho <jsf@jsancho.org>
Tue, 13 Feb 2018 11:31:17 +0000 (12:31 +0100)
1  2 
haunt.scm

diff --cc haunt.scm
index 6cdaae9d7e2223eb440afad2613d3419700f7393,96838c43ff357632b203a1d04777bcdb89bd3fa2..668551a1ea7759537094c5bf92816c8031065de5
+++ b/haunt.scm
  
             `(
             ,@(map (lambda (post)
-                     `(article
-                       (header
-                        (h2
-                         (a (@ (href ,(post-uri post)))
-                            ,(post-ref post 'title)))
-                        (p "Publicado el " ,(date->string (post-date post) "~d/~m/~Y")))
-                       (div ,(post-summary post)
-                            (br)
-                            (a (@ (class "btn") (href ,(post-uri post))) " Seguir leyendo "))
-                       (hr)))
+                     `(article (@ (class "inline"))
+                               (header
+                                (h2 (@ (class "title"))
+                                    (a (@ (href ,(post-uri post)))
+                                       ,(post-ref post 'title)))
+                                ,(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
  
  (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 . (("sobre mi" . "about.html")
-                   ("proyectos" . "http://git.jsancho.org/"))))
 -        (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)