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

sbcl detected issues

Browse source
This commit is contained in:
David Botton 2021-03-04 13:51:20 -05:00
parent e5a270ffe1
commit 93389b5558
9 changed files with 44 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

44
doc/clog-manual.html
View file

@ -2440,7 +2440,7 @@ to no actual <code>HTML</code> elemen.</p></li>
<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 &amp;KEY LINK CONTENT TARGET CLASS HTML-ID 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 HIDDEN CLASS HTML-ID 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 &quot;&quot;) and <code>:TARGET</code> (&quot;_self&quot;) and if <code>:AUTO-PLACE</code> (default t)
@ -2482,7 +2482,7 @@ place-inside-bottom-of <code>CLOG-OBJ</code>.</p>
<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 &amp;KEY CLASS HTML-ID 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 HIDDEN CLASS HTML-ID 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>
@ -2501,7 +2501,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>
<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 CLASS HTML-ID 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 HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<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
@ -2578,7 +2578,7 @@ placing image to constrain image size.</p></li>
<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 &amp;KEY CLASS HTML-ID 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 HIDDEN CLASS HTML-ID 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
@ -2598,7 +2598,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>
<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 CLASS HTML-ID 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 HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<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>
@ -2669,7 +2669,7 @@ instead through the value property.</p></li>
<p><a id='x-28CLOG-3ACREATE-PROGRESS-BAR-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-PROGRESS-BAR-20GENERIC-FUNCTION-29" >CREATE-PROGRESS-BAR</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY VALUE MAXIMUM CLASS HTML-ID 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 HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Progress-Bar as child of <code>CLOG-OBJ</code> with
<code>VALUE</code> (default 0) <code>MAXIMUM</code> (default 100) and if <code>:AUTO-PLACE</code> (default t)
@ -2798,7 +2798,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-ORDERED-LIST-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-ORDERED-LIST-20GENERIC-FUNCTION-29" >CREATE-ORDERED-LIST</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS HTML-ID 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 HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<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>
@ -2846,7 +2846,7 @@ is outside.</p></li>
<p><a id='x-28CLOG-3ACREATE-UNORDERED-LIST-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-UNORDERED-LIST-20GENERIC-FUNCTION-29" >CREATE-UNORDERED-LIST</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS HTML-ID 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 HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<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>
@ -2892,7 +2892,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>
<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 CLASS HTML-ID 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 HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<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>
@ -2911,7 +2911,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>
<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 CLASS HTML-ID 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 HIDDEN CLASS HTML-ID 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>
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>
@ -2930,7 +2930,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>
<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 CLASS HTML-ID 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 HIDDEN CONTENT CLASS HTML-ID 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>
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>
@ -2968,7 +2968,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-ROW-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-TABLE-ROW-20GENERIC-FUNCTION-29" >CREATE-TABLE-ROW</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS HTML-ID 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-TABLE-ROW-20GENERIC-FUNCTION-29" >CREATE-TABLE-ROW</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Row 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>
@ -2987,7 +2987,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-COLUMN-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-TABLE-COLUMN-20GENERIC-FUNCTION-29" >CREATE-TABLE-COLUMN</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT COLUMN-SPAN ROW-SPAN CLASS HTML-ID 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-TABLE-COLUMN-20GENERIC-FUNCTION-29" >CREATE-TABLE-COLUMN</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT COLUMN-SPAN ROW-SPAN HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Column 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>
@ -3006,7 +3006,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-HEADING-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-TABLE-HEADING-20GENERIC-FUNCTION-29" >CREATE-TABLE-HEADING</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT COLUMN-SPAN ROW-SPAN CLASS HTML-ID 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-TABLE-HEADING-20GENERIC-FUNCTION-29" >CREATE-TABLE-HEADING</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT COLUMN-SPAN ROW-SPAN HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Heading 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>
@ -3025,7 +3025,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-HEAD-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-TABLE-HEAD-20GENERIC-FUNCTION-29" >CREATE-TABLE-HEAD</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS HTML-ID 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-TABLE-HEAD-20GENERIC-FUNCTION-29" >CREATE-TABLE-HEAD</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Head 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>
@ -3044,7 +3044,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-BODY-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-TABLE-BODY-20GENERIC-FUNCTION-29" >CREATE-TABLE-BODY</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS HTML-ID 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-TABLE-BODY-20GENERIC-FUNCTION-29" >CREATE-TABLE-BODY</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Body 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>
@ -3063,7 +3063,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-CAPTION-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-TABLE-CAPTION-20GENERIC-FUNCTION-29" >CREATE-TABLE-CAPTION</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT CLASS HTML-ID 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-TABLE-CAPTION-20GENERIC-FUNCTION-29" >CREATE-TABLE-CAPTION</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Caption 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>
@ -3082,7 +3082,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-FOOTER-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-TABLE-FOOTER-20GENERIC-FUNCTION-29" >CREATE-TABLE-FOOTER</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS HTML-ID 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-TABLE-FOOTER-20GENERIC-FUNCTION-29" >CREATE-TABLE-FOOTER</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Footer 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>
@ -3101,7 +3101,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-COLUMN-GROUP-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-TABLE-COLUMN-GROUP-20GENERIC-FUNCTION-29" >CREATE-TABLE-COLUMN-GROUP</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS HTML-ID 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-TABLE-COLUMN-GROUP-20GENERIC-FUNCTION-29" >CREATE-TABLE-COLUMN-GROUP</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Column-Group 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>
@ -3120,7 +3120,7 @@ and if <code>:AUTO-PLACE</code> (default t) place-inside-bottom-of <code>CLOG-OB
<p><a id='x-28CLOG-3ACREATE-TABLE-COLUMN-GROUP-ITEM-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-TABLE-COLUMN-GROUP-ITEM-20GENERIC-FUNCTION-29" >CREATE-TABLE-COLUMN-GROUP-ITEM</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY COLUMN-SPAN CLASS HTML-ID 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-TABLE-COLUMN-GROUP-ITEM-20GENERIC-FUNCTION-29" >CREATE-TABLE-COLUMN-GROUP-ITEM</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY COLUMN-SPAN HIDDEN CLASS HTML-ID AUTO-PLACE</span></span></p>
<p>Create a new CLOG-Table-Column-Group-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>
@ -3607,7 +3607,7 @@ virtual keyboards.</p></li>
<p><a id='x-28CLOG-3ACREATE-OPTGROUP-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-OPTGROUP-20GENERIC-FUNCTION-29" >CREATE-OPTGROUP</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT DISABLED 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-3ACREATE-OPTGROUP-20GENERIC-FUNCTION-29" >CREATE-OPTGROUP</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CONTENT DISABLED HTML-ID CLASS</span></span></p>
<p>Create a new clog-optgroup as child of <code>CLOG-OBJ</code>.</p></li>
</ul>
@ -5815,7 +5815,7 @@ on-storage event is fired for changes to :local storage keys.</p></li>
<p><a id='x-28CLOG-3ABODY-ELEMENT-20GENERIC-FUNCTION-29'></a></p>
<ul>
<li><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ABODY-ELEMENT-20GENERIC-FUNCTION-29" >BODY-ELEMENT</a></span></span> <span class="locative-args">SELF</span></span></li>
<li><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ABODY-ELEMENT-20GENERIC-FUNCTION-29" >BODY-ELEMENT</a></span></span> <span class="locative-args">OBJECT</span></span></li>
</ul>
<p><a id='x-28CLOG-3ADOCUMENT-ELEMENT-20GENERIC-FUNCTION-29'></a></p>

