masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-18 09:55:42 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/package.el: "Delete" button in Help buffer

Browse source 
(package-delete-button-action): New function.
(describe-package-1): Add Delete button.
This commit is contained in:
Artur Malabarba 2015-05-20 14:13:22 +01:00
parent 578f0067b7
commit 1972e49f92
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2173,7 +2173,14 @@ will be deleted."
(insert "'"))
(if signed
(insert ".")
(insert " (unsigned).")))
(insert " (unsigned)."))
(when (and (package-desc-p desc)
(not required-by)
(package-installed-p desc))
(insert " ")
(package-make-button "Delete"
'action #'package-delete-button-action
'package-desc desc)))
(incompatible-reason
(insert (propertize "Incompatible" 'face font-lock-warning-face)
" because it depends on ")
@ -2317,6 +2324,14 @@ will be deleted."
(revert-buffer nil t)
(goto-char (point-min)))))
(defun package-delete-button-action (button)
(let ((pkg-desc (button-get button 'package-desc)))
(when (y-or-n-p (format "Delete package `%s'? "
(package-desc-full-name pkg-desc)))
(package-delete pkg-desc)
(revert-buffer nil t)
(goto-char (point-min)))))
(defun package-keyword-button-action (button)
(let ((pkg-keyword (button-get button 'package-keyword)))
(package-show-package-list t (list pkg-keyword))))