mpo
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Ignore NSP, get rid of gridSelect

This commit is contained in:
eeva 2018-05-28 20:53:36 +03:00
parent 48e8f32d5d
commit af2af13a1d
2 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/KeyBindings.hs
View File

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

8
lib/Projects.hs
View File

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