mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
Further work on common html elements
This commit is contained in:
David Botton
parent
f05c988b53
commit
801ad52748
4 changed files with 398 additions and 31 deletions
|
|
@ -8,6 +8,74 @@
|
|||
|
||||
(cl:in-package :clog)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Implementation - clog-a
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defclass clog-a (clog-element)()
|
||||
(:documentation "CLOG A, anchor, Objects."))
|
||||
|
||||
;;;;;;;;;;;;;;
|
||||
;; create-a ;;
|
||||
;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric create-a (clog-obj &key link content target auto-place)
|
||||
(:documentation "Create a new CLOG-A as child of CLOG-OBJ with :LINK and
|
||||
:CONTENT (default \"\") and :TARGET (\"_self\") and if :AUTO-PLACE (default t)
|
||||
place-inside-bottom-of CLOG-OBJ.
|
||||
|
||||
Target of link, name of a frame or:
|
||||
_blank = new window
|
||||
_top = top most frame (full browser window)
|
||||
_parent = parent frame or window
|
||||
_self = current frame or window"))
|
||||
|
||||
(defmethod create-a ((obj clog-obj)
|
||||
&key (link "")
|
||||
(content "")
|
||||
(target "_self")
|
||||
(auto-place t))
|
||||
(create-child obj (format nil "<a target='~A' href='~A'>~A</a>"
|
||||
(escape-string target)
|
||||
(escape-string link)
|
||||
(escape-string content))
|
||||
:clog-type 'clog-a
|
||||
:auto-place auto-place))
|
||||
|
||||
;;;;;;;;;;
|
||||
;; link ;;
|
||||
;;;;;;;;;;
|
||||
|
||||
(defgeneric link (clog-a)
|
||||
(:documentation "Get/Setf the HREF link of the anchor."))
|
||||
|
||||
(defmethod link ((obj clog-a))
|
||||
(property obj "href"))
|
||||
|
||||
(defgeneric set-link (clog-a value)
|
||||
(:documentation "Set link VALUE for CLOG-A"))
|
||||
|
||||
(defmethod set-link ((obj clog-a) value)
|
||||
(setf (property obj "href") value))
|
||||
(defsetf link set-link)
|
||||
|
||||
;;;;;;;;;;;;
|
||||
;; target ;;
|
||||
;;;;;;;;;;;;
|
||||
|
||||
(defgeneric target (clog-a)
|
||||
(:documentation "Get/Setf the link target of the anchor."))
|
||||
|
||||
(defmethod target ((obj clog-a))
|
||||
(property obj "target"))
|
||||
|
||||
(defgeneric set-target (clog-a value)
|
||||
(:documentation "Set target VALUE for CLOG-A"))
|
||||
|
||||
(defmethod set-target ((obj clog-a) value)
|
||||
(setf (property obj "target") value))
|
||||
(defsetf target set-target)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Implementation - clog-br
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
@ -19,13 +87,49 @@
|
|||
;; create-br ;;
|
||||
;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric create-br (clog-obj &key content auto-place)
|
||||
(defgeneric create-br (clog-obj &key auto-place)
|
||||
(: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"))
|
||||
|
||||
(defmethod create-br ((obj clog-obj) &key (content "") (auto-place t))
|
||||
(create-child obj (format nil "<br />" (escape-string content))
|
||||
:clog-type 'clog-br))
|
||||
(defmethod create-br ((obj clog-obj) &key (auto-place t))
|
||||
(create-child obj "<br />" :clog-type 'clog-br :auto-place auto-place))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Implementation - clog-button
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defclass clog-button (clog-element)()
|
||||
(:documentation "CLOG Button Objects."))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;
|
||||
;; create-button ;;
|
||||
;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric create-button (clog-obj &key content auto-place)
|
||||
(:documentation "Create a new CLOG-Button as child of CLOG-OBJ with :CONTENT
|
||||
(default \"\") and if :AUTO-PLACE (default t) place-inside-bottom-of
|
||||
CLOG-OBJ"))
|
||||
|
||||
(defmethod create-button ((obj clog-obj) &key (content "") (auto-place t))
|
||||
(create-child obj (format nil "<button>~A</button>" (escape-string content))
|
||||
:clog-type 'clog-button :auto-place auto-place))
|
||||
|
||||
;;;;;;;;;;;;;;;
|
||||
;; disabledp ;;
|
||||
;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric disabledp (clog-button)
|
||||
(:documentation "Get/Setf disabled status of button."))
|
||||
|
||||
(defmethod disabledp ((obj clog-button))
|
||||
(js-true-p (property obj "disabled")))
|
||||
|
||||
(defgeneric set-disabledp (clog-button value)
|
||||
(:documentation "Set editable VALUE for CLOG-BUTTON"))
|
||||
|
||||
(defmethod set-disabledp ((obj clog-button) value)
|
||||
(setf (property obj "disabled") (p-true-js value)))
|
||||
(defsetf disabledp set-editable)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Implementation - clog-div
|
||||
|
|
@ -45,7 +149,7 @@ CLOG-OBJ"))
|
|||
|
||||
(defmethod create-div ((obj clog-obj) &key (content "") (auto-place t))
|
||||
(create-child obj (format nil "<div>~A</div>" (escape-string content))
|
||||
:clog-type 'clog-div))
|
||||
:clog-type 'clog-div :auto-place auto-place))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Implementation - clog-hr
|
||||
|
|
@ -58,14 +162,53 @@ CLOG-OBJ"))
|
|||
;; create-hr ;;
|
||||
;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric create-hr (clog-obj &key content auto-place)
|
||||
(defgeneric create-hr (clog-obj &key auto-place)
|
||||
(: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
|
||||
CLOG-OBJ"))
|
||||
|
||||
(defmethod create-hr ((obj clog-obj) &key (content "") (auto-place t))
|
||||
(create-child obj (format nil "<hr />" (escape-string content))
|
||||
:clog-type 'clog-hr))
|
||||
(defmethod create-hr ((obj clog-obj) &key (auto-place t))
|
||||
(create-child obj "<hr />" :clog-type 'clog-hr :auto-place auto-place))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Implementation - clog-img
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defclass clog-img (clog-element)()
|
||||
(:documentation "CLOG Img Objects."))
|
||||
|
||||
;;;;;;;;;;;;;;;;
|
||||
;; create-img ;;
|
||||
;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric create-img (clog-obj &key url-src alt-text auto-place)
|
||||
(:documentation "Create a new CLOG-Img as child of CLOG-OBJ with :CONTENT
|
||||
(default \"\") and if :AUTO-PLACE (default t) place-inside-bottom-of
|
||||
CLOG-OBJ. Use width and height properties before placing image to constrain
|
||||
image size."))
|
||||
|
||||
(defmethod create-img ((obj clog-obj) &key (url-src "") (alt-text "") (auto-place t))
|
||||
(create-child obj (format nil "<img src='~A' alt='~A'>)"
|
||||
(escape-string url-src)
|
||||
(escape-string alt-text))
|
||||
:clog-type 'clog-img :auto-place auto-place))
|
||||
|
||||
;;;;;;;;;;;;;
|
||||
;; url-src ;;
|
||||
;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric url-src (clog-img)
|
||||
(:documentation "Get/Setf the url-src of the img."))
|
||||
|
||||
(defmethod url-src ((obj clog-img))
|
||||
(property obj "src"))
|
||||
|
||||
(defgeneric set-url-src (clog-img value)
|
||||
(:documentation "Set url-src VALUE for CLOG-IMG"))
|
||||
|
||||
(defmethod set-url-src ((obj clog-img) value)
|
||||
(setf (property obj "src") value))
|
||||
(defsetf url-src set-url-src)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Implementation - clog-p
|
||||
|
|
@ -85,7 +228,7 @@ CLOG-OBJ"))
|
|||
|
||||
(defmethod create-p ((obj clog-obj) &key (content "") (auto-place t))
|
||||
(create-child obj (format nil "<p>~A</p>" (escape-string content))
|
||||
:clog-type 'clog-p))
|
||||
:clog-type 'clog-p :auto-place auto-place))
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
@ -106,5 +249,5 @@ CLOG-OBJ"))
|
|||
|
||||
(defmethod create-span ((obj clog-obj) &key (content "") (auto-place t))
|
||||
(create-child obj (format nil "<span>~A</span>" (escape-string content))
|
||||
:clog-type 'clog-span))
|
||||
:clog-type 'clog-span :auto-place auto-place))
|
||||
|
||||
|
|
|
|||
18
clog.lisp
18
clog.lisp
|
|
@ -232,11 +232,27 @@ application."
|
|||
(first-child generic-function)
|
||||
(next-sibling generic-function))
|
||||
|
||||
(defsection @clog-element (:title "Common CLOG Elements")
|
||||
(defsection @clog-element-common (:title "Common CLOG Elements")
|
||||
"CLOG-A - Class for CLOG Anchors"
|
||||
(clog-a class)
|
||||
(create-a generic-function)
|
||||
(link generic-function)
|
||||
(target generic-function)
|
||||
|
||||
"CLOG-BR - Class for CLOG Line Breaks"
|
||||
(clog-br class)
|
||||
(create-br generic-function)
|
||||
|
||||
"CLOG-BUTTON - Class for CLOG Buttons"
|
||||
(clog-button class)
|
||||
(create-button generic-function)
|
||||
(disabledp generic-function)
|
||||
|
||||
"CLOG-IMG - Class for CLOG Imgs"
|
||||
(clog-img class)
|
||||
(create-img generic-function)
|
||||
(url-src generic-function)
|
||||
|
||||
"CLOG-Div - Class for CLOG Divs"
|
||||
(clog-div class)
|
||||
(create-div generic-function)
|
||||
|
|
|
|||
|
|
@ -39,11 +39,12 @@
|
|||
<li><a href="#x-28CLOG-3A-40CLOG-UTILITIES-20MGL-PAX-3ASECTION-29" title="CLOG Utilities">3 CLOG Utilities</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-OBJ-20MGL-PAX-3ASECTION-29" title="CLOG Objects">4 CLOG Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-ELEMENT-20MGL-PAX-3ASECTION-29" title="CLOG Elements">5 CLOG Elements</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29" title="CLOG Body Objects">6 CLOG Body Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-WINDOW-20MGL-PAX-3ASECTION-29" title="CLOG Window Objects">7 CLOG Window Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-DOCUMENT-20MGL-PAX-3ASECTION-29" title="CLOG Document Objects">8 CLOG Document Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-LOCATION-20MGL-PAX-3ASECTION-29" title="CLOG Location Objects">9 CLOG Location Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-NAVIGATOR-20MGL-PAX-3ASECTION-29" title="CLOG Navigator Objects">10 CLOG Navigator Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-ELEMENT-COMMON-20MGL-PAX-3ASECTION-29" title="Common CLOG Elements">6 Common CLOG Elements</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29" title="CLOG Body Objects">7 CLOG Body Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-WINDOW-20MGL-PAX-3ASECTION-29" title="CLOG Window Objects">8 CLOG Window Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-DOCUMENT-20MGL-PAX-3ASECTION-29" title="CLOG Document Objects">9 CLOG Document Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-LOCATION-20MGL-PAX-3ASECTION-29" title="CLOG Location Objects">10 CLOG Location Objects</a></li>
|
||||
<li><a href="#x-28CLOG-3A-40CLOG-NAVIGATOR-20MGL-PAX-3ASECTION-29" title="CLOG Navigator Objects">11 CLOG Navigator Objects</a></li>
|
||||
</ul>
|
||||
|
||||
<h6>[in package CLOG]</h6>
|
||||
|
|
@ -525,7 +526,7 @@ is nil unbind the event.</p></li>
|
|||
|
||||
<p><a id='x-28CLOG-3A-40CLOG-ELEMENT-20MGL-PAX-3ASECTION-29'></a></p>
|
||||
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-OBJ-20MGL-PAX-3ASECTION-29" title="CLOG Objects">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29" title="CLOG Body Objects">→</a> <a href="#x-28CLOG-3A-40CLOG-ELEMENT-20MGL-PAX-3ASECTION-29" title="CLOG Elements">↺</a></span></span></p>
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-OBJ-20MGL-PAX-3ASECTION-29" title="CLOG Objects">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-ELEMENT-COMMON-20MGL-PAX-3ASECTION-29" title="Common CLOG Elements">→</a> <a href="#x-28CLOG-3A-40CLOG-ELEMENT-20MGL-PAX-3ASECTION-29" title="CLOG Elements">↺</a></span></span></p>
|
||||
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-ELEMENT-20MGL-PAX-3ASECTION-29">5 CLOG Elements</a></h2>
|
||||
|
||||
|
|
@ -545,19 +546,20 @@ element objects.</p></li>
|
|||
<p><a id='x-28CLOG-3ACREATE-CHILD-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-3ACREATE-CHILD-20GENERIC-FUNCTION-29" >CREATE-CHILD</a></span></span> <span class="locative-args">CLOG-OBJ HTML &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-CHILD-20GENERIC-FUNCTION-29" >CREATE-CHILD</a></span></span> <span class="locative-args">CLOG-OBJ HTML &KEY AUTO-PLACE CLOG-TYPE</span></span></p>
|
||||
|
||||
<p>Create a new CLOG-Element from <code>HTML</code> 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>
|
||||
<p>Create a new CLOG-Element or sub-type of <code>CLOG-TYPE</code> from <code>HTML</code>
|
||||
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>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3AATTACH-AS-CHILD-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-3AATTACH-AS-CHILD-20GENERIC-FUNCTION-29" >ATTACH-AS-CHILD</a></span></span> <span class="locative-args">CLOG-OBJ HTML-ID</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-3AATTACH-AS-CHILD-20GENERIC-FUNCTION-29" >ATTACH-AS-CHILD</a></span></span> <span class="locative-args">CLOG-OBJ HTML-ID &KEY CLOG-TYPE</span></span></p>
|
||||
|
||||
<p>Create a new CLOG-Element and attach an existing element with <code>HTML-ID</code>. The
|
||||
<code>HTML-ID</code> must be unique.</p></li>
|
||||
<p>Create a new CLOG-Element or sub-type of <code>CLOG-TYPE</code> and attach
|
||||
an existing element with <code>HTML-ID</code>. The <code>HTML-ID</code> must be unique.</p></li>
|
||||
</ul>
|
||||
|
||||
<p>CLOG-Element - Placement</p>
|
||||
|
|
@ -1502,11 +1504,215 @@ html id than Element_Type will have an ID of undefined and therefore attached
|
|||
to no actual <code>HTML</code> elemen.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3A-40CLOG-ELEMENT-COMMON-20MGL-PAX-3ASECTION-29'></a></p>
|
||||
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-ELEMENT-20MGL-PAX-3ASECTION-29" title="CLOG Elements">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29" title="CLOG Body Objects">→</a> <a href="#x-28CLOG-3A-40CLOG-ELEMENT-COMMON-20MGL-PAX-3ASECTION-29" title="Common CLOG Elements">↺</a></span></span></p>
|
||||
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-ELEMENT-COMMON-20MGL-PAX-3ASECTION-29">6 Common CLOG Elements</a></h2>
|
||||
|
||||
<p><a href="#x-28CLOG-3ACLOG-A-20CLASS-29" title="(CLOG:CLOG-A CLASS)"><code>CLOG-A</code></a> - Class for <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Anchors</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACLOG-A-20CLASS-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[class]</span> <span class="reference-object"><a href="#x-28CLOG-3ACLOG-A-20CLASS-29" >CLOG-A</a></span></span> <span class="locative-args"><a href="#x-28CLOG-3ACLOG-ELEMENT-20CLASS-29" title="(CLOG:CLOG-ELEMENT CLASS)">CLOG-ELEMENT</a></span></span></p>
|
||||
|
||||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> A, anchor, Objects.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ACREATE-A-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-3ACREATE-A-20GENERIC-FUNCTION-29" >CREATE-A</a></span></span> <span class="locative-args">CLOG-OBJ &KEY LINK CONTENT TARGET 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
|
||||
<code>:CONTENT</code> (default "") and <code>:TARGET</code> ("_self") and if <code>:AUTO-PLACE</code> (default t)
|
||||
place-inside-bottom-of <code>CLOG-OBJ</code>.</p>
|
||||
|
||||
<p>Target of link, name of a frame or:
|
||||
_blank = new window
|
||||
_top = top most frame (full browser window)
|
||||
_parent = parent frame or window
|
||||
_self = current frame or window</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ALINK-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-3ALINK-20GENERIC-FUNCTION-29" >LINK</a></span></span> <span class="locative-args">CLOG-A</span></span></p>
|
||||
|
||||
<p>Get/Setf the HREF link of the anchor.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ATARGET-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-3ATARGET-20GENERIC-FUNCTION-29" >TARGET</a></span></span> <span class="locative-args">CLOG-A</span></span></p>
|
||||
|
||||
<p>Get/Setf the link target of the anchor.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a href="#x-28CLOG-3ACLOG-BR-20CLASS-29" title="(CLOG:CLOG-BR CLASS)"><code>CLOG-BR</code></a> - Class for <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Line Breaks</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACLOG-BR-20CLASS-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[class]</span> <span class="reference-object"><a href="#x-28CLOG-3ACLOG-BR-20CLASS-29" >CLOG-BR</a></span></span> <span class="locative-args"><a href="#x-28CLOG-3ACLOG-ELEMENT-20CLASS-29" title="(CLOG:CLOG-ELEMENT CLASS)">CLOG-ELEMENT</a></span></span></p>
|
||||
|
||||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> BR Objects for line breaks.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ACREATE-BR-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-3ACREATE-BR-20GENERIC-FUNCTION-29" >CREATE-BR</a></span></span> <span class="locative-args">CLOG-OBJ &KEY 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
|
||||
line break and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OBJ</code></p></li>
|
||||
</ul>
|
||||
|
||||
<p><a href="#x-28CLOG-3ACLOG-BUTTON-20CLASS-29" title="(CLOG:CLOG-BUTTON CLASS)"><code>CLOG-BUTTON</code></a> - Class for <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Buttons</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACLOG-BUTTON-20CLASS-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[class]</span> <span class="reference-object"><a href="#x-28CLOG-3ACLOG-BUTTON-20CLASS-29" >CLOG-BUTTON</a></span></span> <span class="locative-args"><a href="#x-28CLOG-3ACLOG-ELEMENT-20CLASS-29" title="(CLOG:CLOG-ELEMENT CLASS)">CLOG-ELEMENT</a></span></span></p>
|
||||
|
||||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Button Objects.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ACREATE-BUTTON-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-3ACREATE-BUTTON-20GENERIC-FUNCTION-29" >CREATE-BUTTON</a></span></span> <span class="locative-args">CLOG-OBJ &KEY CONTENT AUTO-PLACE</span></span></p>
|
||||
|
||||
<p>Create a new CLOG-Button as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code>
|
||||
(default "") and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
|
||||
<code>CLOG-OBJ</code></p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ADISABLEDP-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-3ADISABLEDP-20GENERIC-FUNCTION-29" >DISABLEDP</a></span></span> <span class="locative-args">CLOG-BUTTON</span></span></p>
|
||||
|
||||
<p>Get/Setf disabled status of button.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a href="#x-28CLOG-3ACLOG-IMG-20CLASS-29" title="(CLOG:CLOG-IMG CLASS)"><code>CLOG-IMG</code></a> - Class for <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Imgs</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACLOG-IMG-20CLASS-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[class]</span> <span class="reference-object"><a href="#x-28CLOG-3ACLOG-IMG-20CLASS-29" >CLOG-IMG</a></span></span> <span class="locative-args"><a href="#x-28CLOG-3ACLOG-ELEMENT-20CLASS-29" title="(CLOG:CLOG-ELEMENT CLASS)">CLOG-ELEMENT</a></span></span></p>
|
||||
|
||||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Img Objects.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ACREATE-IMG-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-3ACREATE-IMG-20GENERIC-FUNCTION-29" >CREATE-IMG</a></span></span> <span class="locative-args">CLOG-OBJ &KEY URL-SRC ALT-TEXT AUTO-PLACE</span></span></p>
|
||||
|
||||
<p>Create a new CLOG-Img as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code>
|
||||
(default "") and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
|
||||
<code>CLOG-OBJ</code>. Use width and height properties before placing image to constrain
|
||||
image size.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3AURL-SRC-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-3AURL-SRC-20GENERIC-FUNCTION-29" >URL-SRC</a></span></span> <span class="locative-args">CLOG-IMG</span></span></p>
|
||||
|
||||
<p>Get/Setf the url-src of the img.</p></li>
|
||||
</ul>
|
||||
|
||||
<p>CLOG-Div - Class for <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Divs</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACLOG-DIV-20CLASS-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[class]</span> <span class="reference-object"><a href="#x-28CLOG-3ACLOG-DIV-20CLASS-29" >CLOG-DIV</a></span></span> <span class="locative-args"><a href="#x-28CLOG-3ACLOG-ELEMENT-20CLASS-29" title="(CLOG:CLOG-ELEMENT CLASS)">CLOG-ELEMENT</a></span></span></p>
|
||||
|
||||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Div Objects.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ACREATE-DIV-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-3ACREATE-DIV-20GENERIC-FUNCTION-29" >CREATE-DIV</a></span></span> <span class="locative-args">CLOG-OBJ &KEY CONTENT AUTO-PLACE</span></span></p>
|
||||
|
||||
<p>Create a new CLOG-Div as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code>
|
||||
(default "") and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
|
||||
<code>CLOG-OBJ</code></p></li>
|
||||
</ul>
|
||||
|
||||
<p><a href="#x-28CLOG-3ACLOG-HR-20CLASS-29" title="(CLOG:CLOG-HR CLASS)"><code>CLOG-HR</code></a> - Class for <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Hortizontal Rules</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACLOG-HR-20CLASS-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[class]</span> <span class="reference-object"><a href="#x-28CLOG-3ACLOG-HR-20CLASS-29" >CLOG-HR</a></span></span> <span class="locative-args"><a href="#x-28CLOG-3ACLOG-ELEMENT-20CLASS-29" title="(CLOG:CLOG-ELEMENT CLASS)">CLOG-ELEMENT</a></span></span></p>
|
||||
|
||||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> HR Objects for horizontal rules.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ACREATE-HR-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-3ACREATE-HR-20GENERIC-FUNCTION-29" >CREATE-HR</a></span></span> <span class="locative-args">CLOG-OBJ &KEY 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
|
||||
horizontal rule (line) and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
|
||||
<code>CLOG-OBJ</code></p></li>
|
||||
</ul>
|
||||
|
||||
<p><a href="#x-28CLOG-3ACLOG-P-20CLASS-29" title="(CLOG:CLOG-P CLASS)"><code>CLOG-P</code></a> - Class for <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Paragraphs</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACLOG-P-20CLASS-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[class]</span> <span class="reference-object"><a href="#x-28CLOG-3ACLOG-P-20CLASS-29" >CLOG-P</a></span></span> <span class="locative-args"><a href="#x-28CLOG-3ACLOG-ELEMENT-20CLASS-29" title="(CLOG:CLOG-ELEMENT CLASS)">CLOG-ELEMENT</a></span></span></p>
|
||||
|
||||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> P Objects.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ACREATE-P-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-3ACREATE-P-20GENERIC-FUNCTION-29" >CREATE-P</a></span></span> <span class="locative-args">CLOG-OBJ &KEY CONTENT 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>
|
||||
(default "") and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
|
||||
<code>CLOG-OBJ</code></p></li>
|
||||
</ul>
|
||||
|
||||
<p>CLOG-Span - Class for <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Spans</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACLOG-SPAN-20CLASS-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[class]</span> <span class="reference-object"><a href="#x-28CLOG-3ACLOG-SPAN-20CLASS-29" >CLOG-SPAN</a></span></span> <span class="locative-args"><a href="#x-28CLOG-3ACLOG-ELEMENT-20CLASS-29" title="(CLOG:CLOG-ELEMENT CLASS)">CLOG-ELEMENT</a></span></span></p>
|
||||
|
||||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Span Objects.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ACREATE-SPAN-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-3ACREATE-SPAN-20GENERIC-FUNCTION-29" >CREATE-SPAN</a></span></span> <span class="locative-args">CLOG-OBJ &KEY CONTENT AUTO-PLACE</span></span></p>
|
||||
|
||||
<p>Create a new CLOG-Span as child of <code>CLOG-OBJ</code> with <code>:CONTENT</code>
|
||||
(default "") and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of
|
||||
<code>CLOG-OBJ</code></p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29'></a></p>
|
||||
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-ELEMENT-20MGL-PAX-3ASECTION-29" title="CLOG Elements">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-WINDOW-20MGL-PAX-3ASECTION-29" title="CLOG Window Objects">→</a> <a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29" title="CLOG Body Objects">↺</a></span></span></p>
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-ELEMENT-COMMON-20MGL-PAX-3ASECTION-29" title="Common CLOG Elements">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-WINDOW-20MGL-PAX-3ASECTION-29" title="CLOG Window Objects">→</a> <a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29" title="CLOG Body Objects">↺</a></span></span></p>
|
||||
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29">6 CLOG Body Objects</a></h2>
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29">7 CLOG Body Objects</a></h2>
|
||||
|
||||
<p>CLOG-Body - <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Body Objects</p>
|
||||
|
||||
|
|
@ -1556,7 +1762,7 @@ to no actual <code>HTML</code> elemen.</p></li>
|
|||
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-BODY-20MGL-PAX-3ASECTION-29" title="CLOG Body Objects">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-DOCUMENT-20MGL-PAX-3ASECTION-29" title="CLOG Document Objects">→</a> <a href="#x-28CLOG-3A-40CLOG-WINDOW-20MGL-PAX-3ASECTION-29" title="CLOG Window Objects">↺</a></span></span></p>
|
||||
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-WINDOW-20MGL-PAX-3ASECTION-29">7 CLOG Window Objects</a></h2>
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-WINDOW-20MGL-PAX-3ASECTION-29">8 CLOG Window Objects</a></h2>
|
||||
|
||||
<p>CLOG-Window - <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Window Objects</p>
|
||||
|
||||
|
|
@ -1866,7 +2072,7 @@ If <code>ON-ORIENTATION-CHANGE-HANDLER</code> is nil unbind the event.</p></li>
|
|||
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-WINDOW-20MGL-PAX-3ASECTION-29" title="CLOG Window Objects">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-LOCATION-20MGL-PAX-3ASECTION-29" title="CLOG Location Objects">→</a> <a href="#x-28CLOG-3A-40CLOG-DOCUMENT-20MGL-PAX-3ASECTION-29" title="CLOG Document Objects">↺</a></span></span></p>
|
||||
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-DOCUMENT-20MGL-PAX-3ASECTION-29">8 CLOG Document Objects</a></h2>
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-DOCUMENT-20MGL-PAX-3ASECTION-29">9 CLOG Document Objects</a></h2>
|
||||
|
||||
<p>CLOG-Document - <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Document Objects</p>
|
||||
|
||||
|
|
@ -2000,7 +2206,7 @@ If <code>ON-ORIENTATION-CHANGE-HANDLER</code> is nil unbind the event.</p></li>
|
|||
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-DOCUMENT-20MGL-PAX-3ASECTION-29" title="CLOG Document Objects">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-NAVIGATOR-20MGL-PAX-3ASECTION-29" title="CLOG Navigator Objects">→</a> <a href="#x-28CLOG-3A-40CLOG-LOCATION-20MGL-PAX-3ASECTION-29" title="CLOG Location Objects">↺</a></span></span></p>
|
||||
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-LOCATION-20MGL-PAX-3ASECTION-29">9 CLOG Location Objects</a></h2>
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-LOCATION-20MGL-PAX-3ASECTION-29">10 CLOG Location Objects</a></h2>
|
||||
|
||||
<p>CLOG-Location - <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Location Objects</p>
|
||||
|
||||
|
|
@ -2116,7 +2322,7 @@ If <code>ON-ORIENTATION-CHANGE-HANDLER</code> is nil unbind the event.</p></li>
|
|||
|
||||
<p><span class="outer-navigation"><span class="navigation"> <a href="#x-28CLOG-3A-40CLOG-LOCATION-20MGL-PAX-3ASECTION-29" title="CLOG Location Objects">←</a> <a href="#x-28CLOG-3A-40CLOG-MANUAL-20MGL-PAX-3ASECTION-29" title="The CLOG manual">↑</a> <a href="#x-28CLOG-3A-40CLOG-NAVIGATOR-20MGL-PAX-3ASECTION-29" title="CLOG Navigator Objects">↺</a></span></span></p>
|
||||
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-NAVIGATOR-20MGL-PAX-3ASECTION-29">10 CLOG Navigator Objects</a></h2>
|
||||
<h2><a href="#x-28CLOG-3A-40CLOG-NAVIGATOR-20MGL-PAX-3ASECTION-29">11 CLOG Navigator Objects</a></h2>
|
||||
|
||||
<p>CLOG-Navigator - <a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Navigator Objects</p>
|
||||
|
||||
|
|
|
|||
|
|
@ -49,9 +49,11 @@
|
|||
(create-br win)
|
||||
(create-span win :content "Hello World! span")
|
||||
(create-hr win)
|
||||
|
||||
(create-a win :link "http://www.google.com" :content "Link" :target "new")
|
||||
(setf (title (html-document win)) "CLOG Test App")
|
||||
(print (title (html-document win)))
|
||||
(create-img win :url-src "https://common-lisp.net/static/imgs/lisplogo_flag2_128.png"
|
||||
:alt-text "Lisp Flag")
|
||||
))
|
||||
|
||||
(defun test ()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue