我需要创建一个包含选择字段的表单,其中选项取决于当前可用的邮件帐户。页面加载后,我在 API 请求中检索这些邮件帐户。
以下函数使用 select 元素创建表单。
(defn create-options [mail-accounts]
(for [m mail-accounts]
[:option {:key (keyword (str (:id m)))
:value (:id m)}
(:name m)]))
(defn render-mail-account-select [mail-accounts]
(let [form-state (r/atom {})]
(fn [mail-accounts]
(let [form [:form.mailing-form.form-horizontal
(into [:select.form-control {:field :list :id :mail-account}]
(create-options mail-accounts))]]
(pprint form)
[bind-fields form form-state]))))
这pprint
给了我以下输出:
;; Before the mail-accounts are loaded
[:select.form-control {:field :list, :id :mail-account}]
;; After the state update containing the mail accounts
[:select.form-control
{:field :list, :id :mail-account}
[:option {:key :24, :value 24} "First mail account name"]
[:option {:key :25, :value 25} "Second mail account name"]]
我的问题是我页面上的选择保持为空,就好像选择没有重新呈现一样。
附录
我想我忘了添加一些代码:我将此表单包装在一个 KIOO 组件中,我在其中取消引用我的state
原子。
(defsnippet choose-account-panel "html/static-panel.html" [:div.panel]
[]
{[:h4.panel-title] (content "3. Mail Account wählen")
[:div.panel-body] (content [render-mail-account-select (:mail-accounts @state)])})
然后该组件调用我的render-mail-account-select
函数,并应正确重新呈现表单。