[elpa] externals/rt-liberation 6a51214 13/72: * rt-liberation.el: Add a custom time format string.

[Stefan Monnier]

branch: externals/rt-liberation
commit 6a5121485eb5e8e14cc62d127c725e3b555a513e
Author: Yoni Rabkin <yonirabkin@member.fsf.org>
Commit: Yoni Rabkin <yonirabkin@member.fsf.org>

    * rt-liberation.el: Add a custom time format string.
---
 rt-liberation.el | 32 +++++++++++++++++++-------------
 1 file changed, 19 insertions(+), 13 deletions(-)

diff --git a/rt-liberation.el b/rt-liberation.el
index 3f0298f..bedfae1 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -127,6 +127,9 @@ function returns a truth value.")
 (defvar rt-liber-query nil
   "Query structure (becomes ticket-browser buffer local).")
 
+(defvar rt-liber-browser-time-format-string "%b %d %Y %H:%M"
+  "String passed to `format-time-string' in the ticket browser.")
+
 (defface rt-liber-ticket-face
   '((((class color) (background dark))
      (:foreground "DarkSeaGreen"))
@@ -717,20 +720,23 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
 ;; properties to format characters for use in `rt-liber-format'.
 (defun rt-liber-format-function (ticket-alist)
   "Return a pairing of TICKET-ALIST values to %-sequences."
-  (let* ((id (cdr (assoc "id" ticket-alist)))
-        (subject (cdr (assoc "Subject" ticket-alist)))
-        (status (cdr (assoc "Status" ticket-alist)))
-        (created (cdr (assoc "Created" ticket-alist)))
-        (resolved (cdr (assoc "Resolved" ticket-alist)))
+  (let* ((id         (rt-liber-ticket-id-only ticket-alist))
+        (subject    (cdr (assoc "Subject" ticket-alist)))
+        (status     (cdr (assoc "Status" ticket-alist)))
+        (created    (format-time-string
+                     rt-liber-browser-time-format-string
+                     (date-to-time
+                      (cdr (assoc "Created" ticket-alist)))))
+        (resolved   (cdr (assoc "Resolved" ticket-alist)))
         (requestors (cdr (assoc "Requestors" ticket-alist)))
-        (creator (cdr (assoc "Creator" ticket-alist)))
-        (owner (cdr (assoc "Owner" ticket-alist)))
-        (queue (cdr (assoc "Queue" ticket-alist)))
-        (anc (if rt-liber-anc-p
-                 (rt-liber-get-ancillary-text
-                  (rt-liber-ticket-id-only ticket-alist))
-               ""))
-        (priority (cdr (assoc "Priority" ticket-alist))))
+        (creator    (cdr (assoc "Creator" ticket-alist)))
+        (owner      (cdr (assoc "Owner" ticket-alist)))
+        (queue      (cdr (assoc "Queue" ticket-alist)))
+        (anc        (if rt-liber-anc-p
+                        (rt-liber-get-ancillary-text
+                         (rt-liber-ticket-id-only ticket-alist))
+                      ""))
+        (priority   (cdr (assoc "Priority" ticket-alist))))
     (list (cons ?i (or id "N/A"))
          (cons ?s (or subject "N/A"))
          (cons ?c (or created "N/A"))