From 67feeb51a2c3e4fb579c129b15784c65d57c2607 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Wed, 29 Oct 2025 16:42:17 -0600 Subject: Add quick-clip and bind it to c. Quick-clip makes it easy to keep text snippets around for quick copy-paste. --- src/Rahm/Desktop/Keys.hs | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) (limited to 'src/Rahm') 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 -- cgit