🐛 Fix recent fonts name changes

This commit is contained in:
alonso.torres 2024-03-08 13:55:02 +01:00
parent 69f9982d26
commit 8963cb2739
2 changed files with 7 additions and 4 deletions

View file

@ -318,9 +318,12 @@
(swap! storage assoc ::recent-fonts most-recent-fonts))))) (swap! storage assoc ::recent-fonts most-recent-fonts)))))
(defn load-recent-fonts (defn load-recent-fonts
[] [fonts]
(ptk/reify ::load-recent-fonts (ptk/reify ::load-recent-fonts
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
(let [saved-recent-fonts (::recent-fonts @storage)] (let [fonts-map (d/index-by :id fonts)
saved-recent-fonts (->> (::recent-fonts @storage)
(keep #(get fonts-map (:id %)))
(into #{}))]
(assoc-in state [:workspace-data :recent-fonts] saved-recent-fonts))))) (assoc-in state [:workspace-data :recent-fonts] saved-recent-fonts)))))

View file

@ -144,8 +144,8 @@
(on-select font) (on-select font)
(on-close)))] (on-close)))]
(mf/with-effect [] (mf/with-effect [fonts]
(st/emit! (fts/load-recent-fonts))) (st/emit! (fts/load-recent-fonts fonts)))
(mf/with-effect [fonts] (mf/with-effect [fonts]
(let [key (events/listen js/document "keydown" on-key-down)] (let [key (events/listen js/document "keydown" on-key-down)]