From d2c7a351c0d70ed6fc14590640eb277a15b01333 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 22 Nov 2021 16:03:16 -0700 Subject: 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. --- src/Main.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Main.hs') 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 $ -- cgit