3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-06 12:18:29 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Add open url action

Browse source
This commit is contained in:
Andrés Moya 2021-09-27 09:41:01 +02:00 • committed by Alonso Torres
parent 4697a1904a
commit 57245dd77e
8 changed files with 56 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

11
frontend/src/app/util/router.cljs
View file

@ -10,6 +10,7 @@
[app.common.uri :as u]
[app.config :as cfg]
[app.util.browser-history :as bhistory]
[app.util.dom :as dom]
[app.util.timers :as ts]
[beicon.core :as rx]
[goog.events :as e]
@ -110,14 +111,13 @@
uri (-> (u/uri cfg/public-uri)
(assoc :fragment path))
name (str (name id) "-" (:file-id params))]
(js/window.open (str uri) name))))
(dom/open-new-window (str uri) name))))
(defn nav-new-window
([id] (nav-new-window id nil nil))
([id params] (nav-new-window id params nil))
([id params qparams] (NavigateNewWindow. id params qparams)))
(defn nav-new-window*
[{:keys [rname path-params query-params name]}]
(ptk/reify ::nav-new-window
@ -127,17 +127,14 @@
path (resolve router rname path-params query-params)
uri (-> (u/uri cfg/public-uri)
(assoc :fragment path))]
(js/window.open (str uri) name)))))
(dom/open-new-window (str uri) name)))))
(defn nav-back
[]
(ptk/reify ::nav-back
ptk/EffectEvent
(effect [_ _ _]
(ts/asap #(.back (.-history js/window))))))
(ts/asap dom/browser-back))))
(defn nav-back-local
"Navigate back only if the previous page is in penpot app."