🐛 Fix downloading wrong font variant

This commit is contained in:
Belén Albeza
2025-11-11 14:44:56 +01:00
parent ba092f03e1
commit 483a1bd703

View File

@@ -66,9 +66,10 @@
:custom
(let [font-uuid (custom-font-id->uuid font-id)
matching-font (d/seek (fn [[_ font]]
(and (= (:font-id font) font-uuid)
(or (nil? (:font-variant-id font))
(= (:font-variant-id font) font-variant-id))))
(let [variant-id (or (:font-variant-id font) (dm/str (:font-style font) "-" (:font-weight font)))]
(and (= (:font-id font) font-uuid)
(or (nil? font-variant-id)
(= variant-id font-variant-id)))))
(seq @fonts))]
(when matching-font
(:ttf-file-id (second matching-font))))