diff options
author | Valery V. Vorotyntsev <valery.vv@gmail.com> | 2007-10-24 16:39:05 +0200 |
---|---|---|
committer | Valery V. Vorotyntsev <valery.vv@gmail.com> | 2007-10-24 16:39:05 +0200 |
commit | d999f3fa46116e55be5af45348de90d75b40012b (patch) | |
tree | b78e91f998581d8f58b4fc882b60c08c4868b4db | |
parent | c4badad914279b420c071c6da69d768bcc49a964 (diff) | |
download | XMonadContrib-d999f3fa46116e55be5af45348de90d75b40012b.tar.gz XMonadContrib-d999f3fa46116e55be5af45348de90d75b40012b.tar.xz XMonadContrib-d999f3fa46116e55be5af45348de90d75b40012b.zip |
ManPrompt.hs: use `uniqSort' from XPrompt.hs
TODO list extended.
darcs-hash:20071024143905-ae588-33766f788253764ddf7cb89db171d7aae04f4ce5.gz
Diffstat (limited to '')
-rw-r--r-- | ManPrompt.hs | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/ManPrompt.hs b/ManPrompt.hs index c4144d4..ad0b2e7 100644 --- a/ManPrompt.hs +++ b/ManPrompt.hs @@ -15,6 +15,8 @@ -- * narrow completions by section number, if the one is specified -- (like @\/etc\/bash_completion@ does) -- +-- * handle explicit paths (e.g., @~\/src\/xmonad\/man\/xmonad.1@) +-- -- * quickcheck properties ----------------------------------------------------------------------------- @@ -23,13 +25,12 @@ module XMonadContrib.ManPrompt ( -- $usage manPrompt , getCommandOutput - , uniqSort ) where import XMonad import XMonadContrib.XPrompt import XMonadContrib.Run -import XMonadContrib.ShellPrompt ( split ) +import XMonadContrib.ShellPrompt (split) import System.Directory import System.Process @@ -39,7 +40,6 @@ import qualified Control.Exception as E import Control.Monad import Data.List import Data.Maybe -import Data.Set (toList, fromList) -- $usage -- 1. In Config.hs add: @@ -61,21 +61,11 @@ instance XPrompt Man where -- | Query for manual page to be displayed. manPrompt :: XPConfig -> X () -manPrompt c = mkXPrompt Man c manCompl man - where - man :: String -> X () - man s = runInXTerm ("man " ++ s) +manPrompt c = mkXPrompt Man c manCompl $ runInTerm . (++) "man " manCompl :: String -> IO [String] manCompl s = getManpages >>= flip mkComplFunFromList s --- | Sort a list and remove duplicates. --- --- /XXX Code duplication!/ --- The function with the same name exists in "ShellPrompt" module. -uniqSort :: Ord a => [a] -> [a] -uniqSort = toList . fromList - -- | Obtain the list of manual pages. -- -- /XXX Code duplication!/ |