|
|
|
|
|
|
20
|
-- * Some kind of launcher
|
20
|
-- * Some kind of launcher
|
|
21
|
-- * Logging framework (like reading urls from Firefox and the like)
|
21
|
-- * Logging framework (like reading urls from Firefox and the like)
|
|
22
|
|
22
|
|
|
|
|
23
|
(??) :: Query a -> (a -> Bool) -> Query Bool
|
|
|
|
24
|
q ?? p = fmap p q
|
|
|
|
25
|
|
|
23
|
main = do
|
26
|
main = do
|
|
24
|
kbMap <- newIORef "us"
|
27
|
kbMap <- newIORef "us"
|
|
25
|
xmonad $ defaultConfig {
|
28
|
xmonad $ defaultConfig {
|
|
|
|
|
|
|
27
|
terminal = "sakura",
|
30
|
terminal = "sakura",
|
|
28
|
-- Ignore docks (via some WM_* attribute?)
|
31
|
-- Ignore docks (via some WM_* attribute?)
|
|
29
|
manageHook = composeAll [
|
32
|
manageHook = composeAll [
|
|
|
|
33
|
className ?? (\cn -> any (cn ==) ["Skype", "Pidgin", "Geary"]) --> doF (W.shift "3"),
|
|
30
|
manageSpawn,
|
34
|
manageSpawn,
|
|
31
|
manageDocks,
|
35
|
manageDocks,
|
|
32
|
fullscreenManageHook
|
36
|
fullscreenManageHook
|