From be2b1f71e07f5cf710a4bf80b92fbc085dc208c7 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 18 Oct 2007 02:28:21 +0200
Subject: shorten in sjanssenPP too

darcs-hash:20071018002821-a5988-f23531a42a52fc2edf1700f201ac3b0e631697be.gz
---
 DynamicLog.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'DynamicLog.hs')

diff --git a/DynamicLog.hs b/DynamicLog.hs
index 888ed68..68d5608 100644
--- a/DynamicLog.hs
+++ b/DynamicLog.hs
@@ -167,6 +167,6 @@ defaultPP = PP { ppCurrent         = wrap "[" "]"
 -- 'xmobarColor' and the record update on defaultPP
 sjanssenPP :: PP
 sjanssenPP = defaultPP { ppCurrent = xmobarColor "white" "#ff000000"
-                       , ppTitle = xmobarColor "#00ee00" ""
+                       , ppTitle = xmobarColor "#00ee00" "" . shorten 50
                        , ppOrder = reverse
                        }
-- 
cgit v1.2.3