ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH run all of xmobar in rio

This commit is contained in:
Nathan Dwarshuis 2022-12-31 22:24:20 -05:00
parent f6c0596716
commit a997cac7a3
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
bin/xmobar.hs
View File

@ -50,13 +50,14 @@ parse ["--test"] = void $ withCache . evalConfig =<< connectDBus
parse _ = usage parse _ = usage
run :: IO () run :: IO ()
run = do run = withCache $ do
db <- connectDBus db <- connectDBus
c <- withCache $ evalConfig db c <- evalConfig db
disconnectDBus db disconnectDBus db
-- this is needed to see any printed messages liftIO $ do
hFlush stdout -- this is needed to see any printed messages
xmobar c hFlush stdout
xmobar c
evalConfig :: DBusState -> FIO Config evalConfig :: DBusState -> FIO Config
evalConfig db = do evalConfig db = do