diff options
| author | jao <jao@gnu.org> | 2022-03-05 01:04:21 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-03-05 01:04:21 +0000 |
| commit | e3c13e5350291f43c94a1ad3dd323cd50b9438f9 (patch) | |
| tree | 0ef28276b11cbc011c55f3c186d6f711826dbdb9 | |
| parent | 6b594ef5f2e364448de0c11b5ac0535cf47f90f1 (diff) | |
| download | xmobar-config-e3c13e5350291f43c94a1ad3dd323cd50b9438f9.tar.gz xmobar-config-e3c13e5350291f43c94a1ad3dd323cd50b9438f9.tar.bz2 | |
alternatives for exwm/xmonad
| -rw-r--r-- | src/TopC.hs | 30 |
1 files changed, 23 insertions, 7 deletions
diff --git a/src/TopC.hs b/src/TopC.hs index 01615f5..9eb838e 100644 --- a/src/TopC.hs +++ b/src/TopC.hs @@ -15,8 +15,9 @@ topProcL p = TopProc (p <~> ["-t" diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")] (diskArgs p) 10 -diskIOS p = DiskIO [("/", "<total>"), ("/home", "<total>")] - (diskArgs p) 10 + +diskIOS p = DiskIO [("/", "<read> <write>")] (diskArgs p) 10 + mpd a p i = MPDX [ "-W", "12", "-b", "░", "-f", "▒", "-t", "<statei> <remaining>" , "--", "-p", p, "-P", fni "\xf144", "-Z", fni i, "-S", fni i] 20 a @@ -24,11 +25,22 @@ mpd a p i = mpdMon = mpd "mpd" "6600" "\xf001" mopMon = mpd "mopidy" "6669" "\xf1bc" -mail' p = MailX [ ("J", "jao", pHigh p) - , ("B", "bigml", pHigh p) - , ("F", "feeds", pLow p)] +mail' p = MailX [ ("J", "jao.inbox", pHigh p) + , ("H", "jao.hacking", "") + , ("b", "bigml.bugs", pHigh p) + , ("B", "bigml.inbox", "") + , ("S", "bigml.support", "") + -- , ("W", "bigml.drivel", pLow p) + -- , ("l", "bigml.lists", pLow p) + -- , ("D", "jao.drivel", pLow p) + -- , ("F", "feeds", pLow p) + -- , ("E", "feeds.emacs", pLow p) + -- , ("P", "feeds.prog", pLow p) + -- , ("w", "feeds.words", pLow p) + ] [ "-d", "~/var/mail" , "-s", " "] "mail" +mail'' p = MailX [] [ "-d", "~/var/mail" , "-s", " "] "mail" config p = (baseConfig p) { position = TopSize C 100 (defaultHeight - 1) @@ -39,11 +51,11 @@ config p = (baseConfig p) { , alpha = 192 , border = FullB , commands = [ Run (topProcL p) - , Run (mail' p) + , Run ((if isXmonad then mail' else mail'') p) , Run (iconBatt p) , Run mpdMon , Run (NamedXPropertyLog "_EMACS_LOG" "elog") - , Run (NamedXPropertyLog "_XMONAD_TRAYPAD" "tray") + , tray , if pIsLight p then Run (cpu p) else Run (cpuBars p) , Run memoratio , Run (diskU p) @@ -88,6 +100,10 @@ config p = (baseConfig p) { ++ "|laTime| " } where dimi = fc (pDim p) . fni w = weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p + isXmonad = pWm p == Just "xmonad" + tray = if isXmonad + then Run (NamedXPropertyLog "_XMONAD_TRAYPAD" "tray") + else Run trayPadding main :: IO () main = palette >>= configFromArgs . config >>= xmobar |