From 2a78c4518f1b9d8915eacdf4b0b5fa49d37d697a Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 2 Aug 2007 18:53:36 +0200 Subject: XMonadPrompt: a graphical prompt for running XMonad internal commands darcs-hash:20070802165336-32816-07387b2953bf4c93619d88c7df387232d0a449cf.gz --- XMonadPrompt.hs | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 XMonadPrompt.hs 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' -- cgit v1.2.3