From 4b545f878a9e9c372a7749c16c2bd5a3245eae58 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 31 Dec 2014 12:54:11 +0100
Subject: "*" toggles "star" tag

---
 TreeViewRaw.hs | 3 +++
 test5.hs       | 1 +
 2 files changed, 4 insertions(+)

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
diff --git a/test5.hs b/test5.hs
index 20d97fb..c6142c4 100644
--- a/test5.hs
+++ b/test5.hs
@@ -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
-- 
cgit v1.2.3