From fbc2c922cc1f475eac1074a2a8f728ac7d771f47 Mon Sep 17 00:00:00 2001 From: Jeremy Dormitzer Date: Sun, 16 Aug 2020 15:12:24 -0400 Subject: [PATCH] Remove function that shadowed (list) --- src/pollen.rkt | 15 --------------- 1 file changed, 15 deletions(-) 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))))))