Test if class in attrs

This commit is contained in:
erik 2024-05-17 18:11:55 +02:00
parent 07c7caade1
commit 4fe4060a1f

View file

@ -87,7 +87,7 @@
(defn insert-into-class [item class insertion-element] (defn insert-into-class [item class insertion-element]
(let [condition (every? true? [(map? item) (let [condition (every? true? [(map? item)
(= (:type item) :element) (= (:type item) :element)
(= (:attrs item) {:class class})])] (= class (:class (:attrs item)))])]
(if condition (if condition
(let [content (:content item)] (let [content (:content item)]
(assoc-in item [:content] (conj content insertion-element))) (assoc-in item [:content] (conj content insertion-element)))