From 2c2e4ce205fcfe57a1228863bdecd7b486ea3787 Mon Sep 17 00:00:00 2001
From: "sean.escriva" <sean.escriva@gmail.com>
Date: Thu, 9 Apr 2009 18:35:13 +0200
Subject: X.H.DynamicLog: provides trim, inverse of pad
Ignore-this: 9d92ff592f2bc4f041b85d1314058fdc
darcs-hash:20090409163513-29414-6e265fe7109d15b55b040514bca469d5c68f2bc4.gz
---
XMonad/Hooks/DynamicLog.hs | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 51fb70b..3bc979b 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -38,7 +38,7 @@ module XMonad.Hooks.DynamicLog (
dzenPP, xmobarPP, sjanssenPP, byorgeyPP,
-- * Formatting utilities
- wrap, pad, shorten,
+ wrap, pad, trim, shorten,
xmobarColor, xmobarStrip,
dzenColor, dzenEscape, dzenStrip,
@@ -56,6 +56,7 @@ module XMonad.Hooks.DynamicLog (
--
import XMonad
import Control.Monad
+import Data.Char ( isSpace )
import Data.Maybe ( isJust, catMaybes )
import Data.List
import qualified Data.Map as M
@@ -303,6 +304,11 @@ wrap l r m = l ++ m ++ r
pad :: String -> String
pad = wrap " " " "
+-- | Trim leading and trailing whitespace from a string.
+trim :: String -> String
+trim = f . f
+ where f = reverse . dropWhile isSpace
+
-- | Limit a string to a certain length, adding "..." if truncated.
shorten :: Int -> String -> String
shorten n xs | length xs < n = xs
--
cgit v1.2.3