Support for DRun + Start some support for Tilda although it seems to be not wanting to cooperate.

2 files changed, 5 insertions, 0 deletions

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 }