diff options
| -rw-r--r-- | TreeViewRaw.hs | 3 | ||||
| -rw-r--r-- | test5.hs | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/TreeViewRaw.hs b/TreeViewRaw.hs index 72e2ba3..ef135de 100644 --- a/TreeViewRaw.hs +++ b/TreeViewRaw.hs @@ -57,6 +57,7 @@ searchSGR , unreadMessageSGR , unreadSearchSGR , killedTagSGR + , starTagSGR :: Trammel String -> Trammel String searchSGR = SGR [38,5,162] focusSGR = SGR [38,5,160] @@ -64,6 +65,7 @@ boringSGR = SGR [38,5,240] dateSGR = SGR [38,5,071] tagsSGR = SGR [38,5,036] killedTagSGR = SGR [38,5,088] +starTagSGR = SGR [38,5,226] unreadMessageSGR = SGR [38,5,117] unreadSearchSGR = SGR [38,5,250] @@ -142,6 +144,7 @@ renderTags = renderTag :: Tag -> Trammel String renderTag tag = case tag of "killed" -> killedTagSGR plain + "star" -> starTagSGR plain _ -> plain where plain = Plain $ T.unpack tag @@ -215,6 +215,7 @@ keymap :: String -> State -> IO State keymap "a" = toggleTagAtCursor "inbox" keymap "s" = toggleTagAtCursor "unread" keymap "&" = toggleTagAtCursor "killed" +keymap "*" = toggleTagAtCursor "star" keymap "r" = replyToAll keymap "e" = viewSource keymap "t" = editTags |