ENH update workspace indicator for multiple screens
This commit is contained in:
parent
2154c36e34
commit
e0589c1491
18
xmonad.hs
18
xmonad.hs
|
@ -32,6 +32,7 @@ import XMonad.Prompt.ConfirmPrompt
|
||||||
import XMonad.Util.EZConfig
|
import XMonad.Util.EZConfig
|
||||||
import XMonad.Util.NamedActions
|
import XMonad.Util.NamedActions
|
||||||
import XMonad.Util.Run
|
import XMonad.Util.Run
|
||||||
|
import XMonad.Util.WorkspaceCompare
|
||||||
|
|
||||||
import qualified XMonad.StackSet as W
|
import qualified XMonad.StackSet as W
|
||||||
|
|
||||||
|
@ -48,10 +49,7 @@ main = do
|
||||||
, handleEventHook = docksEventHook <+> handleEventHook def
|
, handleEventHook = docksEventHook <+> handleEventHook def
|
||||||
, startupHook = docksStartupHook <+> startupHook def
|
, startupHook = docksStartupHook <+> startupHook def
|
||||||
, workspaces = myWorkspaces
|
, workspaces = myWorkspaces
|
||||||
, logHook = dynamicLogWithPP $
|
, logHook = myLoghook h
|
||||||
def { ppOutput = hPutStrLn h
|
|
||||||
, ppTitle = const ""
|
|
||||||
, ppLayout = const "" }
|
|
||||||
}
|
}
|
||||||
|
|
||||||
-- Start xmonad using the main desktop configuration with a few
|
-- Start xmonad using the main desktop configuration with a few
|
||||||
|
@ -71,13 +69,23 @@ main = do
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
|
|
||||||
myWorkspaces = map show [0..9 :: Int] ++ ["VM"]
|
myWorkspaces = map show [1..10 :: Int] ++ ["VM"]
|
||||||
|
|
||||||
-- this isn't perfect for Virtualbox because the border seems to be
|
-- this isn't perfect for Virtualbox because the border seems to be
|
||||||
-- required for hover-focus the controls bar at the top
|
-- required for hover-focus the controls bar at the top
|
||||||
myLayouts = onWorkspace "VM" (lessBorders OnlyScreenFloat Full) $
|
myLayouts = onWorkspace "VM" (lessBorders OnlyScreenFloat Full) $
|
||||||
(avoidStruts $ layoutHook def)
|
(avoidStruts $ layoutHook def)
|
||||||
|
|
||||||
|
-- TODO hack dynamicLogXinerama and sort the screen by its xrandr
|
||||||
|
-- position (Graphics.X11.Xrandr?)
|
||||||
|
myLoghook h = dynamicLogWithPP $
|
||||||
|
def { ppOutput = hPutStrLn h
|
||||||
|
, ppCurrent = wrap "<" ">"
|
||||||
|
, ppVisible = wrap "[" "]"
|
||||||
|
, ppTitle = const ""
|
||||||
|
, ppSep = " | "
|
||||||
|
, ppSort = getSortByXineramaRule }
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- | Customize the way 'XMonad.Prompt' looks and behaves. It's a
|
-- | Customize the way 'XMonad.Prompt' looks and behaves. It's a
|
||||||
-- great replacement for dzen.
|
-- great replacement for dzen.
|
||||||
|
|
Loading…
Reference in New Issue