From e157defeb937e1441285165c3e76f2bbe274b4e2 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Wed, 12 Feb 2020 23:46:40 -0500
Subject: [PATCH] ENH make virtualbox float fullscreen automatically without
 borders

---
 xmonad.hs | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index 376aa6b..2678804 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -22,7 +22,8 @@ import XMonad.Hooks.ManageDocks
 -- import XMonad.Layout.IndependentScreens
 import XMonad.Hooks.ManageHelpers
 -- import XMonad.Layout.BinarySpacePartition (emptyBSP)
--- import XMonad.Layout.NoBorders (noBorders)
+import XMonad.Layout.NoBorders
+import XMonad.Layout.PerWorkspace
 -- import XMonad.Layout.ResizableTile (ResizableTall(..))
 -- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
 import XMonad.Prompt
@@ -42,7 +43,7 @@ main = do
     $ addDescrKeys' ((myModMask, xK_F1), showKeybindings) myKeys
     $ def { terminal = myTerm
           , modMask = myModMask
-          , layoutHook = avoidStruts $ layoutHook def
+          , layoutHook = myLayouts
           , manageHook = myManageHook <+> manageDocks <+> manageHook def
           , handleEventHook = docksEventHook <+> handleEventHook def
           , startupHook = docksStartupHook <+> startupHook def
@@ -68,15 +69,10 @@ main = do
 
 myWorkspaces = map show [0..9 :: Int] ++ ["VM"]
 
--- | Customize layouts.
---
--- This layout configuration uses two primary layouts, 'ResizableTall'
--- and 'BinarySpacePartition'.  You can also use the 'M-<Esc>' key
--- binding defined above to toggle between the current layout and a
--- full screen layout.
--- myLayouts = toggleLayouts (noBorders Full) others
---   where
---     others = ResizableTall 1 (1.5/100) (3/5) [] ||| emptyBSP
+-- this isn't perfect for Virtualbox because the border seems to be
+-- required for hover-focus the controls bar at the top
+myLayouts = onWorkspace "VM" (lessBorders OnlyScreenFloat Full) $
+            (avoidStruts $ layoutHook def)
 
 --------------------------------------------------------------------------------
 -- | Customize the way 'XMonad.Prompt' looks and behaves.  It's a