;;;; 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))))