From c574e47d69431e9d87de6ad8c3ff7906273a57b7 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Wed, 1 Mar 2017 10:04:22 -0700
Subject: tighten up rows of the UI

---
 UI.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/UI.hs b/UI.hs
index b3482aa..7de5f0e 100644
--- a/UI.hs
+++ b/UI.hs
@@ -58,9 +58,9 @@ drawUI st = [ui]
     ui = vBox [ hBorderWithLabel (str "[ Status ]")
               , vLimit 3 $ C.center $ status
               , hBorderWithLabel (str "[ Current settings ]")
-              , padAll 1 $ C.center $ settingsBox
+              , vLimit 8 $ C.center $ settingsBox
               , hBorderWithLabel (str "[ Presets ]")
-              , padAll 1 $ C.center $ presetsBox
+              , vLimit (2 + length presets) $ C.center $ presetsBox
               , hBorderWithLabel (str "[ Actions ]")
               , vLimit 6 $ C.center $ actionsBox
               ]
-- 
cgit v1.2.3