changeset 12: |
c520966de7fa |
parent: |
79737134254d
|
author: |
ellis <ellis@rwest.io> |
date: |
Mon, 15 May 2023 21:40:24 -0400 |
permissions: |
-rw-r--r-- |
description: |
added quiche.h and some ui work |
3 (defparameter ui-server-port 8080) 4 (defparameter ui-server-host "0.0.0.0") 6 (defclass ui-element (clog-element) () 7 (:documentation "UI Element Object.")) 9 (defgeneric create-ui-element (obj &key hidden class id mode) 10 (:documentation "Create a new ui-element as a child of OBJ.")) 11 (defmethod create-ui-element ((obj clog:clog-obj) 16 (let ((new (clog:create-div obj 21 (clog:set-geometry new :width 200 :height 100) 22 (change-class new 'ui-element))) 24 (defun on-new-window (body) 25 "Handle new window event." 26 (clog:debug-mode body) 27 (let ((elt (clog:create-child body "<h1>foobar</h1>"))) 31 (setf (clog:color elt) "green"))))) 35 (clog:initialize #'on-new-window