factor out defnList widget

1 files changed, 13 insertions, 0 deletions

diff --git a/Brick/Widgets/DefnList.hs b/Brick/Widgets/DefnList.hs
new file mode 100644
index 0000000..5750cdc
--- /dev/null
+++ b/Brick/Widgets/DefnList.hs
@@ -0,0 +1,13 @@
+module Brick.Widgets.DefnList (defnList) where
+
+import           Brick.Types
+import           Brick.Widgets.Core
+
+defnList :: [(String, String)] -> Widget ()
+defnList defns = vBox $ line <$> defns
+  where
+    line (label, content) = str $
+        label ++ sep ++ (gap label content) ++ content
+    gap a b = take (maxWidth - length a - length b - length sep) $ repeat ' '
+    maxWidth = maximum $ map (\(x,y) -> length sep + length x + length y) defns
+    sep = ":   "