summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--rt-liberation.el25
1 files changed, 4 insertions, 21 deletions
diff --git a/rt-liberation.el b/rt-liberation.el
index 6d6196c..7d9612e 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1198,18 +1198,6 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
;;; ------------------------------------------------------------------
;;; viewer2
;;; ------------------------------------------------------------------
-(defconst rt-liber-viewer-font-lock-keywords
- (let ((header-regexp (regexp-opt '("id: " "Ticket: " "TimeTaken: "
- "Type: " "Field: " "OldValue: "
- "NewValue: " "Data: "
- "Description: " "Created: "
- "Creator: " "Attachments: ")
- t)))
- (list
- (list (concat "^" header-regexp ".*$") 0
- 'font-lock-comment-face)))
- "Expressions to font-lock for RT ticket viewer.")
-
(defface rt-liber-ticket-subdued-face
'((((class color) (background dark))
(:foreground "gray33"))
@@ -1220,6 +1208,10 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(t (:background "Blue")))
"Face for less important text.")
+(defconst rt-liber-viewer2-font-lock-keywords
+ `(("^.*$" 0 'font-lock-comment-face))
+ "Expressions to font-lock for RT ticket viewer.")
+
(defun rt-liber-viewer-reduce (section-list f acc)
"A Not Invented Here tail-recursive reduce function."
@@ -1361,15 +1353,6 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(rt-liber-viewer2-display-section section))
section-list)))
-;; Before release: move this back to the top
-(defconst rt-liber-viewer2-font-lock-keywords
- (let ((header-regexp (regexp-opt '("id: ")
- t)))
- (list
- (list (concat "^" header-regexp ".*$") 0
- 'font-lock-comment-face)))
- "Expressions to font-lock for RT ticket viewer.")
-
(defun rt-liber-viewer2-display-ticket-at-point ()
"Display the contents of the ticket at point."
(interactive)