diff options
| author | Josh Rahm <rahm@google.com> | 2021-11-22 16:03:16 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | d2c7a351c0d70ed6fc14590640eb277a15b01333 (patch) | |
| tree | 194d760ed420f2fae248620a42d4ad92225064c3 /src/Main.hs | |
| parent | 736f5b2cba1a7541e6d9173bf0fdbd28eced013d (diff) | |
| download | rde-d2c7a351c0d70ed6fc14590640eb277a15b01333.tar.gz rde-d2c7a351c0d70ed6fc14590640eb277a15b01333.tar.bz2 rde-d2c7a351c0d70ed6fc14590640eb277a15b01333.zip | |
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.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 3 |
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 $ |