From ab04e29e4240ed07f4aa1fd3327b0f48368f5b56 Mon Sep 17 00:00:00 2001
From: Yecine Megdiche <megdiche@in.tum.de>
Date: Sat, 29 Aug 2020 19:44:01 +0200
Subject: [PATCH] added xmobarBorder

---
 CHANGES.md                 |  2 ++
 XMonad/Hooks/DynamicLog.hs | 16 ++++++++++++++--
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index 2f5d4be1..9c3478d9 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -145,6 +145,8 @@
   * `XMonad.Util.EZConfig`
     - Added support for XF86Bluetooth.
 
+  * `XMonad.Hooks.DynamicLog`
+    - Added `xmobarBorder` function to create boorders around strings.
 
 ## 0.16
 
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index c76ac133..2c072e54 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -43,8 +43,8 @@ module XMonad.Hooks.DynamicLog (
 
     -- * Formatting utilities
     wrap, pad, trim, shorten,
-    xmobarColor, xmobarAction, xmobarRaw,
-    xmobarStrip, xmobarStripTags,
+    xmobarColor, xmobarAction, xmobarBorder,
+    xmobarRaw, xmobarStrip, xmobarStripTags,
     dzenColor, dzenEscape, dzenStrip,
 
     -- * Internal formatting functions
@@ -436,6 +436,18 @@ xmobarAction command button = wrap l r
         l = "<action=`" ++ command ++ "` button=" ++ button ++ ">"
         r = "</action>"
 
+-- | Use xmobar box to add a border to an arbitrary string.
+xmobarBorder :: String -- ^ Border type. Possible values: VBoth, HBoth, Full,
+                       -- Top, Bottom, Left or Right
+             -> String -- ^ color: a color name, or #rrggbb format
+             -> Int    -- ^ width in pixels
+             -> String -- ^ output string
+             -> String
+xmobarBorder border color width = wrap prefix "</box>"
+  where
+    prefix = "<box type=" ++ border ++ " width=" ++ show width ++ " color="
+      ++ color ++ ">"
+
 -- | Encapsulate arbitrary text for display only, i.e. untrusted content if
 -- wrapped (perhaps from window titles) will be displayed only, with all tags
 -- ignored. Introduced in xmobar 0.21; see their documentation. Be careful not