(define-module (content pages)
  #:use-module (haunt page)
  #:use-module (haunt html)
  #:use-module (builder base)
  #:use-module (builder components)
  #:use-module (builder includes)
  #:export (index-page))

(define (index-page)
  (lambda (site posts)
    (make-page "index.html"
      (contained-template site 
        (header "Eltrac"
                `(p "I write software, fictions and non-fictions.")
                "/static/avatar.jpg")
        (prose
          `(p "Member of " ,(badge "Codeberg e.V." "/static/codeberg.svg"
                                   "https://codeberg.org/Codeberg-e.V./") ", "
              "I maintain and contribute to FOSS projects, mostly in Go, Clojure, and JavaScript."))
        (small-prose
          `(p "Recently, I've been developing weepinbell, a Webmention receiver.")
          (linkbox "weepinbell" "A Webmention receiver written in Clojure."
                   "https://codeberg.org/eltrac/weepinbell" "/static/weepinbell.png"))
        (prose
          `(p "Former moderator of " 
              ,(badge "Backrooms Wiki CN" "/static/brcn.png"
                      "https://backrooms-wiki-cn.wikidot.com/") ", "
              "I wrote some " ,(elink "https://backrooms-wiki-cn.wikidot.com/author:eltrac" "fictions") " there in Chinese. "
              "Now I write some " ,(elink "https://www.geedea.pro/fiction/" "short stories") " on my own blog."))
        (prose
          `(p "Indie web blogger, I write in both " ,(elink "https://geedea.pro/" "Chinese")  " and " ,(elink "https://geedea.pro/en/" "English") ", "
            "about computer science, software freedom, philosophy, literature and my life. My blog is named " (em (@ (style "font-style: italic")) "Geek Death Project") ". "
            "Consider this a monologue of a committed observer."))
        (small-prose
          `(p "Check out some of my " ,(elink "https://slashpages.net/" "slash pages") " :3")
          (navigation))
        `(footer (@ (style "text-align: right; line-height: 1.5"))
          (p "This page is still under construction. 🚧")
          (p "Built using " ,(elink "https://dthompson.dev/projects/haunt.html" "haunt") ", "
             "with " (em (@ (style "font-style: italic")) "Lisp") " magic. 👻")))
      sxml->html)))