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

Update 'shiftAndView'

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