masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-06 12:19:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; use-package: Improve :ensure-system-package docstrings

Browse source 
* lisp/use-package/use-package-ensure-system-package.el
(use-package-ensure-system-package--custom-packages)
(use-package-ensure-system-package-consify)
(use-package-ensure-system-package-update-custom-packages)
(use-package-normalize/:ensure-system-package)
(use-package-ensure-system-package-exists?): Improve docstrings.
This commit is contained in:
Stefan Kangas 2022-12-08 06:27:22 +01:00
parent 141fe8b827
commit c65e087068
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -37,10 +37,10 @@
(declare-function system-packages-get-command "system-packages")) (declare-function system-packages-get-command "system-packages"))
(defvar use-package-ensure-system-package--custom-packages '() (defvar use-package-ensure-system-package--custom-packages '()
"List of custom packages installed.") "List of commands used to install custom packages.")
(defun use-package-ensure-system-package-consify (arg) (defun use-package-ensure-system-package-consify (arg)
"Turn ARG into a cons of (`package-name' . `install-command')." "Turn ARG into a cons of the form (PACKAGE-NAME . INSTALL-COMMAND')."
(cond (cond
((stringp arg) ((stringp arg)
(cons arg `(system-packages-install ,arg))) (cons arg `(system-packages-install ,arg)))
@ -59,13 +59,15 @@
`(system-packages-install ,(symbol-name (cdr arg))))))))) `(system-packages-install ,(symbol-name (cdr arg)))))))))
(defun use-package-ensure-system-package-update-custom-packages () (defun use-package-ensure-system-package-update-custom-packages ()
"Update custom packages (not installed by system package manager).
Run the same commands used for installing them."
(interactive) (interactive)
(dolist (cmd use-package-ensure-system-package--custom-packages) (dolist (cmd use-package-ensure-system-package--custom-packages)
(async-shell-command cmd))) (async-shell-command cmd)))
;;;###autoload ;;;###autoload
(defun use-package-normalize/:ensure-system-package (_name-symbol keyword args) (defun use-package-normalize/:ensure-system-package (_name-symbol keyword args)
"Turn ARGS into a list of conses of (`package-name' . `install-command')." "Turn ARGS into a list of conses of the form (PACKAGE-NAME . INSTALL-COMMAND)."
(use-package-as-one (symbol-name keyword) args (use-package-as-one (symbol-name keyword) args
(lambda (_label arg) (lambda (_label arg)
(cond (cond
@ -75,7 +77,7 @@
(list (use-package-ensure-system-package-consify arg))))))) (list (use-package-ensure-system-package-consify arg)))))))
(defun use-package-ensure-system-package-exists? (file-or-exe) (defun use-package-ensure-system-package-exists? (file-or-exe)
"If variable is a string, ensure the file path exists. "If FILE-OR-EXE is a string, ensure the file path exists.
If it is a symbol, ensure the binary exist." If it is a symbol, ensure the binary exist."
(if (stringp file-or-exe) (if (stringp file-or-exe)
(file-exists-p file-or-exe) (file-exists-p file-or-exe)