Next commit

This commit is contained in:
Akshay Gupta 2024-08-07 00:57:13 +05:30
parent 22e497398f
commit 02a19a6b33
No known key found for this signature in database

View file

@ -31,20 +31,23 @@
#uuid "0381446e-1f1d-423f-912c-ab577d61b79b" {:type :set #uuid "0381446e-1f1d-423f-912c-ab577d61b79b" {:type :set
:name "Set Root 2"}}) :name "Set Root 2"}})
(defn render-set [set-id]
(mf/defc render-set
[{:keys [set-id]}]
(println "Rendering set with ID:" set-id) (println "Rendering set with ID:" set-id)
(let [set (get sets set-id) (let [set (get sets set-id)]
{:keys [type name children]} set (when set
icon (if (= type :group) i/document i/document)] ;; Correct icon for groups (let [{:keys [type name children]} set
[:div {:class (stl/css-case :set-item true :group (= type :group))} icon (if (= type :group) i/document i/document)] ;; Correct icon for groups
[:div {:class (stl/css :set-icon)} icon] [:div {:class (stl/css-case :set-item true :group (= type :group))}
[:span {:class (stl/css :set-name)} name] [:div {:class (stl/css :set-icon)} icon]
(when children [:span {:class (stl/css :set-name)} name]
[:div {:class (stl/css :set-children)} (when children
(for [child-id children] [:div {:class (stl/css :set-children)}
(do (for [child-id children]
(println "Rendering child ID:" child-id) (do
^{:key (str child-id)} [render-set child-id]))])])) (println "Rendering child ID:" child-id)
^{:key (str child-id)} [:& render-set {:key (str child-id):set-id child-id}]))])]))))
(mf/defc sets-list (mf/defc sets-list
{::mf/wrap-props false} {::mf/wrap-props false}