diff options
| -rw-r--r-- | XMonadPrompt.hs | 41 |
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' |