1 ! Copyright (C) 2016 Nicolas PĂ©net.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: hashtables kernel namespaces sequences ui.theme ui.theme.base16
4 ui.theme.wombat vocabs.loader ;
8 t default-theme? set-global
10 : update-style ( style color elt -- )
11 '[ _ _ rot ?set-at ] change-global ;
13 : update-stylesheet ( -- )
14 \ update-stylesheet get [ execute( -- ) ] each ;
16 : switch-theme ( theme -- )
17 theme set-global update-stylesheet
18 f default-theme? set-global ;
20 : switch-theme-if-default ( theme -- )
22 switch-theme t default-theme? set-global
25 : light-mode ( -- ) light-theme switch-theme ;
27 : dark-mode ( -- ) dark-theme switch-theme ;
29 : wombat-mode ( -- ) wombat-theme switch-theme ;
31 : base16-mode ( -- ) base16-theme switch-theme ;
33 { "ui.theme.switching" "ui.tools" } "ui.theme.switching.tools" require-when