✨ Adds copy properties.

frontend/src/app/util/color.cljs

@@ -53,6 +53,11 @@
     (into [] (gcolor/hexToHsl hex))
     (catch :default e [0 0 0])))
 
+(defn hex->hsla
+  [^string data ^number opacity]
+  (-> (hex->hsl data)
+      (conj opacity)))
+
 (defn hsl->rgb
   [[h s l]]
   (gcolor/hslToRgb h s l))

frontend/src/app/util/data.cljs

@@ -111,6 +111,14 @@
                not-found))
            not-found coll)))
 
+(defn remove-equal-values [m1 m2]
+  (if (and (map? m1) (map? m2) (not (nil? m1)) (not (nil? m2)))
+    (->> m1
+         (remove (fn [[k v]] (= (k m2) v)))
+         (into {}))
+    m1))
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Numbers Parsing
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

frontend/src/app/util/text.cljs

@@ -50,6 +50,36 @@
      (str/join (if (= "paragraph-set" (:type node)) "\n" "") (map content->text (:children node)))
      (:text node ""))))
 
+(defn parse-style-text-blocks
+  [node attrs]
+  (letfn
+      [(rec-style-text-map [acc node style]
+         (let [node-style (merge style (select-keys node attrs))
+               head (or (-> acc first) [{} ""])
+               [head-style head-text] head
+
+               new-acc
+               (cond
+                 (:children node)
+                 (reduce #(rec-style-text-map %1 %2 node-style) acc (:children node))
+
+                 (not= head-style node-style)
+                 (cons [node-style (:text node "")] acc)
+
+                 :else
+                 (cons [node-style (str head-text "" (:text node))] (rest acc)))
+
+               ;; We add an end-of-line when finish a paragraph
+               new-acc
+               (if (= (:type node) "paragraph")
+                 (let [[hs ht] (first new-acc)]
+                   (cons [hs (str ht "\n")] (rest new-acc)))
+                 new-acc)]
+           new-acc))]
+
+    (-> (rec-style-text-map [] node {})
+        reverse)))
+
 (defn search-text-attrs
   [node attrs]