haunt.scm

   1 (use-modules (haunt asset)
   2              (haunt builder blog)
   3              (haunt builder atom)
   4              (haunt builder assets)
   5              (haunt html)
   6              (haunt page)
   7              (haunt reader)
   8              (haunt reader texinfo)
   9              (haunt site)
  10              (haunt post)
  11              (srfi srfi-1)
  12              (srfi srfi-19))
  13
  14 (define (stylesheet name)
  15   `(link (@ (rel "stylesheet")
  16             (href ,(string-append "css/" name ".css")))))
  17
  18 (define (static-page title file-name body)
  19   (lambda (site posts)
  20     (make-page file-name
  21                (with-layout flex-theme site title body)
  22                sxml->html)))
  23
  24 (define flex-theme
  25   (theme #:name "Flex"
  26          #:layout
  27          (lambda (site title body)
  28            `((doctype "html")
  29              (html
  30               (head
  31                (meta (@ (charset "utf-8")))
  32                (title ,(string-append title " - " (site-title site)))
  33                (link (@ (rel "stylesheet") (href "//fonts.googleapis.com/css?family=Source+Sans+Pro:300,400,700,400italic")))
  34                ,(stylesheet "style.min")
  35                ,(stylesheet "monokai.min")
  36                ,(stylesheet "font-awesome.min")
  37                ,(stylesheet "custom")
  38                (meta (@ (name "viewport") (content "width=device-width, initial-scale=1.0"))))
  39               (body
  40                ,(let ((metadata (site-default-metadata site)))
  41                   `(aside
  42                     (div
  43                      (a (@ (href "index.html")) (img (@ (src ,(assoc-ref metadata 'picture)))))
  44                      (h1 (a (@ (href "index.html")) ,(assoc-ref metadata 'author)))
  45                      (p ,(assoc-ref metadata 'description))
  46                      (nav
  47                       (ul (@ (class "list"))
  48                           ,@(map (lambda (page)
  49                                    `(li (a (@ (href ,(cdr page))) ,(car page))))
  50                                  (assoc-ref metadata 'pages))))
  51                      (ul (@ (class "social"))
  52                          (li (a (@ (class "sc-twitter") (target "_blank") (href "https://twitter.com/jsancho_gpl")) (i (@ (class "fa fa-twitter")))))
  53                          " "
  54                          (li (a (@ (class "sc-rss") (target "_blank") (href "feed.xml")) (i (@ (class "fa fa-rss")))))))))
  55                (main ,body)))))
  56
  57          #:post-template
  58          (lambda (post)
  59            (define (get-tags post)
  60              (or (assoc-ref (post-metadata post) 'tags) '()))
  61
  62            `((article (@ (class "single"))
  63                       (header
  64                        (h1 ,(post-ref post 'title))
  65                        (p "Publicado el " ,(date->string (post-date post) "~d/~m/~Y")))
  66                       ,(post-sxml post)
  67                       (div (@ (class "tag-cloud"))
  68                            (p
  69                             ,@(map (lambda (tag)
  70                                      `((a (@ (href "")) ,tag) " "))
  71                                    (get-tags post)))))))
  72
  73          #:collection-template
  74          (lambda (site title posts prefix)
  75            (define (post-uri post)
  76              (string-append (or prefix "")
  77                             (site-post-slug site post) ".html"))
  78
  79            (define (get-paragraphs sxml count)
  80              (let ((pars (filter
  81                           (lambda (e) (and (pair? e) (eq? (car e) 'p)))
  82                           sxml)))
  83                (list-head pars (min count (length pars)))))
  84
  85            (define (post-summary post)
  86              (or (post-ref post 'summary)
  87                  (get-paragraphs (cdr (post-sxml post)) 3)))
  88
  89            `(
  90              ,@(map (lambda (post)
  91                       `(article
  92                         (header
  93                          (h2
  94                           (a (@ (href ,(post-uri post)))
  95                              ,(post-ref post 'title)))
  96                          (p "Publicado el " ,(date->string (post-date post) "~d/~m/~Y")))
  97                         (div ,(post-summary post)
  98                              (br)
  99                              (a (@ (class "btn") (href ,(post-uri post))) " Seguir leyendo "))
 100                         (hr)))
 101                     (posts/reverse-chronological posts))))))
 102
 103 (define about-page
 104   (static-page
 105    "Sobre mi"
 106    "about.html"
 107    `((div
 108       (article
 109        (header (h2 "Sobre mi"))
 110        (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.")
 111        (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.")
 112        (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.")
 113        (p "Estoy casado con una mujer maravillosa y tengo un hijo que no deja de sorprenderme cada día. Son mi mayor alegría."))))))
 114
 115 (define %collections
 116   `(("Home" "index.html" ,posts/reverse-chronological)))
 117
 118 (site #:title "Javier Sancho"
 119       #:domain "jsancho.org"
 120       #:build-directory "site-spanish"
 121       #:default-metadata
 122       '((author . "Javier Sancho")
 123         (description . "Evangelizador del software libre - Programador")
 124         (email . "jsf@jsancho.org")
 125         (picture . "images/jsancho.jpg")
 126         (pages . (("sobre mi" . "about.html")
 127                   ("proyectos" . "http://git.jsancho.org/"))))
 128       #:readers (list sxml-reader html-reader)
 129       #:builders (list (blog #:theme flex-theme #:collections %collections)
 130                        (atom-feed)
 131                        (atom-feeds-by-tag)
 132                        about-page
 133                        (static-directory "images")
 134                        (static-directory "fonts")
 135                        (static-directory "css")))