summaryrefslogtreecommitdiff
path: root/accounts/gkleen@sif/taffybar/src
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2022-06-19 10:59:10 +0200
committerGregor Kleen <gkleen@yggdrasil.li>2022-06-19 10:59:10 +0200
commitdf69b2a47709c7c6d608e7e91f0130e431db00a5 (patch)
treec4ebc0337fb9d32352c32078c5490002953b655b /accounts/gkleen@sif/taffybar/src
parent62f748a78fa5cbc52bb3e1432082a1b2b8250f2a (diff)
downloadnixos-df69b2a47709c7c6d608e7e91f0130e431db00a5.tar
nixos-df69b2a47709c7c6d608e7e91f0130e431db00a5.tar.gz
nixos-df69b2a47709c7c6d608e7e91f0130e431db00a5.tar.bz2
nixos-df69b2a47709c7c6d608e7e91f0130e431db00a5.tar.xz
nixos-df69b2a47709c7c6d608e7e91f0130e431db00a5.zip
...
Diffstat (limited to 'accounts/gkleen@sif/taffybar/src')
-rw-r--r--accounts/gkleen@sif/taffybar/src/taffybar.hs11
1 files changed, 8 insertions, 3 deletions
diff --git a/accounts/gkleen@sif/taffybar/src/taffybar.hs b/accounts/gkleen@sif/taffybar/src/taffybar.hs
index 7dbb5c8e..13585c55 100644
--- a/accounts/gkleen@sif/taffybar/src/taffybar.hs
+++ b/accounts/gkleen@sif/taffybar/src/taffybar.hs
@@ -21,15 +21,20 @@ import Control.Monad.Trans.Reader (mapReaderT)
21 21
22import Paths_gkleen_sif_taffybar 22import Paths_gkleen_sif_taffybar
23 23
24import System.Log.Logger
25
24 26
25main :: IO () 27main :: IO ()
26main = do 28main = do
29 logger <- getLogger "System.Taffybar"
30 saveGlobalLogger $ setLevel INFO logger
31
27 myCssPath <- getDataFileName "taffybar.css" 32 myCssPath <- getDataFileName "taffybar.css"
28 startTaffybar exampleTaffybarConfig{ cssPath = Just myCssPath } 33 startTaffybar taffybarConfig{ cssPath = Just myCssPath }
29 34
30 35
31exampleTaffybarConfig :: TaffybarConfig 36taffybarConfig :: TaffybarConfig
32exampleTaffybarConfig = 37taffybarConfig =
33 let myWorkspacesConfig = 38 let myWorkspacesConfig =
34 defaultWorkspacesConfig 39 defaultWorkspacesConfig
35 { maxIcons = Just 0 40 { maxIcons = Just 0