mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
15 lines
490 B
Common Lisp
15 lines
490 B
Common Lisp
(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))
|