Add Archive column to package list.

* emacs-lisp/package.el (package-menu-mode)
(package-menu--print-info, package-menu--archive-predicate): Add
Archive column to package list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4530afbde21c70be31b8e7a7cd9ff30d13e9e22c..4ef439a43c175f50a5a4b4304808edd3cd43474d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-11-04  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * emacs-lisp/package.el (package-menu-mode)
+       (package-menu--print-info, package-menu--archive-predicate): Add
+       Archive column to package list.
+
 2013-11-04  Michael Albinus  <michael.albinus@gmx.de>
 
        Fix problems found while writing a test suite.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 056bc9bd19b7ec84abcd15a814c3ea544a510c01..e8768ea6ac969ea0c5c43bfaf3d84a71b16e0bbc 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1581,6 +1581,7 @@ Letters do not insert themselves; instead, they are commands.
   (setq tabulated-list-format [("Package" 18 package-menu--name-predicate)
                               ("Version" 12 nil)
                               ("Status"  10 package-menu--status-predicate)
+                              ("Archive" 10 package-menu--archive-predicate)
                               ("Description" 0 nil)])
   (setq tabulated-list-padding 2)
   (setq tabulated-list-sort-key (cons "Status" nil))
@@ -1703,6 +1704,8 @@ Return (PKG-DESC [NAME VERSION STATUS DOC])."
                                (package-desc-version pkg-desc))
                              'font-lock-face face)
                  (propertize status 'font-lock-face face)
+                 (propertize (or (package-desc-archive pkg-desc) "")
+                              'font-lock-face face)
                  (propertize (package-desc-summary pkg-desc)
                               'font-lock-face face)))))
 
@@ -1919,6 +1922,10 @@ Optional argument NOQUERY non-nil means do not ask the user to confirm."
   (string< (symbol-name (package-desc-name (car A)))
           (symbol-name (package-desc-name (car B)))))
 
+(defun package-menu--archive-predicate (A B)
+  (string< (or (package-desc-archive (car A)) "")
+          (or (package-desc-archive (car B)) "")))
+
 ;;;###autoload
 (defun list-packages (&optional no-fetch)
   "Display a list of packages.