🐛 Fix problem with typographies

This commit is contained in:
alonso.torres 2022-05-20 13:00:50 +02:00
parent 235d3dbf3d
commit eb07350cac

View file

@ -260,11 +260,9 @@
ptk/WatchEvent ptk/WatchEvent
(watch [it state _] (watch [it state _]
(let [data (get state :workspace-data) (let [data (get state :workspace-data)
[path name] (cph/parse-path-name (:name typography)) [path name] (cph/parse-path-name new-name)
path (if (and (:path typography) (= "" path)) object (get-in data [:typographies id])
(:path typography) new-object (assoc object :path path :name name)]
path)
typography (assoc typography :path path :name name)]
(do-update-tipography it state new-object file-id))))) (do-update-tipography it state new-object file-id)))))
(defn delete-typography (defn delete-typography