Change Mod key to hyper & pimp out my DMenu.

2 files changed, 14 insertions, 2 deletions

diff --git a/src/Internal/DMenu.hs b/src/Internal/DMenu.hs
new file mode 100644
index 0000000..1ece347
--- /dev/null
+++ b/src/Internal/DMenu.hs
@@ -0,0 +1,10 @@
+module Internal.DMenu where
+
+import XMonad
+import XMonad.Util.Run
+import Control.Monad
+
+runDMenu :: X ()
+runDMenu = void $ do
+  safeSpawn "/usr/bin/dmenu_run" [
+    "-p", "Execute ", "-l", "12", "-dim", "0.4"]
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 44f4481..ead1394 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -30,6 +30,7 @@ import qualified Data.Map as Map
 import qualified XMonad.StackSet as W
 
 import Internal.Lib
+import Internal.DMenu
 
 type KeyMap l = XConfig l -> Map (KeyMask, KeySym) (X ())
 
@@ -70,13 +71,14 @@ newKeys markContext =
         , ((modm, xK_F11), (void $ spawn "spotify-control prev"))
         , ((modm, xK_semicolon), scratchpadSpawnActionTerminal "scratchpad")
         , ((modm, xK_F10), (void $ spawn "spotify-control play"))
-        , ((modm, xK_r),   (void $ spawn "dmenu_run"))
+        , ((modm, xK_r),   runDMenu)
         , ((modm .|. shiftMask, xK_r),   (void $ spawn "gmrun"))
         , ((modm .|. mod1Mask, xK_l), (void $ spawn "xsecurelock"))
         , ((modm .|. mod1Mask, xK_s), (void $ spawn "sudo systemctl suspend"))
         , ((modm .|. shiftMask, xK_c), kill)
         , ((modm .|. shiftMask, xK_t), withFocused $ windows . W.sink)
-        , ((modm, xK_t),  (void $ spawn (terminal config)))
+        , ((mod4Mask, xK_Escape),  (void $ spawn (terminal config)))
+        , ((mod3Mask, xK_t),  (void $ spawn (terminal config)))
         , ((modm, xK_m), (submap $ mapAlpha modm (markCurrentWindow markContext)))
         , ((modm, xK_w), runXPlus markContext config windowJump)
         , ((modm, xK_apostrophe), (submap $