palo/nixos-config
palo/nixos-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xmonad: better tabs

Browse source
This commit is contained in:
Ingolf Wagner 2019-11-12 22:31:59 +01:00
parent 4b6fbab46e
commit 57f84fadc1
No known key found for this signature in database
GPG key ID: 76BF5F1928B9618B
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
system/desktop/home-manager/xmonad/Main.hs
View file

@ -43,7 +43,7 @@ import XMonad.Layout.ResizableTile (MirrorResize (MirrorExpand, M
ResizableTall (..))
import XMonad.Layout.Simplest (Simplest (..))
import XMonad.Layout.Tabbed (TabbedDecoration, addTabs,
addTabsAlways, shrinkText)
shrinkText)
import XMonad.Layout.WindowNavigation (configurableNavigation,
noNavigateBorders)
import XMonad.Prompt (XPConfig (..))
@ -75,8 +75,6 @@ nonSelectionColor = Solarized.base02
-- http://hackage.haskell.org/package/xmonad-contrib-0.15/docs/XMonad-Layout-Tabbed.html#t:Theme
myLayout = (windowConfiguration $ myTabbed $ mySubLayout $ boringWindows resizeableTall) ||| noBorders Full
-- needed for rebuild sometimes
-- myLayout = dwmStyle shrinkText def ( layoutHook def ) ||| noBorders Full
where
resizeableTall = ResizableTall nmaster delta ratio []
-- The default number of windows in the master pane
@ -88,11 +86,11 @@ myLayout = (windowConfiguration $ myTabbed $ mySubLayout $ boringWindows resize
windowConfiguration = configurableNavigation noNavigateBorders
myTabbed x = smartBorders $ addTabsAlways shrinkText tabDecoration x
myTabbed x = smartBorders $ addTabs shrinkText windowDecoration x
mySubLayout = subLayout [] Simplest
tabDecoration = def { activeColor = selectionColor
windowDecoration = def { activeColor = selectionColor
, activeBorderColor = selectionColor
, activeTextColor = Solarized.base03
, inactiveColor = nonSelectionColor