summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2021-02-17 11:48:24 -0500
committerYoni Rabkin <yoni@rabkins.net>2021-02-17 11:48:24 -0500
commitd143f911f8e8c442da505cda25cdf30b17b09ec3 (patch)
tree16a592e7add605d1b2801c37b9f7fbd7ee76f90f
parent519184e7e7816f775c47d86ba1fdf2e8c7afea91 (diff)
* rt-liberation.el: better descriptors
Use the Description field for non-communication sections.
-rw-r--r--rt-liberation.el13
1 files changed, 6 insertions, 7 deletions
diff --git a/rt-liberation.el b/rt-liberation.el
index 40c11cc..6c1da8d 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -1446,6 +1446,7 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(creator (alist-get 'Creator section))
(date (alist-get 'Created section))
(type (alist-get 'Type section))
+ (desc (alist-get 'Description section))
(oldvalue (alist-get 'OldValue section))
(newvalue (alist-get 'NewValue section))
(field (alist-get 'Field section))
@@ -1476,14 +1477,12 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
(add-text-properties start
(point)
`(rt-liberation-section-data ,section))
- (cond ((string= type "Status")
+ (cond ((or (string= type "Status")
+ (string= type "SetWatcher")
+ (string= type "Set")
+ (string= type "AddLink"))
(insert
- (format "\n Status change from %s to %s\n\n" oldvalue newvalue)))
- ((and (string= type "Set")
- (string= field "Owner")
- (string= oldvalue "10"))
- (insert
- (format "\n Ticket assigned\n\n")))
+ (format "\n %s\n\n" desc)))
;; catch-all
(t
(insert