masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 11:23:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add tool bar icons to package menu. (Bug#78601)

Browse source 
* etc/images/package-menu/README:
* etc/images/package-menu/delete.xpm:
* etc/images/package-menu/execute.xpm:
* etc/images/package-menu/info.xpm:
* etc/images/package-menu/install.xpm:
* etc/images/package-menu/unmark.xpm:
* etc/images/package-menu/upgrade.xpm:
* etc/images/package-menu/url.xpm:
* etc/images/package-menu/delete.pbm:
* etc/images/package-menu/execute.pbm:
* etc/images/package-menu/info.pbm:
* etc/images/package-menu/install.pbm:
* etc/images/package-menu/unmark.pbm:
* etc/images/package-menu/upgrade.pbm:
* etc/images/package-menu/url.pbm: New files.
* lisp/emacs-lisp/package.el (package-menu--tool-bar-map): New
variable.
(package-menu-mode): Set tool bar.
* lisp/term/pgtk-win.el (x-gtk-stock-map):
* lisp/term/x-win.el (x-gtk-stock-map): Add new icons to alist.
This commit is contained in:
Elías Gabriel Pérez 2025-05-25 09:55:03 -06:00 • committed by Eli Zaretskii
parent 1e9167d22a
commit eda47cd2a8
18 changed files with 874 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lisp/emacs-lisp/package.el
View file

@ -3283,6 +3283,42 @@ either a full name or nil, and EMAIL is a valid email address."
'help-echo new-help
'face 'package-status-new)))
"] "))))))
(defvar package-menu--tool-bar-map
(let ((map (make-sparse-keymap)))
(tool-bar-local-item-from-menu
#'package-menu-execute "package-menu/execute"
map package-menu-mode-map)
(define-key-after map [separator-1] menu-bar-separator)
(tool-bar-local-item-from-menu
#'package-menu-mark-unmark "package-menu/unmark"
map package-menu-mode-map)
(tool-bar-local-item-from-menu
#'package-menu-mark-install "package-menu/install"
map package-menu-mode-map)
(tool-bar-local-item-from-menu
#'package-menu-mark-delete "package-menu/delete"
map package-menu-mode-map)
(tool-bar-local-item-from-menu
#'package-menu-describe-package "package-menu/info"
map package-menu-mode-map)
(tool-bar-local-item-from-menu
#'package-browse-url "package-menu/url"
map package-menu-mode-map)
(tool-bar-local-item
"package-menu/upgrade" 'package-upgrade-all
'package-upgrade-all
map :help "Upgrade all the packages")
(define-key-after map [separator-2] menu-bar-separator)
(tool-bar-local-item
"search" 'isearch-forward 'search map
:help "Search" :vert-only t)
(tool-bar-local-item-from-menu
#'revert-buffer "refresh"
map package-menu-mode-map)
(tool-bar-local-item-from-menu
#'quit-window "close"
map package-menu-mode-map)
map))
(define-derived-mode package-menu-mode tabulated-list-mode "Package Menu"
"Major mode for browsing a list of packages.
@ -3303,6 +3339,7 @@ The most useful commands here are:
(append
mode-line-misc-info
package-menu-mode-line-format))
(setq-local tool-bar-map package-menu--tool-bar-map)
(setq tabulated-list-format
`[("Package" ,package-name-column-width package-menu--name-predicate)
("Version" ,package-version-column-width package-menu--version-predicate)