diff options
| author | Ted Zlatanov <tzz@lifelogs.com> | 2013-11-04 11:04:09 -0500 |
|---|---|---|
| committer | Ted Zlatanov <tzz@lifelogs.com> | 2013-11-04 11:04:09 -0500 |
| commit | 7397c58760779a3aa83ff58164455761d77cd642 (patch) | |
| tree | 4ae65a6fd3f71c21af3ac28e3e43b88a23026e79 /lisp/emacs-lisp | |
| parent | 7b530552e80abf7701aa6c965e30ff22528c42ab (diff) | |
| download | emacs-7397c58760779a3aa83ff58164455761d77cd642.tar.gz emacs-7397c58760779a3aa83ff58164455761d77cd642.tar.bz2 emacs-7397c58760779a3aa83ff58164455761d77cd642.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 7 |
1 files changed, 7 insertions, 0 deletions
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. |