diff options
Diffstat (limited to '.config/XMonad')
| -rw-r--r-- | .config/XMonad/lib/Defaults.hs | 17 | ||||
| -rw-r--r-- | .config/XMonad/xmonad.hs | 5 |
2 files changed, 20 insertions, 2 deletions
diff --git a/.config/XMonad/lib/Defaults.hs b/.config/XMonad/lib/Defaults.hs index e132b09..e4b40eb 100644 --- a/.config/XMonad/lib/Defaults.hs +++ b/.config/XMonad/lib/Defaults.hs @@ -6,7 +6,8 @@ import XMonad.Layout.Tabbed import XMonad.Actions.GridSelect import XMonad.Util.Loggers - +import XMonad.Hooks.StatusBar +import XMonad.Hooks.StatusBar.PP myBorder = "#120F23" myBorder' = "#C44CF2" @@ -96,3 +97,17 @@ 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-}" + ppCurrent = wrap "%{B#ff0aa3} %{F#FFFFFF}" " %{F-}%{B-}" + , ppVisible = wrap "%{B#83ddc3} %{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 + } diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index ad75f9d..3b1c995 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -8,13 +8,16 @@ import XMonad.Hooks.EwmhDesktops import XMonad.Util.EZConfig import XMonad.Util.Run +import XMonad.Hooks.StatusBar + import Keybindings import Defaults import Hooks main :: IO () main = do - xmonad $ ewmhFullscreen $ ewmh $ docks def { + myLemonbar <- statusBarPipe myLemonbarCmd (pure myLemonbarPP) + xmonad $ withSB myLemonbar $ ewmhFullscreen $ ewmh $ docks def { focusFollowsMouse = True , terminal = myTerminal , borderWidth = myBorderWidth |