ENH make virtualbox use full layout and not float
This commit is contained in:
parent
063a4e94a9
commit
24c676933f
12
xmonad.hs
12
xmonad.hs
|
@ -59,9 +59,7 @@ main = do
|
||||||
|
|
||||||
myWorkspaces = map show [1..10 :: Int] ++ ["VM"]
|
myWorkspaces = map show [1..10 :: Int] ++ ["VM"]
|
||||||
|
|
||||||
-- this isn't perfect for Virtualbox because the border seems to be
|
myLayouts = onWorkspace "VM" (noBorders Full) $
|
||||||
-- required for hover-focus the controls bar at the top
|
|
||||||
myLayouts = onWorkspace "VM" (lessBorders OnlyScreenFloat Full) $
|
|
||||||
(avoidStruts $ layoutHook def)
|
(avoidStruts $ layoutHook def)
|
||||||
|
|
||||||
-- | Format workspace and layout in loghook
|
-- | Format workspace and layout in loghook
|
||||||
|
@ -109,10 +107,10 @@ myWindowSetXinerama ws = wsString ++ sep ++ layout
|
||||||
-- }
|
-- }
|
||||||
|
|
||||||
myManageHook = composeOne
|
myManageHook = composeOne
|
||||||
-- virtualbox seems to do whatever the "VirtualBoxVM" class
|
-- assume virtualbox is not run with the toolbar in fullscreen mode
|
||||||
-- window does, and as such I guess we only need to match that
|
-- as this makes a new window that confusingly must go over the
|
||||||
[ -- className =? "VirtualBox Machine" -?> doShift "3"
|
-- actual VM window
|
||||||
className =? "VirtualBoxVM" -?> doShift "VM" <+> doFloat
|
[ className =? "VirtualBoxVM" -?> doShift "VM"
|
||||||
, className =? "Seafile Client" -?> doFloat
|
, className =? "Seafile Client" -?> doFloat
|
||||||
, className =? "Gimp-2.10" -?> doFloat
|
, className =? "Gimp-2.10" -?> doFloat
|
||||||
, className =? "R_x11" -?> doFloat
|
, className =? "R_x11" -?> doFloat
|
||||||
|
|
Loading…
Reference in New Issue