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

ENH change order

This commit is contained in:
Nathan Dwarshuis 2022-12-27 10:54:51 -05:00
parent 04f32d12e7
commit 504c719bdd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
bin/xmonad.hs
View File

@ -137,9 +137,12 @@ features cl = FeatureSet
evalConf db@DBusState { dbSysClient = cl } = do evalConf db@DBusState { dbSysClient = cl } = do
-- start DBus interfaces first since many features after this test these -- start DBus interfaces first since many features after this test these
-- interfaces as dependencies -- interfaces as dependencies
let fs = features cl
io $ putStrLn "hi" io $ putStrLn "hi"
io $ hFlush stdout io $ hFlush stdout
let fs = features cl
tt <- evalAlways $ fsTabbedTheme fs
io $ putStrLn "tabbed theme started"
io $ hFlush stdout
startDBusInterfaces fs startDBusInterfaces fs
io $ putStrLn "dbus started" io $ putStrLn "dbus started"
io $ hFlush stdout io $ hFlush stdout
@ -155,9 +158,6 @@ evalConf db@DBusState { dbSysClient = cl } = do
dws <- startDynWorkspaces fs dws <- startDynWorkspaces fs
io $ putStrLn "dyn workspace started" io $ putStrLn "dyn workspace started"
io $ hFlush stdout io $ hFlush stdout
tt <- evalAlways $ fsTabbedTheme fs
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"