From 7572d1711ffbbfcbdf37330376f42e6716552cca Mon Sep 17 00:00:00 2001
From: Kubat <mael.martin31@gmail.com>
Date: Wed, 6 May 2020 09:25:45 +0200
Subject: [PATCH] Tall layout
---
xmonad.hs | 18 ++++++++++++------
1 file changed, 12 insertions(+), 6 deletions(-)
diff --git a/xmonad.hs b/xmonad.hs
index 6eca016..c7f9249 100644
--- a/xmonad.hs
+++ b/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)
--
GitLab