From 1cc4f0c1924e20fad7018307c549cee445afbaf7 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 1 Dec 2018 19:13:08 +0000
Subject: Directory layout directly usable by xmobar executable

---
 src/MPD.hs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 src/MPD.hs

(limited to 'src/MPD.hs')

diff --git a/src/MPD.hs b/src/MPD.hs
new file mode 100644
index 0000000..d237867
--- /dev/null
+++ b/src/MPD.hs
@@ -0,0 +1,27 @@
+import Xmobar
+import Config (palette)
+import qualified Bottom (config)
+
+mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t"
+          , " <lapsed> <fc=seashell3><fn=1><bar></fn></fc>"] 10
+
+autoMPD = AutoMPD [ "-T", "160", "-E", "...", "-W", "10", "-t"
+                  , "<length> <ppos>/<plength> \
+                    \<fn=0><fc=darkolivegreen><title></fc></fn> \
+                    \<fn=0><album></fn> \
+                    \<fn=0><fc=dodgerblue4><artist></fc> \
+                    \<fc=burlywood4><composer></fc> <date></fn>"]
+
+
+config p = (Bottom.config [(Run mpd), (Run autoMPD)] p) {
+  template =  "|kbd||default:Master| |default:Capture| \
+              \|mpd| |autompd| {} |mbox| \
+              \|EGPH| \
+              \|diskio| |disku| · |bright| · |coretemp| \
+              \|memory| · |uptime| |b0| "
+  , additionalFonts = ["xft:Hack-7"]
+  , textOffsets = [17]
+  }
+
+main :: IO ()
+main = palette >>= xmobar . config
-- 
cgit v1.2.3