diff options
Diffstat (limited to 'src/dompa/core.clj')
| -rw-r--r-- | src/dompa/core.clj | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/src/dompa/core.clj b/src/dompa/core.clj deleted file mode 100644 index 4891c46..0000000 --- a/src/dompa/core.clj +++ /dev/null @@ -1,52 +0,0 @@ -(ns dompa.core - (:require - [dompa.coordinates :refer [html->coordinates]] - [dompa.nodes :refer [coordinates->nodes]])) - -(defn html->nodes [html] - (->> (html->coordinates html) - (coordinates->nodes html))) - -(def default-void-nodes - #{:img}) - -(defn- node->html - [{:keys [name content void-node?]}] - (if void-node? - (str "<" name ">") - (str "<" name ">" content "</" name ">"))) - -(defn nodes->html - ([nodes] - (nodes->html nodes {:void-nodes default-void-nodes})) - ([nodes {:keys [void-nodes]}] - (reduce - (fn [html node] - (if (= (-> node :name) :dompa/text) - (str html (-> node :value)) - (node->html {:name (-> node :name name) - :content (nodes->html (-> node :children)) - :void-node? (contains? void-nodes (-> node :name))}))) - "" - nodes))) - -(defn traverse-nodes [nodes pred] - (reduce - (fn [updated-nodes node] - (if-let [updated-node (pred node)] - (let [children (traverse-nodes (-> updated-node :children) pred)] - (conj updated-nodes (assoc updated-node :children children))) - updated-nodes)) - [] - nodes)) - -(defn traverse-html [html pred] - (-> (html->nodes html) - (traverse-nodes pred) - nodes->html)) - -(comment - (traverse-html "<div>asdasd<span>hello</span></div>" #(when-not (= (-> % :name) :span) - %)) - (html->coordinates "<div>hello<span>asd</span><strong>asdasdadad<img></strong></div>hello some text<div>another root element</div>") - (html->nodes "<div>hello<span><img src=\"test.jpg\" ckcche/>asd</span><strong>asdasdadad</strong>"))
\ No newline at end of file |