diff options
| -rw-r--r-- | .config/XMonad/lib/Defaults.hs | 22 | ||||
| -rw-r--r-- | .config/XMonad/xmonad.hs | 5 | ||||
| -rw-r--r-- | .config/polybar/config.ini | 2 |
3 files changed, 20 insertions, 9 deletions
diff --git a/.config/XMonad/lib/Defaults.hs b/.config/XMonad/lib/Defaults.hs index e4b40eb..9e9d318 100644 --- a/.config/XMonad/lib/Defaults.hs +++ b/.config/XMonad/lib/Defaults.hs @@ -98,16 +98,26 @@ myGSConfig colorizer = (buildDefaultGSConfig myGSColorizer) myGridSelect = myGSConfig myGSColorizer -myLemonbarCmd = "lemonbar -g 445x28+1475+0 -f 'SauceCodePro:style=Regular:size=11' -f 'Source Han Sans JP Normal:size=11' -B '#e6100b13' -F '#9d00ff'" - -myLemonbarPP = def { - -- wrap "%{B#} %{F#}" " %{F-}%{B-}" +myLemonbarCmd = "lemonbar -g 445x28+3395+0 -f 'SauceCodePro:style=Regular:size=11' -f 'Source Han Sans JP Normal:size=11' -B '#e6100b13' -F '#9d00ff'" +myLemonbarPP = def { ppCurrent = wrap "%{B#ff0aa3} %{F#FFFFFF}" " %{F-}%{B-}" - , ppVisible = wrap "%{B#83ddc3} %{F#FFFFFF}" " %{F-}%{B-}" + , ppVisible = wrap "%{B#28c78f} %{F#FFFFFF}" " %{F-}%{B-}" + , ppHidden = wrap "%{B#9b1bed} %{F#FFFFFF}" " %{F-}%{B-}" + , ppHiddenNoWindows = wrap " " " " + --, ppVisibleNoWindows = wrap "%{B#ffffff} %{F#9b1bed}" " %{F-}%{B-}" + , ppWsSep = "" + , ppSep = "" + , ppOrder = \(ws:l:t:ex) -> ["%{r}",ws]++[]++[]++ex + } + +myLemonbarCmd' = "lemonbar -g 343x20+1577+0 -f 'SauceCodePro:style=Regular:size=9' -f 'Source Han Sans JP Normal:size=9' -B '#e6100b13' -F '#9d00ff'" +myLemonbarPP' = def { + ppCurrent = wrap "%{B#28c78f} %{F#FFFFFF}" " %{F-}%{B-}" + , ppVisible = wrap "%{B#ff0aa3} %{F#FFFFFF}" " %{F-}%{B-}" , ppHidden = wrap "%{B#9b1bed} %{F#FFFFFF}" " %{F-}%{B-}" , ppHiddenNoWindows = wrap " " " " --, ppVisibleNoWindows = wrap "%{B#ffffff} %{F#9b1bed}" " %{F-}%{B-}" , ppWsSep = "" , ppSep = "" - , ppOrder = \(ws:l:t:ex) -> [ws]++[]++[]++ex + , ppOrder = \(ws:l:t:ex) -> ["%{r}",ws]++[]++[]++ex } diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index 3b1c995..c7f3ac0 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -16,8 +16,9 @@ import Hooks main :: IO () main = do - myLemonbar <- statusBarPipe myLemonbarCmd (pure myLemonbarPP) - xmonad $ withSB myLemonbar $ ewmhFullscreen $ ewmh $ docks def { + myLemonbar <- statusBarPipe myLemonbarCmd (pure myLemonbarPP ) + myLemonbar' <- statusBarPipe myLemonbarCmd' (pure myLemonbarPP') + xmonad $ withSB myLemonbar $ withSB myLemonbar' $ ewmhFullscreen $ ewmh $ docks def { focusFollowsMouse = True , terminal = myTerminal , borderWidth = myBorderWidth diff --git a/.config/polybar/config.ini b/.config/polybar/config.ini index 437d2b5..27f5e00 100644 --- a/.config/polybar/config.ini +++ b/.config/polybar/config.ini @@ -91,7 +91,7 @@ batt-full-fg = ${colors.module-color-0} [bar/mybar2] monitor = ${env:MONITOR:HDMI-0} enable-ipc = true -width = 1500 +width = 1577 height = 20 offset-x = 0 offset-y = 0 |