diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-04-22 04:27:12 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-04-22 04:27:12 -0500 |
commit | a6356f9e86c3a320aff850f48a6987024107870c (patch) | |
tree | 1ef232d9e26daec08ad296775ded1c8903ed353d /xmonad | |
parent | 792172b70ea2fd3a63ac32d23799c68604ea0092 (diff) | |
download | conf-a6356f9e86c3a320aff850f48a6987024107870c.tar.gz conf-a6356f9e86c3a320aff850f48a6987024107870c.zip |
probably should sort this too
Diffstat (limited to 'xmonad')
-rw-r--r-- | xmonad/xmonad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs index f23ef82..48355ae 100644 --- a/xmonad/xmonad.hs +++ b/xmonad/xmonad.hs @@ -91,4 +91,4 @@ myManageHook = composeAll [ resource =? "xmessage" --> doFloat killAllPrompt = inputPromptWithCompl defaultXPConfig "killall" runningProcessesCompl ?+ killAll killAll procName = spawn ("killall " ++ procName) runningProcessesCompl str = runningProcesses >>= (\procs -> return $ filter (\proc -> str `isPrefixOf` proc) procs) -runningProcesses = getDirectoryContents "/proc" >>= (\dir -> return $ map (\pid -> "/proc/" ++ pid ++ "/comm") $ filter (\dir -> all isDigit dir) $ dir) >>= (\filenames -> sequence $ map (\filename -> openFile filename ReadMode >>= hGetContents) filenames) >>= (\procs -> return $ nub $ map (\proc -> init proc) procs) +runningProcesses = getDirectoryContents "/proc" >>= (\dir -> return $ map (\pid -> "/proc/" ++ pid ++ "/comm") $ filter (\dir -> all isDigit dir) $ dir) >>= (\filenames -> sequence $ map (\filename -> openFile filename ReadMode >>= hGetContents) filenames) >>= (\procs -> return $ sort $ nub $ map (\proc -> init proc) procs) |