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

web/dom: improvements; fix test: use result from cs-hx renderer

Browse source
This commit is contained in:
Helmut Merz 2024-07-20 17:50:01 +02:00
parent f092b5bde2
commit 2efd85c5af
3 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
frontend/cs-hx.lisp
View file

@ -18,8 +18,7 @@
(defmethod response:render-content ((resp response) msg) (defmethod response:render-content ((resp response) msg)
;(dom:render (dom:dlist nil (message:data msg)))) ;(dom:render (dom:dlist nil (message:data msg))))
(dom:render (dom:render
(apply #'div nil (div nil (util:loop-plist (message:data msg) k v collect (view-field k v)))))
(util:loop-plist (message:data msg) k v collect (view-field k v)))))
(defun view-field (label value) (defun view-field (label value)
(div nil (label nil (string-downcase label)) value)) (div nil (label nil label) ": " value))

3
test/test-web.lisp
View file

@ -54,4 +54,5 @@
(deftest test-message (client) (deftest test-message (client)
(let ((msg (message:create '(:test :data :field :info) :data '(:info "test data")))) (let ((msg (message:create '(:test :data :field :info) :data '(:info "test data"))))
(== (util:flatten-str (client:send-message client msg)) (== (util:flatten-str (client:send-message client msg))
"<dl><dt>info</dt><dd>test data</dd></dl>"))) "<div><div><label>info</label>: test data</div></div>")))
;"<dl><dt>info</dt><dd>test data</dd></dl>")))

6
web/dom.lisp
View file

@ -13,8 +13,9 @@
;;;; basic definitions ;;;; basic definitions
(defgeneric put (s) (defgeneric put (s)
(:method ((s string)) (:method ((s string)) (put-string s))
(put-string s))) (:method ((s symbol)) (put (string-downcase s)))
(:method ((s cons)) (dolist (e s) (put e))))
(defclass element () (defclass element ()
((tag :reader tag :initarg :tag) ((tag :reader tag :initarg :tag)
@ -62,7 +63,6 @@
(defun dlist (attrs plist) (defun dlist (attrs plist)
(elem :dl attrs (elem :dl attrs
;(loop for (key val . r) on plist by #'cddr append
(util:loop-plist plist key val append (util:loop-plist plist key val append
(cons (element :dt nil (string-downcase key)) (dds nil val))))) (cons (element :dt nil (string-downcase key)) (dds nil val)))))