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

Update comments

Browse source
This commit is contained in:
Marcus Kammer 2023-12-24 10:40:55 +01:00
parent fb17f78d06
commit 19590ea4f4
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/component/form.lisp
View file

@ -1,7 +1,7 @@
;;;; -*- mode: lisp; coding: utf-8-unix; tab-width: 4; fill-column: 100; indent-tabs-mode: nil; -*- ;;;; -*- mode: lisp; coding: utf-8-unix; tab-width: 4; fill-column: 100; indent-tabs-mode: nil; -*-
;;;; form.lisp ;;;; form.lisp
;;;; ;;;;
;;;; This file is part of the CL-SBT project and defines utility functions, ;;;; This file is part of the dev.metalisp.sbt project and defines utility functions,
;;;; macros, and HTML templates for generating Bootstrap-formatted forms. ;;;; macros, and HTML templates for generating Bootstrap-formatted forms.
;;;; It provides mechanisms to build form controls, manage localization, ;;;; It provides mechanisms to build form controls, manage localization,
;;;; and perform string manipulations. ;;;; and perform string manipulations.
@ -135,6 +135,9 @@ VALUE: The value attribute for the control."
(format nil " ~a" value-str)))))) (format nil " ~a" value-str))))))
(defmacro define-checkable (type) (defmacro define-checkable (type)
"Generates a checkable function based on the provided type.
TYPE: A string representing the type."
(let ((func-name (intern (string-upcase (concatenate 'string "checkable-" type))))) (let ((func-name (intern (string-upcase (concatenate 'string "checkable-" type)))))
`(defun ,func-name (name value) `(defun ,func-name (name value)
(checkable ,type name value)))) (checkable ,type name value))))