🐛 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 :custom
(let [font-uuid (custom-font-id->uuid font-id) (let [font-uuid (custom-font-id->uuid font-id)
matching-font (d/seek (fn [[_ font]] matching-font (d/seek (fn [[_ font]]
(and (= (:font-id font) font-uuid) (let [variant-id (or (:font-variant-id font) (dm/str (:font-style font) "-" (:font-weight font)))]
(or (nil? (:font-variant-id font)) (and (= (:font-id font) font-uuid)
(= (:font-variant-id font) font-variant-id)))) (or (nil? font-variant-id)
(= variant-id font-variant-id)))))
(seq @fonts))] (seq @fonts))]
(when matching-font (when matching-font
(:ttf-file-id (second matching-font)))) (:ttf-file-id (second matching-font))))