ENH make virtualbox use full layout and not float

This commit is contained in:
Nathan Dwarshuis 2020-02-18 23:38:57 -05:00
parent 063a4e94a9
commit 24c676933f
1 changed files with 5 additions and 7 deletions

View File

@ -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