From ea5781b38dfade1c99b141bea814849a8fcb8fd4 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 2 Feb 2020 00:14:27 -0700
Subject: Support for DRun + Start some support for Tilda although it seems to
 be not wanting to cooperate.

---
 src/Internal/Keys.hs | 2 ++
 src/Main.hs          | 3 +++
 2 files changed, 5 insertions(+)

(limited to 'src')

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index b00458e..6ce3ffa 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -36,6 +36,8 @@ newKeys =
         [ ((modm, xK_F12), (void $ spawn "spotify-control next"))
         , ((modm, xK_F11), (void $ spawn "spotify-control prev"))
         , ((modm, xK_F10), (void $ spawn "spotify-control play"))
+        , ((modm, xK_r),   (void $ spawn "dmenu_run"))
+        , ((modm .|. shiftMask, xK_r),   (void $ spawn "gmrun"))
         , ((modm .|. mod1Mask, xK_l), (void $ spawn "xscreensaver-command -lock"))
         , ((modm, xK_t),  (void $ spawn (terminal config)))
         , ((modm, xK_m), (submap $ mapAlpha modm (markCurrentWindow markContext)))
diff --git a/src/Main.hs b/src/Main.hs
index c067b62..a160aa8 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -27,6 +27,9 @@ main = do
                       myLayout
        , startupHook = do
            spawn fp
+       , manageHook = composeAll [
+           className =? "Tilda" --> doFloat
+         ]
        }
 
   xmonad =<< xmobar config { modMask = mod4Mask }
-- 
cgit