From f36befd943bf222520eb798d2fe3018ed4e65065 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Thu, 3 Feb 2022 23:53:19 -0500
Subject: [PATCH] add standard clog creation options

---
 tools/clog-builder.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index 69d0fb4..d5b2225 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -813,8 +813,9 @@ of controls and double click to select control."
 			  "\(in-package \"~A\"\)
 \(defclass ~A \(clog:clog-div\)
   \(~{~A~}\)\)
-\(defun create-~A \(clog-obj\)
-  \(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"\) \'~A\)\)\)
+\(defun create-~A \(clog-obj &key \(hidden nil\) \(class nil\) \(html-id nil\) \(auto-place t\)\)
+  \(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"
+         :hidden hidden :class class :html-id html-id :auto-place auto-place\) \'~A\)\)\)
 ~{~A~}~{~A~}    panel\)\)"
 			  (string-upcase package)
 			  cname     ;;defclass