From be9838444860a6f909634b61494396275a1cd20d Mon Sep 17 00:00:00 2001 From: MikunoNaka Date: Tue, 8 Jun 2021 20:42:51 +0530 Subject: disabled smartBorders and polished code --- .config/XMonad/xmonad.hs | 24 ++++++++++++------------ .config/polybar/config | 2 +- 2 files changed, 13 insertions(+), 13 deletions(-) (limited to '.config') diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index d3b5945..da68a7a 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -335,21 +335,21 @@ myTabTheme = def { fontName = myFont } -- layouts -myGap = spacingRaw True (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True +myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True myLayoutHook = avoidStruts ( -- layouts to be used in almost every workspace - renamed [R.Replace "BSP"] (maximize $ smartBorders $ windowNavigation $ myGap $ emptyBSP) + renamed [R.Replace "BSP"] (maximize $ windowNavigation $ myGap $ emptyBSP) ||| renamed [R.Replace "Tabbed"] (maximize $ smartBorders $ windowNavigation $ myGap $ tabbed shrinkText myTabTheme) - ||| renamed [R.Replace "Accordion"] (maximize $ smartBorders $ windowNavigation $ myGap $ Accordion) - ||| renamed [R.Replace "ZoomRow"] (maximize $ smartBorders $ windowNavigation $ myGap $ zoomRow) - ||| renamed [R.Replace "TwoPane"] (maximize $ smartBorders $ windowNavigation $ myGap $ TwoPane (3/100) (1/2)) - ||| renamed [R.Replace "ZoomRow Mirrored"] (maximize $ smartBorders $ windowNavigation $ myGap $ Mirror zoomRow) - ||| renamed [R.Replace "ThreeCol Mid (1)"] (maximize $ smartBorders $ windowNavigation $ myGap $ ThreeColMid 1 (3/100) (1/2)) - ||| renamed [R.Replace "ThreeCol Mid (2)"] (maximize $ smartBorders $ windowNavigation $ myGap $ ThreeColMid 2 (3/100) (1/2)) - ||| renamed [R.Replace "Grid"] (maximize $ smartBorders $ windowNavigation $ myGap $ Grid) - ||| renamed [R.Replace "ThreeCol (1)"] (maximize $ smartBorders $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2)) - ||| renamed [R.Replace "Tabbed"] (maximize $ smartBorders $ windowNavigation $ myGap $ tabbed shrinkText myTabTheme) - ||| renamed [R.Replace "ThreeCol (2)"] (maximize $ smartBorders $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2)) + ||| renamed [R.Replace "Accordion"] (maximize $ windowNavigation $ myGap $ Accordion) + ||| renamed [R.Replace "ZoomRow"] (maximize $ windowNavigation $ myGap $ zoomRow) + ||| renamed [R.Replace "TwoPane"] (maximize $ windowNavigation $ myGap $ TwoPane (3/100) (1/2)) + ||| renamed [R.Replace "ZoomRow Mirrored"] (maximize $ windowNavigation $ myGap $ Mirror zoomRow) + ||| renamed [R.Replace "ThreeCol Mid (1)"] (maximize $ windowNavigation $ myGap $ ThreeColMid 1 (3/100) (1/2)) + ||| renamed [R.Replace "ThreeCol Mid (2)"] (maximize $ windowNavigation $ myGap $ ThreeColMid 2 (3/100) (1/2)) + ||| renamed [R.Replace "Grid"] (maximize $ windowNavigation $ myGap $ Grid) + ||| renamed [R.Replace "ThreeCol (1)"] (maximize $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2)) + ||| renamed [R.Replace "Tabbed"] (maximize $ windowNavigation $ myGap $ tabbed shrinkText myTabTheme) + ||| renamed [R.Replace "ThreeCol (2)"] (maximize $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2)) ) main :: IO () diff --git a/.config/polybar/config b/.config/polybar/config index ecf48b9..4aa858a 100644 --- a/.config/polybar/config +++ b/.config/polybar/config @@ -37,7 +37,7 @@ ws-empty-fg = #02fc45 ws-empty-bg = ${colors.background} ws-empty-ul = ${colors.background} -[bar/xmobar] +[bar/mybar] ;monitor = ${env:MONITOR:HDMI-1} width = 100% height = 35 -- cgit v1.2.3