[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/repology dca8413 7/9: repology-check-freedom: Use clear
From: |
Nicolas Goaziou |
Subject: |
[elpa] externals/repology dca8413 7/9: repology-check-freedom: Use clearer argument name |
Date: |
Mon, 18 Jan 2021 17:27:53 -0500 (EST) |
branch: externals/repology
commit dca8413b422df089e4700b3d236ad5c7c94c70f9
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>
repology-check-freedom: Use clearer argument name
* repology-license.el (repology-check-freedom): Use object instead of
datum to make it clear the function expects a project or package object.
---
repology-license.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/repology-license.el b/repology-license.el
index 6705edf..12f5235 100644
--- a/repology-license.el
+++ b/repology-license.el
@@ -301,8 +301,8 @@ PACKAGE is a package object."
(`(,_ ,_ ,boolean) boolean)
(other (error "Wrong repository definition: %S" other))))
-(defun repology-check-freedom (datum)
- "Return t when project or package DATUM is free.
+(defun repology-check-freedom (object)
+ "Return t when project or package OBJECT is free.
A package is free when any reference repository can attest it uses only free
licenses. See `repology-license-reference-repositories' for a list of such
@@ -316,19 +316,19 @@ If the project does not contain any package from such
repositories, or if those
repositories cannot decide, return `unknown'. In any other case, return nil.
Of course, it is not a legal statement, merely an indication."
- (pcase datum
+ (pcase object
((pred repology-package-p)
- (pcase (repology--license-find-reference-repository datum)
+ (pcase (repology--license-find-reference-repository object)
('nil 'unknown)
(repository
- (let ((decision (repology--license-vote repository datum)))
+ (let ((decision (repology--license-vote repository object)))
(if (booleanp decision) decision 'unknown)))))
((pred repology-project-p)
(let ((votes 0)
(yes 0)
(reports nil)
(voters nil))
- (dolist (package (repology-project-packages datum))
+ (dolist (package (repology-project-packages object))
(pcase (repology--license-find-reference-repository package)
('nil nil)
(repository
@@ -343,10 +343,10 @@ Of course, it is not a legal statement, merely an
indication."
reports))))))))
;; Maybe display vote reports as debugging information.
(when repology-license-debug
- (repology--license-debug-display datum reports yes votes))
+ (repology--license-debug-display object reports yes votes))
;; Return value.
(repology--license-interpret-vote yes votes)))
- (_ (user-error "Wrong argument type: %S" datum))))
+ (_ (user-error "Wrong argument type: %S" object))))
(provide 'repology-license)
;;; repology-license.el ends here
- [elpa] externals/repology updated (dd2a8f8 -> d169507), Nicolas Goaziou, 2021/01/18
- [elpa] externals/repology ba478a5 1/9: Rename `repology--license-check' to `repology--license-vote', Nicolas Goaziou, 2021/01/18
- [elpa] externals/repology 77d9cd1 3/9: Rename `repology--check-freedom' to `repology--check-freedom-at-point', Nicolas Goaziou, 2021/01/18
- [elpa] externals/repology 5f496f3 2/9: Rename `repology-free-p' to `repology-check-freedom', Nicolas Goaziou, 2021/01/18
- [elpa] externals/repology 181671c 4/9: Add new value to `repology-free-only-projects', Nicolas Goaziou, 2021/01/18
- [elpa] externals/repology dca8413 7/9: repology-check-freedom: Use clearer argument name,
Nicolas Goaziou <=
- [elpa] externals/repology 7e68447 5/9: Fix typo in docstring, Nicolas Goaziou, 2021/01/18
- [elpa] externals/repology 8b79fe2 6/9: Fix code typo, Nicolas Goaziou, 2021/01/18
- [elpa] externals/repology d169507 9/9: repology-license.el: Add missing author information, Nicolas Goaziou, 2021/01/18
- [elpa] externals/repology c8e1dc4 8/9: New "repology-utils.el" file containing generic tools, Nicolas Goaziou, 2021/01/18