diff options
| author | Asko Nõmm <asko@bien.ee> | 2022-04-22 14:34:31 +0300 |
|---|---|---|
| committer | Asko Nõmm <asko@bien.ee> | 2022-04-22 14:34:31 +0300 |
| commit | ee7996bcdd2010c314c8efd17372bdbb8d24a8bd (patch) | |
| tree | 0b3ac2985d45394f1503a74d3fe68bbe4802f1fe /src/clarktown | |
| parent | 77b065ba5cd57d4a02b0cae68d74412d1234554c (diff) | |
Remove parent info from child items
Diffstat (limited to 'src/clarktown')
| -rw-r--r-- | src/clarktown/renderers/list_block.clj | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/clarktown/renderers/list_block.clj b/src/clarktown/renderers/list_block.clj index 27ca72a..8632643 100644 --- a/src/clarktown/renderers/list_block.clj +++ b/src/clarktown/renderers/list_block.clj @@ -57,13 +57,15 @@ (->> items (mapv (fn [i] - (if (= (:id i) (:parent item)) - (if (:items i) - (assoc i :items (concat (:items i) [item])) - (assoc i :items [item])) - (if (:items i) - (assoc i :items (add-to-parent (:items i) item)) - i)))))) + (let [new-item {:id (:id item) + :value (:value item)}] + (if (= (:id i) (:parent item)) + (if (:items i) + (assoc i :items (concat (:items i) [new-item])) + (assoc i :items [new-item])) + (if (:items i) + (assoc i :items (add-to-parent (:items i) item)) + i))))))) (defn compose-item-tree |