Ignore NSP, get rid of gridSelect

lib/KeyBindings.hs

@@ -12,7 +12,6 @@ import Text.EditDistance
 import XMonad
 import XMonad.Actions.CycleWS
 import XMonad.Actions.DynamicProjects
-import XMonad.Actions.GridSelect
 import XMonad.Core
 import XMonad.Layout.ToggleLayouts
 import XMonad.Operations
@@ -42,7 +41,7 @@ modify conf = conf
     , ("M-<Left>", prevWS)
     , ("M-e", nextScreen)
     , ("M-<Right>", nextWS)
-    , ("M-<Tab>", toggleWS)
+    , ("M-<Tab>", toggleWS' ["NSP"])
     , ("M-<Up>", windows W.focusUp)
     , ("M-S-<Delete>", spawn "/run/current-system/sw/bin/i3lock-fancy -g -p")
     , ("M-S-<Left>", shiftToPrev >> prevWS)
@@ -50,12 +49,11 @@ modify conf = conf
     , ("M-s s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
     , ("M-s S", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
     -- Workspace and tasks
+    , ("M-b", switchProjectPrompt promptConfig)
     , ("M-p m", shiftToProjectPrompt promptConfig)
     , ("M-p n", switchProjectPrompt promptConfig)
     , ("M-p r", renameProjectPrompt promptConfig)
     , ("M-p s", shellPrompt promptConfig)
-    , ("M-p u", gridselectWorkspace' defaultGSConfig viewProject)
-    , ("M-p v", gridselectWorkspace defaultGSConfig W.view)
     -- Scratchpads
     , ("M-p p", namedScratchpadAction R.pads "htop")
     ]
@@ -68,7 +66,7 @@ viewProject id = do
     Nothing -> return ()
 
 promptConfig = def
-  { position          = Top
+  { position          = Bottom
   , alwaysHighlight   = True
   , bgColor           = S.magenta
   , bgHLight          = S.base0

lib/Projects.hs

@@ -6,17 +6,17 @@ import XMonad
 import XMonad.Actions.DynamicProjects
 
 projects :: [Project]
-projects =  [ Project { projectName = "games"
+projects =  [ Project { projectName = "steam"
                       , projectDirectory = "~/"
                       , projectStartHook = Nothing
                       }
-            , Project { projectName = "web"
-                      , projectDirectory = "~/"
+            , Project { projectName = "tootgun"
+                      , projectDirectory = "~/candy/tootgun"
                       , projectStartHook = Nothing
                       }
            ]
 
 modify :: XConfig l -> XConfig l
 modify conf = dynamicProjects projects conf
-  { workspaces = ["games", "web"] }
+  { workspaces = [] }