marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Remove uneccessary string fn

Browse source
This commit is contained in:
Marcus Kammer 2023-07-13 16:33:46 +02:00
parent 68f53fafbe
commit 5514d9a656
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/component/button.lisp
View file

@ -118,7 +118,7 @@
(type-name (concatenate 'string outline-name type))
(macro-name (intern (string-upcase (concatenate 'string "BTN-" outline-name type size-name)))))
`(defmacro ,macro-name (&body body)
`(btn (:type ,(string ',type-name) :size ,(string ',size-name)) ,@body))))
`(btn (:type ,,type-name :size ,,size-name) ,@body))))
(defmacro define-btns (names)
"This macro generates a suite of button-creating macros for each provided button type.