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