Commit d543c835 authored by amirouche's avatar amirouche

style: move make-class

parent 3dc9b3ef
......@@ -27,3 +27,13 @@
(symbol->string (caar alist))
": "
(make-value (cdar alist)))))))
(define-public (make-class alist)
"Create html class attribute with an ALIST"
(let loop ((alist alist)
(out ""))
(if (null? alist)
out
(if (cdar alist)
(loop (cdr alist) (string-append (caar alist) " " out))
(loop (cdr alist) out)))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment