cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

work in progress: demo app; web/dom: + void-element

Browse source
This commit is contained in:
Helmut Merz 2024-07-18 09:24:05 +02:00
parent 473616860f
commit 1ec80a559f
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
app/demo/etc/config.lisp
View file

@ -16,3 +16,4 @@
(() server:fileserver :doc-root (() server:fileserver :doc-root
,(util:absolute-dir (config:from-env :docroot "/var/www/html"))))) ,(util:absolute-dir (config:from-env :docroot "/var/www/html")))))
;,(config:directory "/var/www/html" :env :docroot) ;,(config:directory "/var/www/html" :env :docroot)
(config:add-action '(:test :data) #'core:echo)

10
web/dom.lisp
View file

@ -4,7 +4,7 @@
(:use :common-lisp) (:use :common-lisp)
(:local-nicknames (:util :scopes/util) (:local-nicknames (:util :scopes/util)
(:alx :alexandria)) (:alx :alexandria))
(:export #:elem #:element #:render (:export #:elem #:element #:void-element #:render
#:dlist)) #:dlist))
(in-package :scopes/web/dom) (in-package :scopes/web/dom)
@ -38,6 +38,14 @@
(put c)) (put c))
(end tag)))) (end tag))))
(defclass void-element (element) ())
(defun void-element (tag attrs)
(make-instance 'void-element :tag tag :attrs attrs))
(defmethod put ((el void-element))
(start (tag el) (attrs el)))
;;;; elements with specific functionality ;;;; elements with specific functionality
(defun dlist (attrs plist) (defun dlist (attrs plist)