diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
commit | 4866f2e367dfcf22a9591231ba40948826a1b438 (patch) | |
tree | 7a245caee3f146826b267d773b7eaa80386a818e /XMonadPrompt.hs | |
parent | 47589e1913fb9530481caedb543978a30d4323ea (diff) | |
download | XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.gz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.xz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.zip |
Hierarchify
darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
Diffstat (limited to 'XMonadPrompt.hs')
-rw-r--r-- | XMonadPrompt.hs | 54 |
1 files changed, 0 insertions, 54 deletions
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' |