Tall layout

xmonad.hs

@@ -42,6 +42,8 @@ import XMonad.Prompt.Window
 import XMonad.Prompt.Layout
 import XMonad.Prompt.ConfirmPrompt
 
+import XMonad.Layout.Named
+import XMonad.Layout.ResizableTile
 import XMonad.Layout.LayoutModifier
 import XMonad.Layout.NoBorders
 import XMonad.Layout.BinarySpacePartition
@@ -99,7 +101,9 @@ myStartupHook = do
 -- (windowNavigation $ subTabbed $ emptyBSP)
 myLayoutHook =
     (onWorkspace "#" (noBorders $ Full))
-    ((avoidStruts $ smartBorders $ windowNavigation $ emptyBSP) ||| (avoidStruts $ noBorders $ Full))
+    ((avoidStruts $ smartBorders $ windowNavigation $ emptyBSP) |||
+     (named "Tall" $ avoidStruts $ smartBorders $ windowNavigation $ ResizableTall 1 (3.0 / 100.0) 0.5 []) |||
+     (avoidStruts $ noBorders $ Full))
 
 myManageHook = do
     composeAll
@@ -111,7 +115,8 @@ myManageHook = do
         , manageDocks
         ]
 
-myTerm = "/home/kubat/.local/bin/st.sh"
+myTerm      = "/home/kubat/.local/bin/st.sh"
+myOtherTerm = "/home/kubat/.local/bin/alac.sh"
 
 myXPConfig  = def { font = "xft:SourceCodePro:size=9" , bgColor = "black" , position = Top }
 
@@ -136,6 +141,7 @@ mySelectDisplay "l1280"     = spawn "/home/kubat/.screenlayout/lateral_1280.sh"
 
 myAdditionalKeys =
   [ ((mod4Mask,                     xK_Return), spawn myTerm)
+  , ((mod4Mask .|. shiftMask,       xK_Return), spawn myOtherTerm)
 
 -- Apps
   , ((mod4Mask,                     xK_a),      submap . M.fromList $
@@ -202,10 +208,10 @@ myAdditionalKeys =
     ])
 
 -- Control for the bsp layout
-  , ((mod4Mask .|. shiftMask,       xK_8),      sendMessage $ ExpandTowards U)
-  , ((mod4Mask .|. shiftMask,       xK_6),      sendMessage $ ExpandTowards R)
-  , ((mod4Mask .|. shiftMask,       xK_2),      sendMessage $ ExpandTowards D)
-  , ((mod4Mask .|. shiftMask,       xK_4),      sendMessage $ ExpandTowards L)
+  , ((mod4Mask .|. shiftMask,       xK_8),      do { sendMessage $ ExpandTowards U ; sendMessage (IncMasterN 1)     })
+  , ((mod4Mask .|. shiftMask,       xK_6),      do { sendMessage $ ExpandTowards R ; sendMessage Expand             })
+  , ((mod4Mask .|. shiftMask,       xK_2),      do { sendMessage $ ExpandTowards D ; sendMessage (IncMasterN (-1))  })
+  , ((mod4Mask .|. shiftMask,       xK_4),      do { sendMessage $ ExpandTowards L ; sendMessage Shrink             })
 
   , ((mod4Mask,                     xK_6),      sendMessage $ WinNav.Go R)
   , ((mod4Mask,                     xK_4),      sendMessage $ WinNav.Go L)