module Manatee.Plugin.Anything.AnythingProcess where
import DBus.Client hiding (Signal)
import Manatee.Plugin.Anything.Anything
import Manatee.Plugin.Anything.Types
import Manatee.Toolkit.General.Process
import System.Linux.Proc
instance AnythingCandidate ProcStatus where
candidateCommandName = show . psProcessId
candidateFilterName a = psCommand a ++ " " ++ show (psProcessId a)
candidateCompletionName a _ = psCommand a
candidateExpandName a _ = return $ psCommand a
anythingProcess :: Anything
anythingProcess =
Anything {anythingColumnTitle = ["Process", "ProcessId"]
,anythingColumnFun = anythingProcessColumnFun
,anythingSearch = AnythingSearch anythingProcessSearch
,anythingFilterRule = anythingFuzzyFilterRule False
,anythingCompletionRule = id
,anythingInputDepend = False
,anythingCommandFun = anythingProcessCommandFun
,anythingCalculateDelay = 500
}
anythingProcessSearch :: AnythingInput -> Client -> IO [ProcStatus]
anythingProcessSearch _ _ = procGetAllProcessStatus
anythingProcessColumnFun :: [AnythingColumnFun]
anythingProcessColumnFun =
[psCommand . anythingCandidateUnpack
,show . psProcessId . anythingCandidateUnpack]
anythingProcessCommandFun :: AnythingCommandFun
anythingProcessCommandFun _ (AnythingCandidateWrap a) _ = do
let processIdStr = candidateCommandName a
return [("Kill process", anythingProcessActionKill processIdStr)]
anythingProcessActionKill :: String -> Client -> IO ()
anythingProcessActionKill processId _ =
runCommand_ ("kill " ++ processId)