diff options
Diffstat (limited to 'src/Internal/Keys.hs')
| -rw-r--r-- | src/Internal/Keys.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index 01e438c..ad9d719 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -137,6 +137,8 @@ keymap = runKeys $ do case str of ['\''] -> jumpToLast [ch] | isAlphaNum ch -> jumpToMark ch + "[" -> historyPrev + "]" -> historyNext _ -> return () shiftMod $ @@ -250,7 +252,7 @@ keymap = runKeys $ do bind xK_g $ do justMod $ - doc ("Goto a workspace\n\n\t\ + doc "Goto a workspace\n\n\t\ \If the second character typed is alpha-numberic, jump to that\n\t\ \workspace. The workspace is created on-the-fly if such a workspace\n\t\ @@ -262,7 +264,7 @@ keymap = runKeys $ do \}: cycle the workspaces on the screens to the right\n\t\t\ \{: cycle the workspaces on the screens to the left\n\t\t\ \<space>: Jump to the accompaning workspace.\n\t\t\ - \F1: display this help.\n") $ + \F1: display this help.\n" $ mapNextStringWithKeysym $ \_ keysym str -> case (keysym, str) of (_, [ch]) | isAlphaNum ch -> gotoWorkspace ch @@ -656,7 +658,7 @@ mouseMap = runButtons $ do bind button15 $ do noMod $ subMouse $ do - bind button13 $ noMod $ noWindow $ gotoAccompaningWorkspace + bind button13 $ noMod $ noWindow gotoAccompaningWorkspace bind button15 $ do noMod $ noWindow jumpToLast |