5

我尝试实现一个基于 Hunchentoot 的简单帖子示例。

这是代码：

(define-easy-handler (test :uri "/test") () 
  (with-html-output-to-string (*standard-output* nil :prologue t :indent t)
    (:html 
     (:body
      (:h1 "Test")
      (:form :action "/test2" :method "post" :id "addform"
     (:input :type "text" :name "name" :class "txt")
     (:input :type "submit" :class "btn" :value "Submit"))))))

(define-easy-handler (test2 :uri "/test2") (name)
  (with-html-output-to-string (*standard-output* nil :prologue t :indent t)
    (:html 
     (:body
      (:h1 name)))))

我可以正确连接到http://127.0.0.1:8080/test并查看文本输入表单。但是当我提交文本时，我会得到一个空白页面，我希望在该页面上显示文本输入中给出的标题。

不知道是什么问题，有人可以建议吗？

4

1 回答 1

6

将您的处理程序更改为此

(define-easy-handler (test2 :uri "/test2") (name)
  (with-html-output-to-string (*standard-output* nil :prologue t :indent t)
    (:html 
     (:body
     (:h1 (str name))))))

然后它应该工作。阅读 cl-who 文档。特别是关于本地宏的信息。我在这里包括相关文档。

既不是字符串也不是关键字也不是以关键字开头的列表的表单将保持原样，但以下本地宏除外：

  • 看起来像 (str form) 的形式将被替换为

    (let ((result form)) (when result (princ result s)))

(loop for i below 10 do (str i)) =>
(loop for i below 10 do
  (let ((#:result i))
    (when #:result (princ #:result *standard-output*))))

  • 看起来像 (fmt form*) 的表格将被替换为

    (format s form*)

(loop for i below 10 do (fmt "~R" i)) => (loop for i below 10 do (format s "~R" i))

  • 看起来像（esc form）的表格将被替换为

    (let ((result form)) (when result (write-string (escape-string result s))))

  • 如果一个表单看起来像 (htm form*)，那么每个表单都将遵循我们刚刚描述的转换规则，即，这是用另一个 WITH-HTML-OUTPUT 调用包装的正文。

    (loop for i below 100 do (htm (:b "foo") :br))
=> (loop for i below 100 do (progn (write-string "<b>foo</b><br />" s)))
于 2015-02-11T12:14:23.923 回答