Merge branch 'master' into english

[blog.git] / haunt.scm

diff --git a/haunt.scm b/haunt.scm
index 04bada489e51b58ffe5890f08a236a0bb8612dc8..2051f6c80d01aa057a1402732a9fcb7223d550ad 100644 (file)
--- a/haunt.scm
+++ b/haunt.scm
@@ -2,6 +2,8 @@
              (haunt builder blog)
              (haunt builder atom)
              (haunt builder assets)
+            (haunt html)
+            (haunt page)
              (haunt reader)
              (haunt reader texinfo)
              (haunt site)
@@ -13,6 +15,12 @@
   `(link (@ (rel "stylesheet")
             (href ,(string-append "css/" name ".css")))))
 
+(define (static-page title file-name body)
+  (lambda (site posts)
+    (make-page file-name
+              (with-layout flex-theme site title body)
+              sxml->html)))
+
 (define flex-theme
   (theme #:name "Flex"
          #:layout
@@ -41,11 +49,7 @@
                                    `(li (a (@ (href ,(cdr page))) ,(car page))))
                                  (assoc-ref metadata 'pages))))
                      (ul (@ (class "social"))
-                         (li (a (@ (class "sc-linkedin") (target "_blank") (href "")) (i (@ (class "fa fa-linkedin")))))
-                         " "
-                         (li (a (@ (class "sc-github") (target "_blank") (href "")) (i (@ (class "fa fa-github")))))
-                         " "
-                         (li (a (@ (class "sc-twitter") (target "_blank") (href "")) (i (@ (class "fa fa-twitter")))))
+                         (li (a (@ (class "sc-twitter") (target "_blank") (href "https://twitter.com/jsancho_gpl")) (i (@ (class "fa fa-twitter")))))
                          " "
                          (li (a (@ (class "sc-rss") (target "_blank") (href "feed.xml")) (i (@ (class "fa fa-rss")))))))))
                (main ,body)))))
@@ -96,6 +100,18 @@
                        (hr)))
                    (posts/reverse-chronological posts))))))
 
+(define about-page
+  (static-page
+   "About me"
+   "about.html"
+   `((div
+      (article
+       (header (h2 "About me"))
+       (p "I met GNU/Linux and free software while I was studying Computer Science at " (a (@ (href "http://www.uji.es/")) "Universitat Jaume I") " and, since then, my commitment with these ideas hasn't stopped growing.")
+       (p "It was in 2003 when I started as an activist, participating in events related with free software, demonstrations against software patents, talks and information sessions at install parties, schools, etc.")
+       (p "I enjoy programming and I use the programming language that better fits my needs (Python, PHP, Golang, Erlang, ...). For many years my favorite language was C, although over time that privileged place has been occupied by Lisp y Scheme. I'm in love with the functional paradigm.")
+       (p "I'm married with a wonderful woman and we have a kid that amaze us every day. They are the best of my life."))))))
+
 (define %collections
   `(("Home" "index.html" ,posts/reverse-chronological)))
 
@@ -112,6 +128,7 @@
       #:builders (list (blog #:theme flex-theme #:collections %collections)
                        (atom-feed)
                        (atom-feeds-by-tag)
+                      about-page
                        (static-directory "images")
                        (static-directory "fonts")
                        (static-directory "css")))