This commit is contained in:
♥ Minnie ♥ 2024-07-28 20:22:05 +08:00
parent eacebcb981
commit 41e97a6fc9
Signed by: jasmine
GPG key ID: 8563E358D4E8040E
2 changed files with 11 additions and 39 deletions

View file

@ -6,8 +6,8 @@ config = defaultConfig
-- general settings
{ font = "Fira Code Semi Bold 9"
, additionalFonts = [ "Symbols Nerd Font 2048-em 24" ]
, bgColor = bg1
, fgColor = fg0
, bgColor = "#282828"
, fgColor = "#d4be98"
, position = Static { xpos = 1920, ypos = 0, width = 2560, height = 24 }
-- commands to run
, commands =
@ -24,24 +24,5 @@ config = defaultConfig
, template = "<hspace=6/><fn=1>\59255</fn> <fc=#a9b665>%uname%</fc> <fc=#7c6f64>|</fc>%_XMONAD_LOG_1%}{%YPJT% <fc=#7c6f64>|</fc> %date%<hspace=6/>"
}
-- | Gruvbox material
bg0, bg1, fg0, fg1, red, orange, yellow, green, aqua, blue, purple :: String
-- backgrounds
bg0 = "#1d2021"
bg1 = "#282828"
-- foregrounds
fg0 = "#d4be98"
fg1 = "#ddc7a1"
-- greys
grey0 = "#7c6f64"
-- colors
red = "#ea6962"
orange = "#e78a4e"
yellow = "#d8a658"
green = "#a9b665"
aqua = "#89b482"
blue = "#7daea3"
purple = "#d3869b"
main :: IO ()
main = configFromArgs config >>= xmobar

View file

@ -57,9 +57,9 @@ myKeys =
, ((noModMask, xF86XK_AudioRaiseVolume ), spawn volUp ) -- %! Volume up
-- layouts
, ((myModMask, xK_t ), sendMessage $ JumpToLayout "Spacing Tiled") -- %! Jump to our tiled layout
, ((myModMask, xK_m ), sendMessage $ JumpToLayout "Maximized" ) -- %! Jump to our maximized layout
, ((myModMask, xK_f ), sendMessage $ JumpToLayout "Fullscreen" ) -- %! Jump to our fullscreen layout
, ((myModMask, xK_t ), sendMessage $ JumpToLayout "spacing tiled") -- %! Jump to our tiled layout
, ((myModMask, xK_m ), sendMessage $ JumpToLayout "maximized" ) -- %! Jump to our maximized layout
, ((myModMask, xK_f ), sendMessage $ JumpToLayout "fullscreen" ) -- %! Jump to our fullscreen layout
, ((myModMask .|. shiftMask, xK_t ), withFocused $ windows . W.sink ) -- %! Push window back into tiling
-- window stack
@ -95,9 +95,9 @@ myLayout = tiled ||| max ||| full
-- Add a configurable amount of space around windows.
gaps = spacingRaw False (Border 10 10 10 10) True (Border 10 10 10 10) True
-- Our layouts
tiled = renamed [Replace "Spacing Tiled"] . avoidStruts . gaps $ Tall nmaster delta ratio
max = renamed [Replace "Maximized" ] . avoidStruts . gaps $ Full
full = renamed [Replace "Fullscreen" ] . noBorders $ Full
tiled = renamed [Replace "spacing tiled"] . avoidStruts . gaps $ Tall nmaster delta ratio
max = renamed [Replace "maximized" ] . avoidStruts . gaps $ Full
full = renamed [Replace "fullscreen" ] . noBorders $ Full
-- Layout settings
nmaster = 1 -- Default number of windows in the master pane
ratio = 1/2 -- Default proportion of screen occupied by master pane
@ -109,7 +109,6 @@ xmobarTop = statusBarPropTo "_XMONAD_LOG_1" "xmobar-top" (pure ppTop)
ppTop :: PP
ppTop = def
{ ppSep = grey0 " | "
, ppTitleSanitize = xmobarStrip
-- workspace labels
, ppCurrent = purple . wrap " " ""
, ppVisible = blue . wrap " " ""
@ -117,18 +116,10 @@ ppTop = def
, ppHiddenNoWindows = grey0 . wrap " " ""
, ppUrgent = red . wrap " " ""
-- misc
, ppOrder = \[ws, l, _, wins] -> [ws, l, wins]
, ppExtras = [logTitles formatFocused formatUnfocused]
, ppLayout = aqua . wrap "" ""
, ppOrder = \[ws, l, _] -> [ws, l]
}
where
formatFocused = wrap (grey0 "") (grey0 " ") . purple . ppWindow
formatUnfocused = wrap (grey0 "") (grey0 " ") . blue . ppWindow
-- | Windows should have *some* title, which should not not exceed a
-- sane length.
ppWindow :: String -> String
ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30
-- | Gruvbox material
bg0, bg1, fg0, fg1, red, orange, yellow, green, aqua, blue, purple :: String -> String
-- backgrounds