|
|
|
@ -45,16 +45,16 @@ baseXPConfig = defaultXPConfig { |
|
|
|
|
|
|
|
|
|
workspaceManageHook :: ManageHook |
|
|
|
|
workspaceManageHook = composeAll [ |
|
|
|
|
className =? "Icedove" --> doShift "2:com" |
|
|
|
|
className =? "Thunderbird" --> doShift "2:com" |
|
|
|
|
,className =? "Gajim" --> doShift "2:com" |
|
|
|
|
,className =? "jetbrains-phpstorm" --> doShift "3:dev" |
|
|
|
|
,className =? "jetbrains-pycharm" --> doShift "3:dev" |
|
|
|
|
,className =? "jetbrains-clion" --> doShift "3:dev" |
|
|
|
|
,className =? "MATLAB R2016b - academic use" --> doShift "3:dev" |
|
|
|
|
,className =? "qtcreator" --> doShift "3:dev" |
|
|
|
|
,className =? "KeePass2" --> doShift "9:div" |
|
|
|
|
,className =? "Xmessage" --> doFloat |
|
|
|
|
,className =? "Clementine" --> doShift "8:media" |
|
|
|
|
,className =? "vlc" --> doShift "8:media" |
|
|
|
|
] |
|
|
|
|
|
|
|
|
|
xmobarAction :: String -- action |
|
|
|
@ -75,7 +75,7 @@ main = do |
|
|
|
|
, logHook = dynamicLogWithPP xmobarPP |
|
|
|
|
{ ppOutput = hPutStrLn xmobar_proc |
|
|
|
|
, ppHidden = xmobarSwitchWs |
|
|
|
|
, ppTitle = xmobarColor "green" "" . shorten 80 |
|
|
|
|
, ppTitle = xmobarColor "green" "" . shorten 90 |
|
|
|
|
, ppSort = fmap(.scratchpadFilterOutWorkspace) (ppSort xmobarPP) |
|
|
|
|
, ppOrder = \(ws:_:t:_) -> [ ws, t] |
|
|
|
|
} |
|
|
|
@ -124,10 +124,8 @@ main = do |
|
|
|
|
] |
|
|
|
|
`additionalKeys` |
|
|
|
|
-- |
|
|
|
|
-- mod-ctrl-[1..9], Switch to workspace N |
|
|
|
|
-- |
|
|
|
|
-- mod-ctrl-[1..9], Switch to workspace N |
|
|
|
|
-- mod-ctrl-shift-[1..9], Move client to workspace N |
|
|
|
|
-- mod-ctrl-[F1..F9], Switch to workspace N |
|
|
|
|
-- mod-ctrl-shift-[F1..F9], Move client to workspace N |
|
|
|
|
-- |
|
|
|
|
[((m .|. modMask baseConfig , k), windows $ f i) |
|
|
|
|
| (i, k) <- zip (workspaces baseConfig) [xK_F1 .. xK_F9] |
|
|
|
|