Merge pull request #68 from mightybyte/centerText

Export centerText function

Author: ali-abrar

ChangeLog.md

@@ -10,6 +10,7 @@
 * Added a new `scrollable` widget in `Reflex.Vty.Widget.Scroll` that allows vertical scrolling when an `Image` is taller than the widget's height.
 * Add `ctrlc`, a convenience function that returns an event that fires when a Ctrl+c keypress is detected
 * Fix several issues with wide chars, cursor position and word wrapping in Zipper.hs
+* Add `centerText` function to Reflex.Vty.Widget.Box
 
 ## 0.4.1.1
 

src/Reflex/Vty/Widget/Box.hs

@@ -79,7 +79,7 @@ boxTitle boxStyle title child = do
           sides =
             [ withinImage (Region (left + 1) top (width - 2) 1) $
                 V.text' attr $
-                  hPadText title' (_boxStyle_n style) (width - 2)
+                  centerText title' (_boxStyle_n style) (width - 2)
             , withinImage (Region right (top + 1) 1 (height - 2)) $
                 V.charFill attr (_boxStyle_e style) 1 (height - 2)
             , withinImage (Region (left + 1) bottom (width - 2) 1) $
@@ -98,16 +98,23 @@ boxTitle boxStyle title child = do
                 V.char attr (_boxStyle_sw style)
             ]
       in sides ++ if width > 1 && height > 1 then corners else []
-    hPadText :: T.Text -> Char -> Int -> T.Text
-    hPadText t c l = if lt >= l
-                     then t
-                     else left <> t <> right
-      where
-        lt = T.length t
-        delta = l - lt
-        mkHalf n = T.replicate (n `div` 2) (T.singleton c)
-        left = mkHalf $ delta + 1
-        right = mkHalf delta
+
+-- | Pad text  on the left and right with the given character so that it is
+-- centered
+centerText
+  :: T.Text -- ^ Text to center
+  -> Char -- ^ Padding character
+  -> Int -- ^ Width
+  -> T.Text -- ^ Padded text
+centerText t c l = if lt >= l
+                 then t
+                 else left <> t <> right
+  where
+    lt = T.length t
+    delta = l - lt
+    mkHalf n = T.replicate (n `div` 2) (T.singleton c)
+    left = mkHalf $ delta + 1
+    right = mkHalf delta
 
 -- | A box without a title
 box :: (MonadFix m, MonadHold t m, HasDisplayRegion t m, HasImageWriter t m, HasInput t m, HasFocusReader t m, HasTheme t m)