diff --git a/src/pollen.rkt b/src/pollen.rkt index 427eb70..d88cbcf 100644 --- a/src/pollen.rkt +++ b/src/pollen.rkt @@ -98,18 +98,3 @@ (make-keyword-procedure (lambda (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))))))