Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)

2014-08-11  Ulf Jasper  <ulf.jasper@web.de>

	Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)

	* net/newst-treeview.el (newsticker-treeview-date-format): New.
	(newsticker--treeview-list-add-item): Use `newsticker-treeview-date-format'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index daf9f28d8fc28ee1c0968e0829d876ecb735cd4d..2d7597e197193c764e5b44667f8a214c931a1dcb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2014-08-11  Ulf Jasper  <ulf.jasper@web.de>
+
+       Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)
+
+       * net/newst-treeview.el (newsticker-treeview-date-format): New.
+       (newsticker--treeview-list-add-item): Use `newsticker-treeview-date-format'.
+
 2014-08-11  Glenn Morris  <rgm@gnu.org>
 
        * files.el (basic-save-buffer-2): Revert 2013-01-31 change, which

diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 4b96a8bc3cc9cc26e5bf413bc52da1c98fb3dac9..acca575877a1b55e684ac2492f1ef464cdaa7011 100644 (file)
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -83,6 +83,14 @@
   "Face for newsticker selection."
   :group 'newsticker-treeview)
 
+(defcustom newsticker-treeview-date-format
+  "%d.%m.%y, %H:%M"
+  "Format for the date column in the treeview list buffer.
+See `format-time-string' for a list of valid specifiers."
+  :version "24.5"
+  :type 'string
+  :group 'newsticker-treeview)
+
 (defcustom newsticker-treeview-own-frame
   nil
   "Decides whether newsticker treeview creates and uses its own frame."
@@ -307,7 +315,7 @@ If string SHOW-FEED is non-nil it is shown in the item string."
                     0 10)
                    (propertize " " 'display '(space :align-to 12)))
                 ""))
-      (insert (format-time-string "%d.%m.%y, %H:%M"
+      (insert (format-time-string newsticker-treeview-date-format
                                   (newsticker--time item)))
       (insert (propertize " " 'display
                           (list 'space :align-to (if show-feed 28 18))))