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