jdormit/jeremy-website
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add list tag

Browse Source
This commit is contained in:
Jeremy Dormitzer 2020-08-15 12:58:01 -04:00
parent 9f893daf72
commit 9273cf5749
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/pollen.rkt
View File

@ -97,3 +97,18 @@
(make-keyword-procedure (make-keyword-procedure
(lambda (kws kw-args . elements) (lambda (kws kw-args . elements)
(txexpr 'em (zip-kws kws kw-args) elements)))) (txexpr 'em (zip-kws kws kw-args) elements))))
(define (process-list-item item)
(let ((item (string-trim
(string-trim item "-" #:right? #f))))
(when (and item (non-empty-string? item))
`(li ,item))))
(define list
(make-keyword-procedure
(lambda (kws kw-args . elements)
(txexpr 'ul
(zip-kws kws kw-args)
(filter (lambda (x) (not (void? x)))
(map process-list-item
elements))))))