Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-10 09:08:31 -05:00
Code Issues Activity

✨ Only print version on browser execution context.

Browse source
This commit is contained in:
Andrey Antukh 2020-12-11 11:37:01 +01:00 • committed by Alonso Torres
parent 6fc90e20e9
commit ea2079f36f
2 changed files with 28 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
common/app/common/version.cljc
View file

@ -15,13 +15,18 @@
(defn parse
[version]
(if (= version "%version%")
(cond
(= version "%version%")
{:full "develop"
:base "develop"
:build 0
:commit nil}
(string? version)
(let [[base build commit] (str/split version #"-" 3)]
{:full version
:base base
:build (d/parse-integer build)
:commit commit})))
:commit commit})
:else nil))

30
frontend/src/app/config.cljs
View file

@ -48,6 +48,17 @@
(check-macos?) :macos
:else :other)))
(defn- parse-target
[global]
(if (some? (obj/get global "document"))
:browser
:webworker))
(defn- parse-version
[global]
(-> (obj/get global "appVersion")
(v/parse)))
;; --- Globar Config Vars
(def default-theme "default")
@ -61,26 +72,27 @@
(def worker-uri (obj/get global "appWorkerURI" "/js/worker.js"))
(def public-uri (or (obj/get global "appPublicURI")
(.-origin ^js js/location)))
(def version (v/parse (obj/get global "appVersion"))))
(def media-uri (str public-uri "/media"))
(def version (delay (parse-version global)))
(def target (delay (parse-target global)))
(def browser (delay (parse-browser)))
(def platform (delay (parse-platform))))
(def media-uri (str public-uri "/media"))
(def browser (parse-browser))
(def platform (parse-platform))
(js/console.log
(str/format "Welcome to penpot! Version: '%s'" (:full version)))
(when (= :browser @target)
(js/console.log
(str/format "Welcome to penpot! Version: '%s'." (:full @version))))
;; --- Helper Functions
(defn ^boolean check-browser? [candidate]
(us/verify ::browser candidate)
(= candidate browser))
(= candidate @browser))
(defn ^boolean check-platform? [candidate]
(us/verify ::platform candidate)
(= candidate platform))
(= candidate @platform))
(defn resolve-media-path
[path]