ADD xmobar config

This commit is contained in:
Nathan Dwarshuis 2020-03-15 13:12:01 -04:00
parent 25c51dfc1d
commit 4832539e6c
3 changed files with 126 additions and 1 deletions

100
bin/xmobar.hs Normal file
View File

@ -0,0 +1,100 @@
import Xmobar
fgColor0 = "black"
fgColor1 = "#888888"
bgColor0 = "#eeeeee"
bdColor = "#cccccc"
wrapColor c s = "<fc=" ++ c ++ ">" ++ s ++ "</fc>"
sep = wrapColor fgColor1 " : "
myTemplate = concat
[ "%UnsafeStdinReader%"
, " }{ "
, "%wlp0s20f3wi%"
, sep, "%alsa:default:Master%"
, sep, "%battery%"
, sep, "%bright%"
, sep, "%locks%"
, sep, "%date% "
]
config = defaultConfig {
font = "xft:DejaVu Sans Mono:size=11:bold:antialias=true"
, additionalFonts =
[ "xft:FontAwesome:pixelsize=13:antialias=true:hinting=true"
, "xft:Symbola:size=13:bold:antialias=true"
]
, textOffset = 16
, textOffsets = [ 16, 17 ]
, bgColor = bgColor0
, fgColor = fgColor0
, position = BottomSize C 100 24
, border = NoBorder
, borderColor = bdColor
, sepChar = "%"
, alignSep = "}{"
, template = myTemplate
, lowerOnStart = False
, hideOnStart = False
, allDesktops = True
, overrideRedirect = True
, pickBroadest = False
, persistent = True
, iconRoot = "/home/ndwar/.local/share/xmobar/icons"
, commands =
[ Run $ Alsa "default" "Master"
[ "-t", "<status><volume>%"
, "--"
, "-O", "<fn=1>\xf028</fn>"
, "-o", "<fn=1>\xf026 </fn>"
, "-c", fgColor0
, "-C", fgColor0
]
, Run $ Battery [ "--template", "<acstatus><left>"
, "--Low", "10"
, "--High", "80"
, "--low", "red"
, "--normal", fgColor0
, "--high", fgColor0
, "--"
, "-P"
, "-o" , "<fn=1>\xf0e7</fn>"
, "-O" , "<fn=1>\xf1e6</fn>"
, "-i" , "<fn=1>\xf1e6</fn>"
] 50
, Run $ Brightness ["-t", "<fn=1>\xf185</fn><percent>%"
, "--"
, "-D", "intel_backlight"
] 10
, Run $ Wireless "wlp0s20f3"
[ "-t", "<qualityipat><essid>"
, "--"
, "--quality-icon-pattern", "<icon=wifi_%%.xpm/>"
] 5
, Run $ Locks
[ "-N", "<fn=2>\x1f13d</fn>"
, "-n", wrapColor fgColor1 "<fn=2>\x1f13d</fn>"
, "-C", "<fn=2>\x1f132</fn>"
, "-c", wrapColor fgColor1 "<fn=2>\x1f132</fn>"
, "-s", ""
, "-S", ""
, "-d", "<fn=2> </fn>"
]
, Run $ Date "%Y-%m-%d %H:%M" "date" 10
, Run UnsafeStdinReader
]
}
main :: IO ()
main = xmobar config

View File

@ -25,6 +25,13 @@ executable xmonad
default-language: Haskell2010
ghc-options: -Wall -Werror -fno-warn-missing-signatures -threaded
executable xmobar
main-is: bin/xmobar.hs
build-depends: base
, xmobar
default-language: Haskell2010
ghc-options: -Wall -Werror -fno-warn-missing-signatures -threaded
executable xit-event
main-is: bin/xit-event.hs
build-depends: base

View File

@ -39,10 +39,28 @@ packages:
# - git: https://github.com/commercialhaskell/stack.git
# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
#
extra-deps: []
extra-deps:
- iwlib-0.1.0
- github: ndwarshuis/xmobar
commit: 4d750adcdecf5c1085ff583cf69392fcaf5dfaf7
# Override default flag values for local packages and extra-deps
# flags: {}
flags:
xmobar:
with_dbus: true
with_threaded: true
with_utf8: true
with_xft: true
with_mpd: false
with_mpris: false
with_inotify: false
with_iwlib: true
with_alsa: true
with_datezone: true
with_xpm: true
with_uvmeter: false
with_weather: false
# Extra package databases containing global packages
# extra-package-dbs: []