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

ADD lots of flushes

This commit is contained in:
Nathan Dwarshuis 2022-12-27 10:48:35 -05:00
parent 5adc88cd09
commit 04f32d12e7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
bin/xmonad.hs
View File

@ -139,25 +139,35 @@ evalConf db@DBusState { dbSysClient = cl } = do
-- interfaces as dependencies -- interfaces as dependencies
let fs = features cl let fs = features cl
io $ putStrLn "hi" io $ putStrLn "hi"
io $ hFlush stdout
startDBusInterfaces fs startDBusInterfaces fs
io $ putStrLn "dbus started" io $ putStrLn "dbus started"
io $ hFlush stdout
(xmobarHandle, ts) <- startChildDaemons fs (xmobarHandle, ts) <- startChildDaemons fs
io $ putStrLn "child daemons started" io $ putStrLn "child daemons started"
io $ hFlush stdout
startRemovableMon fs startRemovableMon fs
io $ putStrLn "removemon started" io $ putStrLn "removemon started"
io $ hFlush stdout
startPowerMon fs startPowerMon fs
io $ putStrLn "powermon started" io $ putStrLn "powermon started"
io $ hFlush stdout
dws <- startDynWorkspaces fs dws <- startDynWorkspaces fs
io $ putStrLn "dyn workspace started" io $ putStrLn "dyn workspace started"
io $ hFlush stdout
tt <- evalAlways $ fsTabbedTheme fs tt <- evalAlways $ fsTabbedTheme fs
io $ putStrLn "tabbed theme started" io $ putStrLn "tabbed theme started"
io $ hFlush stdout
-- fb <- evalAlways $ fsFontBuilder features -- fb <- evalAlways $ fsFontBuilder features
kbs <- filterExternal <$> evalExternal (fsKeys fs ts db) kbs <- filterExternal <$> evalExternal (fsKeys fs ts db)
io $ putStrLn "keys started" io $ putStrLn "keys started"
io $ hFlush stdout
sk <- evalAlways $ fsShowKeys fs sk <- evalAlways $ fsShowKeys fs
io $ putStrLn "showkeys started" io $ putStrLn "showkeys started"
io $ hFlush stdout
ha <- evalAlways $ fsACPIHandler fs ha <- evalAlways $ fsACPIHandler fs
io $ putStrLn "acpi handler started" io $ putStrLn "acpi handler started"
io $ hFlush stdout
return $ ewmh return $ ewmh
$ addKeymap dws sk kbs $ addKeymap dws sk kbs
$ docks $ docks