colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Add automaticallySetworkspaceNames

Browse Source 
Thought it compiles, it may not yet function properly.
This commit is contained in:
Ivan Malison 2016-10-14 03:52:09 -07:00
parent 28dc91e83e
commit 5d8255e31d
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
dotfiles/xmonad/xmonad.hs
View File

@ -4,6 +4,7 @@ import System.Taffybar.Hooks.PagerHints (pagerHints)
import XMonad hiding ( (|||) ) import XMonad hiding ( (|||) )
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
import XMonad.Actions.WindowBringer import XMonad.Actions.WindowBringer
import XMonad.Actions.WorkspaceNames
import XMonad.Config () import XMonad.Config ()
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
@ -18,6 +19,7 @@ import XMonad.Layout.NoBorders
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.CustomKeys import XMonad.Util.CustomKeys
import XMonad.Util.NamedWindows (getName)
main = xmonad $ ewmh $ pagerHints def main = xmonad $ ewmh $ pagerHints def
{ modMask = mod4Mask { modMask = mod4Mask
@ -32,6 +34,13 @@ main = xmonad $ ewmh $ pagerHints def
myLogHook = fadeInactiveLogHook 0.9 myLogHook = fadeInactiveLogHook 0.9
automaticallySetWorkspaceNames = do
ws <- gets windowset
mapM_ setWorkspaceNameToFocusedWindow (W.workspaces ws)
where setWorkspaceNameToFocusedWindow workspace = do
namedWindows <- mapM getName $ take 2 $ W.integrate' $ W.stack workspace
setWorkspaceName (W.tag workspace) (concatMap show namedWindows)
shiftThenView i = W.greedyView i . W.shift i shiftThenView i = W.greedyView i . W.shift i
layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full ||| Tall 1 (3/100) (1/2) layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full ||| Tall 1 (3/100) (1/2)
@ -86,3 +95,7 @@ addKeys conf@XConfig {modMask = modm} =
[ (W.greedyView, 0) [ (W.greedyView, 0)
, (W.shift, shiftMask) , (W.shift, shiftMask)
, (shiftThenView, controlMask)]] , (shiftThenView, controlMask)]]
-- Local Variables:
-- flycheck-ghc-args: ("-Wno-missing-signatures")
-- End: