mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request from akhramov/fix/ensure-system-package-noconfirm

Browse source 
[Fix https://github.com/jwiegley/use-package/issues/661] ensure-system-package: honor system-packages customizations
GitHub-reference: https://github.com/jwiegley/use-package/issues/673
This commit is contained in:
Justin Talbott 2018-04-26 14:21:50 -04:00 • committed by GitHub
commit 85e580a5e4
1 changed files with 2 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/use-package/use-package-ensure-system-package.el
View file

@ -6,7 +6,7 @@
;; Keywords: convenience, tools, extensions
;; URL: https://github.com/waymondo/use-package-ensure-system-package
;; Version: 0.1
;; Package-Requires: ((use-package "2.1") (system-packages "0.1"))
;; Package-Requires: ((use-package "2.1") (system-packages "1.0.4"))
;; Filename: use-package-ensure-system-package.el
;; License: GNU General Public License version 3, or (at your option) any later version
;;
@ -29,17 +29,7 @@
(defun use-package-ensure-system-package-install-command (pack)
"Return the default install command for PACK."
(let ((command
(cdr (assoc 'install (cdr (assoc system-packages-package-manager
system-packages-supported-package-managers))))))
(unless command
(error (format "%S not supported in %S" 'install system-packages-package-manager)))
(unless (listp command)
(setq command (list command)))
(when system-packages-use-sudo
(setq command (mapcar (lambda (part) (concat "sudo " part)) command)))
(setq command (mapconcat 'identity command " && "))
(mapconcat 'identity (list command pack) " ")))
(system-packages-get-command 'install pack))
(defun use-package-ensure-system-package-consify (arg)
"Turn `arg' into a cons of (`package-name' . `install-command')."