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

Additions to tutorial 8

Browse source
This commit is contained in:
David Botton 2021-01-11 01:50:32 -05:00
parent 5d41a2131a
commit 893a140e01
9 changed files with 62 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

8
clog-element-common.lisp
View file

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