twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 06:31:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Port XMonadPrompt

Browse Source
This commit is contained in:
Spencer Janssen
2007-11-01 08:50:37 +00:00
parent 42854f5243
commit 8eea95bc44
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonadPrompt.hs
View File

@@ -45,7 +45,9 @@ instance XPrompt XMonad where
showXPrompt XMonad = "XMonad: " showXPrompt XMonad = "XMonad: "
xmonadPrompt :: XPConfig -> X () xmonadPrompt :: XPConfig -> X ()
xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand' xmonadPrompt c = do
cmds <- defaultCommands
mkXPrompt XMonad c (mkComplFunFromList (map fst cmds)) runCommand'
-- xmonad prompt with custom command list -- xmonad prompt with custom command list
xmonadPromptC :: [(String, X ())] -> XPConfig -> X () xmonadPromptC :: [(String, X ())] -> XPConfig -> X ()