Figured out the flakiness was due to withAll only applying to windows on the current workspace instead of _all_ windows. Poor naming.

1 files changed, 9 insertions, 1 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 0514a99..8abee5e 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -11,8 +11,8 @@ import XMonad.Layout.Fullscreen (fullscreenEventHook)
 import System.Environment (setEnv)
 import Data.Monoid
 
-import Internal.XMobarLog
 import Internal.Windows
+import Internal.XMobarLog
 import Internal.Keys
 import Internal.Layout
 import Internal.Logger
@@ -41,8 +41,16 @@ main = do
              -- the current tab! This makes it consistent with the rest of the
              -- world ... ctrl+w deletes the last word (ctrl+backspace).
              rebindKey (controlMask, xK_w) (controlMask, xK_BackSpace)
+
+             -- Terminal Ctrl-H sends a backspace. (Technically not, but that's
+             -- usually the semantics). Make it this way in Chrome.
            , rebindKey (controlMask, xK_h) (0, xK_BackSpace)
+
+             -- Ctrl+u usually deletes the whole line. This is roughly
+             -- ctrl+shift+backspace
            , rebindKey (controlMask, xK_u) (controlMask .|. shiftMask, xK_BackSpace)
+
+             -- Make it to ctrl+b deletes the current tab instead of ctrl+w.
            , rebindKey (controlMask, xK_b) (controlMask, xK_w)
            ]
         ]) $ def