From 4ce50af0099d6617b45b6ba6ee924cc2797c2aa7 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 16 Feb 2008 12:36:35 +0100
Subject: Util.Themes: add ppThemeInfor to render the theme info

darcs-hash:20080216113635-32816-25cdcb42aa91c55c1d9d71a3a0cb1ebd882d53f8.gz
---
 XMonad/Util/Themes.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'XMonad/Util')

diff --git a/XMonad/Util/Themes.hs b/XMonad/Util/Themes.hs
index fab0f5b..540b31c 100644
--- a/XMonad/Util/Themes.hs
+++ b/XMonad/Util/Themes.hs
@@ -16,6 +16,7 @@ module XMonad.Util.Themes
     ( -- * Usage
       -- $usage
       listOfThemes
+    , ppThemeInfo
     , xmonadTheme
     , smallClean
     , robertTheme
@@ -68,6 +69,12 @@ data ThemeInfo =
 newTheme :: ThemeInfo
 newTheme = TI "" "" "" defaultTheme
 
+ppThemeInfo :: ThemeInfo -> String
+ppThemeInfo t = themeName t <> themeDescription t <> "by" <> themeAuthor t
+    where "" <> x = x
+          x <> y = x ++ " - " ++ y
+
+
 listOfThemes :: [ThemeInfo]
 listOfThemes = [ xmonadTheme
                , smallClean
-- 
cgit v1.2.3