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

create text nodes

Browse source
This commit is contained in:
David Botton 2022-08-30 00:10:20 -04:00
parent d05269e0d3
commit d71c8f6011
2 changed files with 29 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

23
source/clog-element.lisp
View file

@ -235,6 +235,29 @@ after attachment is changed to one unique to this session."))
(jquery-execute obj (format nil "append(~A)" (script-id next-obj)))
next-obj)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; place-text-inside-top-of ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric place-text-inside-top-of (clog-obj text)
(:documentation "Places text inside top of CLOG-OBJ in DOM"))
(defmethod place-text-inside-top-of ((obj clog-obj) text)
(jquery-execute obj (format nil "prepend(document.createTextNode('~A'))" text))
text)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; place-text-inside-bottom-of ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric place-text-inside-bottom-of (clog-obj text)
(:documentation "Places text inside bottom of CLOG-OBJ in DOM"))
(defmethod place-text-inside-bottom-of ((obj clog-obj) text)
(jquery-execute obj (format nil "append(document.createTextNode('~A'))" text))
text)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Properties - clog-element
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2
source/clog.lisp
View file

@ -201,6 +201,8 @@ embedded in a native template application.)"
(place-before generic-function)
(place-inside-top-of generic-function)
(place-inside-bottom-of generic-function)
(place-text-inside-top-of generic-function)
(place-text-inside-bottom-of generic-function)
"CLOG-Element - General Properties"
(style generic-function)