From 4866f2e367dfcf22a9591231ba40948826a1b438 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 1 Nov 2007 21:10:59 +0100 Subject: Hierarchify darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz --- XMonadPrompt.hs | 54 ------------------------------------------------------ 1 file changed, 54 deletions(-) delete mode 100644 XMonadPrompt.hs (limited to 'XMonadPrompt.hs') diff --git a/XMonadPrompt.hs b/XMonadPrompt.hs deleted file mode 100644 index d60fe67..0000000 --- a/XMonadPrompt.hs +++ /dev/null @@ -1,54 +0,0 @@ ------------------------------------------------------------------------------ --- | --- 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, - xmonadPromptC - ) where - -import XMonad -import XMonadContrib.XPrompt -import XMonadContrib.Commands (defaultCommands, runCommand') - --- $usage --- --- in Config.hs add: --- --- > import XMonadContrib.XPrompt --- > import XMonadContrib.XMonadPrompt --- --- in you keybindings add: --- --- > , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig) --- - --- %import XMonadContrib.XPrompt --- %import XMonadContrib.XMonadPrompt --- %keybind , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig) - -data XMonad = XMonad - -instance XPrompt XMonad where - showXPrompt XMonad = "XMonad: " - -xmonadPrompt :: XPConfig -> X () -xmonadPrompt c = do - cmds <- defaultCommands - mkXPrompt XMonad c (mkComplFunFromList (map fst cmds)) runCommand' - --- xmonad prompt with custom command list -xmonadPromptC :: [(String, X ())] -> XPConfig -> X () -xmonadPromptC commands c = mkXPrompt XMonad c (mkComplFunFromList (map fst commands)) runCommand' -- cgit v1.2.3