(eval-when (:compile-toplevel :load-toplevel :execute) (require :quek) (require :drakma) (require :cl-json) (use-package :quek) (use-package :drakma)) (defpackage for-with-json) (defmacro! with-json (o!json &body body) (let* (($-symbols (c…

(in-package :you.example) (defmacro with-default-template ((&key (title "TODO")) &body body) `(html (:head (:title ,title)) (:body ,@body))) (defaction todo () (with-default-template (:title "TODO リスト") (:h1 "TODO リスト") (:form :actio…