xmonad-current-layouts-with-gridvariants-2018-06-29

gapper s = (gaps [(U, s), (R, s), (L, s), (D, s)]) . (spacing s)
grid orientation s = gapper s $ G.SplitGrid orientation 1 1 (1/2) (16/9) (5/100)

--myLayoutHook = (avoidStruts (standardLayouts) ||| fullscreen)
myLayoutHook = onWorkspace (myWorkspaces !! 8) (avoidStruts (imLayout) ||| avoidStruts (standardLayouts))
             $ onWorkspace (myWorkspaces !! 7) (avoidStruts (gimpLayout) ||| avoidStruts (standardLayouts))
             $ onWorkspace (myWorkspaces !! 3) (avoidStruts (tabbedLayout) ||| avoidStruts (standardLayouts))
             $ onWorkspace (myWorkspaces !! 1) (avoidStruts (chatLayout) ||| avoidStruts (standardLayouts))
         $ onWorkspaces ["DEV1","DEV2"] (avoidStruts (threeLayout) ||| avoidStruts (standardLayouts))
             $ avoidStruts (standardLayouts) ||| fullscreen
  where
    --standardLayouts = named "+" (spacing myBorderSpace $ G.Grid (16/10)) -- grid
    standardLayouts = named "+" (spacing myBorderSpace $ reflectHoriz $ G.Grid (16/10)) -- grid
                    ||| named "TT" (grid G.T myBorderSpace) -- grid ; Top ; spacing
                    ||| named "[]-" (grid G.L myBorderSpace) -- grid ; left ; spacing
                    ||| named "_+_" (grid G.B myBorderSpace) -- grid ; bottom ; spacing
                    ||| named "-[]" (grid G.R myBorderSpace) -- grid ; right ; spacing
    tabbedLayout = named "Tab" $ (simpleTabbed)
    fullscreen = named "[_]" (noBorders (fullscreenFull Full)) -- full
    imLayout = named "IML" $ gridIM (1/5) (Title "Buddy List") -- for pidgin
    chatLayout = named "IML" $ withIM 0.4 (Role "pop-up") $ reflectHoriz $ withIM 0.3 (Role "pop-up") (trackFloating (grid G.T 0)) -- pop-up is WhatApp and Google Hangouts; whoever opens first
    gimpLayout = named "GimpL" $ withIM 0.2 (Role "gimp-dock") $ reflectHoriz $ withIM 0.3 (Role "gimp-dock") (trackFloating (grid G.T 0)) -- Gimp Layout
    threeLayout = named "|||" $ (ThreeColMid 1 (3/100) (1/3))