1 (in-package :demo) 2 3 (defun on-new-window (body) 4 "Handle new window event." 5 (let ((elt (clog:create-child body "<h1>foobar</h1>"))) 6 (clog:set-on-click 7 elt 8 (lambda (o) 9 (setf (clog:color elt) "green"))))) 10 11 (defun start-ui () 12 "Start the UI." 13 (clog:initialize #'on-new-window) 14 (clog:open-browser))
