diff options
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))))) |