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.

2 files changed, 13 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4530afbde21..4ef439a43c1 100644
--- 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 056bc9bd19b..e8768ea6ac9 100644
--- 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.