13
tutorial/15-tutorial.lisp
View file

@ -17,12 +17,13 @@
(ast (create-button body :content "||"))
(alc (create-form-element body :input))
(tmp (create-hr body)))
(set-on-click vpl (lambda (obj)(play-media vid)))
(set-on-click apl (lambda (obj)(play-media aud)))
(set-on-click vst (lambda (obj)(pause-media vid)))
(set-on-click ast (lambda (obj)(pause-media aud)))
(set-on-time-update vid (lambda (obj)(setf (value vlc) (media-position vid))))
(set-on-time-update aud (lambda (obj)(setf (value alc) (media-position aud))))
(declare (ignore tmp))
(set-on-click vpl (lambda (obj)(declare (ignore obj))(play-media vid)))
(set-on-click apl (lambda (obj)(declare (ignore obj))(play-media aud)))
(set-on-click vst (lambda (obj)(declare (ignore obj))(pause-media vid)))
(set-on-click ast (lambda (obj)(declare (ignore obj))(pause-media aud)))
(set-on-time-update vid (lambda (obj)(declare (ignore obj))(setf (value vlc) (media-position vid))))
(set-on-time-update aud (lambda (obj)(declare (ignore obj))(setf (value alc) (media-position aud))))
(run body)))
(defun start-tutorial ()

5
tutorial/16-tutorial.lisp
View file

@ -40,12 +40,14 @@
(col3 (create-div row :class "col-sm-4"))
(tmp (create-section col3 :h3 :content "Column 3"))
(tmp (create-p col3 :content "Lorem ipsum dolor..")))
(declare (ignore tmp) (ignore l4))
(set-on-click l1 (lambda (obj)(declare (ignore obj))(alert (window body) "Clicked link1")))
(set-on-click l2 (lambda (obj)
(declare (ignore obj))
(let* ((alert (create-div body :class "alert alert-warning alert-dismissible fade show"))
(tmp (create-phrase alert :strong :content "Wow! You clicked link 2"))
(btn (create-button alert :class "close" :content "<span>&times;</span>")))
(declare (ignore tmp))
(setf (attribute alert "role") "alert")
(setf (attribute btn "data-dismiss") "alert")
(place-after nav alert))))
@ -67,7 +69,8 @@
(l4 (create-a nav :content "page1" :class "nav-link" :link "/"))
;; Jumbotron
(jumbo (create-div body :class "jumbotron text-center"))
(jname (create-section jumbo :h1 :content "You found Page2"))))
(jname (create-section jumbo :h1 :content "You found Page2")))
(declare (ignore l1) (ignore l2) (ignore l3) (ignore l4) (ignore jname)))
(run body))
(defun start-tutorial ()

1
tutorial/17-tutorial.lisp
View file

@ -53,6 +53,7 @@
(tmp (create-hr data-area))
(footer (create-section body :footer :class "w3-container w3-theme"))
(tmp (create-section footer :p :content "(c) All's well that ends well")))
(declare (ignore tmp) (ignore finput) (ignore fsubmit))
(set-on-click fsubmit3
(lambda (obj)

8
tutorial/18-tutorial.lisp
View file

@ -39,15 +39,17 @@
;; 1 object is draggable
(setf (draggablep object) t)
;; 2 the on-drag-start event is set
(set-on-drag-start object (lambda (obj)()) :drag-data "some data")
(set-on-drag-start object (lambda (obj)(declare (ignore obj))()) :drag-data "some data")
;; 4 the target on-drag-over event is sett
(set-on-drag-over target1 (lambda (obj)()))
(set-on-drag-over target1 (lambda (obj)(declare (ignore obj))()))
;; 5 the target on-drop event is set
(set-on-drop target1 (lambda (obj data)
(declare (ignore obj) (ignore data))
(place-inside-bottom-of target1 object)))
;; Set up other box 1 also as target for returning drag box
(set-on-drag-over target2 (lambda (obj)()))
(set-on-drag-over target2 (lambda (obj)(declare (ignore obj))()))
(set-on-drop target2 (lambda (obj data)
(declare (ignore obj))
(print (getf data :drag-data))
(place-inside-bottom-of target2 object)))
(run body)))

