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

prep for switch to use ace editor

Browse source
This commit is contained in:
David Botton 2022-07-10 21:52:58 -04:00
parent df44aa8a96
commit 8036651a36
6 changed files with 101 additions and 99 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-element.lisp
View file

@ -484,16 +484,14 @@ Additionally for forms get/setf the value."))
(jquery-query obj (format nil "contents().not(~A.children()).text()"
(jquery obj))))
(defgeneric set-text-value (clog-element value)
(defgeneric (setf text-value) (value clog-element)
(:documentation "Set text-value to VALUE for CLOG-ELEMENT"))
(defmethod set-text-value ((obj clog-element) value)
(defmethod (setf text-value) (value (obj clog-element))
(jquery-execute obj
(format nil "contents().not(~A.children()).get(0).nodeValue='~A'"
(jquery obj) (escape-string value))))
(defsetf text-value set-text-value)
;;;;;;;;;;;;;;;;;;;;
;; text-direction ;;
;;;;;;;;;;;;;;;;;;;;