XMonadPrompt: a graphical prompt for running XMonad internal commands

darcs-hash:20070802165336-32816-07387b2953bf4c93619d88c7df387232d0a449cf.gz

1 files changed, 41 insertions, 0 deletions

diff --git a/XMonadPrompt.hs b/XMonadPrompt.hs
new file mode 100644
index 0000000..d24fb9a
--- /dev/null
+++ b/XMonadPrompt.hs
@@ -0,0 +1,41 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonadContrib.XMonadPrompt
+-- Copyright   :  (C) 2007 Andrea Rossato
+-- License     :  BSD3
+-- 
+-- Maintainer  :  andrea.rossato@unibz.it
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- A prompt for running XMonad commands
+--
+-----------------------------------------------------------------------------
+
+module XMonadContrib.XMonadPrompt (
+                             -- * Usage
+                             -- $usage
+                             xmonadPrompt
+                              ) where
+{-
+usage:
+in Config.hs add:
+> import XMonadContrib.XMonadPrompt
+
+in you keybindings add:
+
+>   , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultPromptConfig)
+
+-}
+
+import XMonad
+import XMonadContrib.XPrompt
+import XMonadContrib.Commands
+
+data XMonad = XMonad
+
+instance XPrompt XMonad where
+    showXPrompt XMonad = "XMonad:   "
+
+xmonadPrompt :: XPConfig -> X ()
+xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand'