module Manatee.Plugin.Anything.AnythingInteractiveString where
import DBus.Client hiding (Signal)
import Manatee.Plugin.Anything.Anything
import Manatee.Plugin.Anything.AnythingInteractive
import Manatee.Plugin.Anything.Types
anythingInteractiveString :: Anything
anythingInteractiveString =
Anything {anythingColumnTitle = ["InteractiveString"]
,anythingColumnFun = [anythingCandidateUnpack]
,anythingSearch = AnythingSearch anythingInteractiveStringSearch
,anythingFilterRule = anythingFuzzyFilterRule True
,anythingCompletionRule = id
,anythingInputDepend = False
,anythingCommandFun = anythingInteractiveStringCommandFun
,anythingCalculateDelay = 0
}
anythingInteractiveStringSearch :: AnythingInput -> Client -> IO [String]
anythingInteractiveStringSearch input _
| null input
= return []
| otherwise
= return [input]
anythingInteractiveStringCommandFun :: AnythingCommandFun
anythingInteractiveStringCommandFun input _ iType
= return [("Return String", anythingInteractiveActionReturn iType input)]