1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
import XMonad.Config
import XMonad
import XMonad.Util.CustomKeys (customKeys)
import XMonad.Hooks.EwmhDesktops (ewmh)
import XMonad.Hooks.ManageDocks
--import System.Taffybar.Support.PagerHints (pagerHints)
delKeys conf@(XConfig {modMask = modMask}) =
[ (modMask, xK_p)
]
insKeys :: XConfig l -> [((KeyMask, KeySym), X ())]
insKeys conf@(XConfig {modMask = modMask}) =
[ ((0, xK_F5), spawn "xbacklight -dec 1")
, ((0, xK_F6), spawn "xbacklight -inc 1")
, ((modMask, xK_o), spawn "dmenu_run")
, ((modMask, xK_p), spawn "${SHELL:-\"/bin/sh\"} -c passmenu &")
, ((modMask, xK_y), spawn "${SHELL:-\"/bin/sh\"} -c passmenu &")
]
main =
xmonad $
ewmh $
docks $
def
{ modMask = mod4Mask -- ^ super instead of alt
, normalBorderColor = "#002b36" -- ^ solarized dark
, focusedBorderColor = "#eee8d5" -- ^ solarized light
, manageHook = manageDocks <+> manageHook defaultConfig
, layoutHook = avoidStruts $ layoutHook defaultConfig
, terminal = "/home/ben/.nix-profile/bin/xterm"
, keys = customKeys delKeys insKeys
}
|
