Compeletely change how KeyBindings are done.

Created new KeysM and ButtonsM monads to make configuring
keybindings and button bindings more readable through a DSL.

Before bindings would just be a giant list, but that
made it difficult to read and repetitive.

Now the syntax follows the pattern

bind key-to-bind
  mask1 : action
  mask2 : action

i.e.

bind xK_a $ do
  justMod  $ doSomeAction a b c
  shiftMod $ doSomeOtherAction a b c

This makes it a lot cleaner to see all the bindings allocated
to a specific key. That way, when adding a new binding,
I can easily see what bindings already exist for that key.

1 files changed, 3 insertions, 0 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 5b4d5e1..94fb5a7 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -6,6 +6,7 @@ import System.FilePath ((</>))
 import XMonad.Hooks.EwmhDesktops (ewmhDesktopsStartup)
 import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
 import XMonad.Layout.Fullscreen (fullscreenEventHook)
+import System.Environment (setEnv)
 
 import Internal.XMobarLog
 import Internal.Keys
@@ -19,6 +20,8 @@ main = do
   homeDir <- getHomeDirectory
   let fp = homeDir </> ".xmonad" </> "startup"
 
+  setEnv "SUDO_ASKPASS" "/usr/bin/ssh-askpass"
+
   xmobar <- spawnXMobar
 
   (=<<) X.xmonad $