18 lines
637 B
Common Lisp
18 lines
637 B
Common Lisp
;;;; cl-scopes/frontend/cs-hx - frontend (http response) definitions
|
|
;;;; for embedding HTML fragments in pages generated by the `cyberscopes` Hugo theme
|
|
;;;; with dynamic elements handled by `HTMX`.
|
|
|
|
(defpackage :scopes/frontend/cs-hx
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:dom :scopes/web/dom)
|
|
(:message :scopes/core/message)
|
|
(:response :scopes/web/response))
|
|
(:export #:render-content #:response))
|
|
|
|
(in-package :scopes/frontend/cs-hx)
|
|
|
|
(defclass response (response:html-response) ())
|
|
|
|
(defmethod render-content ((resp response) msg)
|
|
(dom:render (dom:dlist nil (message:data msg))))
|
|
|