From 1928586b1e2bc912c392f47802fefdc0a4a80d55 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 24 Jul 2021 17:51:48 -0600 Subject: [PATCH] [taffybar] Multiline coinbase expression --- dotfiles/config/taffybar/taffybar.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/dotfiles/config/taffybar/taffybar.hs b/dotfiles/config/taffybar/taffybar.hs index 095c6de4..10f392ad 100644 --- a/dotfiles/config/taffybar/taffybar.hs +++ b/dotfiles/config/taffybar/taffybar.hs @@ -41,6 +41,7 @@ import System.Taffybar.Information.X11DesktopInfo import System.Taffybar.SimpleConfig import System.Taffybar.Util import System.Taffybar.Widget +import System.Taffybar.Widget.Generic.Icon import System.Taffybar.Widget.Generic.PollingGraph import System.Taffybar.Widget.Generic.PollingLabel import System.Taffybar.Widget.Util @@ -54,7 +55,10 @@ getDaysCandles productString = do CB.run CB.Production (candles CB.userAgent) coinbaseProductLabel productString = - pollingLabelNew 60.0 $ Data.Text.pack . ((productString ++ ": ") ++) . show . CB.unPrice . CB.close . head <$> getDaysCandles (Data.Text.pack productString) + pollingLabelNew 60.0 $ Data.Text.pack . show . CB.unPrice . CB.close . head <$> + getDaysCandles (Data.Text.pack productString) + + mkRGBA (r, g, b, a) = (r/256, g/256, b/256, a/256) blue = mkRGBA (42, 99, 140, 256)