Просмотр исходного кода

~/.xmonad: Put im/mail windows on third workspace.

Lucas Stadler лет назад: 12
Родитель
Сommit
47a9ccfd36
1 измененных файлов с 4 добавлено и 0 удалено
  1. 4 0
      .xmonad/xmonad.hs

+ 4 - 0
.xmonad/xmonad.hs

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