ENH make virtualbox float fullscreen automatically without borders
This commit is contained in:
parent
5ca70435e9
commit
e157defeb9
18
xmonad.hs
18
xmonad.hs
|
@ -22,7 +22,8 @@ import XMonad.Hooks.ManageDocks
|
||||||
-- import XMonad.Layout.IndependentScreens
|
-- import XMonad.Layout.IndependentScreens
|
||||||
import XMonad.Hooks.ManageHelpers
|
import XMonad.Hooks.ManageHelpers
|
||||||
-- import XMonad.Layout.BinarySpacePartition (emptyBSP)
|
-- 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.ResizableTile (ResizableTall(..))
|
||||||
-- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
|
-- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
|
||||||
import XMonad.Prompt
|
import XMonad.Prompt
|
||||||
|
@ -42,7 +43,7 @@ main = do
|
||||||
$ addDescrKeys' ((myModMask, xK_F1), showKeybindings) myKeys
|
$ addDescrKeys' ((myModMask, xK_F1), showKeybindings) myKeys
|
||||||
$ def { terminal = myTerm
|
$ def { terminal = myTerm
|
||||||
, modMask = myModMask
|
, modMask = myModMask
|
||||||
, layoutHook = avoidStruts $ layoutHook def
|
, layoutHook = myLayouts
|
||||||
, manageHook = myManageHook <+> manageDocks <+> manageHook def
|
, manageHook = myManageHook <+> manageDocks <+> manageHook def
|
||||||
, handleEventHook = docksEventHook <+> handleEventHook def
|
, handleEventHook = docksEventHook <+> handleEventHook def
|
||||||
, startupHook = docksStartupHook <+> startupHook def
|
, startupHook = docksStartupHook <+> startupHook def
|
||||||
|
@ -68,15 +69,10 @@ main = do
|
||||||
|
|
||||||
myWorkspaces = map show [0..9 :: Int] ++ ["VM"]
|
myWorkspaces = map show [0..9 :: Int] ++ ["VM"]
|
||||||
|
|
||||||
-- | Customize layouts.
|
-- this isn't perfect for Virtualbox because the border seems to be
|
||||||
--
|
-- required for hover-focus the controls bar at the top
|
||||||
-- This layout configuration uses two primary layouts, 'ResizableTall'
|
myLayouts = onWorkspace "VM" (lessBorders OnlyScreenFloat Full) $
|
||||||
-- and 'BinarySpacePartition'. You can also use the 'M-<Esc>' key
|
(avoidStruts $ layoutHook def)
|
||||||
-- 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
|
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- | Customize the way 'XMonad.Prompt' looks and behaves. It's a
|
-- | Customize the way 'XMonad.Prompt' looks and behaves. It's a
|
||||||
|
|
Loading…
Reference in New Issue