diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-21 10:32:05 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-22 10:46:41 -0200 |
| commit | 4253db72eba6eee7c30962417c8092b1fb9f466b (patch) | |
| tree | 7f94998588e10a6dd552335e0a68ee4316e07b8d /sx-inbox.el | |
| parent | 9de79b2fe4c077f148f1f1ff7e16c3cf961cae8a (diff) | |
Initial mode-line
Diffstat (limited to 'sx-inbox.el')
| -rw-r--r-- | sx-inbox.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/sx-inbox.el b/sx-inbox.el index 3bc95c8..f01d90b 100644 --- a/sx-inbox.el +++ b/sx-inbox.el @@ -63,6 +63,23 @@ KEYWORDS are added to the method call along with PAGE. :keywords keywords :filter sx-inbox-filter)) + +;;; mode-line notification +(defvar sx-inbox--unread-inbox nil + "List of inbox items still unread.") + +(defvar sx-inbox--unread-notifications nil + "List of notifications items still unread.") + +(defvar sx-inbox--mode-line + '("[" + (sx-inbox--unread-inbox + ("i:" (:eval (length sx-inbox--unread-inbox)))) + (sx-inbox--unread-notifications + ("n:" (:eval (length sx-inbox--unread-notifications)))) + "]") + "") + (provide 'sx-inbox) ;;; sx-inbox.el ends here |