Modified the way floating works
Getty Ritter
7 years ago
| 13 | 13 | import XMonad.Hooks.ManageDocks (manageDocks, avoidStruts) |
| 14 | 14 | import XMonad.Layout.NoBorders (noBorders, smartBorders) |
| 15 | 15 | import XMonad.Layout.Tabbed |
| 16 | import XMonad.ManageHook((-->), (=?)) | |
| 16 | 17 | import XMonad.Util.Run(spawnPipe) |
| 17 | 18 | |
| 18 | 19 | data ColorScheme = ColorScheme |
| 33 | 34 | nmaster = 1 |
| 34 | 35 | ratio = 1/2 |
| 35 | 36 | delta = 3/100 |
| 36 |
myTabbed = tabbed shrinkText def |
|
| 37 | myTabbed = tabbed shrinkText def | |
| 37 | 38 | { activeColor = focusedColor grayScheme |
| 38 | 39 | , inactiveColor = normalColor grayScheme |
| 39 | 40 | , activeBorderColor = black |
| 68 | 69 | void (createProcess (proc "sh" ["/home/gdritter/.xm-init"])) |
| 69 | 70 | xmproc <- spawnPipe "xmobar /home/gdritter/.xmobarrc" |
| 70 | 71 | void (spawnPipe "runsvdir /home/gdritter/.run/service") |
| 71 |
xmonad $ def |
|
| 72 | xmonad $ def | |
| 72 | 73 | { modMask = mod4Mask |
| 73 | 74 | , terminal = "urxvt -e tmux" |
| 74 |
, keys = myKeys <+> keys def |
|
| 75 | , keys = myKeys <+> keys def | |
| 75 | 76 | , layoutHook = myLayout |
| 77 | , manageHook = composeAll [ className =? "Vkdraw" --> doFloat | |
| 78 | , manageHook def | |
| 79 | ] | |
| 76 | 80 | , normalBorderColor = normalColor grayScheme |
| 77 | 81 | , focusedBorderColor = focusedColor grayScheme |
| 78 | 82 | , logHook = dynamicLogWithPP $ xmobarPP |