makefu/stockholm
1
0
Fork 0
Code Issues Pull requests Actions 1 Packages Projects Releases Wiki Activity

tv xmonad: add toggleFocus

Browse source
This commit is contained in:
tv 2023-01-18 21:22:53 +01:00
parent a8cb132873
commit b3ebccb032
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tv/5pkgs/haskell/xmonad-tv/src/main.hs
View file

@ -5,6 +5,7 @@ module Main (main) where
import System.Exit (exitFailure) import System.Exit (exitFailure)
import XMonad.Hooks.EwmhDesktops (ewmh) import XMonad.Hooks.EwmhDesktops (ewmh)
import XMonad.Hooks.RefocusLast (refocusLastLayoutHook, toggleFocus)
import Control.Exception import Control.Exception
import Control.Monad.Extra (whenJustM) import Control.Monad.Extra (whenJustM)
@ -87,6 +88,7 @@ mainNoArgs = do
, keys = myKeys myTermFont , keys = myKeys myTermFont
, workspaces = workspaces0 , workspaces = workspaces0
, layoutHook = , layoutHook =
refocusLastLayoutHook $
smartBorders $ smartBorders $
ResizableTall ResizableTall
1 1
@ -161,6 +163,8 @@ myKeys font conf = Map.fromList $
, ((_4 , xK_space ), withFocused $ \w -> ifM (isFloatingX w) xdeny $ sendMessage NextLayout) , ((_4 , xK_space ), withFocused $ \w -> ifM (isFloatingX w) xdeny $ sendMessage NextLayout)
, ((_4M , xK_space ), withFocused $ \w -> ifM (isFloatingX w) xdeny $ resetLayout) , ((_4M , xK_space ), withFocused $ \w -> ifM (isFloatingX w) xdeny $ resetLayout)
, ((_4 , xK_l ), toggleFocus)
, ((_4 , xK_m ), windows W.focusMaster) , ((_4 , xK_m ), windows W.focusMaster)
, ((_4 , xK_j ), windows W.focusDown) , ((_4 , xK_j ), windows W.focusDown)
, ((_4 , xK_k ), windows W.focusUp) , ((_4 , xK_k ), windows W.focusUp)