From 86676d9a8459492acd1b3dbb7dceb85f834e7349 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?KJ=20=C3=98rbekk?= <orbekk@google.com>
Date: Fri, 19 Oct 2018 07:44:30 -0400
Subject: Insert new window below current

---
 xmonad/xmonad.hs | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index 38eff03..3cd577d 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -5,6 +5,7 @@ import XMonad.Actions.CycleWS
 import XMonad.Config.Desktop
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.InsertPosition
 import XMonad.Util.Run (spawnPipe)
 import XMonad.Layout
 import XMonad.Layout.OnHost
@@ -28,6 +29,8 @@ main = do
   config <- xmobar (myConfig host)
   xmonad config
 
+layoutScreensHost = "unused" -- orange
+
 myConfig host =
   ewmh desktopConfig
     { layoutHook = smartBorders $ myLayout
@@ -35,14 +38,15 @@ myConfig host =
     , modMask = mod4Mask
     , terminal = "$TERMINAL"
     , borderWidth = 2
-    , normalBorderColor = "#000000"
+    , focusedBorderColor = "#ff0000"
+    , normalBorderColor = "#777778"
     , workspaces = pure <$> "\"<>PYFAOEU"
     , startupHook = do
         setWMName "LG3D"
-        when (host == "orange") (layoutScreens 2 (TwoPane 0.5 0.5))
-    , manageHook = isDialog --> doF W.shiftMaster <+> doF W.swapDown
+        -- when (host == layoutScreensHost) (layoutScreens 2 (TwoPane 0.5 0.5))
+    , manageHook = insertPosition Below Newer <+> (isDialog --> doF W.shiftMaster <+> doF W.swapDown)
     }
-  where myLayout = onHost "orange" (verticalTiled ||| horizontalTiled ||| Full) $
+  where myLayout = onHost layoutScreensHost (verticalTiled ||| horizontalTiled ||| Full) $
                    layoutHook defaultConfig
         verticalTiled = Mirror (Tall 1 (5/100) (2/3))
         horizontalTiled = Tall 0 (5/100) (2/3)
@@ -114,6 +118,9 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     , ((modm              , xK_v ), spawn decreaseVolumeCommand)
     , ((modm              , xK_z ), spawn increaseVolumeCommand)
 
+    , ((modm              , xK_s ), (layoutScreens 2 (TwoPane 0.5 0.5)))
+    , ((modm .|. shiftMask, xK_s ), rescreen)
+
     -- This is redundant because it's added by the statusBar function.
     -- , ((modm              , xK_b     ), sendMessage ToggleStruts)
 
@@ -159,4 +166,3 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     -- [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
     --     | (key, sc) <- zip [xK_semicolon, xK_q, xK_r] [0..]
     --     , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
-
-- 
cgit v1.2.3