twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

ShellPrompt: quickcheck related refactoring

Browse Source
This commit is contained in:
Andrea Rossato 2007-08-17 15:57:25 +00:00
parent 6febbc8131
commit 3b89f02650
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ShellPrompt.hs
View File

@ -16,6 +16,8 @@ module XMonadContrib.ShellPrompt (
-- * Usage -- * Usage
-- $usage -- $usage
shellPrompt shellPrompt
, rmPath
, split
) where ) where
import XMonad import XMonad
@ -73,8 +75,10 @@ commandCompletionFunction str
cl = liftM (nub . rmPath . concat) . mapM fCF . map addToPath . split ':' cl = liftM (nub . rmPath . concat) . mapM fCF . map addToPath . split ':'
addToPath = flip (++) ("/" ++ str) addToPath = flip (++) ("/" ++ str)
fCF = filenameCompletionFunction fCF = filenameCompletionFunction
rmPath [] = []
rmPath s = map (last . split '/') s rmPath :: [String] -> [String]
rmPath s =
map (reverse . fst . break (=='/') . reverse) s
split :: Eq a => a -> [a] -> [[a]] split :: Eq a => a -> [a] -> [[a]]
split _ [] = [] split _ [] = []