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

add escape string to place-text-inside-*

Browse source
This commit is contained in:
David Botton 2022-08-30 00:39:07 -04:00
parent d71c8f6011
commit 8f163a37c7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-element.lisp
View file

@ -243,7 +243,7 @@ after attachment is changed to one unique to this session."))
(:documentation "Places text inside top of CLOG-OBJ in DOM")) (:documentation "Places text inside top of CLOG-OBJ in DOM"))
(defmethod place-text-inside-top-of ((obj clog-obj) text) (defmethod place-text-inside-top-of ((obj clog-obj) text)
(jquery-execute obj (format nil "prepend(document.createTextNode('~A'))" text)) (jquery-execute obj (format nil "prepend(document.createTextNode('~A'))" (escape-string text)))
text) text)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -254,7 +254,7 @@ after attachment is changed to one unique to this session."))
(:documentation "Places text inside bottom of CLOG-OBJ in DOM")) (:documentation "Places text inside bottom of CLOG-OBJ in DOM"))
(defmethod place-text-inside-bottom-of ((obj clog-obj) text) (defmethod place-text-inside-bottom-of ((obj clog-obj) text)
(jquery-execute obj (format nil "append(document.createTextNode('~A'))" text)) (jquery-execute obj (format nil "append(document.createTextNode('~A'))" (escape-string text)))
text) text)