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

GridSelect, alacritty

Browse source
This commit is contained in:
eeva 2018-04-02 20:39:04 +03:00
parent 1350adc3e1
commit 7b6a65f290
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/KeyBindings.hs
View file

@ -9,6 +9,7 @@ import System.Exit
import Text.EditDistance import Text.EditDistance
import XMonad import XMonad
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
import XMonad.Actions.GridSelect
import XMonad.Core import XMonad.Core
import XMonad.Layout.ToggleLayouts import XMonad.Layout.ToggleLayouts
import XMonad.Operations import XMonad.Operations
@ -43,7 +44,8 @@ modify conf = conf
, ("M-S-<Right>", shiftToNext >> nextWS) , ("M-S-<Right>", shiftToNext >> nextWS)
, ("M-S-p", shellPrompt promptConfig) , ("M-S-p", shellPrompt promptConfig)
, ("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-p", fuzzyPrompt promptConfig) --, ("M-p", fuzzyPrompt promptConfig)
, ("M-p", goToSelected defaultGSConfig)
, ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png") , ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
] ]

4
xmonad.hs
View file

@ -47,7 +47,7 @@ layouts = toggleLayouts fullscreen tiled
myManageHook = composeOne myManageHook = composeOne
[ className =? "mpv" -?> doFullFloat <+> (doShift $ last wkspcs) [ className =? "mpv" -?> doFullFloat <+> (doShift $ last wkspcs)
, className =? "Pinentry" -?> doFloat , className =? "Pinentry" -?> doFloat
, className =? "Steam" -?> doFloat , className =? "Steam" -?> doShift $ wkspcs !! 3
, className =? "csgo_linux64" -?> doFullFloat , className =? "csgo_linux64" -?> doFullFloat
, className =? "Pavucontrol" -?> doShift $ wkspcs !! 7 , className =? "Pavucontrol" -?> doShift $ wkspcs !! 7
, className =? "qutebrowser" -?> doShift $ wkspcs !! 5 , className =? "qutebrowser" -?> doShift $ wkspcs !! 5
@ -65,7 +65,7 @@ withConfig =
$ desktopConfig -- on a default desktop config $ desktopConfig -- on a default desktop config
{ manageHook = myManageHook <+> manageHook desktopConfig { manageHook = myManageHook <+> manageHook desktopConfig
, layoutHook = desktopLayoutModifiers layouts , layoutHook = desktopLayoutModifiers layouts
, terminal = "/run/current-system/sw/bin/kitty" , terminal = "/run/current-system/sw/bin/alacritty"
, workspaces = wkspcs , workspaces = wkspcs
, normalBorderColor = S.base03 , normalBorderColor = S.base03
, focusedBorderColor = S.violet , focusedBorderColor = S.violet