3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-25 15:27:17 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Show Penpot color in Safari tab bar

Browse source
This commit is contained in:
Andrés Moya 2022-04-11 12:03:07 +02:00
parent c766e08027
commit 6ad06d9665
7 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
frontend/src/app/util/dom.cljs
View file

@ -43,6 +43,12 @@
[^string title]
(set! (.-title globals/document) title))
(defn set-html-theme-color
[^string color scheme]
(let [meta-node (.querySelector js/document "meta[name='theme-color']")]
(.setAttribute meta-node "content" color)
(.setAttribute meta-node "media" (str/format "(prefers-color-scheme: %s)" scheme))))
(defn set-page-style!
[styles]
(let [node (first (get-elements-by-tag globals/document "head"))