Add quick-clip and bind it to <M-z>c.

Quick-clip makes it easy to keep text snippets around for quick
copy-paste.

1 files changed, 3 insertions, 11 deletions

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