# Pastebin SPJXM4pS
  (defmacro with-tagged-html ((tag &key attributes) &body body)
    `(with-lhtml-string ()
       (,tag ,@(eval attributes) ,@body)))