seam

Symbolic-Expressions As Markup.
git clone git://git.knutsen.co/seam
Log | Files | Refs | README | LICENSE

index.sex (362B)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
(!DOCTYPE html)
(html :lang en
  (head
    (title Blog Concept))
  (body
    (h1 My Blog)
    (h2 Index)
    (%define blog-dir (%sort :by date (%dir "./blog/*.sex")))
    (ul
      (%for file in %blog-dir
        (%let ((short-title (%basename %file)))
          (li (a :href (%concat "./blog"%short-title".html") %short-title)))))
    (p What interests you?)))