From "display the list of boards on top of pages" on Jun 11:
(define (make-board-list)
`((p (@ (class "boardlist")) "[ " ,@(list-intersperse
(map (lambda (board) (list 'a `(@ (href ,(string-append "/" board "/") )) board))
*board-list*)
" | ") " ]")))From "Allow to quote every single posts as comma separated values. Deduplicate regex code" on Jun 11:
(define *board-list* (map pathname-name (cddr (directory-read "data/sexp/*"))))From https://textboard.org/sexp/
..
mona/
prog/
sandbox/
sol/From top of the page:
[ mona / prog / sol ]