hektor
/
dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove ShowWName stuff

master
Hektor Misplon 2024-03-30 16:27:19 +01:00
parent 09812befdc
commit b6ba9ab4ea
Signed by: hektor
GPG Key ID: 5151AF79E723F21C
1 changed files with 9 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
.xmonad/xmonad.hs
View File

@ -14,7 +14,6 @@ import XMonad.Layout.CenteredIfSingle
import XMonad.Layout.IndependentScreens import XMonad.Layout.IndependentScreens
import XMonad.Layout.PerScreen import XMonad.Layout.PerScreen
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.ShowWName
import XMonad.Layout.ThreeColumns import XMonad.Layout.ThreeColumns
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
import XMonad.Util.Loggers import XMonad.Util.Loggers
@ -106,27 +105,17 @@ myDynamicManageHook =
] ]
-- }}} -- }}}
myShowWNameConfig :: SWNConfig
myShowWNameConfig =
def
{ swn_font = "xft:Iosevka Term SS08:size=16",
swn_fade = 0.3,
swn_color = "#111111",
swn_bgcolor = "#cccccc"
}
-- layoutHook {{{ -- layoutHook {{{
myLayoutHook = myLayoutHook =
showWName' myShowWNameConfig $ ifWider smallWidth (
ifWider smallWidth ( t ||| -- Tiled layouts
t ||| -- Tiled layouts c3 ||| -- Column layouts
c3 ||| -- Column layouts c3m ||| --
c3m ||| -- f -- Monocle layouts
f -- Monocle layouts ) (
) ( t ||| -- Tiled layouts
t ||| -- Tiled layouts f -- Monocle layouts
f -- Monocle layouts )
)
where where
smallWidth = 1920 smallWidth = 1920
t = renamed [Replace "[]+"] $ ifWider smallWidth (centeredIfSingle 0.8 0.9 $ Tall nmaster delta ratio) t = renamed [Replace "[]+"] $ ifWider smallWidth (centeredIfSingle 0.8 0.9 $ Tall nmaster delta ratio)