Browse Source

Revert `CycleWorkspaceByScreen': Key grabbing is too weird

master
Peter J. Jones 1 month ago
parent
commit
27a426250c
Signed by: Peter Jones <pjones@devalot.com> GPG Key ID: 9DAFAA8D01941E49
2 changed files with 2 additions and 5 deletions
  1. 2
    3
      src/XMonad/Local/Keys.hs
  2. 0
    2
      src/XMonad/Local/Log.hs

+ 2
- 3
src/XMonad/Local/Keys.hs View File

@@ -26,7 +26,6 @@ import qualified XMonad.StackSet as W
26 26
 -- Package: xmonad-contrib.
27 27
 import XMonad.Actions.CopyWindow (kill1)
28 28
 import XMonad.Actions.CycleSelectedLayouts (cycleThroughLayouts)
29
-import XMonad.Actions.CycleWorkspaceByScreen (cycleWorkspaceOnCurrentScreen)
30 29
 import XMonad.Actions.DynamicProjects (switchProjectPrompt, lookupProject, switchProject)
31 30
 import XMonad.Actions.GroupNavigation (Direction (..), nextMatch)
32 31
 import XMonad.Actions.Navigation2D
@@ -55,7 +54,7 @@ import XMonad.Local.Layout (selectLayoutByName)
55 54
 import XMonad.Local.Music (radioPrompt)
56 55
 import qualified XMonad.Local.Prompt as Local
57 56
 import XMonad.Local.Tagging
58
-import XMonad.Local.Workspaces (asKey, scratchPads)
57
+import XMonad.Local.Workspaces (asKey, viewPrevWS, scratchPads)
59 58
 
60 59
 --------------------------------------------------------------------------------
61 60
 -- Join all the key maps into a single list and send it through @mkKeymap@.
@@ -179,7 +178,7 @@ windowTagKeys _ =
179 178
 -- Keys for manipulating workspaces.
180 179
 workspaceKeys :: XConfig Layout -> [(String, X ())]
181 180
 workspaceKeys _ =
182
-  [ ("M-'",       cycleWorkspaceOnCurrentScreen [xK_Super_L] xK_apostrophe xK_semicolon)
181
+  [ ("M-'",       viewPrevWS)
183 182
   , ("M-<Space>", switchProjectPrompt  Local.promptConfig)
184 183
   , ("M-f",       lookupProject "agenda"   >>= maybe (return ()) switchProject)
185 184
   , ("M-g",       lookupProject "browsers" >>= maybe (return ()) switchProject)

+ 0
- 2
src/XMonad/Local/Log.hs View File

@@ -14,7 +14,6 @@ module XMonad.Local.Log (logHook) where
14 14
 import XMonad hiding (logHook)
15 15
 import XMonad.Actions.GroupNavigation (historyHook)
16 16
 import XMonad.Actions.SwapPromote (masterHistoryHook)
17
-import XMonad.Hooks.WorkspaceHistory (workspaceHistoryHook)
18 17
 
19 18
 import XMonad.Hooks.FadeWindows
20 19
   ( FadeHook
@@ -30,7 +29,6 @@ import XMonad.Hooks.FadeWindows
30 29
 logHook :: X ()
31 30
 logHook =
32 31
   historyHook <>
33
-  workspaceHistoryHook <>
34 32
   masterHistoryHook <>
35 33
   fadeWindowsLogHook fadeHook
36 34
 

Loading…
Cancel
Save