hektor
/
dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update 'shiftAndView'

master
Hektor Misplon 2024-01-03 19:39:15 +01:00
parent 2e29cb8292
commit 2793ac2349
Signed by: hektor
GPG Key ID: 5151AF79E723F21C
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.xmonad/xmonad.hs
View File

@ -3,6 +3,7 @@
import XMonad
import XMonad.Actions.CopyWindow (copyToAll, killAllOtherCopies)
import XMonad.Actions.FloatSnap
import Control.Monad (liftM2)
import XMonad.Hooks.DynamicProperty
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
@ -60,7 +61,7 @@ pp =
-- Workspaces & screens {{{
-- Shift to workspace and view workspace
shiftAndView id = doF (W.view id) <> doF (W.shift id)
shiftAndView = doF . liftM2 (.) W.greedyView W.shift
-- }}}