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

Add instructions to tutorial 18

Browse source
This commit is contained in:
David Botton 2021-01-31 20:20:29 -05:00
parent 2fb32556e1
commit cdf83a3630
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
clog.asd
View file

@ -5,12 +5,11 @@
:author "David Botton <david@botton.com>" :author "David Botton <david@botton.com>"
:license "BSD" :license "BSD"
:version "0.8.0" :version "0.9.0"
:serial t :serial t
:depends-on (#:clack #:websocket-driver #:alexandria #:hunchentoot #:cl-ppcre :depends-on (#:clack #:websocket-driver #:alexandria #:hunchentoot #:cl-ppcre
#:bordeaux-threads #:trivial-open-browser #:bordeaux-threads #:trivial-open-browser
#:lack-middleware-static #:lack-middleware-session #:lack-middleware-static #:mgl-pax #:quri)
#:mgl-pax #:quri)
:components ((:file "clog-connection") :components ((:file "clog-connection")
(:file "clog") (:file "clog")
(:file "clog-docs") (:file "clog-docs")

7
tutorial/18-tutorial.lisp
View file

@ -7,7 +7,12 @@
(defun on-new-window (body) (defun on-new-window (body)
(let* ((target1 (create-div body)) (let* ((target1 (create-div body))
(target2 (create-div body)) (target2 (create-div body))
(object (create-div target1))) (object (create-div target1))
(msg (create-div body
:content "Drag green box to other yellow box")))
(setf (positioning msg) :fixed)
(setf (top msg) "125px")
(setf (positioning target1) :fixed) (setf (positioning target1) :fixed)
(setf (top target1) "10px") (setf (top target1) "10px")