ADD useful print things
This commit is contained in:
parent
af5877a402
commit
a658ffde26
|
@ -140,14 +140,22 @@ evalConf db@DBusState { dbSysClient = cl } = do
|
||||||
let fs = features cl
|
let fs = features cl
|
||||||
startDBusInterfaces fs
|
startDBusInterfaces fs
|
||||||
(xmobarHandle, ts) <- startChildDaemons fs
|
(xmobarHandle, ts) <- startChildDaemons fs
|
||||||
|
io $ putStrLn "child daemons started"
|
||||||
startRemovableMon fs
|
startRemovableMon fs
|
||||||
|
io $ putStrLn "removemon started"
|
||||||
startPowerMon fs
|
startPowerMon fs
|
||||||
|
io $ putStrLn "powermon started"
|
||||||
dws <- startDynWorkspaces fs
|
dws <- startDynWorkspaces fs
|
||||||
|
io $ putStrLn "dyn workspace started"
|
||||||
tt <- evalAlways $ fsTabbedTheme fs
|
tt <- evalAlways $ fsTabbedTheme fs
|
||||||
|
io $ putStrLn "tabbed theme started"
|
||||||
-- 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"
|
||||||
sk <- evalAlways $ fsShowKeys fs
|
sk <- evalAlways $ fsShowKeys fs
|
||||||
|
io $ putStrLn "showkeys started"
|
||||||
ha <- evalAlways $ fsACPIHandler fs
|
ha <- evalAlways $ fsACPIHandler fs
|
||||||
|
io $ putStrLn "acpi handler started"
|
||||||
return $ ewmh
|
return $ ewmh
|
||||||
$ addKeymap dws sk kbs
|
$ addKeymap dws sk kbs
|
||||||
$ docks
|
$ docks
|
||||||
|
|
Loading…
Reference in New Issue