1
tutorial/19-tutorial.lisp
View file

@ -22,6 +22,7 @@
(item (create-list-item list-b :content "Item 2"))
(item (create-list-item list-b :content "Item 3"))
(item (create-list-item list-b :content "Item 4")))
(declare (ignore item))
(js-execute body (format nil "JSLists.applyToList('~A', 'ALL');"
(html-id list-top))))
(run body))

1
tutorial/20-tutorial.lisp
View file

@ -65,6 +65,7 @@
(item (create-list-item list-b :content "Item 2"))
(item (create-list-item list-b :content "Item 3"))
(item (create-list-item list-b :content "Item 4")))
(declare (ignore item))
(clog-toggler:activate toggler))
(run body))

4
tutorial/21-tutorial.lisp
View file

@ -36,6 +36,7 @@ on the drop-root."))
(setf (drop-root new-obj) (create-unordered-list header))
(set-on-click header
(lambda (obj)
(declare (ignore obj))
(if (hiddenp (drop-root new-obj))
(setf (hiddenp (drop-root new-obj)) nil)
(setf (hiddenp (drop-root new-obj)) t))))
@ -52,7 +53,8 @@ on the drop-root."))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 1"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 2"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 3"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 4"))))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 4")))
(declare (ignore item)))
(run body))
(defun start-tutorial ()

1
tutorial/23-tutorial.lisp
View file

@ -33,7 +33,6 @@
(set-on-click (create-button body :content
"Click for my question. You have 10 seconds to answer.")
(lambda (obj)
(declare (ignore obj))
(setf (disabledp obj) t)
;; ask returns once an answer is given or times out
(create-div body :content (ask body))