i find myself with a little frankenstein html when combining cl-forms and spinneret.

basic example, based on the above method to combine them:

(forms:defform create-agent (:action "/create")
  ((name :string :value "")
   (age :string :value "")
   (location :string :value "")
   (submit :submit :label "Submit")))

 (let ((form (forms::find-form 'create-agent)))
    (with-output-to-string (*html*)
      (let ((forms.who:*html* *html*)
            (spinneret:*html* *html*))
        (spinneret:with-html
          (:doctype)
          (:html
           (:body
             (:h1 "new agent")
             (:main
              (forms:with-form-renderer :who
                (forms:render-form form)))))))))

output (with junk </form&gt after </form>):

<!DOCTYPE html>
<html lang=en>
 <body>
  <h1>new agent</h1>
  <main><form id='G4521' action='/agents' method='POST'><div><label>Name</label><input type=\"text\" name=\"name\" value=\"\"></input></div><div><label>Age</label><input type=\"text\" name=\"age\" value=\"\"></input></div><div><label>Location</label><input type=\"text\" name=\"location\" value=\"\"></input></div><div><input type='submit' value='Submit' /></div></form>
   &lt;/form&gt;
  </main>
 </body>
</html>

it's possible to unescape the last form by wrapping the call to forms:render-form in spinneret's :raw, but then there are two closing form tags in the html.

feature request: spinneret #5

Description

Metadata

Metadata

Assignees

Labels

Projects

Milestone

Relationships

Development

Issue actions