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

html-id example

Browse source
This commit is contained in:
David Botton 2021-02-01 22:34:44 -05:00
parent 3d7dc17cd3
commit f4b0abe422
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tutorial/20-tutorial.lisp
View file

@ -34,7 +34,7 @@
(html-id nil)
(auto-place t))
(let ((new-obj (create-unordered-list obj :class class
:html-if html-id
:html-id html-id
:auto-place auto-place)))
;; Using change-class we can reuse the parent clog-unordered-lists's
;; create method and it's initialization. Otherwise we can use
@ -48,7 +48,7 @@
(defmethod activate ((obj clog-toggler))
(js-execute obj (format nil "JSLists.applyToList('~A', 'ALL');"
(html-id obj))))
(defpackage #:clog-user
(:use #:cl #:clog)
(:export start-tutorial))
@ -57,8 +57,10 @@
(defun on-new-window (body)
(clog-toggler:init-toggler body)
;; Now we build or CLOG-Toggler
(let* ((toggler (clog-toggler:create-toggler body))
;; Now we build our CLOG-Toggler
;; All create-functions also allow setting the :html-id instead of
;; using a generated id.
(let* ((toggler (clog-toggler:create-toggler body :html-id "myid"))
(item (create-list-item toggler :content "Top of tree"))
(list-b (create-unordered-list item))
(item (create-list-item list-b :content "Item 1"))