Example Code
Example Code
(html:with-fillout-form (:post url :stream stream)
(loop for item in *remote-configuration-form-prototype*
for preference = (find-preference item nil)
when preference
do (html:with-paragraph (:stream stream)
(w3p:accept (preference-presentation-type preference)
:stream stream
:view w3p:+html-view+
:stream stream
:default (funcall (preference-value-getter preference))
:prompt (preference-prompt preference)
:prompt-mode :raw
:display-default nil
:query-identifier (symbol-name (preference-keyword
preference))
:insert-default t)
...)))