Some extra shortcut keys and some layout tweaking
Getty Ritter
8 years ago
| 16 | 16 | import qualified XMonad as XM |
| 17 | 17 | import qualified XMonad.Hooks.DynamicLog as Log |
| 18 | 18 | import qualified XMonad.Hooks.ManageDocks as XM |
| 19 | import qualified XMonad.Hooks.SetWMName as XM | |
| 19 | 20 | import qualified XMonad.Layout.NoBorders as XM |
| 20 | 21 | import qualified XMonad.Layout.Tabbed as Tab |
| 21 | 22 | import XMonad.ManageHook ((-->), (=?)) |
| 58 | 59 | , ((mdMask, XM.xK_u), XM.spawn "amixer -q sset Master 3%+") |
| 59 | 60 | , ((mdMask, XM.xK_d), XM.spawn "amixer -q sset Master 3%-") |
| 60 | 61 | , ((mdMask, XM.xK_m), XM.spawn "amixer -q sset Master 0%") |
| 62 | , ((mdMask, 0x1008ff13), XM.spawn "amixer -q set Master 3%+") | |
| 63 | , ((mdMask, 0x1008ff12), XM.spawn "amixer set Master toggle") | |
| 64 | , ((mdMask, 0x1008ff11), XM.spawn "amixer -q set Master 3%-") | |
| 65 | , ((mdMask, 0x1008ff14), XM.spawn "mpc toggle") | |
| 66 | , ((mdMask, 0x1008ff15), XM.spawn "mpc stop") | |
| 67 | , ((mdMask, 0x1008ff16), XM.spawn "mpc prev") | |
| 68 | , ((mdMask, 0x1008ff17), XM.spawn "mpc next") | |
| 61 | 69 | ] |
| 62 | 70 | |
| 63 | 71 | recompile :: IO () |
| 88 | 96 | { XM.modMask = XM.mod4Mask |
| 89 | 97 | , XM.terminal = "urxvt -e tmux" |
| 90 | 98 | , XM.keys = keys <+> XM.keys def |
| 99 | , XM.handleEventHook = | |
| 100 | XM.docksEventHook <+> XM.handleEventHook def | |
| 101 | , XM.startupHook = | |
| 102 | XM.setWMName "LG3D" <+> XM.docksStartupHook <+> XM.startupHook def | |
| 91 | 103 | , XM.layoutHook = |
| 92 | XM.avoidStruts (tabbed ||| tiled ||| XM.Mirror tiled) | |
| 93 | ||| XM.noBorders (XM.smartBorders XM.Full) | |
| 94 | , XM.manageHook = XM.composeAll | |
| 95 | [ XM.className =? "Vkdraw" --> XM.doFloat | |
| 96 | , XM.manageHook def | |
| 97 | ] | |
| 104 | XM.avoidStruts tiled ||| | |
| 105 | XM.avoidStruts (XM.Mirror tiled) ||| | |
| 106 | XM.noBorders (XM.smartBorders XM.Full) ||| | |
| 107 | XM.avoidStruts (XM.noBorders tabbed) | |
| 108 | , XM.manageHook = | |
| 109 | XM.manageDocks <+> XM.manageHook def | |
| 98 | 110 | , XM.normalBorderColor = normalC |
| 99 | 111 | , XM.focusedBorderColor = focusedC |
| 100 | 112 | , XM.logHook = Log.dynamicLogWithPP $ Log.xmobarPP |
| 103 | 115 | , Log.ppCurrent = Log.xmobarColor grayC "" . ("<" ++) . (++ ">") |
| 104 | 116 | } |
| 105 | 117 | } |
| 106 |
tiled = XM.Tall 1 (3/100) ( |
|
| 118 | tiled = XM.Tall 1 (3/100) (3/5) | |
| 107 | 119 | tabbed = Tab.tabbed Tab.shrinkText def |
| 108 | 120 | { Tab.activeColor = focusedC |
| 109 | 121 | , Tab.inactiveColor = normalC |