🐛 Fix emoji detection and load

This commit is contained in:
Elena Torro 2025-06-06 09:37:54 +02:00
parent 8b9f15f414
commit 79e1c29306
2 changed files with 4 additions and 5 deletions

View file

@ -640,9 +640,10 @@
(swap! languages into (t/get-languages text))
(t/write-shape-text leaves paragraph text))
(recur (inc index))))))
(let [updated-fonts
(-> fonts
(cond-> emoji? (f/add-emoji-font))
(cond-> @emoji? (f/add-emoji-font))
(f/add-noto-fonts @languages))]
(f/store-fonts updated-fonts))))
@ -742,8 +743,6 @@
(set-shape-svg-raw-content (get-static-markup shape)))
(when (some? corners) (set-shape-corners corners))
(when (some? shadows) (set-shape-shadows shadows))
(when (and (= type :text) (some? content))
(set-shape-text content))
(when (= type :text)
(set-shape-grow-type grow-type))
(when (or (ctl/any-layout? shape)

View file

@ -148,7 +148,7 @@
(h/call wasm/internal-module "_set_shape_text_content"))
(def ^:private emoji-pattern #"[\uD83C-\uDBFF][\uDC00-\uDFFF]")
(def ^:private emoji-pattern #"[\uD83C-\uDBFF][\uDC00-\uDFFF]|[\u2600-\u27BF]")
(def ^:private unicode-ranges
{:japanese #"[\u3040-\u30FF\u31F0-\u31FF\uFF66-\uFF9F]"
@ -198,7 +198,7 @@
(defn contains-emoji? [text]
(boolean (re-find emoji-pattern text)))
(boolean (some #(re-find emoji-pattern %) (seq text))))
(defn get-languages [text]
(reduce-kv (fn [result lang pattern]