diff options
| author | Asko Nõmm <asko@bien.ee> | 2022-04-23 01:38:38 +0300 |
|---|---|---|
| committer | Asko Nõmm <asko@bien.ee> | 2022-04-23 01:38:38 +0300 |
| commit | 30432011eefdbf529021dcb329278c28ff72bc9b (patch) | |
| tree | 9dcd9d3bcf465f5ac88373b003b546a5468013ae /src/clarktown/renderers | |
| parent | 1cf289f67927c7e06cba818c00383ce1aae8ad67 (diff) | |
Improve list block renderer
Diffstat (limited to 'src/clarktown/renderers')
| -rw-r--r-- | src/clarktown/renderers/list_block.clj | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/clarktown/renderers/list_block.clj b/src/clarktown/renderers/list_block.clj index 8632643..0c07aaa 100644 --- a/src/clarktown/renderers/list_block.clj +++ b/src/clarktown/renderers/list_block.clj @@ -20,8 +20,7 @@ (fn [line] {:id (random-uuid) :indent-n (string->indent-n line) - :value (-> line - string/trim)})))) + :value (string/trim line)})))) (defn find-parent-id @@ -57,8 +56,7 @@ (->> items (mapv (fn [i] - (let [new-item {:id (:id item) - :value (:value item)}] + (let [new-item (select-keys item [:id :value])] (if (= (:id i) (:parent item)) (if (:items i) (assoc i :items (concat (:items i) [new-item])) @@ -78,8 +76,7 @@ result (let [item (first items) parent (:parent item) - new-item {:id (:id item) - :value (:value item)}] + new-item (select-keys item [:id :value])] (recur (if parent (add-to-parent result item) (concat result [new-item])) |