branch: externals/debbugs
commit 9c3eb768840e5c3ce4369be763860d86aed6d30d
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
Sort pending bugs towards the end
* debbugs-gnu.el (debbugs-gnu-pending): New face.
(debbugs-gnu-state-preference): Sort pending towards the end.
---
ChangeLog | 5 +++++
debbugs-gnu.el | 8 +++++++-
2 files changed, 12 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index 8df5f2a..243547b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-15 Lars Magne Ingebrigtsen <[email protected]>
+
+ * debbugs-gnu.el (debbugs-gnu-pending): New face.
+ (debbugs-gnu-state-preference): Sort pending towards the end.
+
2011-07-14 Lars Magne Ingebrigtsen <[email protected]>
* debbugs-gnu.el (debbugs-gnu-send-control-message): Add "pending"
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index babdf32..d68ec17 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -137,6 +137,9 @@
(defface debbugs-gnu-handled '((t (:foreground "ForestGreen")))
"Face for reports that have been modified recently.")
+(defface debbugs-gnu-pending '((t (:foreground "MidnightBlue")))
+ "Face for reports that have been modified recently.")
+
(defface debbugs-gnu-stale '((t (:foreground "orange")))
"Face for reports that have not been touched for a week.")
@@ -340,6 +343,8 @@
(cond
((equal (cdr (assq 'pending status)) "done")
'debbugs-gnu-done)
+ ((member "pending" (cdr (assq 'keywords status)))
+ 'debbugs-gnu-pending)
((= (cdr (assq 'date status))
(cdr (assq 'log_modified status)))
'debbugs-gnu-new)
@@ -503,7 +508,8 @@ The following commands are available:
'((debbugs-gnu-new . 1)
(debbugs-gnu-stale . 2)
(debbugs-gnu-handled . 3)
- (debbugs-gnu-done . 4)))
+ (debbugs-gnu-done . 4)
+ (debbugs-gnu-pending . 5)))
(defun debbugs-gnu-get-state-preference (face-string)
(or (cdr (assq (get-text-property 0 'face face-string)
