github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-11 14:39:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

⚡ Add type hints on config ns

Browse Source
This commit is contained in:
Andrey Antukh 2025-07-09 17:01:17 +02:00
parent 16fba49937
commit 96d9b102b6
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
frontend/src/app/config.cljs
View File

@ -37,12 +37,12 @@
check-safari-16? (fn [] (and (check-safari?) (str/includes? user-agent "version/16"))) check-safari-16? (fn [] (and (check-safari?) (str/includes? user-agent "version/16")))
check-safari-17? (fn [] (and (check-safari?) (str/includes? user-agent "version/17")))] check-safari-17? (fn [] (and (check-safari?) (str/includes? user-agent "version/17")))]
(cond (cond
(check-edge?) :edge ^boolean (check-edge?) :edge
(check-chrome?) :chrome ^boolean (check-chrome?) :chrome
(check-firefox?) :firefox ^boolean (check-firefox?) :firefox
(check-safari-16?) :safari-16 ^boolean (check-safari-16?) :safari-16
(check-safari-17?) :safari-17 ^boolean (check-safari-17?) :safari-17
(check-safari?) :safari ^boolean (check-safari?) :safari
:else :other))) :else :other)))
(defn- parse-platform (defn- parse-platform
@ -52,9 +52,9 @@
check-linux? (fn [] (str/includes? user-agent "linux")) check-linux? (fn [] (str/includes? user-agent "linux"))
check-macos? (fn [] (str/includes? user-agent "mac os"))] check-macos? (fn [] (str/includes? user-agent "mac os"))]
(cond (cond
(check-windows?) :windows ^boolean (check-windows?) :windows
(check-linux?) :linux ^boolean (check-linux?) :linux
(check-macos?) :macos ^boolean (check-macos?) :macos
:else :other))) :else :other)))
(defn- parse-target (defn- parse-target