changeset 0: |
eb8ed24e8a76 |
child: |
8f59e2f1b8c4 |
author: |
ellis <ellis@rwest.io> |
date: |
Sun, 30 Apr 2023 22:01:32 -0400 |
permissions: |
-rw-r--r-- |
description: |
init |
3 (defun on-new-window (body) 4 "Handle new window event." 5 (let ((elt (clog:create-child body "<h1>foobar</h1>"))) 9 (setf (clog:color elt) "green"))))) 13 (clog:initialize #'on-new-window)