From 3977cec559c08e66dfd406ec54471a94bf702e06 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Fri, 21 Jan 2022 12:00:11 -0500
Subject: [PATCH] Post creation call back for settings. img and link added.

---
 tools/clog-builder-settings.lisp | 29 +++++++++++++++++++++++++++++
 tools/clog-builder.lisp          |  4 +++-
 2 files changed, 32 insertions(+), 1 deletion(-)

diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp
index 7587497..e9b316d 100644
--- a/tools/clog-builder-settings.lisp
+++ b/tools/clog-builder-settings.lisp
@@ -7,6 +7,10 @@
 	  :control "input")
 	'(:tag "form"
 	  :control "form")
+	'(:tag "button"
+	  :control "button")
+	'(:tag "a"
+	  :control "link")
 	'(:tag "span"
 	  :control "span")
 	'(:tag "div"
@@ -329,6 +333,31 @@
      :create-type    :element
      :create-content "button"
      :properties     (,@*props-element*))
+   `(:name           "link"
+     :description    "Link"
+     :clog-type      clog:clog-a
+     :create         clog:create-a
+     :create-type    :element
+     :create-content "HTML Link"
+     :properties     ((:name "href link"
+		       :prop "href")
+		      (:name "target"
+		       :prop "target")
+		      ,@*props-element*))
+   `(:name           "image"
+     :description    "Image"
+     :clog-type      clog:clog-img
+     :create         clog:create-img
+     :create-type    :base
+     :setup          ,(lambda (control control-record)
+			(declare (ignore control-record))
+			(setf (url-src control) "/img/clogicon.png")
+			(setf (alt-text control) "Add image url"))
+     :properties     ((:name "image url"
+		       :prop "src")
+		      (:name "alternative text"
+		       :prop "alt")
+		      ,@*props-element*))
    `(:name           "form"
      :description    "Form"
      :clog-type      clog:clog-form
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index ae610bc..4a92363 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -124,7 +124,9 @@
 					    :value (getf control-record :create-value)))
 				  (t nil))))
     (when control
-      (setf (attribute control "data-clog-type") control-type-name))
+      (setf (attribute control "data-clog-type") control-type-name)
+      (when (getf control-record :setup)
+	(funcall (getf control-record :setup) control control-record)))
     control))
 
 (defun drop-new-control (app content data next-id &key win)