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

20
tutorial/20-tutorial.lisp
View file

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