updated xmobar somewhat and trying to get conditional configs working
This commit is contained in:
parent
0e73c247e1
commit
9316f42d7d
@ -12,8 +12,7 @@ Config {
|
||||
-- layout
|
||||
, sepChar = "%" -- delineator between plugin names and straight text
|
||||
, alignSep = "}{" -- separator between left-right alignment
|
||||
, template = " <action=`xdotool key super+a`><icon=haskell_20.xpm/></action> %UnsafeStdinReader% <fc=#9da5ae>|</fc> %cpu% %memory% %dynnetwork% } \
|
||||
\{ %date% <fc=#9da5ae>|</fc> %YPAD% <fc=#9da5ae>|</fc> %battery% <fc=#9da5ae>|</fc> %updates% %trayerpad%"
|
||||
, template = " <action=`xdotool key super+a`><icon=haskell_20.xpm/></action> %cpu% %memory% %dynnetwork% } %UnsafeStdinReader% { %date% <fc=#9da5ae>|</fc> %YPAD% <fc=#9da5ae>|</fc> %battery% <fc=#9da5ae>|</fc> %updates% %trayerpad%"
|
||||
}
|
||||
|
||||
-- general behavior
|
||||
@ -109,6 +108,8 @@ Config {
|
||||
, "-L", "10", "-H", "80"
|
||||
, "-l", "#882410", "-h", "#95C05D"
|
||||
, "--", "-O", "Charging", "-o", "Battery"
|
||||
-- , "-a", "notify-send -u critical 'Battery running out!!'"
|
||||
-- , "-A", "10"
|
||||
] 10
|
||||
|
||||
-- Runs a standard shell command 'uname -r' to get kernel version
|
||||
@ -125,5 +126,3 @@ Config {
|
||||
|
||||
]
|
||||
}
|
||||
|
||||
|
||||
46
.config/xmobar/xmobarrc-sub.hs
Normal file
46
.config/xmobar/xmobarrc-sub.hs
Normal file
@ -0,0 +1,46 @@
|
||||
Config {
|
||||
|
||||
-- appearance
|
||||
font = "xft:Fira Code:size=9:antialias=true:hinting=true"
|
||||
, bgColor = "#121e32"
|
||||
, fgColor = "#dfdfef"
|
||||
, position = Top
|
||||
, border = BottomB
|
||||
, borderColor = "#121e32"
|
||||
|
||||
-- layout
|
||||
, sepChar = "%" -- delineator between plugin names and straight text
|
||||
, alignSep = "}{" -- separator between left-right alignment
|
||||
, template = "} %UnsafeStdinReader% {"
|
||||
}
|
||||
|
||||
-- general behavior
|
||||
, lowerOnStart = True -- send to bottom of window stack on start
|
||||
, hideOnStart = False -- start with window unmapped (hidden)
|
||||
, allDesktops = True -- show on all desktops
|
||||
, overrideRedirect = True -- set the Override Redirect flag (Xlib)
|
||||
, pickBroadest = False -- choose widest display (multi-monitor)
|
||||
, persistent = True -- enable/disable hiding (True = disabled)
|
||||
|
||||
-- plugins
|
||||
-- Numbers can be automaticallJy colored according to their value. xmobar
|
||||
-- decides color based on a three-tier/two-cutoff system, controlled by
|
||||
-- command options:
|
||||
-- --Low sets the low cutoff
|
||||
-- --High sets the high cutoff
|
||||
--
|
||||
-- --low sets the color below --Low cutoff
|
||||
-- --normal sets the color between --Low and --High cutoffs
|
||||
-- --High sets the color above --High cutoff
|
||||
--
|
||||
-- The --template option controls how the plugin is displayed. Text
|
||||
-- color can be set by enclosing in <fc></fc> tags. For more details
|
||||
-- see http://projects.haskell.org/xmobar/#system-monitor-plugins.
|
||||
, commands =
|
||||
[
|
||||
|
||||
-- Prints out the left side items such as workspaces, layout, etc.
|
||||
Run UnsafeStdinReader
|
||||
|
||||
]
|
||||
}
|
||||
@ -1,110 +0,0 @@
|
||||
loConfig {
|
||||
|
||||
-- appearance
|
||||
font = "xft:Fira Code:size=14:bold:antialias=true:hinting=true"
|
||||
, bgColor = "#14071F"
|
||||
, fgColor = "#646464"
|
||||
, position = Top
|
||||
, border = BottomB
|
||||
, borderColor = "#646464"
|
||||
, iconRoot = "/home/solomon/.xmonad/xpm/" -- default: "."
|
||||
|
||||
-- layout
|
||||
, sepChar = "%" -- delineator between plugin names and straight text
|
||||
, alignSep = "}{" -- separator between left-right alignment
|
||||
, template = " <action=`xdotool key super+p`><icon=haskell_20.xpm/></action> <fc=#f3617a>%cpu%</fc> <fc=#805a9b>|</fc> <fc=#b262cd>%memory%</fc> <fc=#805a9b>|</fc> <fc=#706bc2>%dynnetwork%</fc> }\
|
||||
\{ <fc=#ee9a00>%date%</fc> <fc=#805a9b>|</fc> <fc=#b55322>%YPAD%</fc> <fc=#805a9b>|</fc> <fc=#882410>%kbd%</fc> <fc=#805a9b>|</fc> <fc=#6e1a11>%uname%</fc> %trayerpad%"
|
||||
}
|
||||
|
||||
-- general behavior
|
||||
, lowerOnStart = True -- send to bottom of window stack on start
|
||||
, hideOnStart = False -- start with window unmapped (hidden)
|
||||
, allDesktops = True -- show on all desktops
|
||||
, overrideRedirect = True -- set the Override Redirect flag (Xlib)
|
||||
, pickBroadest = False -- choose widest display (multi-monitor)
|
||||
, persistent = True -- enable/disable hiding (True = disabled)
|
||||
|
||||
-- plugins
|
||||
-- Numbers can be automatically colored according to their value. xmobar
|
||||
-- decides color based on a three-tier/two-cutoff system, controlled by
|
||||
-- command options:
|
||||
-- --Low sets the low cutoff
|
||||
-- --High sets the high cutoff
|
||||
--
|
||||
-- --low sets the color below --Low cutoff
|
||||
-- --normal sets the color between --Low and --High cutoffs
|
||||
-- --High sets the color above --High cutoff
|
||||
--
|
||||
-- The --template option controls how the plugin is displayed. Text
|
||||
-- color can be set by enclosing in <fc></fc> tags. For more details
|
||||
-- see http://projects.haskell.org/xmobar/#system-monitor-plugins.
|
||||
, commands =
|
||||
-- weather monitor
|
||||
[ Run Weather "YPAD" ["--template" , "<station>: <tempC>°C"
|
||||
, "--Low" , "10"
|
||||
, "--High" , "25"
|
||||
, "--normal" , "#95C05D"
|
||||
, "--high" , "red"
|
||||
, "--low" , "lightblue"
|
||||
] 36000
|
||||
|
||||
-- -- network activity monitor
|
||||
-- , Run Network "enp33s0" [ "--template" , "eth: <icon=net_up_20.xpm/><tx>kB/s <icon=net_down_20.xpm/><rx>kB/s"
|
||||
-- , "--Low" , "100000" -- units: B/s
|
||||
-- , "--High" , "500000" -- units: B/s
|
||||
-- , "--low" , "#95C05D"
|
||||
-- , "--normal" , "#ee9a00"
|
||||
-- , "--high" , "#882410"
|
||||
-- ] 10
|
||||
-- , Run Network "wlp36s0" [ "--template" , "wlan: <icon=net_up_20.xpm/><tx>kB/s <icon=net_down_20.xpm/><rx>kB/s"
|
||||
-- , "--Low" , "100000" -- units: B/s
|
||||
-- , "--High" , "500000" -- units: B/s
|
||||
-- , "--low" , "#95C05D"
|
||||
-- , "--normal" , "#ee9a00"
|
||||
-- , "--high" , "#882410"
|
||||
-- ] 10
|
||||
|
||||
-- network activity monitor (dynamic interface resolution)
|
||||
, Run DynNetwork [ "--template" , "<dev>: <icon=net_up_20.xpm/><tx>kB/s <icon=net_down_20.xpm/><rx>kB/s"
|
||||
, "--Low" , "100000" -- units: B/s
|
||||
, "--High" , "500000" -- units: B/s
|
||||
, "--low" , "#95C05D"
|
||||
, "--normal" , "#ee9a00"
|
||||
, "--high" , "#882410"
|
||||
] 10
|
||||
|
||||
-- cpu activity monitor
|
||||
, Run Cpu [ "--template" , "cpu: <total>%"
|
||||
, "--Low" , "30" -- units: %
|
||||
, "--High" , "60" -- units: %
|
||||
, "--low" , "#95C05D"
|
||||
, "--normal" , "#ee9a00"
|
||||
, "--high" , "#882410"
|
||||
] 10
|
||||
|
||||
-- memory usage monitor
|
||||
, Run Memory [ "--template" ,"mem: <usedratio>% (<used>Mb)"
|
||||
, "--Low" , "20" -- units: %
|
||||
, "--High" , "90" -- units: %
|
||||
, "--low" , "#95C05D"
|
||||
, "--normal" , "#ee9a00"
|
||||
, "--high" , "#882410"
|
||||
] 10
|
||||
|
||||
-- time and date indicator
|
||||
-- (%F = y-m-d date, %a = day of week, %T = h:m:s time)
|
||||
, Run Date "%a %d %b %Y %H:%M:%S" "date" 10
|
||||
|
||||
-- keyboard layout indicator
|
||||
, Run Kbd [ ("us(dvorak)" , "DV")
|
||||
, ("us" , "US")
|
||||
]
|
||||
|
||||
-- Runs a standard shell command 'uname -r' to get kernel version
|
||||
, Run Com "uname" ["-r"] "" 3600
|
||||
|
||||
-- Script that dynamically adjusts xmobar padding depending on number of trayer icons.
|
||||
, Run Com "/home/solomon/.config/xmobar/trayer-padding-icon.sh" [] "trayerpad" 20
|
||||
|
||||
]
|
||||
}
|
||||
@ -1,124 +0,0 @@
|
||||
Config {
|
||||
|
||||
-- appearance
|
||||
font = "xft:Fira Code:size=14:bold:antialias=true:hinting=true"
|
||||
, bgColor = "#14071F"
|
||||
, fgColor = "#646464"
|
||||
, position = Top
|
||||
, border = BottomB
|
||||
, borderColor = "#646464"
|
||||
, iconRoot = "/home/solomon/.xmonad/xpm/" -- default: "."
|
||||
|
||||
-- layout
|
||||
, sepChar = "%" -- delineator between plugin names and straight text
|
||||
, alignSep = "}{" -- separator between left-right alignment
|
||||
, template = " <action=`xdotool key super+p`><icon=haskell_20.xpm/></action> <fc=#f3617a>%cpu%</fc> <fc=#805a9b>|</fc> <fc=#b262cd>%memory%</fc> <fc=#805a9b>|</fc> <fc=#706bc2>%dynnetwork%</fc> <fc=#805a9b>|</fc> %UnsafeStdinReader% }\
|
||||
\{ <fc=#ee9a00>%date%</fc> <fc=#805a9b>|</fc> <fc=#b55322>%YPAD%</fc> <fc=#805a9b>|</fc> <fc=#882410>%kbd%</fc> <fc=#805a9b>|</fc> <fc=#6e1a11>%uname%</fc> %trayerpad%"
|
||||
}
|
||||
|
||||
-- general behavior
|
||||
, lowerOnStart = True -- send to bottom of window stack on start
|
||||
, hideOnStart = False -- start with window unmapped (hidden)
|
||||
, allDesktops = True -- show on all desktops
|
||||
, overrideRedirect = True -- set the Override Redirect flag (Xlib)
|
||||
, pickBroadest = False -- choose widest display (multi-monitor)
|
||||
, persistent = True -- enable/disable hiding (True = disabled)
|
||||
|
||||
-- plugins
|
||||
-- Numbers can be automatically colored according to their value. xmobar
|
||||
-- decides color based on a three-tier/two-cutoff system, controlled by
|
||||
-- command options:
|
||||
-- --Low sets the low cutoff
|
||||
-- --High sets the high cutoff
|
||||
--
|
||||
-- --low sets the color below --Low cutoff
|
||||
-- --normal sets the color between --Low and --High cutoffs
|
||||
-- --High sets the color above --High cutoff
|
||||
--
|
||||
-- The --template option controls how the plugin is displayed. Text
|
||||
-- color can be set by enclosing in <fc></fc> tags. For more details
|
||||
-- see http://projects.haskell.org/xmobar/#system-monitor-plugins.
|
||||
, commands =
|
||||
-- weather monitor
|
||||
[ Run Weather "YPAD" ["--template" , "<station>: <tempC>°C"
|
||||
, "--Low" , "10"
|
||||
, "--High" , "25"
|
||||
, "--normal" , "#95C05D"
|
||||
, "--high" , "red"
|
||||
, "--low" , "lightblue"
|
||||
] 36000
|
||||
|
||||
-- -- network activity monitor
|
||||
-- , Run Network "enp33s0" [ "--template" , "eth: <icon=net_up_20.xpm/><tx>kB/s <icon=net_down_20.xpm/><rx>kB/s"
|
||||
-- , "--Low" , "100000" -- units: B/s
|
||||
-- , "--High" , "500000" -- units: B/s
|
||||
-- , "--low" , "#95C05D"
|
||||
-- , "--normal" , "#ee9a00"
|
||||
-- , "--high" , "#882410"
|
||||
-- ] 10
|
||||
-- , Run Network "wlp36s0" [ "--template" , "wlan: <icon=net_up_20.xpm/><tx>kB/s <icon=net_down_20.xpm/><rx>kB/s"
|
||||
-- , "--Low" , "100000" -- units: B/s
|
||||
-- , "--High" , "500000" -- units: B/s
|
||||
-- , "--low" , "#95C05D"
|
||||
-- , "--normal" , "#ee9a00"
|
||||
-- , "--high" , "#882410"
|
||||
-- ] 10
|
||||
|
||||
Run BatteryP ["BAT0"]
|
||||
["-t", "<acstatus><watts> (<left>%)",
|
||||
"-L", "10", "-H", "80", "-p", "3",
|
||||
"--", "-O", "<fc=green>On</fc> - ", "-i", "",
|
||||
"-L", "-15", "-H", "-5",
|
||||
"-l", "red", "-m", "blue", "-h", "green"
|
||||
"-a", "notify-send -u critical 'Battery running out!!'",
|
||||
"-A", "3"]
|
||||
600
|
||||
|
||||
-- network activity monitor (dynamic interface resolution)
|
||||
, Run DynNetwork [ "--template" , "<dev>: <icon=net_up_20.xpm/><tx>kB/s <icon=net_down_20.xpm/><rx>kB/s"
|
||||
, "--Low" , "100000" -- units: B/s
|
||||
, "--High" , "500000" -- units: B/s
|
||||
, "--low" , "#95C05D"
|
||||
, "--normal" , "#ee9a00"
|
||||
, "--high" , "#882410"
|
||||
] 10
|
||||
|
||||
-- cpu activity monitor
|
||||
, Run Cpu [ "--template" , "cpu: <total>%"
|
||||
, "--Low" , "30" -- units: %
|
||||
, "--High" , "60" -- units: %
|
||||
, "--low" , "#95C05D"
|
||||
, "--normal" , "#ee9a00"
|
||||
, "--high" , "#882410"
|
||||
] 10
|
||||
|
||||
-- memory usage monitor
|
||||
, Run Memory [ "--template" ,"mem: <usedratio>% (<used>Mb)"
|
||||
, "--Low" , "20" -- units: %
|
||||
, "--High" , "90" -- units: %
|
||||
, "--low" , "#95C05D"
|
||||
, "--normal" , "#ee9a00"
|
||||
, "--high" , "#882410"
|
||||
] 10
|
||||
|
||||
-- time and date indicator
|
||||
-- (%F = y-m-d date, %a = day of week, %T = h:m:s time)
|
||||
, Run Date "%a %d %b %Y %H:%M:%S" "date" 10
|
||||
|
||||
-- keyboard layout indicator
|
||||
, Run Kbd [ ("us(dvorak)" , "DV")
|
||||
, ("us" , "US")
|
||||
]
|
||||
|
||||
-- Runs a standard shell command 'uname -r' to get kernel version
|
||||
, Run Com "uname" ["-r"] "" 3600
|
||||
|
||||
-- Script that dynamically adjusts xmobar padding depending on number of trayer icons.
|
||||
, Run Com "/home/solomon/.config/xmobar/trayer-padding-icon.sh" [] "trayerpad" 20
|
||||
|
||||
-- Prints out the left side items such as workspaces, layout, etc.
|
||||
-- The workspaces are 'clickable' in my configs.
|
||||
--, Run UnsafeStdinReader
|
||||
|
||||
]
|
||||
}
|
||||
@ -511,7 +511,19 @@ myStartupHook = do
|
||||
-- Run xmonad with the settings you specify. No need to modify this.
|
||||
main :: IO ()
|
||||
main = do
|
||||
xmproc <- spawnPipe "xmobar -x 0 /home/solomon/.config/xmobar/xmobarrc.hs"
|
||||
|
||||
-- need to learn more haskell but I want to do something like the following
|
||||
-- need this because I share configs over computers
|
||||
-- let toProc = ""
|
||||
-- let host = spawnOnce "cat /etc/hostname"
|
||||
-- if host isSubsequenceOf "archdesktop"
|
||||
-- then let toProc = "xmobar -x 0 /home/solomon/.config/xmobar/xmobarrc-desktop.hs"
|
||||
-- else let toProc = "xmobar -x 0 /home/solomon/.config/xmobar/xmobarrc-laptop.hs"
|
||||
-- xmproc0 <- spawnPipe toProc
|
||||
|
||||
xmproc0 <- spawnPipe "xmobar -x 0 /home/solomon/.config/xmobar/xmobarrc-main.hs"
|
||||
xmproc1 <- spawnPipe "xmobar -x 1 /home/solomon/.config/xmobar/xmobarrc-sub.hs"
|
||||
xmproc2 <- spawnPipe "xmobar -x 2 /home/solomon/.config/xmobar/xmobarrc-sub.hs"
|
||||
-- xmproc <- spawnPipe "xmobar -x 0 /home/solomon/.config/xmobar/xmobarrc0"
|
||||
-- xmproc <- spawnPipe "xmobar -x 1 /home/solomon/.config/xmobar/xmobarrc1"
|
||||
-- xmproc <- spawnPipe "xmobar -x 2 /home/solomon/.config/xmobar/xmobarrc2"
|
||||
@ -539,7 +551,9 @@ main = do
|
||||
handleEventHook = myEventHook <+> fullscreenEventHook,
|
||||
-- logHook = myLogHook,
|
||||
logHook = myLogHook <+> dynamicLogWithPP xmobarPP
|
||||
{ ppOutput = hPutStrLn xmproc
|
||||
{ ppOutput = \x -> hPutStrLn xmproc0 x
|
||||
>> hPutStrLn xmproc1 x
|
||||
>> hPutStrLn xmproc2 x
|
||||
, ppCurrent = xmobarColor "#a8de45" "" . wrap "[" "]" -- Current workspace in xmobar
|
||||
, ppVisible = xmobarColor "#88ae55" "" . clickable -- Visible but not current workspace
|
||||
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" . clickable -- Hidden workspaces in xmobar
|
||||
|
||||
Loading…
Reference in New Issue
Block a user