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

Tables

Browse source
This commit is contained in:
David Botton 2021-01-27 23:12:39 -05:00
parent b4e7079225
commit b0214315c9
4 changed files with 534 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

413
clog-element-common.lisp
View file

@ -38,7 +38,8 @@ place-inside-bottom-of CLOG-OBJ.
(auto-place t)) (auto-place t))
(create-child obj (format nil "<a~A target='~A' href='~A'>~A</a>" (create-child obj (format nil "<a~A target='~A' href='~A'>~A</a>"
(if class (if class
(format nil " class='~A'" (escape-string class)) (format nil " class='~A'"
(escape-string class))
"") "")
(escape-string target) (escape-string target)
(escape-string link) (escape-string link)
@ -91,12 +92,17 @@ place-inside-bottom-of CLOG-OBJ.
;; create-br ;; ;; create-br ;;
;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;
(defgeneric create-br (clog-obj &key auto-place) (defgeneric create-br (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-BR as child of CLOG-OBJ that creates a (:documentation "Create a new CLOG-BR as child of CLOG-OBJ that creates a
line break and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ")) line break and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-br ((obj clog-obj) &key (auto-place t)) (defmethod create-br ((obj clog-obj) &key (class nil) (auto-place t))
(create-child obj "<br />" :clog-type 'clog-br :auto-place auto-place)) (create-child obj (format nil "<br~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-br :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-button ;; Implementation - clog-button
@ -118,7 +124,8 @@ CLOG-OBJ"))
&key (content "") (class nil) (auto-place t)) &key (content "") (class nil) (auto-place t))
(create-child obj (format nil "<button~A>~A</button>" (create-child obj (format nil "<button~A>~A</button>"
(if class (if class
(format nil " class='~A'" (escape-string class)) (format nil " class='~A'"
(escape-string class))
"") "")
(escape-string content)) (escape-string content))
:clog-type 'clog-button :auto-place auto-place)) :clog-type 'clog-button :auto-place auto-place))
@ -156,7 +163,8 @@ CLOG-OBJ"))
(default \"\") and if :AUTO-PLACE (default t) place-inside-bottom-of (default \"\") and if :AUTO-PLACE (default t) place-inside-bottom-of
CLOG-OBJ")) CLOG-OBJ"))
(defmethod create-div ((obj clog-obj) &key (content "") (class nil) (auto-place t)) (defmethod create-div ((obj clog-obj)
&key (content "") (class nil) (auto-place t))
(create-child obj (format nil "<div~A>~A</div>" (create-child obj (format nil "<div~A>~A</div>"
(if class (if class
(format nil " class='~A'" (escape-string class)) (format nil " class='~A'" (escape-string class))
@ -175,13 +183,18 @@ CLOG-OBJ"))
;; create-hr ;; ;; create-hr ;;
;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;
(defgeneric create-hr (clog-obj &key auto-place) (defgeneric create-hr (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-HR as child of CLOG-OBJ that creates a (:documentation "Create a new CLOG-HR as child of CLOG-OBJ that creates a
horizontal rule (line) and if :AUTO-PLACE (default t) place-inside-bottom-of horizontal rule (line) and if :AUTO-PLACE (default t) place-inside-bottom-of
CLOG-OBJ")) CLOG-OBJ"))
(defmethod create-hr ((obj clog-obj) &key (auto-place t)) (defmethod create-hr ((obj clog-obj) &key (class nil) (auto-place t))
(create-child obj "<hr />" :clog-type 'clog-hr :auto-place auto-place)) (create-child obj (format nil "<hr~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-hr :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-img ;; Implementation - clog-img
@ -207,7 +220,8 @@ placing image to constrain image size."))
(auto-place t)) (auto-place t))
(create-child obj (format nil "<img~A src='~A' alt='~A'>)" (create-child obj (format nil "<img~A src='~A' alt='~A'>)"
(if class (if class
(format nil " class='~A'" (escape-string class)) (format nil " class='~A'"
(escape-string class))
"") "")
(escape-string url-src) (escape-string url-src)
(escape-string alt-text)) (escape-string alt-text))
@ -259,6 +273,7 @@ placing image to constrain image size."))
;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;
(defgeneric create-meter (clog-obj &key value high low maximum minimum optimum (defgeneric create-meter (clog-obj &key value high low maximum minimum optimum
class
auto-place) auto-place)
(:documentation "Create a new CLOG-Meter as child of CLOG-OBJ with VALUE (:documentation "Create a new CLOG-Meter as child of CLOG-OBJ with VALUE
(default 0) HIGH (default 100) LOW (default 0) MAXIMUM (default 100) MINIMUM (default 0) HIGH (default 100) LOW (default 0) MAXIMUM (default 100) MINIMUM
@ -272,9 +287,15 @@ place-inside-bottom-of CLOG-OBJ."))
(maximum 100) (maximum 100)
(minimum 0) (minimum 0)
(optimum 50) (optimum 50)
(class nil)
(auto-place t)) (auto-place t))
(create-child obj (format nil "<meter value=~A high=~A low=~A max=~A min=~A optimum=~A />" (create-child obj (format nil
value high low maximum minimum optimum) "<meter value=~A high=~A low=~A max=~A min=~A optimum=~A~A/>"
value high low maximum minimum optimum
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-meter :auto-place auto-place)) :clog-type 'clog-meter :auto-place auto-place))
;;;;;;;;;;; ;;;;;;;;;;;
@ -390,16 +411,20 @@ place-inside-bottom-of CLOG-OBJ."))
;; create-progress-bar ;; ;; create-progress-bar ;;
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-progress-bar (clog-obj &key value maximum auto-place) (defgeneric create-progress-bar (clog-obj &key value maximum class auto-place)
(:documentation "Create a new CLOG-Progress-Bar as child of CLOG-OBJ with VALUE (:documentation "Create a new CLOG-Progress-Bar as child of CLOG-OBJ with
(default 0) MAXIMUM (default 100) and if :AUTO-PLACE (default t) VALUE (default 0) MAXIMUM (default 100) and if :AUTO-PLACE (default t)
place-inside-bottom-of CLOG-OBJ.")) place-inside-bottom-of CLOG-OBJ."))
(defmethod create-progress-bar ((obj clog-obj) &key (defmethod create-progress-bar ((obj clog-obj) &key (value 0)
(value 0) (maximum 100)
(maximum 100) (class nil)
(auto-place t)) (auto-place t))
(create-child obj (format nil "<progress value=~A max=~A />" value maximum) (create-child obj (format nil "<progress value=~A max=~A />" value maximum
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-progress-bar :auto-place auto-place)) :clog-type 'clog-progress-bar :auto-place auto-place))
;;;;;;;;;;; ;;;;;;;;;;;
@ -456,7 +481,8 @@ CLOG-OBJ"))
&key (content "") (class nil) (auto-place t)) &key (content "") (class nil) (auto-place t))
(create-child obj (format nil "<p~A>~A</p>" (create-child obj (format nil "<p~A>~A</p>"
(if class (if class
(format nil " class='~A'" (escape-string class)) (format nil " class='~A'"
(escape-string class))
"") "")
(escape-string content)) (escape-string content))
:clog-type 'clog-p :auto-place auto-place)) :clog-type 'clog-p :auto-place auto-place))
@ -482,7 +508,8 @@ CLOG-OBJ"))
&key (content "") (class nil) (auto-place t)) &key (content "") (class nil) (auto-place t))
(create-child obj (format nil "<span~A>~A</span>" (create-child obj (format nil "<span~A>~A</span>"
(if class (if class
(format nil " class='~A'" (escape-string class)) (format nil " class='~A'"
(escape-string class))
"") "")
(escape-string content)) (escape-string content))
:clog-type 'clog-span :auto-place auto-place)) :clog-type 'clog-span :auto-place auto-place))
@ -514,7 +541,8 @@ CLOG-OBJ"))
(create-child obj (format nil "<~A~A>~A</~A>" (create-child obj (format nil "<~A~A>~A</~A>"
section section
(if class (if class
(format nil " class='~A'" (escape-string class)) (format nil " class='~A'"
(escape-string class))
"") "")
(escape-string content) (escape-string content)
section) section)
@ -547,7 +575,8 @@ CLOG-OBJ"))
(create-child obj (format nil "<~A~A>~A</~A>" (create-child obj (format nil "<~A~A>~A</~A>"
phrase phrase
(if class (if class
(format nil " class='~A'" (escape-string class)) (format nil " class='~A'"
(escape-string class))
"") "")
(escape-string content) (escape-string content)
phrase) phrase)
@ -565,12 +594,17 @@ CLOG-OBJ"))
;; create-ordered-list ;; ;; create-ordered-list ;;
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-ordered-list (clog-obj &key auto-place) (defgeneric create-ordered-list (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Ordered-List as child of CLOG-OBJ (:documentation "Create a new CLOG-Ordered-List as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ")) and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-ordered-list ((obj clog-obj) &key (auto-place t)) (defmethod create-ordered-list ((obj clog-obj)
(create-child obj "<ol />" &key (class nil) (auto-place t))
(create-child obj (format nil "<ol~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-ordered-list :auto-place auto-place)) :clog-type 'clog-ordered-list :auto-place auto-place))
;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;
@ -628,12 +662,17 @@ is outside."))
;; create-unordered-list ;; ;; create-unordered-list ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-unordered-list (clog-obj &key auto-place) (defgeneric create-unordered-list (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Unordered-List as child of CLOG-OBJ (:documentation "Create a new CLOG-Unordered-List as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ")) and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-unordered-list ((obj clog-obj) &key (auto-place t)) (defmethod create-unordered-list ((obj clog-obj) &key (class nil)
(create-child obj "<ul />" (auto-place t))
(create-child obj (format nil "<ul~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-unordered-list :auto-place auto-place)) :clog-type 'clog-unordered-list :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -647,12 +686,19 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
;; create-list-item ;; ;; create-list-item ;;
;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-list-item (clog-obj &key content auto-place) (defgeneric create-list-item (clog-obj &key content class auto-place)
(:documentation "Create a new CLOG-List-Item as child of CLOG-OBJ (:documentation "Create a new CLOG-List-Item as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ")) and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-list-item ((obj clog-obj) &key (content "") (auto-place t)) (defmethod create-list-item ((obj clog-obj) &key (content "")
(create-child obj (format nil "<li>~A</li>" (escape-string content)) (class nil)
(auto-place t))
(create-child obj (format nil "<li~A>~A</li>"
(escape-string content)
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-list-item :auto-place auto-place)) :clog-type 'clog-list-item :auto-place auto-place))
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
@ -683,12 +729,17 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
;; create-definition-list ;; ;; create-definition-list ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-definition-list (clog-obj &key auto-place) (defgeneric create-definition-list (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Definition-List as child of CLOG-OBJ (:documentation "Create a new CLOG-Definition-List as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ")) and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-definition-list ((obj clog-obj) &key (auto-place t)) (defmethod create-definition-list ((obj clog-obj) &key (class nil)
(create-child obj "<dl />" (auto-place t))
(create-child obj (format nil "<dl~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-definition-list :auto-place auto-place)) :clog-type 'clog-definition-list :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -702,13 +753,20 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
;; create-term ;; ;; create-term ;;
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
(defgeneric create-term (clog-definition-list &key content auto-place) (defgeneric create-term (clog-definition-list &key content class auto-place)
(:documentation "Create a new CLOG-Term as child of CLOG-OBJ (:documentation "Create a new CLOG-Term as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ")) and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-term ((obj clog-definition-list) (defmethod create-term ((obj clog-definition-list)
&key (content "") (auto-place t)) &key (content "")
(create-child obj (format nil "<dt>~A</dt>" (escape-string content)) (class nil)
(auto-place t))
(create-child obj (format nil "<dt>~A</dt>"
(escape-string content)
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-term :auto-place auto-place)) :clog-type 'clog-term :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -722,11 +780,282 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
;; create-description ;; ;; create-description ;;
;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-description (clog-definition-list &key content auto-place) (defgeneric create-description (clog-definition-list
&key content class auto-place)
(:documentation "Create a new CLOG-Description as child of CLOG-OBJ (:documentation "Create a new CLOG-Description as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ")) and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-description ((obj clog-definition-list) (defmethod create-description ((obj clog-definition-list)
&key (content "") (auto-place t)) &key (content "")
(create-child obj (format nil "<dd>~A</dd>" (escape-string content)) (class nil)
(auto-place t))
(create-child obj (format nil "<dd>~A</dd>"
(escape-string content)
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-description :auto-place auto-place)) :clog-type 'clog-description :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table (clog-element)()
(:documentation "CLOG Table Objects."))
;;;;;;;;;;;;;;;;;;
;; create-table ;;
;;;;;;;;;;;;;;;;;;
(defgeneric create-table (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Table as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table ((obj clog-obj)
&key (class nil) (auto-place t))
(create-child obj (format nil "<table~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-table :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-row
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-row (clog-element)()
(:documentation "CLOG Table-Row Objects."))
;;;;;;;;;;;;;;;;;;;;;;
;; create-table-row ;;
;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-row (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Table-Row as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-row ((obj clog-obj)
&key (class nil) (auto-place t))
(create-child obj (format nil "<tr~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-table-row :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-column
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-column (clog-table-row)()
(:documentation "CLOG Table-Column Objects."))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; create-table-column ;;
;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-column (clog-obj &key content
column-span
row-span
class
auto-place)
(:documentation "Create a new CLOG-Table-Column as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-column ((obj clog-obj) &key (content "")
(column-span 1)
(row-span 1)
(class nil)
(auto-place t))
(create-child obj (format nil "<td colspan=~A rowspan=~A~A>~A</td>"
column-span
row-span
(if class
(format nil " class='~A'"
(escape-string class))
"")
(escape-string content))
:clog-type 'clog-table-column :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-heading
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-heading (clog-table-row)()
(:documentation "CLOG Table-Heading Objects."))
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; create-table-heading ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-heading (clog-obj &key content
column-span
row-span
class
auto-place)
(:documentation "Create a new CLOG-Table-Heading as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-heading ((obj clog-obj) &key (content "")
(column-span 1)
(row-span 1)
(class nil)
(auto-place t))
(create-child obj (format nil "<th colspan=~A rowspan=~A~A>~A</th>"
column-span
row-span
(if class
(format nil " class='~A'"
(escape-string class))
"")
(escape-string content))
:clog-type 'clog-table-heading :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-head
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-head (clog-table)()
(:documentation "CLOG Table-Head Objects."))
;;;;;;;;;;;;;;;;;;;;;;;
;; create-table-head ;;
;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-head (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Table-Head as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-head ((obj clog-obj)
&key (class nil) (auto-place t))
(create-child obj (format nil "<thead~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-table-head :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-body
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-body (clog-table)()
(:documentation "CLOG Table-Body Objects."))
;;;;;;;;;;;;;;;;;;;;;;;
;; create-table-body ;;
;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-body (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Table-Body as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-body ((obj clog-obj)
&key (class nil) (auto-place t))
(create-child obj (format nil "<tbody~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-table-body :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-caption
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-caption (clog-table)()
(:documentation "CLOG Table-Caption Objects."))
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; create-table-caption ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-caption (clog-obj &key content class auto-place)
(:documentation "Create a new CLOG-Table-Caption as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-caption ((obj clog-obj)
&key (content "") (class nil) (auto-place t))
(create-child obj (format nil "<caption~A/>~A</caption>"
(if class
(format nil " class='~A'"
(escape-string class))
"")
(escape-string content))
:clog-type 'clog-table-caption :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-footer
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-footer (clog-table)()
(:documentation "CLOG Table-Footer Objects."))
;;;;;;;;;;;;;;;;;;;;;;;
;; create-table-footer ;;
;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-footer (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Table-Footer as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-footer ((obj clog-obj)
&key (class nil) (auto-place t))
(create-child obj (format nil "<tfoot~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-table-footer :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-column-group
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-column-group (clog-table)()
(:documentation "CLOG Table-Column-Group Objects."))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; create-table-column-group ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-column-group (clog-obj &key class auto-place)
(:documentation "Create a new CLOG-Table-Column-Group as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-column-group ((obj clog-obj)
&key (class nil) (auto-place t))
(create-child obj (format nil "<colgroup~A/>"
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-table-column-group :auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-table-column-group-item
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass clog-table-column-group-item (clog-table-column-group)()
(:documentation "CLOG Table-Column-Group-Item Objects."))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; create-table-column-group-item ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric create-table-column-group-item (clog-obj
&key column-span class auto-place)
(:documentation "Create a new CLOG-Table-Column-Group-Item as child of CLOG-OBJ
and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-column-group-item ((obj clog-obj)
&key (column-span 1) (class nil) (auto-place t))
(create-child obj (format nil "<col span=~A~A/>"
column-span
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-table-column-group-item :auto-place auto-place))

42
clog.lisp
View file

@ -381,7 +381,47 @@ embedded in a native template application.)"
"CLOG-Description - Class for CLOG Descriptions" "CLOG-Description - Class for CLOG Descriptions"
(clog-description class) (clog-description class)
(create-description generic-function)) (create-description generic-function)
"CLOG-Table - Class for CLOG Tables"
(clog-table class)
(create-table generic-function)
"CLOG-Table-Row - Class for CLOG Table-Rows"
(clog-table-row class)
(create-table-row generic-function)
"CLOG-Table-Column - Class for CLOG Table-Columns"
(clog-table-column class)
(create-table-column generic-function)
"CLOG-Table-Heading - Class for CLOG Table-Headings"
(clog-table-heading class)
(create-table-heading generic-function)
"CLOG-Table-Head - Class for CLOG Table-Heads"
(clog-table-head class)
(create-table-head generic-function)
"CLOG-Table-Body - Class for CLOG Table-Bodys"
(clog-table-body class)
(create-table-body generic-function)
"CLOG-Table-Caption - Class for CLOG Table-Captions"
(clog-table-caption class)
(create-table-caption generic-function)
"CLOG-Table-Footer - Class for CLOG Table-Footers"
(clog-table-footer class)
(create-table-footer generic-function)
"CLOG-Table-Column-Group - Class for CLOG Table-Column-Groups"
(clog-table-column-group class)
(create-table-column-group generic-function)
"CLOG-Table-Column-Group-Item - Class for CLOG Table-Column-Group-Items"
(clog-table-column-group-item class)
(create-table-column-group-item generic-function))
(defsection @clog-form (:title "CLOG Form Objects") (defsection @clog-form (:title "CLOG Form Objects")
"CLOG-Form - Class for organizing Form Elements in to a From" "CLOG-Form - Class for organizing Form Elements in to a From"

138
doc/clog-manual.html
View file

@ -309,14 +309,16 @@ properties (to use for :property) are based on the event type.</p>
<p><a id='x-28CLOG-3AINITIALIZE-20FUNCTION-29'></a></p> <p><a id='x-28CLOG-3AINITIALIZE-20FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AINITIALIZE-20FUNCTION-29" >INITIALIZE</a></span></span> <span class="locative-args">ON-NEW-WINDOW-HANDLER &amp;KEY (HOST &quot;0.0.0.0&quot;) (PORT 8080) (BOOT-FILE &quot;/boot.html&quot;) (STATIC-ROOT #P&quot;static-files/&quot;)</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[function]</span> <span class="reference-object"><a href="#x-28CLOG-3AINITIALIZE-20FUNCTION-29" >INITIALIZE</a></span></span> <span class="locative-args">ON-NEW-WINDOW-HANDLER &amp;KEY (HOST &quot;0.0.0.0&quot;) (PORT 8080) (BOOT-FILE &quot;/boot.html&quot;) (STATIC-ROOT (<code>MERGE-PATHNAMES</code> &quot;./static-files/&quot; (<code>ASDF/SYSTEM:SYSTEM-SOURCE-DIRECTORY</code> <code>:CLOG</code>)))</span></span></p>
<p>Inititalize <code>CLOG</code> on a socket using <code>HOST</code> and <code>PORT</code> to serve <code>BOOT-FILE</code> as <p>Inititalize <code>CLOG</code> on a socket using <code>HOST</code> and <code>PORT</code> to serve <code>BOOT-FILE</code>
the default route to establish web-socket connections and static files as the default route to establish web-socket connections and static
located at <code>STATIC-ROOT</code>. If <code>CLOG</code> was already initialized and not shut files located at <code>STATIC-ROOT</code>. If <code>CLOG</code> was already initialized and not
down, this function does the same as set-on-new-window. If the variable shut down, this function does the same as set-on-new-window (does not
clog:<em>overide-static-root</em> is set <code>STATIC-ROOT</code> will be ignored. If <code>BOOT-FILE</code> change the static-root). <code>STATIC-ROOT</code> by default is the &quot;directory <code>CLOG</code>
is nil no default boot-file will be set for /.</p></li> is installed in ./static-files&quot; If the variable clog:<em>overide-static-root</em>
is set <code>STATIC-ROOT</code> will be ignored. If <code>BOOT-FILE</code> is nil no default
boot-file will be set for root path, i.e. /.</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3ASET-ON-NEW-WINDOW-20FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ASET-ON-NEW-WINDOW-20FUNCTION-29'></a></p>
@ -564,6 +566,69 @@ is nil unbind the event.</p></li>
is nil unbind the event.</p></li> is nil unbind the event.</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3ASET-ON-DRAG-START-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASET-ON-DRAG-START-20GENERIC-FUNCTION-29" >SET-ON-DRAG-START</a></span></span> <span class="locative-args">CLOG-OBJ ON-DRAG-START-HANDLER &amp;KEY DRAG-DATA DRAG-TYPE</span></span></p>
<p>Set the <code>ON-DRAG-START-HANDLER</code> for <code>CLOG-OBJ</code>. If <code>ON-DRAG-START-HANDLER</code>
is nil unbind the event.</p></li>
</ul>
<p><a id='x-28CLOG-3ASET-ON-DRAG-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASET-ON-DRAG-20GENERIC-FUNCTION-29" >SET-ON-DRAG</a></span></span> <span class="locative-args">CLOG-OBJ ON-DRAG-HANDLER</span></span></p>
<p>Set the <code>ON-DRAG-HANDLER</code> for <code>CLOG-OBJ</code>. If <code>ON-DRAG-HANDLER</code>
is nil unbind the event.</p></li>
</ul>
<p><a id='x-28CLOG-3ASET-ON-DRAG-END-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASET-ON-DRAG-END-20GENERIC-FUNCTION-29" >SET-ON-DRAG-END</a></span></span> <span class="locative-args">CLOG-OBJ ON-DRAG-END-HANDLER</span></span></p>
<p>Set the <code>ON-DRAG-END-HANDLER</code> for <code>CLOG-OBJ</code>. If <code>ON-DRAG-END-HANDLER</code>
is nil unbind the event.</p></li>
</ul>
<p><a id='x-28CLOG-3ASET-ON-DRAG-ENTER-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASET-ON-DRAG-ENTER-20GENERIC-FUNCTION-29" >SET-ON-DRAG-ENTER</a></span></span> <span class="locative-args">CLOG-OBJ ON-DRAG-ENTER-HANDLER</span></span></p>
<p>Set the <code>ON-DRAG-ENTER-HANDLER</code> for <code>CLOG-OBJ</code>. If <code>ON-DRAG-ENTER-HANDLER</code>
is nil unbind the event.</p></li>
</ul>
<p><a id='x-28CLOG-3ASET-ON-DRAG-LEAVE-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASET-ON-DRAG-LEAVE-20GENERIC-FUNCTION-29" >SET-ON-DRAG-LEAVE</a></span></span> <span class="locative-args">CLOG-OBJ ON-DRAG-LEAVE-HANDLER</span></span></p>
<p>Set the <code>ON-DRAG-LEAVE-HANDLER</code> for <code>CLOG-OBJ</code>. If <code>ON-DRAG-LEAVE-HANDLER</code>
is nil unbind the event.</p></li>
</ul>
<p><a id='x-28CLOG-3ASET-ON-DRAG-OVER-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASET-ON-DRAG-OVER-20GENERIC-FUNCTION-29" >SET-ON-DRAG-OVER</a></span></span> <span class="locative-args">CLOG-OBJ ON-DRAG-OVER-HANDLER</span></span></p>
<p>Set the <code>ON-DRAG-OVER-HANDLER</code> for <code>CLOG-OBJ</code>. If <code>ON-DRAG-OVER-HANDLER</code>
is nil unbind the event.</p></li>
</ul>
<p><a id='x-28CLOG-3ASET-ON-DROP-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASET-ON-DROP-20GENERIC-FUNCTION-29" >SET-ON-DROP</a></span></span> <span class="locative-args">CLOG-OBJ ON-DROP-HANDLER &amp;KEY DRAG-TYPE</span></span></p>
<p>Set the <code>ON-DROP-HANDLER</code> for <code>CLOG-OBJ</code>. If <code>ON-DROP-HANDLER</code>
is nil unbind the event.</p></li>
</ul>
<p><a id='x-28CLOG-3ASET-ON-FOCUS-IN-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ASET-ON-FOCUS-IN-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
@ -2178,7 +2243,7 @@ to no actual <code>HTML</code> elemen.</p></li>
<p><a id='x-28CLOG-3ACREATE-A-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-A-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-A-20GENERIC-FUNCTION-29" >CREATE-A</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY LINK CONTENT TARGET AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-A-20GENERIC-FUNCTION-29" >CREATE-A</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY LINK CONTENT TARGET CLASS AUTO-PLACE</span></span></p>
<p>Create a new <a href="#x-28CLOG-3ACLOG-A-20CLASS-29" title="(CLOG:CLOG-A CLASS)"><code>CLOG-A</code></a> as child of <code>CLOG-OBJ</code> with <code>:LINK</code> and <p>Create a new <a href="#x-28CLOG-3ACLOG-A-20CLASS-29" title="(CLOG:CLOG-A CLASS)"><code>CLOG-A</code></a> as child of <code>CLOG-OBJ</code> with <code>:LINK</code> and
<code>:CONTENT</code> (default &quot;&quot;) and <code>:TARGET</code> (&quot;_self&quot;) and if <code>:AUTO-PLACE</code> (default t) <code>:CONTENT</code> (default &quot;&quot;) and <code>:TARGET</code> (&quot;_self&quot;) and if <code>:AUTO-PLACE</code> (default t)
@ -2220,7 +2285,7 @@ place-inside-bottom-of <code>CLOG-OBJ</code>.</p>
<p><a id='x-28CLOG-3ACREATE-BR-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-BR-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-BR-20GENERIC-FUNCTION-29" >CREATE-BR</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-BR-20GENERIC-FUNCTION-29" >CREATE-BR</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS AUTO-PLACE</span></span></p>
<p>Create a new <a href="#x-28CLOG-3ACLOG-BR-20CLASS-29" title="(CLOG:CLOG-BR CLASS)"><code>CLOG-BR</code></a> as child of <code>CLOG-OBJ</code> that creates a <p>Create a new <a href="#x-28CLOG-3ACLOG-BR-20CLASS-29" title="(CLOG:CLOG-BR CLASS)"><code>CLOG-BR</code></a> as child of <code>CLOG-OBJ</code> that creates a
line break and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li> line break and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li>
@ -2239,7 +2304,7 @@ line break and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <c
<p><a id='x-28CLOG-3ACREATE-BUTTON-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-BUTTON-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-BUTTON-20GENERIC-FUNCTION-29" >CREATE-BUTTON</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-BUTTON-20GENERIC-FUNCTION-29" >CREATE-BUTTON</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Button as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code> <p>Create a new CLOG-Button as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code>
(default &quot;&quot;) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of (default &quot;&quot;) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
@ -2267,7 +2332,7 @@ line break and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <c
<p><a id='x-28CLOG-3ACREATE-IMG-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-IMG-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-IMG-20GENERIC-FUNCTION-29" >CREATE-IMG</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY URL-SRC ALT-TEXT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-IMG-20GENERIC-FUNCTION-29" >CREATE-IMG</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY URL-SRC ALT-TEXT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Img as child of <code>CLOG-OBJ</code> with <code>:URL-SRC</code> <p>Create a new CLOG-Img as child of <code>CLOG-OBJ</code> with <code>:URL-SRC</code>
(default &quot;&quot;) and <code>:ALT-TEXT</code> (default &quot;&quot;) if <code>:AUTO-PLACE</code> (default t) (default &quot;&quot;) and <code>:ALT-TEXT</code> (default &quot;&quot;) if <code>:AUTO-PLACE</code> (default t)
@ -2296,7 +2361,7 @@ placing image to constrain image size.</p></li>
<p><a id='x-28CLOG-3ACREATE-DIV-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-DIV-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-DIV-20GENERIC-FUNCTION-29" >CREATE-DIV</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-DIV-20GENERIC-FUNCTION-29" >CREATE-DIV</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Div as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code> <p>Create a new CLOG-Div as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code>
(default &quot;&quot;) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of (default &quot;&quot;) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
@ -2316,7 +2381,7 @@ placing image to constrain image size.</p></li>
<p><a id='x-28CLOG-3ACREATE-HR-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-HR-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-HR-20GENERIC-FUNCTION-29" >CREATE-HR</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-HR-20GENERIC-FUNCTION-29" >CREATE-HR</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS AUTO-PLACE</span></span></p>
<p>Create a new <a href="#x-28CLOG-3ACLOG-HR-20CLASS-29" title="(CLOG:CLOG-HR CLASS)"><code>CLOG-HR</code></a> as child of <code>CLOG-OBJ</code> that creates a <p>Create a new <a href="#x-28CLOG-3ACLOG-HR-20CLASS-29" title="(CLOG:CLOG-HR CLASS)"><code>CLOG-HR</code></a> as child of <code>CLOG-OBJ</code> that creates a
horizontal rule (line) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of horizontal rule (line) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
@ -2336,7 +2401,7 @@ horizontal rule (line) and if <code>:AUTO-PLACE</code> (default t) place-inside-
<p><a id='x-28CLOG-3ACREATE-METER-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-METER-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-METER-20GENERIC-FUNCTION-29" >CREATE-METER</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY VALUE HIGH LOW MAXIMUM MINIMUM OPTIMUM AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-METER-20GENERIC-FUNCTION-29" >CREATE-METER</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY VALUE HIGH LOW MAXIMUM MINIMUM OPTIMUM CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Meter as child of <code>CLOG-OBJ</code> with <code>VALUE</code> <p>Create a new CLOG-Meter as child of <code>CLOG-OBJ</code> with <code>VALUE</code>
(default 0) <code>HIGH</code> (default 100) <code>LOW</code> (default 0) <code>MAXIMUM</code> (default 100) <code>MINIMUM</code> (default 0) <code>HIGH</code> (default 100) <code>LOW</code> (default 0) <code>MAXIMUM</code> (default 100) <code>MINIMUM</code>
@ -2407,10 +2472,10 @@ instead through the value property.</p></li>
<p><a id='x-28CLOG-3ACREATE-PROGRESS-BAR-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-PROGRESS-BAR-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-PROGRESS-BAR-20GENERIC-FUNCTION-29" >CREATE-PROGRESS-BAR</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY VALUE MAXIMUM AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-PROGRESS-BAR-20GENERIC-FUNCTION-29" >CREATE-PROGRESS-BAR</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY VALUE MAXIMUM CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Progress-Bar as child of <code>CLOG-OBJ</code> with <code>VALUE</code> <p>Create a new CLOG-Progress-Bar as child of <code>CLOG-OBJ</code> with
(default 0) <code>MAXIMUM</code> (default 100) and if <code>:AUTO-PLACE</code> (default t) <code>VALUE</code> (default 0) <code>MAXIMUM</code> (default 100) and if <code>:AUTO-PLACE</code> (default t)
place-inside-bottom-of <code>CLOG-OBJ</code>.</p></li> place-inside-bottom-of <code>CLOG-OBJ</code>.</p></li>
</ul> </ul>
@ -2445,7 +2510,7 @@ instead through the value property.</p></li>
<p><a id='x-28CLOG-3ACREATE-P-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-P-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-P-20GENERIC-FUNCTION-29" >CREATE-P</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-P-20GENERIC-FUNCTION-29" >CREATE-P</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new <a href="#x-28CLOG-3ACLOG-P-20CLASS-29" title="(CLOG:CLOG-P CLASS)"><code>CLOG-P</code></a> as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code> <p>Create a new <a href="#x-28CLOG-3ACLOG-P-20CLASS-29" title="(CLOG:CLOG-P CLASS)"><code>CLOG-P</code></a> as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code>
(default &quot;&quot;) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of (default &quot;&quot;) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
@ -2465,7 +2530,7 @@ instead through the value property.</p></li>
<p><a id='x-28CLOG-3ACREATE-SPAN-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-SPAN-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-SPAN-20GENERIC-FUNCTION-29" >CREATE-SPAN</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-SPAN-20GENERIC-FUNCTION-29" >CREATE-SPAN</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Span as child of <code>CLOG-OBJ</code> with <code>CONTENT</code> <p>Create a new CLOG-Span as child of <code>CLOG-OBJ</code> with <code>CONTENT</code>
and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
@ -2491,7 +2556,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
<p><a id='x-28CLOG-3ACREATE-SECTION-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-SECTION-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-SECTION-20GENERIC-FUNCTION-29" >CREATE-SECTION</a></span></span> <span class="locative-args">CLOG-OBJ SECTION &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-SECTION-20GENERIC-FUNCTION-29" >CREATE-SECTION</a></span></span> <span class="locative-args">CLOG-OBJ SECTION &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Section of section type as child of <p>Create a new CLOG-Section of section type as child of
<code>CLOG-OBJ</code> with <code>CONTENT</code> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code> with <code>CONTENT</code> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
@ -2517,7 +2582,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
<p><a id='x-28CLOG-3ACREATE-PHRASE-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-PHRASE-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-PHRASE-20GENERIC-FUNCTION-29" >CREATE-PHRASE</a></span></span> <span class="locative-args">CLOG-OBJ PHRASE &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-PHRASE-20GENERIC-FUNCTION-29" >CREATE-PHRASE</a></span></span> <span class="locative-args">CLOG-OBJ PHRASE &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Phrase of phrase type as child of <p>Create a new CLOG-Phrase of phrase type as child of
<code>CLOG-OBJ</code> with <code>CONTENT</code> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code> with <code>CONTENT</code> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
@ -2537,7 +2602,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
<p><a id='x-28CLOG-3ACREATE-ORDERED-LIST-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-ORDERED-LIST-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-ORDERED-LIST-20GENERIC-FUNCTION-29" >CREATE-ORDERED-LIST</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-ORDERED-LIST-20GENERIC-FUNCTION-29" >CREATE-ORDERED-LIST</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Ordered-List as child of <code>CLOG-OBJ</code> <p>Create a new CLOG-Ordered-List as child of <code>CLOG-OBJ</code>
and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li>
@ -2585,7 +2650,7 @@ is outside.</p></li>
<p><a id='x-28CLOG-3ACREATE-UNORDERED-LIST-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-UNORDERED-LIST-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-UNORDERED-LIST-20GENERIC-FUNCTION-29" >CREATE-UNORDERED-LIST</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-UNORDERED-LIST-20GENERIC-FUNCTION-29" >CREATE-UNORDERED-LIST</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Unordered-List as child of <code>CLOG-OBJ</code> <p>Create a new CLOG-Unordered-List as child of <code>CLOG-OBJ</code>
and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li>
@ -2604,7 +2669,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-LIST-ITEM-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-LIST-ITEM-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-LIST-ITEM-20GENERIC-FUNCTION-29" >CREATE-LIST-ITEM</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-LIST-ITEM-20GENERIC-FUNCTION-29" >CREATE-LIST-ITEM</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-List-Item as child of <code>CLOG-OBJ</code> <p>Create a new CLOG-List-Item as child of <code>CLOG-OBJ</code>
and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li>
@ -2631,7 +2696,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-DEFINITION-LIST-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-DEFINITION-LIST-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-DEFINITION-LIST-20GENERIC-FUNCTION-29" >CREATE-DEFINITION-LIST</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-DEFINITION-LIST-20GENERIC-FUNCTION-29" >CREATE-DEFINITION-LIST</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Definition-List as child of <code>CLOG-OBJ</code> <p>Create a new CLOG-Definition-List as child of <code>CLOG-OBJ</code>
and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li>
@ -2650,7 +2715,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TERM-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-TERM-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-TERM-20GENERIC-FUNCTION-29" >CREATE-TERM</a></span></span> <span class="locative-args">CLOG-DEFINITION-LIST &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-TERM-20GENERIC-FUNCTION-29" >CREATE-TERM</a></span></span> <span class="locative-args">CLOG-DEFINITION-LIST &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Term as child of <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a> <p>Create a new CLOG-Term as child of <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a>
and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a></p></li> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a></p></li>
@ -2669,7 +2734,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <a href="#x-2
<p><a id='x-28CLOG-3ACREATE-DESCRIPTION-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-DESCRIPTION-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-DESCRIPTION-20GENERIC-FUNCTION-29" >CREATE-DESCRIPTION</a></span></span> <span class="locative-args">CLOG-DEFINITION-LIST &amp;KEY CONTENT AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-DESCRIPTION-20GENERIC-FUNCTION-29" >CREATE-DESCRIPTION</a></span></span> <span class="locative-args">CLOG-DEFINITION-LIST &amp;KEY CONTENT CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Description as child of <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a> <p>Create a new CLOG-Description as child of <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a>
and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a></p></li> and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a></p></li>
@ -2683,6 +2748,12 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <a href="#x-2
<p>CLOG-Form - Class for organizing Form Elements in to a From</p> <p>CLOG-Form - Class for organizing Form Elements in to a From</p>
<p><a id='x-28CLOG-3AFORM-METHOD-TYPE-20-28TYPE-29-29'></a></p>
<ul>
<li><span class=reference-bullet><span class=reference><span class="locative-type">[type]</span> <span class="reference-object"><a href="#x-28CLOG-3AFORM-METHOD-TYPE-20-28TYPE-29-29" >FORM-METHOD-TYPE</a></span></span></span></li>
</ul>
<p><a id='x-28CLOG-3ACLOG-FORM-20CLASS-29'></a></p> <p><a id='x-28CLOG-3ACLOG-FORM-20CLASS-29'></a></p>
<ul> <ul>
@ -2694,7 +2765,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <a href="#x-2
<p><a id='x-28CLOG-3ACREATE-FORM-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ACREATE-FORM-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-FORM-20GENERIC-FUNCTION-29" >CREATE-FORM</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY ACTION METHOD TARGET AUTO-PLACE</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACREATE-FORM-20GENERIC-FUNCTION-29" >CREATE-FORM</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY ACTION METHOD TARGET CLASS AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Form as child of <code>CLOG-OBJ</code> that organizes <p>Create a new CLOG-Form as child of <code>CLOG-OBJ</code> that organizes
a collection of form elements in to a single form if <code>:AUTO-PLACE</code> (default t) a collection of form elements in to a single form if <code>:AUTO-PLACE</code> (default t)
@ -2897,7 +2968,8 @@ group called <code>NAME</code>.</p></li>
<ul> <ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ANAME-VALUE-20GENERIC-FUNCTION-29" >NAME-VALUE</a></span></span> <span class="locative-args">CLOG-OBJ NAME</span></span></p> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ANAME-VALUE-20GENERIC-FUNCTION-29" >NAME-VALUE</a></span></span> <span class="locative-args">CLOG-OBJ NAME</span></span></p>
<p>Returns the value of input item called <code>NAME</code>.</p></li> <p>Returns the value of input item called <code>NAME</code> and must
be unique name on entire document.</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3APATTERN-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3APATTERN-20GENERIC-FUNCTION-29'></a></p>
@ -4482,6 +4554,14 @@ on-storage event is fired for changes to :local storage keys.</p></li>
<p>Load css from <code>CSS-URL</code>.</p></li> <p>Load css from <code>CSS-URL</code>.</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3ALOAD-SCRIPT-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ALOAD-SCRIPT-20GENERIC-FUNCTION-29" >LOAD-SCRIPT</a></span></span> <span class="locative-args">CLOG-DOCUMENT SCRIPT-URL</span></span></p>
<p>Load script from <code>SCRIPT-URL</code>.</p></li>
</ul>
<p><a id='x-28CLOG-3APUT-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3APUT-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>

13
test/test-clog.lisp
View file

@ -66,6 +66,19 @@
(create-list-item tmp :content "list item 2") (create-list-item tmp :content "list item 2")
(create-list-item tmp :content "list item 3") (create-list-item tmp :content "list item 3")
(setf (list-location tmp) :inside) (setf (list-location tmp) :inside)
(create-hr win)
(let* ((tbl (create-table win))
(cap (create-table-caption tbl :content "My Table"))
(rw))
(set-border tbl :thin :solid :black)
(dotimes (y 10)
(setf rw (create-table-row tbl))
(dotimes (x 6)
(create-table-column rw :content (format nil "~A X ~A" x y)))))
)) ))
(defun test () (defun test ()