mirror of
https://github.com/penpot/penpot.git
synced 2025-07-25 15:37:24 +02:00
✨ Handle properly the user redirect after login.
This commit is contained in:
parent
2596ad27c3
commit
19944202fb
5 changed files with 67 additions and 61 deletions
|
@ -19,17 +19,16 @@
|
|||
|
||||
;; --- Router API
|
||||
|
||||
(defn map->Match
|
||||
[data]
|
||||
(r/map->Match data))
|
||||
|
||||
(defn resolve
|
||||
([router id] (resolve router id {} {}))
|
||||
([router id path-params] (resolve router id path-params {}))
|
||||
([router id path-params query-params]
|
||||
(when-let [match (r/match-by-name router id path-params)]
|
||||
(if (empty? query-params)
|
||||
(r/match->path match)
|
||||
(let [query (u/map->query-string query-params)]
|
||||
(-> (u/uri (r/match->path match))
|
||||
(assoc :query query)
|
||||
(str)))))))
|
||||
(r/match->path match query-params))))
|
||||
|
||||
(defn create
|
||||
[routes]
|
||||
|
@ -162,7 +161,3 @@
|
|||
(e/unlistenByKey key)))))
|
||||
(rx/take-until stoper)
|
||||
(rx/subs #(on-change router %)))))))
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue