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

coding style and description changes

Browse source
This commit is contained in:
David Botton 2024-02-05 15:03:55 -05:00
parent 5142af4da5
commit f631a43059
2 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-base.lisp
View file

@ -22,7 +22,7 @@ own context and therefore its own copy of this variable when
dynamically bound. As a result no thread protection is needed to dynamically bound. As a result no thread protection is needed to
access. To use dynamically bind the *connection-cache* and set it access. To use dynamically bind the *connection-cache* and set it
to (list :cache) turn on caching. By default this is off its main use to (list :cache) turn on caching. By default this is off its main use
is in initial setup complex pages. (private) is during initial setup of complex pages. (private)
See macro with-connection-cache.") See macro with-connection-cache.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -584,7 +584,6 @@ object"))
(defmethod set-on-resize ((obj clog-obj) handler) (defmethod set-on-resize ((obj clog-obj) handler)
(set-on-event obj "resize" handler)) (set-on-event obj "resize" handler))
;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;
;; set-on-focus ;; ;; set-on-focus ;;
;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;
@ -683,7 +682,6 @@ is nil unbind the event."))
(defmethod set-on-drag-enter ((obj clog-obj) handler) (defmethod set-on-drag-enter ((obj clog-obj) handler)
(set-on-event obj "dragenter" handler)) (set-on-event obj "dragenter" handler))
;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-drag-leave ;; ;; set-on-drag-leave ;;
;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;

27
source/clog-element.lisp
View file

@ -71,17 +71,21 @@ CONNECTION-ID to it and then return it. The HTML-ID must be unique. (private)"
;; Low Level - clog-element ;; Low Level - clog-element
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
;; create-element ;; ;; create-element ;;
;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
(defgeneric create-element (clog-obj html-tag &rest all-args &key content clog-type html-id
auto-place &allow-other-keys ) (defgeneric create-element (clog-obj html-tag &rest all-args
(:documentation "Create a new CLOG-element as child of CLOG-OBJ with any possible keywords.") &key content clog-type html-id auto-place
(:method (clog-obj html-tag &rest all-args &key (content "") &allow-other-keys)
(:documentation "Create a new CLOG-element as child of CLOG-OBJ with any possible keyword."))
(defmethod create-element (clog-obj html-tag &rest all-args
&key (content "")
clog-type clog-type
(html-id (clog-connection:generate-id)) html-id
(auto-place t) (auto-place t)
&allow-other-keys ) &allow-other-keys)
(let* ((extra-args (alexandria:remove-from-plist all-args :content :clog-type :html-id :auto-place)) (let* ((extra-args (alexandria:remove-from-plist all-args :content :clog-type :html-id :auto-place))
(html (with-output-to-string (*standard-output*) (html (with-output-to-string (*standard-output*)
(format t "<~(~a~) " html-tag) (format t "<~(~a~) " html-tag)
@ -96,7 +100,7 @@ CONNECTION-ID to it and then return it. The HTML-ID must be unique. (private)"
(create-child clog-obj html (create-child clog-obj html
:clog-type clog-type :clog-type clog-type
:html-id html-id :html-id html-id
:auto-place auto-place)))) :auto-place auto-place)))
;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;
;; create-child ;; ;; create-child ;;
@ -518,7 +522,7 @@ Normally index follows normal sequence of elements."))
<tag>Text Content</tag> - Text content is the content contained by the <tag>Text Content</tag> - Text content is the content contained by the
tag including child tags. This should not be tag including child tags. This should not be
confused with the 'Value' of a Form Tag. confused with the 'Value' of a Form Tag.
User TEXT-VALUE for just the text associated Use TEXT-VALUE for just the text associated
with <tag>. (See clog-form.lisp)")) with <tag>. (See clog-form.lisp)"))
(defmethod text ((obj clog-element)) (defmethod text ((obj clog-element))
@ -538,7 +542,7 @@ Normally index follows normal sequence of elements."))
(defgeneric text-value (clog-element) (defgeneric text-value (clog-element)
(:documentation "Get/Setf the first text node of CLOG-ELEMENT. (:documentation "Get/Setf the first text node of CLOG-ELEMENT.
Unlike TEXT this is only the text associated with this <tag> Unlike TEXT this is only the text associated with this <tag>
Additionally for forms get/setf the value.")) Additionally works for forms and can get/setf the values."))
(defmethod text-value ((obj clog-element)) (defmethod text-value ((obj clog-element))
(jquery-query obj (format nil "contents().not(~A.children()).text()" (jquery-query obj (format nil "contents().not(~A.children()).text()"
@ -958,7 +962,6 @@ flex-basis (default :auto = use width or height) for CLOG-ELEMENT"))
&key (grow 0) (shrink 1) (flex-basis :auto)) &key (grow 0) (shrink 1) (flex-basis :auto))
(setf (style obj "flex") (format nil "~A ~A ~A" grow shrink flex-basis))) (setf (style obj "flex") (format nil "~A ~A ~A" grow shrink flex-basis)))
;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;
;; flex-wrap ;; ;; flex-wrap ;;
;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;