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

Tutorial 28 - Minimal CLOG Builder App

Browse source
This commit is contained in:
David Botton 2022-01-27 22:31:30 -05:00
parent 2d0e2ab6c6
commit d3cabdc183
18 changed files with 20358 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tutorial/28-tutorial/hello-builder/hello-builder.lisp Normal file
View file

@ -0,0 +1,15 @@
(defpackage #:hello-builder
(:use #:cl #:clog)
(:export start-app))
(in-package :hello-builder)
(defun my-click (panel)
(setf (font (hello-span panel)) (format nil "~Apx Times, serif" (random 36)))
(setf (color (hello-span panel)) (rgb (random 255) (random 255) (random 255))))
(defun start-app ()
(initialize #'create-hello-page
:static-root (merge-pathnames "./www/"
(asdf:system-source-directory :hello-builder)))
(open-browser))