1 files changed, 8 insertions, 0 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 57ca2e0..17b5c11 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -141,6 +141,7 @@ import XMonad.Layout.Spacing
 import XMonad.Util.Run (safeSpawn)
 import XMonad.Util.WindowProperties
 import Prelude hiding ((!!))
+import Rahm.Desktop.Layout.Explode (toggleExplode)
 
 type KeyMap l = XConfig l -> Map (KeyMask, KeySym) (X ())
 
@@ -900,6 +901,13 @@ bindings = do
             noMod mediaNextDoc
             rawMask shiftMask mediaSeekFDoc
 
+          -- Explode
+          bind xK_c $ do
+            noMod -|- justMod $
+              doc "Toggle explode on the workspace" $
+                sendMessage toggleExplode
+
+
           bindOtherKeys $ \(_, _, s) ->
             logs Info "Unhandled key pressed: %s" s