Plaster
New
List
Login
common-lisp
default
anonymous
2023.09.01 15:44:49
(defun inspect-rules (o category rules) (let ((gui (create-gui-window o :title (format nil "Substack ~S Rules" category)))) (dolist (rule rules) (let ((d (create-div (window-content gui) :class "rules" :content (spinneret:with-html-string (:div :class "rule" (:h3 (format nil "Name: ~A" (breca::name rule))) (:h4 (format nil "Weight: ~D" (breca::weight rule))) (:pre (format nil "~S" (breca::fun-as-list rule)))))))))))) (defun substack-rules (body) (let ((r (gethash (find-class 'breca::substack) breca::*resource-rules*)) (gui (create-gui-window body :title "Rule Categories"))) (alexandria:doplist (category rules r) (let ((d (create-div (window-content gui) :class "externals" :content (spinneret:with-html-string (:div :class "external" (:h3 category)))))) (set-on-click d (lambda (o) (inspect-rules o category rules)))))))
Raw
Annotate
Repaste
Edit