[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/use-package c65e0870681: ; use-package: Improve :ensure-system-p
From: |
Stefan Kangas |
Subject: |
feature/use-package c65e0870681: ; use-package: Improve :ensure-system-package docstrings |
Date: |
Thu, 8 Dec 2022 00:29:06 -0500 (EST) |
branch: feature/use-package
commit c65e08706812553b4f8dc55e8d2df2cde0d26b39
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
; use-package: Improve :ensure-system-package docstrings
* 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.
---
lisp/use-package/use-package-ensure-system-package.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/lisp/use-package/use-package-ensure-system-package.el
b/lisp/use-package/use-package-ensure-system-package.el
index 9c9f0797a05..c55bacaf817 100644
--- a/lisp/use-package/use-package-ensure-system-package.el
+++ b/lisp/use-package/use-package-ensure-system-package.el
@@ -37,10 +37,10 @@
(declare-function system-packages-get-command "system-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)
- "Turn ARG into a cons of (`package-name' . `install-command')."
+ "Turn ARG into a cons of the form (PACKAGE-NAME . INSTALL-COMMAND')."
(cond
((stringp arg)
(cons arg `(system-packages-install ,arg)))
@@ -59,13 +59,15 @@
`(system-packages-install ,(symbol-name (cdr arg)))))))))
(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)
(dolist (cmd use-package-ensure-system-package--custom-packages)
(async-shell-command cmd)))
;;;###autoload
(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
(lambda (_label arg)
(cond
@@ -75,7 +77,7 @@
(list (use-package-ensure-system-package-consify arg)))))))
(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 (stringp file-or-exe)
(file-exists-p file-or-exe)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/use-package c65e0870681: ; use-package: Improve :ensure-system-package docstrings,
Stefan Kangas <=