aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs2
-rw-r--r--src/Rahm/Desktop/Keys.hs14
2 files changed, 5 insertions, 11 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 4158c6a..09810e2 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -122,6 +122,8 @@ main = do
className =? "Tilda" --> doFloat,
className =? "yakuake" --> doFloat,
className =? "MPlayer" --> doFloat,
+ className =? "zenity" --> doCenterFloat,
+ className =? "Yad" --> doCenterFloat,
className =? "Xfce4-notifyd" --> doIgnore,
className =? "popup-terminal" --> doShift "*" <> updatePopupTerminalHook,
className =? "spotify" --> doShift "s",
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 9ca862a..8ec3aeb 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -395,7 +395,7 @@ bindings = do
bind xK_b $ do
justMod $ spawnX "bluetooth-select.sh"
- bind xK_u $ do
+ bind xK_i $ do
justMod $ spawnX "notes-select.sh"
bind xK_c $ do
@@ -631,10 +631,6 @@ bindings = do
flip whenJust toggleWindowInSelection =<< withWindowSet (return . W.peek)
bind xK_m $ do
- rawMask
- mod2Mask
- (logs Info "Testing Mod2Mask" :: X ())
-
justMod
$ doc
"Mark the windows described by the window set with a given character.\n\n\t\
@@ -925,12 +921,8 @@ bindings = do
-- Explode
bind xK_c $ do
noMod -|- justMod $
- doc "Toggle explode on the workspace" $ do
- sendMessage
- ( toggleExplodeM
- movePopupToCurrentWorkspace
- movePopupToHiddenWorkspace
- )
+ doc "Run Quick-clip" $
+ spawnX "quick-clip.sh"
bindOtherKeys $ \(_, _, s) ->
logs Info "Unhandled key pressed: %s" s