xmonad: switched to paperColor (dark) theme

This commit is contained in:
Serĉanto de Scio 2021-05-27 20:43:17 +10:00
parent 28fe92191d
commit 1754dd74e2
Signed by: sercanto
GPG key ID: 7DBA9F5689EFB6AA
2 changed files with 38 additions and 37 deletions

View file

@ -2,14 +2,14 @@ Config {
-- Appearance
font = "xft:Open Sans:size=9:antialias=true"
, bgColor = "#282828"
, fgColor = "#ebdbb2"
, position = TopW L 93 -- Leave space for Trayer
, bgColor = "#1c1c1c"
, fgColor = "#d0d0d0"
, position = TopW L 100 -- Leave space for Trayer
-- Layout
, sepChar = "%" -- delineator between plugin names and straight text
, alignSep = "}{" -- separator between left-right alignment
, template = "%StdinReader% }{ %YBRK% | UV: %uv Brisbane% | %cpu% %coretemp% %cpufreq% | %memory% | %swap% | %dynnetwork% | %battery% | %date%"
, template = " %StdinReader% }{ %YBRK% | UV: %uv Brisbane% | %cpu% %coretemp% %cpufreq% | %memory% | %swap% | %battery% | %date% "
-- Behaviour
, lowerOnStart = False -- send to bottom of window stack on start
@ -22,18 +22,18 @@ Config {
[ Run Cpu [ "--template" , "CPU: <total>%"
, "--Low" , "30" -- units: %
, "--High" , "70" -- units: %
, "--low" , "#b8bb26"
, "--normal" , "#ebdbb2"
, "--high" , "#fb4934"
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 10
-- cpu core temperature monitor
, Run CoreTemp [ "--template" , "Temp: <core0>°C <core1>°C"
, "--Low" , "30" -- units: °C
, "--High" , "80" -- units: °C
, "--low" , "#b8bb26"
, "--normal" , "#ebdbb2"
, "--high" , "#fb4934"
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 50
-- CPU Frequency
@ -44,26 +44,26 @@ Config {
, Run Memory [ "--template" , "MEM <usedratio>%"
, "--Low" , "20" -- units: %
, "--High" , "90" -- units: %
, "--low" , "#b8bb26"
, "--normal" , "#ebdbb2"
, "--high" , "#fb4934"
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 10
-- Battery Monitor
, Run BatteryP ["BAT"] [ "--template" , "BAT: <acstatus>"
, "--Low" , "10" -- units: %
, "--High" , "80" -- units: %
, "--low" , "#fb4934"
, "--normal" , "#ebdbb2"
, "--high" , "#b8bb26"
, "--low" , "#af005f"
, "--normal" , "#d0d0d0"
, "--high" , "#5faf00"
, "--" -- battery specific options
-- discharging status
, "-o" , "<left>% (<timeleft>)"
-- AC "on" status
, "-O" , "<fc=#b8bb26>Charging</fc>"
, "-O" , "<fc=#ffaf00>Charging</fc>"
-- charged status
, "-i" , "<fc=#b8bb26>Charged</fc>"
, "-i" , "<fc=#5faf00>Charged</fc>"
] 50
-- Read from STDIN
@ -76,19 +76,19 @@ Config {
, Run Weather "YBRK" [ "--template" , " <skyCondition> <tempC>C <rh>% <pressure> hPa"
, "--Low" , "10"
, "--High" , "35"
, "--low" , "#b8bb26"
, "--normal" , "#ebdbb2"
, "--high" , "#fb4934"
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 36000
-- Time and Date Display
, Run Date "<fc=#b8bb26>%a %b %_d %H:%M</fc>" "date" 10
, Run Date "<fc=#d0d0d0>%a %b %_d %H:%M</fc>" "date" 10
-- Display the current UV
, Run UVMeter "Brisbane" [ "-H" , "3"
, "-L" , "3"
, "--low" , "#ebdbb2"
, "--high" , "#fb4934"
, "--low" , "#5faf00"
, "--high" , "#af005f"
] 900
-- MPD status
@ -98,9 +98,9 @@ Config {
, Run DynNetwork [ "--template" , "<dev>: <tx>kB/s"
, "--Low" , "50000" -- units: B/s
, "--High" , "500000" -- units: B/s
, "--low" , "#b8bb26"
, "--normal" , "#ebdbb2"
, "--high" , "fb4934"
, "--low" , "#5faf00"
, "--normal" , "#d0d0d0"
, "--high" , "#af005f"
] 10
]
}

View file

@ -5,6 +5,7 @@ import Data.Word
import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Layout.Accordion
import XMonad.Layout.Circle
@ -20,16 +21,16 @@ import XMonad.Util.SpawnOnce
import System.IO
colourBackground :: String
colourBackground = "#282828"
colourBackground = "#1c1c1c"
colourForeground :: String
colourForeground = "#ebdbb2"
colourForeground = "#d0d0d0"
highlightBackground :: String
highlightBackground = "#1d2021"
highlightBackground = "#ffaf00"
highlightForeground :: String
highlightForeground = "#fabd2f"
highlightForeground = "#1c1c1c"
-- Set xmobar as my task bar.
myWsBar :: String
@ -54,13 +55,13 @@ notificationCmd = "lxqt-notificationd"
screensaverCmd = "xscreensaver -no-splash"
settingsDaemon = "xsettingsd"
terminalCmd = "termonad"
trayerCmd = "trayer --edge top --align right --SetDockType true --SetPartialStrut false --expand true --width 7 --transparent true --alpha 1 --tint 0x282828 --height 20 --monitor primary"
trayerCmd = "trayer --edge top --SetPartialStrut false --width 7 --transparent true --alpha 0 --tint 0x1C1C1C --height 20 --monitor primary"
main = do
-- Make sure that HDMI is turned off by default
spawn "xrandr --output eDP-1 --primary --output HDMI1 --off"
wsbar <- spawnPipe myWsBar
xmonad $ desktopConfig
xmonad $ ewmh desktopConfig
{ focusFollowsMouse = False
, terminal = terminalCmd -- Set the default terminal
, startupHook = do
@ -83,10 +84,10 @@ main = do
, handleEventHook = handleEventHook desktopConfig <+> docksEventHook
, logHook = dynamicLogWithPP $ xmobarPP
{ ppOutput = hPutStrLn wsbar
, ppCurrent = xmobarColor "#859900" "" . wrap "[" "]"
, ppVisible = xmobarColor "#2aa198" "" . wrap "(" ")"
, ppLayout = xmobarColor "#2aa198" ""
, ppTitle = xmobarColor "#859900" "" . shorten 50
, ppCurrent = xmobarColor "#ffaf00" "" . wrap "[" "]"
, ppVisible = xmobarColor "#5fafd7" "" . wrap "(" ")"
, ppLayout = xmobarColor "#5fafd7" ""
, ppTitle = xmobarColor "#ffaf00" "" . shorten 50
}
, modMask = mod4Mask -- Rebind Mod to the Windows key
--, borderWidth = 1