From 4d9ea9acbeaad3b6b49af75108fce47990638ed5 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 17 May 2018 15:06:58 -0700
Subject: [PATCH] [taffybar] Better padding styling

---
 dotfiles/config/taffybar/taffybar     | 2 +-
 dotfiles/config/taffybar/taffybar.css | 7 +++++++
 dotfiles/config/taffybar/taffybar.hs  | 5 ++---
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/dotfiles/config/taffybar/taffybar b/dotfiles/config/taffybar/taffybar
index 6b1f3732..441f16f3 160000
--- a/dotfiles/config/taffybar/taffybar
+++ b/dotfiles/config/taffybar/taffybar
@@ -1 +1 @@
-Subproject commit 6b1f3732ce5af9c8383585ad277c9866d459c9f4
+Subproject commit 441f16f381c66e22d95054a605ebc348012b93ad
diff --git a/dotfiles/config/taffybar/taffybar.css b/dotfiles/config/taffybar/taffybar.css
index c25f7b71..96df443d 100644
--- a/dotfiles/config/taffybar/taffybar.css
+++ b/dotfiles/config/taffybar/taffybar.css
@@ -25,6 +25,13 @@
 }
 
 .InnerPad {
+	padding-bottom: 12px;
+	padding-top: 12px;
+	padding-left: 4px;
+	padding-right: 4px;
+}
+
+.Workspaces .InnerPad {
 	padding-bottom: 5px;
 	padding-top: 5px;
 	padding-left: 2px;
diff --git a/dotfiles/config/taffybar/taffybar.hs b/dotfiles/config/taffybar/taffybar.hs
index a8565e4e..9b88a693 100644
--- a/dotfiles/config/taffybar/taffybar.hs
+++ b/dotfiles/config/taffybar/taffybar.hs
@@ -137,7 +137,6 @@ main = do
             case res of
               IINone -> IIFilePath $ inResourcesDirectory "exe-icon.png"
               _ -> res
-      clock = textClockNew Nothing "%a %b %_d %r" 1
       cpu = pollingGraphNew cpuCfg 0.5 cpuCallback
       mem = pollingGraphNew memCfg 1 memCallback
       layout = layoutNew defaultLayoutConfig
@@ -158,12 +157,12 @@ main = do
       workspaces = workspacesNew myWorkspacesConfig
       baseConfig = defaultSimpleTaffyConfig
         { startWidgets =
-            [ workspaces
+            [ flip widgetSetClass "Workspaces" =<< workspaces
             , layout >>= buildPadBox
             , windows >>= buildPadBox
             ]
         , endWidgets = map (>>= buildPadBox)
-          [ clock >>= setMinWidth 200
+          [ textClockNew Nothing "%a %b %_d %r" 1
           , textBatteryNew "$percentage$% ($time$)"
           , batteryIconNew
           , sniTrayNew