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

Move span to use :content

Browse source
This commit is contained in:
David Botton 2021-01-15 17:06:50 -05:00
parent 019fb2b68c
commit cc9cf14b17
4 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
clog-element-common.lisp
View file

@ -448,12 +448,12 @@ CLOG-OBJ"))
;; create-span ;;
;;;;;;;;;;;;;;;;;
(defgeneric create-span (clog-obj content &key auto-place)
(defgeneric create-span (clog-obj &key content auto-place)
(:documentation "Create a new CLOG-Span as child of CLOG-OBJ with CONTENT
and if :AUTO-PLACE (default t) place-inside-bottom-of
CLOG-OBJ"))
(defmethod create-span ((obj clog-obj) content &key (auto-place t))
(defmethod create-span ((obj clog-obj) &key (content "") (auto-place t))
(create-child obj (format nil "<span>~A</span>" (escape-string content))
:clog-type 'clog-span :auto-place auto-place))