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

style changes

Browse source
This commit is contained in:
David Botton 2021-02-01 11:08:44 -05:00
parent 76db51599b
commit 79a31fba88
1 changed files with 8 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tutorial/20-tutorial.lisp
View file

@ -1,8 +1,8 @@
;; In this tutorial we will see how to wrap last tutorial's JavaScript ;;;; In this tutorial we will see how to wrap last tutorial's JavaScript
;; component in to something that feels more like a plugin to CLOG. ;;;; component in to something that feels more like a plugin to CLOG.
;; First we will create a package for our component ;;; First we will create a package for our component
(defpackage #:clog-toggler (defpackage #:clog-toggler
(:use #:cl #:clog) (:use #:cl #:clog)
(:export clog-toggler (:export clog-toggler
@ -12,18 +12,17 @@
(in-package :clog-toggler) (in-package :clog-toggler)
;; Next we will create a function to initialize the environment ;;; Next we will create a function to initialize the environment
;; for the component. ;;; for the component.
(defun init-toggler (body &key (path-to-js "/tutorial/jslists/")) (defun init-toggler (body &key (path-to-js "/tutorial/jslists/"))
"Initialize BODY to use clog-toggler components" "Initialize BODY to use clog-toggler components"
(load-css (html-document body) (load-css (html-document body)
(concatenate 'string path-to-js "jsLists.css")) (concatenate 'string path-to-js "jsLists.css"))
(load-script (html-document body) (load-script (html-document body)
(concatenate 'string path-to-js "jsLists.js"))) (concatenate 'string path-to-js "jsLists.js")))
;; Next we will use the clog-unordered-list as the base for our new ;;; Next we will use the clog-unordered-list as the base for our new
;; class clog-toggler ;;; class clog-toggler
(defclass clog-toggler (clog-unordered-list) () (defclass clog-toggler (clog-unordered-list) ()
(:documentation "Toggler object - a collapsable UI component")) (:documentation "Toggler object - a collapsable UI component"))
@ -35,11 +34,9 @@
(auto-place t)) (auto-place t))
(let ((new-obj (create-unordered-list obj :class class (let ((new-obj (create-unordered-list obj :class class
:auto-place auto-place))) :auto-place auto-place)))
;; Using change-class we can reuse the parent clog-obj's create ;; Using change-class we can reuse the parent clog-obj's create
;; method and it's initialization. ;; method and it's initialization.
(change-class new-obj 'clog-toggler) (change-class new-obj 'clog-toggler)
new-obj)) new-obj))
(defgeneric activate (clog-toggler) (defgeneric activate (clog-toggler)
@ -57,7 +54,6 @@
(defun on-new-window (body) (defun on-new-window (body)
(clog-toggler:init-toggler body) (clog-toggler:init-toggler body)
;; Now we build or CLOG-Toggler ;; Now we build or CLOG-Toggler
(let* ((toggler (clog-toggler:create-toggler body)) (let* ((toggler (clog-toggler:create-toggler body))
(item (create-list-item toggler :content "Top of tree")) (item (create-list-item toggler :content "Top of tree"))
@ -66,12 +62,10 @@
(item (create-list-item list-b :content "Item 2")) (item (create-list-item list-b :content "Item 2"))
(item (create-list-item list-b :content "Item 3")) (item (create-list-item list-b :content "Item 3"))
(item (create-list-item list-b :content "Item 4"))) (item (create-list-item list-b :content "Item 4")))
(clog-toggler:activate toggler)) (clog-toggler:activate toggler))
(run body)) (run body))
(defun start-tutorial () (defun start-tutorial ()
"Start turtorial." "Start turtorial."
(initialize #'on-new-window) (initialize #'on-new-window)
(open-browser)) (open-browser))