diff options
| author | Asko Nõmm <asko@nmm.ee> | 2025-09-11 23:05:47 +0300 |
|---|---|---|
| committer | Asko Nõmm <asko@nmm.ee> | 2025-09-11 23:05:47 +0300 |
| commit | c9fb6f1c80a83f9e8ea88f7db3caedae57985fd7 (patch) | |
| tree | 61e8453a0463919d51805b045ee6045cc6e8aba4 /src/dompa/nodes.clj | |
| parent | 0c55f6d39bb83514f6b85f5da02214a78f2b1a13 (diff) | |
Getting there
Diffstat (limited to 'src/dompa/nodes.clj')
| -rw-r--r-- | src/dompa/nodes.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/dompa/nodes.clj b/src/dompa/nodes.clj index 72f89ff..82734a3 100644 --- a/src/dompa/nodes.clj +++ b/src/dompa/nodes.clj @@ -64,7 +64,7 @@ (when node-children {:children node-children})))) -(defn html-coordinates->nodes +(defn coordinates->nodes [html coordinates] (when (seq coordinates) (let [sorted-coordinates (sort-by first coordinates) @@ -72,6 +72,6 @@ children (coordinates/children sorted-coordinates [parent-from parent-to]) remaining (coordinates/without-children sorted-coordinates [parent-from parent-to]) node-html (subs html parent-from (inc parent-to)) - node-children (html-coordinates->nodes html children)] + node-children (coordinates->nodes html children)] (cons (construct-node node-html node-children) - (html-coordinates->nodes html remaining))))) + (coordinates->nodes html remaining))))) |