diff options
| author | tv <tv@shackspace.de> | 2015-01-07 05:43:01 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-01-07 05:43:01 +0100 |
| commit | 054fdedefe623817668ee689e7eac9de3d74f540 (patch) | |
| tree | 989b9a62e3cf743c8bdc7eef7c6b774f8ec89578 /TreeView.hs | |
| parent | 893720cd7111828b65c66e0051c4c91e4405a740 (diff) | |
change search term with <M-q>
Diffstat (limited to 'TreeView.hs')
| -rw-r--r-- | TreeView.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/TreeView.hs b/TreeView.hs index 26b04bd..218d167 100644 --- a/TreeView.hs +++ b/TreeView.hs @@ -6,6 +6,7 @@ module TreeView ( TreeView (..) , getMessage + , getSearchTerm , isTVMessage , isTVSearchResult , fromSearchResults @@ -93,6 +94,12 @@ getMessage = \case _ -> Nothing +getSearchTerm :: TreeView -> Maybe String +getSearchTerm = \case + TVSearch term -> Just term + _ -> Nothing + + isTVMessage :: TreeView -> Bool isTVMessage = \case TVMessage _ -> True |