mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

remove regression

Browse source
This commit is contained in:
David Botton 2024-04-01 18:55:56 -04:00
parent 6bb417a7ad
commit c94ed03704
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-form.lisp
View file

@ -223,7 +223,7 @@ attribute/value pairs in the form attr= 'value'"))
(when (or hidden style)
(setf (getf args :style)
(format nil "~@[~a~]~@[~a~]" (when hidden "visibility:hidden;") style)))
(dolist (key '(:name :html-id :auto-place))
(dolist (key '(:html-id :auto-place))
(remf args key))
(let* ((element (create-child
obj (format nil "<input type='~A' ~{~(~A~)= '~A'~^ ~}/>"
@ -235,8 +235,6 @@ attribute/value pairs in the form attr= 'value'"))
(label-for label element))
element))
(escape-string :vslider :html t)
;;;;;;;;;;;;;;;;;;
;; autocomplete ;;
;;;;;;;;;;;;;;;;;;