Plaster
New
List
Login
text
default
anonymous
2023.07.09 08:38:23
(loop for item in '(primary secondary) for symbol = (intern (concatenate 'string "BTN-" (symbol-name item))) for item-name = (format nil "~a" item) collect `(defmacro ,symbol (&body body) `(btn (:type ,item-name) ,@body)))
Raw
Annotate
Repaste
Edit