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

render style option

Browse source
This commit is contained in:
David Botton 2024-07-02 22:36:10 -04:00
parent 61a864bfee
commit 8e955ce586
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-render.lisp
View file

@ -89,9 +89,9 @@
"\(in-package :~A) "\(in-package :~A)
\(defclass ~A \(clog:clog-panel\) \(defclass ~A \(clog:clog-panel\)
\(~{~A~}\)\) \(~{~A~}\)\)
\(defun create-~A \(clog-obj &key \(hidden nil\) \(class nil\) \(html-id nil\) \(auto-place t\)\) \(defun create-~A \(clog-obj &key hidden class style html-id \(auto-place t\)\)
\(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\" \(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"
:hidden hidden :class class :html-id html-id :auto-place auto-place\) \'~A\)\)\) :hidden hidden :class class :style style :html-id html-id :auto-place auto-place\) \'~A\)\)\)
~{~A~}~{~A~}~{~A~} panel\)\)~%" ~{~A~}~{~A~}~{~A~} panel\)\)~%"
(string-downcase package) (string-downcase package)
cname ;;defclass cname ;;defclass