Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-12 18:18:24 -05:00
Code Issues Activity

✨ Modifications after review

Browse source
This commit is contained in:
alonso.torres 2024-10-01 11:57:52 +02:00
parent f7f06f59ce
commit c16a116707
2 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
frontend/src/app/main/data/plugins.cljs
View file

@ -7,13 +7,15 @@
(ns app.main.data.plugins
(:require
[app.plugins.register :as pr]
[app.util.globals :as ug]
[beicon.v2.core :as rx]
[potok.v2.core :as ptk]))
(defn open-plugin!
[{:keys [plugin-id name description host code icon permissions]}]
(try
(.ɵloadPlugin
js/window
^js ug/global
#js {:pluginId plugin-id
:name name
:description description
@ -38,5 +40,4 @@
(watch [_ state _]
(when-let [pid (::open-plugin state)]
(open-plugin! (pr/get-plugin pid))
(fn [state]
(dissoc state ::open-plugin))))))
(rx/of #(dissoc % ::open-plugin))))))

9
frontend/src/app/main/ui/routes.cljs
View file

@ -8,6 +8,7 @@
(:require
[app.common.data.macros :as dm]
[app.common.spec :as us]
[app.common.uri :as u]
[app.common.uuid :as uuid]
[app.config :as cf]
[app.main.data.users :as du]
@ -96,12 +97,6 @@
[router path]
(let [location (.-location js/document)
[base-path qs] (str/split path "?")
qstring
(->> (str/split qs "&")
(map #(str/split % "="))
(into {}))
location-path (dm/str (.-origin location) (.-pathname location))
valid-location? (= location-path (dm/str cf/public-uri))
match (match-path router path)
@ -124,7 +119,7 @@
(st/emit! (rt/nav :auth-login))
empty-path?
(st/emit! (rt/nav :dashboard-projects {:team-id (du/get-current-team-id profile)} qstring))
(st/emit! (rt/nav :dashboard-projects {:team-id (du/get-current-team-id profile)} (u/query-string->map qs)))
:else
(st/emit! (rt/assign-exception {:type :not-found})))))))))