import XMonad.Config
import XMonad
import XMonad.Util.CustomKeys (customKeys)
import XMonad.Hooks.EwmhDesktops (ewmh)
import XMonad.Hooks.ManageDocks
import XMonad.Layout.Spiral

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 &")
    ]

myLayout = spiral (6/7)

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 $ myLayout ||| layoutHook defaultConfig
        , terminal = "/home/ben/.nix-profile/bin/xterm"
        , keys = customKeys delKeys insKeys
        }