;; -*- scheme -*-

(define (aux-project name desc vers)
  `(li (strong ,name) " – " ,desc " – "
       (a (@ (href ,(format #f "https://git.linuxposting.xyz/afiw/~a" name))) "git")
       ", "
       (a (@ (href ,(format #f "/~~afiw/dist/~a-~a.tar.gz" name vers))) "tar.gz")))

`((title . "projects")
  (content
   (ul
    ,(aux-project "can" "query filesystem permissions" "1.1")
    ,(aux-project "cwm" "linux port of the openbsd calm window manager" "7.8.1.1"))))