From 4253db72eba6eee7c30962417c8092b1fb9f466b Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sun, 21 Dec 2014 10:32:05 -0200 Subject: Initial mode-line --- sx-inbox.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'sx-inbox.el') 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 -- cgit v1.2.3