Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Adjust formatting of package suggestion buffer

Browse source 
* lisp/emacs-lisp/package.el (package--autosugest-prompt): Move
'describe-package' link into the parentheses after the "Install
..." button.
This commit is contained in:
Philip Kaludercic 2026-02-01 20:58:17 +01:00
parent 1b8eaed723
commit 850382c7d6
No known key found for this signature in database
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -4680,23 +4680,25 @@ of files by installing a third-party package:" nl)
so you have to select which to install!)" nl))
(pcase-dolist (`(,pkg . ,sugs) (seq-group-by #'car packages))
(insert nl "* " (buttonize "Install"
(lambda (_)
(package--autosuggest-install-and-enable
(car sugs))
(quit-window)))
" \"" (buttonize (symbol-name pkg) #'describe-package pkg) "\" (")
(insert nl "* "
(buttonize (concat "Install " (symbol-name pkg))
(lambda (_)
(package--autosuggest-install-and-enable
(car sugs))
(quit-window)))
" (" (buttonize "about" #'describe-package pkg)
", matches ")
(dolist (sug sugs)
(unless (eq (char-before) ?\()
(unless (eq (char-before) ?\s)
(insert ", "))
(pcase sug
(`(,_ auto-mode-alist . ,_)
(insert "matches file extension "))
(insert "file extension "))
(`(,_ magic-mode-alist . ,_)
(insert "matches magic bytes"))
(insert "magic bytes"))
(`(,_ interpreter-mode-alist . ,_)
(insert "matches interpreter "))))
(delete-horizontal-space) (insert ")")
(insert "interpreter "))))
(delete-horizontal-space) (insert ").")
(add-to-list 'package--autosuggest-suggested pkg))