mirror of
https://github.com/penpot/penpot.git
synced 2025-05-05 22:15:53 +02:00
145 lines
3.8 KiB
Clojure
145 lines
3.8 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/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns app.main
|
|
(:require
|
|
[app.common.data.macros :as dm]
|
|
[app.common.logging :as log]
|
|
[app.common.uuid :as uuid]
|
|
[app.config :as cf]
|
|
[app.main.data.events :as ev]
|
|
[app.main.data.users :as du]
|
|
[app.main.data.websocket :as ws]
|
|
[app.main.errors]
|
|
[app.main.features :as feat]
|
|
[app.main.rasterizer :as thr]
|
|
[app.main.store :as st]
|
|
[app.main.ui :as ui]
|
|
[app.main.ui.alert]
|
|
[app.main.ui.confirm]
|
|
[app.main.ui.css-cursors :as cur]
|
|
[app.main.ui.delete-shared]
|
|
[app.main.ui.modal :refer [modal]]
|
|
[app.main.ui.routes :as rt]
|
|
[app.main.worker :as worker]
|
|
[app.plugins :as plugins]
|
|
[app.util.dom :as dom]
|
|
[app.util.i18n :as i18n]
|
|
[app.util.theme :as theme]
|
|
[beicon.v2.core :as rx]
|
|
[debug]
|
|
[features]
|
|
[potok.v2.core :as ptk]
|
|
[rumext.v2 :as mf]))
|
|
|
|
(log/setup! {:app :info})
|
|
|
|
(when (= :browser cf/target)
|
|
(log/info :message "Welcome to penpot"
|
|
:version (:full cf/version)
|
|
:asserts *assert*
|
|
:build-date cf/build-date
|
|
:public-uri (dm/str cf/public-uri)))
|
|
|
|
(declare reinit)
|
|
|
|
(defonce app-root
|
|
(let [el (dom/get-element "app")]
|
|
(mf/create-root el)))
|
|
|
|
(defonce modal-root
|
|
(let [el (dom/get-element "modal")]
|
|
(mf/create-root el)))
|
|
|
|
(defn init-ui
|
|
[]
|
|
(mf/render! app-root (mf/element ui/app))
|
|
(mf/render! modal-root (mf/element modal)))
|
|
|
|
(defn- initialize-profile
|
|
"Event used mainly on application bootstrap; it fetches the profile
|
|
and if and only if the fetched profile corresponds to an
|
|
authenticated user; proceed to fetch teams."
|
|
[stream]
|
|
(rx/merge
|
|
(rx/of (du/fetch-profile))
|
|
(->> stream
|
|
(rx/filter (ptk/type? ::profile-fetched))
|
|
(rx/take 1)
|
|
(rx/map deref)
|
|
(rx/mapcat (fn [profile]
|
|
(if (du/is-authenticated? profile)
|
|
(rx/of (du/fetch-teams))
|
|
(rx/empty))))
|
|
(rx/observe-on :async))))
|
|
|
|
(defn initialize
|
|
[]
|
|
(ptk/reify ::initialize
|
|
ptk/UpdateEvent
|
|
(update [_ state]
|
|
(assoc state :session-id (uuid/next)))
|
|
|
|
ptk/WatchEvent
|
|
(watch [_ _ stream]
|
|
(rx/merge
|
|
(rx/of (ev/initialize)
|
|
(feat/initialize))
|
|
|
|
(initialize-profile stream)
|
|
|
|
;; Once profile is fetched, initialize all penpot application
|
|
;; routes
|
|
(->> stream
|
|
(rx/filter du/profile-fetched?)
|
|
(rx/take 1)
|
|
(rx/map #(rt/init-routes)))
|
|
|
|
;; Once profile fetched and the current user is authenticated,
|
|
;; proceed to initialize the websockets connection.
|
|
(->> stream
|
|
(rx/filter du/profile-fetched?)
|
|
(rx/map deref)
|
|
(rx/filter du/is-authenticated?)
|
|
(rx/take 1)
|
|
(rx/map #(ws/initialize)))))))
|
|
|
|
(defn ^:export init
|
|
[]
|
|
(worker/init!)
|
|
(i18n/init! cf/translations)
|
|
(theme/init! cf/themes)
|
|
(cur/init-styles)
|
|
(thr/init!)
|
|
(init-ui)
|
|
(st/emit! (plugins/initialize)
|
|
(initialize)))
|
|
|
|
(defn ^:export reinit
|
|
([]
|
|
(reinit false))
|
|
([hard?]
|
|
;; The hard flag will force to unmount the whole UI and will redraw every component
|
|
(when hard?
|
|
(mf/unmount! app-root)
|
|
(mf/unmount! modal-root)
|
|
(set! app-root (mf/create-root (dom/get-element "app")))
|
|
(set! modal-root (mf/create-root (dom/get-element "modal"))))
|
|
(st/emit! (ev/initialize))
|
|
(init-ui)))
|
|
|
|
(defn ^:dev/after-load after-load
|
|
[]
|
|
(reinit))
|
|
|
|
;; Reload the UI when the language changes
|
|
(add-watch
|
|
i18n/locale "locale"
|
|
(fn [_ _ old-value current-value]
|
|
(when (not= old-value current-value)
|
|
(reinit))))
|
|
|
|
(set! (.-stackTraceLimit js/Error) 50)
|