craige
/
rcfiles
1
0
Fork 0
Code Issues Pull Requests Releases Activity

xmonad: switched to paperColor (dark) theme

Browse Source
consensus
Craige McWhirter 2 years ago
parent 28fe92191d
commit 1754dd74e2
Signed by: craige
GPG Key ID: 7DBA9F5689EFB6AA
2 changed files with 38 additions and 37 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 54
      .xmobarrc
  2. 21
      .xmonad/xmonad.hs

54
.xmobarrc
Unescape 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
]
}

21
.xmonad/xmonad.hs
Unescape 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

Write Preview
Loading…
Cancel
Save