mirror of
https://github.com/penpot/penpot.git
synced 2025-06-25 07:26:58 +02:00
151 lines
4.4 KiB
Clojure
151 lines
4.4 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; This Source Code Form is "Incompatible With Secondary Licenses", as
|
|
;; defined by the Mozilla Public License, v. 2.0.
|
|
;;
|
|
;; Copyright (c) 2015-2017 Juan de la Cruz <delacruzgarciajuan@gmail.com>
|
|
;; Copyright (c) 2015-2020 Andrey Antukh <niwi@niwi.nz>
|
|
|
|
(ns uxbox.main.ui
|
|
(:require
|
|
[beicon.core :as rx]
|
|
[cuerdas.core :as str]
|
|
[lentes.core :as l]
|
|
[potok.core :as ptk]
|
|
[rumext.alpha :as mf]
|
|
[uxbox.common.exceptions :as ex]
|
|
[uxbox.builtins.icons :as i]
|
|
[uxbox.common.exceptions :as ex]
|
|
[uxbox.main.data.auth :refer [logout]]
|
|
[uxbox.main.data.projects :as dp]
|
|
[uxbox.main.refs :as refs]
|
|
[uxbox.main.store :as st]
|
|
[uxbox.main.ui.dashboard :refer [dashboard]]
|
|
[uxbox.main.ui.login :refer [login-page]]
|
|
[uxbox.main.ui.profile.recovery :refer [profile-recovery-page]]
|
|
[uxbox.main.ui.profile.recovery-request :refer [profile-recovery-request-page]]
|
|
[uxbox.main.ui.profile.register :refer [profile-register-page]]
|
|
[uxbox.main.ui.settings :as settings]
|
|
[uxbox.main.ui.shapes]
|
|
[uxbox.main.ui.workspace :as workspace]
|
|
[uxbox.util.i18n :refer [tr]]
|
|
[uxbox.util.messages :as uum]
|
|
[uxbox.util.router :as rt]
|
|
[uxbox.util.timers :as ts]))
|
|
|
|
(def route-iref
|
|
(-> (l/key :route)
|
|
(l/derive st/state)))
|
|
|
|
;; --- Routes
|
|
|
|
;; (comment
|
|
;; "/dashboard/self"
|
|
;; "/dashboard/self/drafts"
|
|
;; "/dashboard/self/<project-id>"
|
|
;; "/dashboard/<team-id>"
|
|
;; "/dashboard/<team-id>/<project-id>"
|
|
|
|
(def routes
|
|
[["/login" :login]
|
|
["/register" :profile-register]
|
|
["/recovery/request" :profile-recovery-request]
|
|
["/recovery" :profile-recovery]
|
|
|
|
["/settings"
|
|
["/profile" :settings-profile]
|
|
["/password" :settings-password]]
|
|
|
|
["/dashboard"
|
|
["/:team-id" :dashboard-team]
|
|
["/:team-id/:project-id" :dashboard-project]]
|
|
|
|
["/workspace/:file-id" :workspace]])
|
|
|
|
(defn- parse-team-id
|
|
[route profile]
|
|
(let [team-id (get-in route [:params :path :team-id])]
|
|
(cond
|
|
(uuid-str? team-id) (uuid team-id)
|
|
(= "self" team-id) (:default-team-id profile)
|
|
:else (ex/raise :type :validation
|
|
:code :invalid-team-id))))
|
|
|
|
(defn- parse-project-id
|
|
[route profile]
|
|
(let [project-id (get-in route [:params :path :project-id])]
|
|
(cond
|
|
(uuid-str? project-id) (uuid project-id)
|
|
(= "drafts" project-id) (:default-project-id profile)
|
|
:else (ex/raise :type :validation
|
|
:code :invalid-project-id))))
|
|
|
|
|
|
(mf/defc app
|
|
[props]
|
|
(let [route (mf/deref route-iref)]
|
|
(case (get-in route [:data :name])
|
|
:login
|
|
(mf/element login-page)
|
|
|
|
:profile-register
|
|
(mf/element profile-register-page)
|
|
|
|
:profile-recovery-request
|
|
(mf/element profile-recovery-request-page)
|
|
|
|
:profile-recovery
|
|
(mf/element profile-recovery-page)
|
|
|
|
(:settings-profile
|
|
:settings-password)
|
|
(mf/element settings/settings #js {:route route})
|
|
|
|
(:dashboard-team
|
|
:dashboard-project)
|
|
(mf/element dashboard #js {:route route})
|
|
|
|
:workspace
|
|
(let [file-id (uuid (get-in route [:params :path :file-id]))
|
|
page-id (uuid (get-in route [:params :query :page-id]))]
|
|
[:& workspace/workspace {:file-id file-id
|
|
:page-id page-id
|
|
:key file-id}])
|
|
nil)))
|
|
|
|
;; --- Error Handling
|
|
|
|
(defn- on-error
|
|
"A default error handler."
|
|
[{:keys [type code] :as error}]
|
|
(reset! st/loader false)
|
|
(cond
|
|
(and (map? error)
|
|
(= :validation type)
|
|
(= :spec-validation code))
|
|
(do
|
|
(println "============ SERVER RESPONSE ERROR ================")
|
|
(println (:explain error))
|
|
(println "============ END SERVER RESPONSE ERROR ================"))
|
|
|
|
;; Unauthorized or Auth timeout
|
|
(and (map? error)
|
|
(= :authentication type)
|
|
(= :unauthorized code))
|
|
(ts/schedule 0 #(st/emit! logout))
|
|
|
|
;; Network error
|
|
(and (map? error)
|
|
(= :unexpected type)
|
|
(= :abort code))
|
|
(ts/schedule 100 #(st/emit! (uum/error (tr "errors.network"))))
|
|
|
|
;; Something else
|
|
:else
|
|
(do
|
|
(js/console.error error)
|
|
(ts/schedule 100 #(st/emit! (uum/error (tr "errors.generic")))))))
|
|
|
|
(set! st/*on-error* on-error)
|