3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-13 11:46:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add validate & repair functions

Browse source
This commit is contained in:
Andrés Moya 2023-09-01 17:35:33 +02:00 • committed by Andrey Antukh
parent 973affb259
commit 836b4538dd
13 changed files with 851 additions and 335 deletions
Download patch file Download diff file Expand all files Collapse all files

52
frontend/src/debug.cljs
View file

@ -8,6 +8,8 @@
(:require
[app.common.data :as d]
[app.common.data.macros :as dm]
[app.common.files.repair :as cfr]
[app.common.files.validate :as cfv]
[app.common.logging :as l]
[app.common.math :as mth]
[app.common.transit :as t]
@ -21,6 +23,7 @@
[app.main.data.workspace.changes :as dwc]
[app.main.data.workspace.path.shortcuts]
[app.main.data.workspace.shortcuts]
[app.main.features :as features]
[app.main.repo :as rp]
[app.main.store :as st]
[app.util.dom :as dom]
@ -33,6 +36,8 @@
[potok.core :as ptk]
[promesa.core :as p]))
(l/set-level! :debug)
(defn ^:export set-logging
([level]
(l/set-level! :app (keyword level)))
@ -431,14 +436,49 @@
([shape-id]
(let [file (assoc (get @st/state :workspace-file)
:data (get @st/state :workspace-data))
page (dm/get-in file [:data :pages-index (get @st/state :current-page-id)])
libraries (get @st/state :workspace-libraries)
errors (ctf/validate-shape (or shape-id uuid/zero)
file
page
libraries)]
(clj->js errors))))
errors (if shape-id
(let [page (dm/get-in file [:data :pages-index (get @st/state :current-page-id)])]
(cfv/validate-shape (uuid shape-id) file page libraries))
(cfv/validate-file file libraries))]
(clj->js (d/group-by :code errors)))))
;; --- Repair file
(defn ^:export repair
[]
(let [file (assoc (get @st/state :workspace-file)
:data (get @st/state :workspace-data))
libraries (get @st/state :workspace-libraries)
errors (cfv/validate-file file libraries)]
(l/dbg :hint "repair current file" :errors (count errors))
(st/emit!
(ptk/reify ::repair-current-file
ptk/WatchEvent
(watch [_ state _]
(let [features (cond-> #{}
(features/active-feature? state :components-v2)
(conj "components/v2"))
sid (:session-id state)
file (get state :workspace-file)
file-data (get state :workspace-data)
libraries (get state :workspace-libraries)
changes (-> (cfr/repair-file file-data libraries errors)
(get :redo-changes))
params {:id (:id file)
:revn (:revn file)
:session-id sid
:changes changes
:features features}]
(->> (rp/cmd! :update-file params)
(rx/tap #(dom/reload-current-window)))))))))
(defn ^:export fix-orphan-shapes
[]