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 "Posted on " ,(date->string (post-date post) "~B ~d, ~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 "Posted on " ,(date->string (post-date post) "~B ~d, ~Y")))
  97                         (div ,(post-summary post)
  98                              (br)
  99                              (a (@ (class "btn") (href ,(post-uri post))) " Continue reading "))
 100                         (hr)))
 101                     (posts/reverse-chronological posts))))))
 102
 103 (define about-page
 104   (static-page
 105    "About me"
 106    "about.html"
 107    `((h2 "hi."))))
 108
 109 (define %collections
 110   `(("Home" "index.html" ,posts/reverse-chronological)))
 111
 112 (site #:title "Javier Sancho"
 113       #:domain "jsancho.org"
 114       #:default-metadata
 115       '((author . "Javier Sancho")
 116         (description . "Free Software Evangelist - Programmer")
 117         (email . "jsf@jsancho.org")
 118         (picture . "images/jsancho.jpg")
 119         (pages . (("about" . "about.html")
 120                   ("projects" . "http://git.jsancho.org/"))))
 121       #:readers (list sxml-reader html-reader)
 122       #:builders (list (blog #:theme flex-theme #:collections %collections)
 123                        (atom-feed)
 124                        (atom-feeds-by-tag)
 125                        about-page
 126                        (static-directory "images")
 127                        (static-directory "fonts")
 128                        (static-directory "css")))