Border: add function to build border style from a character

programs/BorderDemo.hs

@@ -21,6 +21,7 @@ styles =
     , ("unicode bold", unicodeBold)
     , ("unicode rounded", unicodeRounded)
     , ("custom", custom)
+    , ("from 'x'", borderStyleFromChar 'x')
     ]
 
 custom :: BorderStyle

src/Brick/Widgets/Border/Style.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Brick.Widgets.Border.Style
   ( BorderStyle(..)
+  , borderStyleFromChar
   , ascii
   , unicode
   , unicodeBold
@@ -40,6 +41,11 @@ data BorderStyle =
 instance Default BorderStyle where
     def = ascii
 
+-- | Make a border style using the specified character everywhere.
+borderStyleFromChar :: Char -> BorderStyle
+borderStyleFromChar c =
+    BorderStyle c c c c c c c c c c c
+
 -- |An ASCII border style which will work in any terminal.
 ascii :: BorderStyle
 ascii =