diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-10 12:14:22 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | 381a3e5a00813314249bb74b5460f5ff5a4006bb (patch) | |
| tree | 1ca7ad38501b56a91ef18333b5bafb00cfb2eceb /src | |
| parent | a5ccde6ea6f011bca983e992d7537f1ff002d1ec (diff) | |
| download | rde-381a3e5a00813314249bb74b5460f5ff5a4006bb.tar.gz rde-381a3e5a00813314249bb74b5460f5ff5a4006bb.tar.bz2 rde-381a3e5a00813314249bb74b5460f5ff5a4006bb.zip | |
Minor changes
Diffstat (limited to 'src')
| -rw-r--r-- | src/Internal/Keys.hs | 8 | ||||
| -rw-r--r-- | src/Internal/Layout.hs | 2 |
2 files changed, 6 insertions, 4 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 diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs index 6c78c70..229e958 100644 --- a/src/Internal/Layout.hs +++ b/src/Internal/Layout.hs @@ -43,7 +43,7 @@ myLayout = mods (ModifyDescription ThreeColDescMod (ThreeCol 1 (3/100) (1/2))) |: mods Grid |: mods (Dishes 2 (1/6)) |: - mods (D.Dwindle D.R D.CW 1.5 1.1) |: + mods (reinterpretIncMaster $ D.Dwindle D.R D.CW 1.5 1.1) |: nil -- This is a type class that defines how to reinterpret a message. One can think |