mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -08:00
Code Issues Projects Releases Wiki Activity

SBCL caught errors

Browse source
This commit is contained in:
David Botton 2021-03-07 19:59:36 -05:00
parent 65d103f906
commit d3ac4741c9
6 changed files with 36 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

16
doc/clog-manual.html
View file

@ -393,7 +393,9 @@ their <a href="#x-28CLOG-3AHTML-ID-20GENERIC-FUNCTION-29" title="(CLOG:HTML-ID G
<p><a id='x-28CLOG-3AOBJ-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3AOBJ-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>
<li><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3AOBJ-20GENERIC-FUNCTION-29" >OBJ</a></span></span> <span class="locative-args">CLOG-GROUP NAME</span></span></li> <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3AOBJ-20GENERIC-FUNCTION-29" >OBJ</a></span></span> <span class="locative-args">CLOG-GROUP NAME</span></span></p>
<p>Retrieve from <code>CLOG-GROUP</code> the <a href="#x-28CLOG-3ACLOG-OBJ-20CLASS-29" title="(CLOG:CLOG-OBJ CLASS)"><code>CLOG-OBJ</code></a> with name</p></li>
</ul> </ul>
<p><code>CLOG</code> JS utilities</p> <p><code>CLOG</code> JS utilities</p>
@ -3969,9 +3971,9 @@ https://developer.mozilla.org/en-US/docs/Web/CSS/font</p></li>
<p><a id='x-28CLOG-3AMOVE-TO-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3AMOVE-TO-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-3AMOVE-TO-20GENERIC-FUNCTION-29" >MOVE-TO</a></span></span> <span class="locative-args">CLOG-WINDOW X Y</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-3AMOVE-TO-20GENERIC-FUNCTION-29" >MOVE-TO</a></span></span> <span class="locative-args">CLOG-CONTEXT2D X Y</span></span></p>
<p>Move browser window to x y.</p></li> <p>Moves start point of path.</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3ALINE-TO-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3ALINE-TO-20GENERIC-FUNCTION-29'></a></p>
@ -5709,18 +5711,18 @@ If <code>ON-ORIENTATION-CHANGE-HANDLER</code> is nil unbind the event.</p></li>
on-storage event is fired for changes to :local storage keys.</p></li> on-storage event is fired for changes to :local storage keys.</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3AMOVE-BY-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3AMOVE-WINDOW-BY-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-3AMOVE-BY-20GENERIC-FUNCTION-29" >MOVE-BY</a></span></span> <span class="locative-args">CLOG-WINDOW X Y</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-3AMOVE-WINDOW-BY-20GENERIC-FUNCTION-29" >MOVE-WINDOW-BY</a></span></span> <span class="locative-args">CLOG-WINDOW X Y</span></span></p>
<p>Move browser window by x y.</p></li> <p>Move browser window by x y.</p></li>
</ul> </ul>
<p><a id='x-28CLOG-3AMOVE-TO-20GENERIC-FUNCTION-29'></a></p> <p><a id='x-28CLOG-3AMOVE-WINDOW-TO-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-3AMOVE-TO-20GENERIC-FUNCTION-29" >MOVE-TO</a></span></span> <span class="locative-args">CLOG-WINDOW X Y</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-3AMOVE-WINDOW-TO-20GENERIC-FUNCTION-29" >MOVE-WINDOW-TO</a></span></span> <span class="locative-args">CLOG-WINDOW X Y</span></span></p>
<p>Move browser window to x y.</p></li> <p>Move browser window to x y.</p></li>
</ul> </ul>

21
source/clog-element-common.lisp
View file

