From 9e4008c009a9e3bf991b509e53fc39dfb4e97201 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Thu, 7 Feb 2008 19:43:21 +0100
Subject: Add Prompt.Theme: a prompt for dynamically applying a theme to the
 current workspace

darcs-hash:20080207184321-32816-90de355649c2e7190726ee5f0de2ca99a0b19bdc.gz
---
 XMonad/Prompt/Theme.hs | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 XMonad/Prompt/Theme.hs

(limited to 'XMonad/Prompt/Theme.hs')

diff --git a/XMonad/Prompt/Theme.hs b/XMonad/Prompt/Theme.hs
new file mode 100644
index 0000000..6392f41
--- /dev/null
+++ b/XMonad/Prompt/Theme.hs
@@ -0,0 +1,52 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonad.Prompt.Theme
+-- Copyright   :  (C) 2007 Andrea Rossato
+-- License     :  BSD3
+--
+-- Maintainer  :  andrea.rossato@unibz.it
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- A prompt for chnaging the theme of the current workspace
+--
+-----------------------------------------------------------------------------
+
+module XMonad.Prompt.Theme
+    ( -- * Usage
+      -- $usage
+      themePrompt,
+    ) where
+
+import Control.Arrow ( (&&&) )
+import qualified Data.Map as M
+import Data.Maybe ( fromMaybe )
+import XMonad
+import XMonad.Prompt
+import XMonad.Layout.Decoration
+import XMonad.Util.Themes
+
+-- $usage
+-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
+--
+-- > import XMonad.Prompt
+-- > import XMonad.Prompt.Theme
+--
+-- in your keybindings add:
+--
+-- >   , ((modMask x .|. controlMask, xK_t), themePrompt defaultXPConfig)
+--
+-- For detailed instruction on editing the key binding see
+-- "XMonad.Doc.Extending#Editing_key_bindings".
+
+data ThemePrompt = ThemePrompt
+
+instance XPrompt ThemePrompt where
+    showXPrompt ThemePrompt = "Select a theme: "
+
+themePrompt :: XPConfig -> X ()
+themePrompt c = mkXPrompt ThemePrompt c (const $ return (map fst $ M.toList mapOfThemes)) changeTheme
+    where changeTheme t = sendMessage . SetTheme $ fromMaybe defaultTheme (M.lookup t mapOfThemes)
+
+mapOfThemes :: M.Map String Theme
+mapOfThemes = M.fromList . uncurry zip . (map themeName &&& map theme) $ listOfThemes
\ No newline at end of file
-- 
cgit v1.2.3