parenscript shows me how little I really know so far about CL

parenscript_oh_snap.lisp

(defpsmacro $ (selector &body chains)
  `(chain (j-query ,selector)
          ,@chains))

; Clearly, this did not work like I expected...

(defpsmacro jq-submit (element function)
  `(let ((td (concatenate 'string "#" ,element)))
    (($ (@ td) ,function))))



(defun todo--show-todo (x)
  (let ((fed-id (make-id))
         ...
    (htm
         ...
      (:form :id fed-id :method "POST" :action "/"
        (:input :type "hidden" :name "uid" :value the-uid)
        (:input :type "hidden" :name "action" :value "edit"))

...
       (:button :class "btn btn-mini btn-danger"
                :style "margin-bottom:2px;width:45px;"
                :onclick (ps-inline (jq-submit fdel-id)) "Delete"))))))

...