summaryrefslogtreecommitdiff
path: root/rt-liberation.el
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2020-11-25 23:39:24 -0500
committerYoni Rabkin <yoni@rabkins.net>2020-11-25 23:39:24 -0500
commitac07fea9ad60840f637178d0ab0469fbd5eddf88 (patch)
tree0e7381e4cd0b3748c9733f371399eff7d344c20a /rt-liberation.el
parent79104c6512c99083ee89eca061e73be7869ad705 (diff)
* rt-liberation.el:
Diffstat (limited to 'rt-liberation.el')
-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)