试剂中的交互式列表

Question

我想创建一个 html 元素列表（其中包括查询结果），默认情况下这些元素是隐藏的，但用户可以切换该状态。我在下面尝试了几种不同的方法作为玩具示例，但都无法工作。

此代码正确创建了三个按钮，它们正确地更改了 exps 状态，但不会隐藏内容。

(:require  [reagent.core :as r] )
(def exps (r/atom [true true true]))
(defn like-component []
  [:div   
   (for [ [i r] (map-indexed vector  ["A" "B" "C"])] 
     [:div
       [:button {:on-click #(swap! exps update-in [i] not)}]
       (when (nth @exps i)
          [:pre (str i r)])])])

(r/render [like-component]
      (js/document.getElementById "app")) 

另一方面，下面的代码将仅创建一个元素，但它可以正常工作。

(defn expandable-view [e bool]
  (let [expanded (r/atom bool)]
          (fn []
            [:li
            [:div.expandable
              [:div.header {:on-click #(swap! expanded not)}
               "Click me to expand and collapse"]
              (if @expanded
                [:div.body  (allow-html :pre e)])]])))


(defn like-component []
  [:ul
    (vec
      (for [ e  ["A" "B" "C"]]
        (expandable-view e true ))) ])

(r/render [like-component]
          (js/document.getElementById "app"))

编辑：可能相关： https ://github.com/reagent-project/reagent/wiki/Beware-Event-Handlers-Returning-False

Answer 1

for是懒惰的，所以reagent不能告诉你exps在第一个代码片段中取消引用。

我们可以通过显式取消引用原子来解决这个问题。

(defn like-component []
  (apply str @exps) ;; because @exps is a vector, and reagent
                    ;; treat vectors as hiccup component
                    ;; we can't just put `@exps` here.
  [:div   
   (for [ [i r] (map-indexed vector  ["A" "B" "C"])] 
     [:div
       [:button {:on-click #(swap! exps update-in [i] not)}]
       (when (nth @exps i)
          [:pre (str i r)])])])

或者只是将惰性序列包装在doall.

(defn like-component []
  [:div   
   (doall (for [ [i r] (map-indexed vector  ["A" "B" "C"])] 
     [:div
       [:button {:on-click #(swap! exps update-in [i] not)}]
       (when (nth @exps i)
          [:pre (str i r)])]))])

仅供参考，相关讨论。

知道为什么我发布的第二个块只创建一个元素吗？

向量是 Reagent 的特殊公民，它们被视为 hiccup/React 组件。

对于一个工作示例

(defn like-component []
  [:ul
    (doall
      (for [ e ["A" "B" "C"]]
        [expandable-view e true]))])

另请注意，我们正在使用[expandable-view e true]正确构建的试剂组件。有关更多信息，我强烈建议阅读使用 [] 而不是 ()和创建试剂组件。