diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-16 12:36:35 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-16 12:36:35 +0100 |
| commit | 4ce50af0099d6617b45b6ba6ee924cc2797c2aa7 (patch) | |
| tree | 9e78229f2671cf4112982efcc8ff8b8b2c318dd2 | |
| parent | a781f8b0f79c2104c60db48aa6bc78dd6e42d061 (diff) | |
| download | XMonadContrib-4ce50af0099d6617b45b6ba6ee924cc2797c2aa7.tar.gz XMonadContrib-4ce50af0099d6617b45b6ba6ee924cc2797c2aa7.tar.xz XMonadContrib-4ce50af0099d6617b45b6ba6ee924cc2797c2aa7.zip | |
Util.Themes: add ppThemeInfor to render the theme info
darcs-hash:20080216113635-32816-25cdcb42aa91c55c1d9d71a3a0cb1ebd882d53f8.gz
| -rw-r--r-- | XMonad/Util/Themes.hs | 7 |
1 files changed, 7 insertions, 0 deletions
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 |