@ -854,11 +854,10 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(auto-place t)) (auto-place t))
(create-child obj (format nil "<dl~A~A/>" (create-child obj (format nil "<dl~A~A/>"
(if hidden (if hidden
(format nil " style='visibility:hidden;'") " style='visibility:hidden;'"
"") "")
(if class (if class
(format nil " class='~A'" (format nil " class='~A'" (escape-string class))
(escape-string class))
"")) ""))
:clog-type 'clog-definition-list :clog-type 'clog-definition-list
:html-id html-id :html-id html-id
@ -886,16 +885,18 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(content "") (content "")
(class nil) (class nil)
(html-id nil) (auto-place t)) (html-id nil) (auto-place t))
(create-child obj (format nil "<dt~A>~A</dt>" (create-child obj (format nil "<dt~A~A>~A</dt>"
(if hidden (if hidden
(format nil " style='visibility:hidden;'") " style='visibility:hidden;'"
"") "")
(escape-string content)
(if class (if class
(format nil " class='~A'" (format nil " class='~A'"
(escape-string class)) (escape-string class))
"")) "")
:clog-type 'clog-term :html-id html-id :auto-place auto-place)) (escape-string content))
:clog-type 'clog-term
:html-id html-id
:auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-description ;; Implementation - clog-description
@ -1193,9 +1194,9 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-footer ((obj clog-obj) (defmethod create-table-footer ((obj clog-obj)
&key (hidden nil) &key (hidden nil)
(class nil) (html-id nil) (auto-place t)) (class nil) (html-id nil) (auto-place t))
(create-child obj (format nil "<tfoot~A/>" (create-child obj (format nil "<tfoot~A~A/>"
(if hidden (if hidden
(format nil " style='visibility:hidden;'") " style='visibility:hidden;'"
"") "")
(if class (if class
(format nil " class='~A'" (format nil " class='~A'"

2
source/clog-form.lisp
View file

@ -61,7 +61,7 @@ action."))
(class nil) (class nil)
(html-id nil) (html-id nil)
(auto-place t)) (auto-place t))
(create-child obj (format nil "<form action='~A' ~A target='~A'/>" (create-child obj (format nil "<form action='~A' ~A target='~A'~A/>"
action action
(if (eq method :none) (if (eq method :none)
"onSubmit='return false;'" "onSubmit='return false;'"

2
source/clog-utilities.lisp
View file

@ -33,7 +33,7 @@ CLOG-OBJ unless :NAME is set and is used instead."))
(html-id clog-obj)))) (html-id clog-obj))))
(setf (gethash id (controls group)) clog-obj))) (setf (gethash id (controls group)) clog-obj)))
(defmethod obj (clog-group name) (defgeneric obj (clog-group name)
(:documentation "Retrieve from CLOG-GROUP the CLOG-OBJ with name")) (:documentation "Retrieve from CLOG-GROUP the CLOG-OBJ with name"))
(defmethod obj ((group clog-group) name) (defmethod obj ((group clog-group) name)

22
source/clog-window.lisp
View file

@ -328,24 +328,24 @@ events and messages may not be trasmitted on most browsers."))
(defmethod scroll-to ((obj clog-window) x y) (defmethod scroll-to ((obj clog-window) x y)
(execute obj (format nil "scrollTo(~A,~A)" x y))) (execute obj (format nil "scrollTo(~A,~A)" x y)))
;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
;; move-by ;; ;; move-window-by ;;
;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
(defgeneric move-by (clog-window x y) (defgeneric move-window-by (clog-window x y)
(:documentation "Move browser window by x y.")) (:documentation "Move browser window by x y."))
(defmethod move-by ((obj clog-window) x y) (defmethod move-window-by ((obj clog-window) x y)
(execute obj (format nil "moveBy(~A,~A)" x y))) (execute obj (format nil "moveBy(~A,~A)" x y)))
;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
;; move-to ;; ;; move-window-to ;;
;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
(defgeneric move-to (clog-window x y) (defgeneric move-window-to (clog-window x y)
(:documentation "Move browser window to x y.")) (:documentation "Move browser window to x y."))
(defmethod move-to ((obj clog-window) x y) (defmethod move-window-to ((obj clog-window) x y)
(execute obj (format nil "moveTo(~A,~A)" x y))) (execute obj (format nil "moveTo(~A,~A)" x y)))
;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;
@ -484,7 +484,7 @@ on-storage event is fired for changes to :local storage keys."))
(local = persistant or session)")) (local = persistant or session)"))
(defmethod storage-length ((obj clog-window) storage-type) (defmethod storage-length ((obj clog-window) storage-type)
(parse-integer (query obj "~(~a~)Storage.length" storage-type))) (parse-integer (query obj (format "~(~a~)Storage.length" storage-type))))
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
;; storage-key ;; ;; storage-key ;;

4
source/clog.lisp
View file

@ -711,8 +711,8 @@ embedded in a native template application.)"
(set-on-hash-change generic-function) (set-on-hash-change generic-function)
(set-on-orientation-change generic-function) (set-on-orientation-change generic-function)
(set-on-storage generic-function) (set-on-storage generic-function)
(move-by generic-function) (move-window-by generic-function)
(move-to generic-function) (move-window-to generic-function)
(resize-by generic-function) (resize-by generic-function)
(resize-to generic-function)) (resize-to generic-function))