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

View file

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