diff options
author | tv <tv@shackspace.de> | 2014-12-31 12:31:07 +0100 |
---|---|---|
committer | tv <tv@shackspace.de> | 2014-12-31 12:31:07 +0100 |
commit | ae78e7c5cd538c6863d1f602af295e91e2e43d47 (patch) | |
tree | 6563f35f2775b962c47c5170eb084215c2714aa5 /TreeViewRaw.hs | |
parent | 81d688f9311fb0016d7def3dd6dfa061386147be (diff) |
"s" toggles "unread" tag and "a" toggles "inbox"
Diffstat (limited to 'TreeViewRaw.hs')
-rw-r--r-- | TreeViewRaw.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/TreeViewRaw.hs b/TreeViewRaw.hs index b10f3e6..52ea966 100644 --- a/TreeViewRaw.hs +++ b/TreeViewRaw.hs @@ -14,6 +14,7 @@ import Data.Monoid import Data.Time import Data.Time.Format.Human import Data.Tree +import TagUtils (Tag) import Trammel import TreeView @@ -124,9 +125,9 @@ renderFrom = \case Nothing -> SGR [35,1] "Anonymous" -renderTags :: [T.Text] -> Trammel String -renderTags ts = - Plain $ T.unpack $ T.intercalate " " ts +renderTags :: [Tag] -> Trammel String +renderTags = + Plain . T.unpack . T.intercalate " " . L.sort dropAddress :: String -> String |