changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > demo / ui.lisp

changeset 2: 04ac94b03a26
parent: eb8ed24e8a76
child: 8f59e2f1b8c4
author: ellis <ellis@rwest.io>
date: Sun, 30 Apr 2023 22:25:43 -0400
permissions: -rw-r--r--
description: rm extra build.py 
     1 (in-package :cl-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))