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

can now optionally specify the id used for an element

Browse source
This commit is contained in:
David Botton 2021-02-01 21:40:47 -05:00
parent 73bc5bf10f
commit 3d7dc17cd3
7 changed files with 272 additions and 155 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tutorial/20-tutorial.lisp
View file

@ -31,11 +31,14 @@
(defmethod create-toggler ((obj clog-obj) &key (content "")
(class nil)
(html-id nil)
(auto-place t))
(let ((new-obj (create-unordered-list obj :class class
:html-if html-id
:auto-place auto-place)))
;; Using change-class we can reuse the parent clog-obj's create
;; method and it's initialization.
;; Using change-class we can reuse the parent clog-unordered-lists's
;; create method and it's initialization. Otherwise we can use
;; create-child and the needed html.
(change-class new-obj 'clog-toggler)
new-obj))