mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Add Archive column to package list.

Browse Source 
* emacs-lisp/package.el (package-menu-mode)
(package-menu--print-info, package-menu--archive-predicate): Add
Archive column to package list.
This commit is contained in:
Ted Zlatanov 2013-11-04 11:04:09 -05:00
parent 7b530552e8
commit 7397c58760
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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.

7
lisp/emacs-lisp/package.el
View File

@ -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.