From 1754dd74e20320c0195b934b2d1684bc0c4752e6 Mon Sep 17 00:00:00 2001 From: Craige McWhirter Date: Thu, 27 May 2021 20:43:17 +1000 Subject: [PATCH] xmonad: switched to paperColor (dark) theme --- .xmobarrc | 54 +++++++++++++++++++++++------------------------ .xmonad/xmonad.hs | 21 +++++++++--------- 2 files changed, 38 insertions(+), 37 deletions(-) diff --git a/.xmobarrc b/.xmobarrc index 5a94e12..c28fac0 100644 --- a/.xmobarrc +++ b/.xmobarrc @@ -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: %" , "--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: °C °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 %" , "--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: " , "--Low" , "10" -- units: % , "--High" , "80" -- units: % - , "--low" , "#fb4934" - , "--normal" , "#ebdbb2" - , "--high" , "#b8bb26" + , "--low" , "#af005f" + , "--normal" , "#d0d0d0" + , "--high" , "#5faf00" , "--" -- battery specific options -- discharging status , "-o" , "% ()" -- AC "on" status - , "-O" , "Charging" + , "-O" , "Charging" -- charged status - , "-i" , "Charged" + , "-i" , "Charged" ] 50 -- Read from STDIN @@ -76,19 +76,19 @@ Config { , Run Weather "YBRK" [ "--template" , " C % hPa" , "--Low" , "10" , "--High" , "35" - , "--low" , "#b8bb26" - , "--normal" , "#ebdbb2" - , "--high" , "#fb4934" + , "--low" , "#5faf00" + , "--normal" , "#d0d0d0" + , "--high" , "#af005f" ] 36000 -- Time and Date Display - , Run Date "%a %b %_d %H:%M" "date" 10 + , Run Date "%a %b %_d %H:%M" "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" , ": 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 ] } diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 586d8ec..25fca33 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -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