13 lines
471 B
Scheme
13 lines
471 B
Scheme
;; -*- 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.0")
|
||
,(aux-project "cwm" "linux port of the openbsd calm window manager" "7.8.1.1"))))
|