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]
(let [condition (every? true? [(map? item)
(= (:type item) :element)
(= (:attrs item) {:class class})])]
(= class (:class (:attrs item)))])]
(if condition
(let [content (:content item)]
(assoc-in item [:content] (conj content insertion-element)))