branch: externals/repology
commit ffc71f40ed433d1a8eb0f50c2afa0d9dd7bfc42d
Author: Nicolas Goaziou <m...@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <m...@nicolasgoaziou.fr>
repology: Add missing autoload cookie
* repology-utils.el (repology-filter-outdated-projects): Move to...
* repology.el (repology-filter-outdated-projects): ... here. Add
autoload cookie.
---
repology-utils.el | 58 ------------------------------------------------------
repology.el | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 59 insertions(+), 58 deletions(-)
diff --git a/repology-utils.el b/repology-utils.el
index 614dba3465..45ece3605f 100644
--- a/repology-utils.el
+++ b/repology-utils.el
@@ -147,64 +147,6 @@ Return \"-\" if PACKAGE has no version field."
(propertize version 'face (repology--package-status-face package))
"-")))
-(defun repology-filter-outdated-projects (projects repository)
- "Filter outdated projects from PROJECTS list.
-
-PROJECTS is a list of Repology projects. REPOSITORY is the name
-of the reference repository, as a string.
-
-Outdated projects are defined according to the value of the
-variable `repology-outdated-project-definiton', which see.
-
-Return a list of Repology projects."
- (seq-filter
- (lambda (project)
- (let ((reference-package
- (seq-find (lambda (p)
- (equal repository (repology-package-field p 'repo)))
- (repology-project-packages project))))
- (cond
- ((not reference-package)
- (user-error "No package for project %S in repository %S"
- project repository))
- ;; Default definition for outdated projects: trust Repology's
- ;; status from reference package.
- ((not repology-outdated-project-definition)
- (equal "outdated" (repology-package-field reference-package 'status)))
- (t
- ;; Custom definition: compare versions of non-masked outdated
- ;; or newest packages.
- (let ((version (repology-package-field reference-package 'version))
- ;; Ignore masks not applicable to the current project.
- (masks
- (seq-filter (let ((name (repology-project-name project)))
- (pcase-lambda (`(,name-re ,_ ,_))
- (or (not name-re)
- (string-match name-re name))))
- repology-outdated-project-definition))
- ;; Cache limiting the number of versions comparison.
- (older nil))
- (seq-some
- (lambda (package)
- (pcase (repology-package-field package 'status)
- ;; Ignore reference package.
- ((guard (equal package reference-package)) nil)
- ;; Ignore packages with a dubious status.
- ((or "devel" "ignored" "incorrect" "legacy" "noscheme"
"rolling"
- "untrusted")
- nil)
- ;; Ignore masked packages.
- ((guard (repology--masked-package-p package masks))
- nil)
- ;; Otherwise, compare versions.
- (_
- (let ((v (repology-package-field package 'version)))
- (and (not (member v older))
- (prog1 (repology-version-< version v)
- (push v older)))))))
- (repology-project-packages project)))))))
- projects))
-
;;; Projects
(defun repology-project-p (object)
diff --git a/repology.el b/repology.el
index 31928c6980..621d6da469 100644
--- a/repology.el
+++ b/repology.el
@@ -683,6 +683,65 @@ NAMES."
(repology-project-create project packages)))
names))
+;;;###autoload
+(defun repology-filter-outdated-projects (projects repository)
+ "Filter outdated projects from PROJECTS list.
+
+PROJECTS is a list of Repology projects. REPOSITORY is the name
+of the reference repository, as a string.
+
+Outdated projects are defined according to the value of the
+variable `repology-outdated-project-definiton', which see.
+
+Return a list of Repology projects."
+ (seq-filter
+ (lambda (project)
+ (let ((reference-package
+ (seq-find (lambda (p)
+ (equal repository (repology-package-field p 'repo)))
+ (repology-project-packages project))))
+ (cond
+ ((not reference-package)
+ (user-error "No package for project %S in repository %S"
+ project repository))
+ ;; Default definition for outdated projects: trust Repology's
+ ;; status from reference package.
+ ((not repology-outdated-project-definition)
+ (equal "outdated" (repology-package-field reference-package 'status)))
+ (t
+ ;; Custom definition: compare versions of non-masked outdated
+ ;; or newest packages.
+ (let ((version (repology-package-field reference-package 'version))
+ ;; Ignore masks not applicable to the current project.
+ (masks
+ (seq-filter (let ((name (repology-project-name project)))
+ (pcase-lambda (`(,name-re ,_ ,_))
+ (or (not name-re)
+ (string-match name-re name))))
+ repology-outdated-project-definition))
+ ;; Cache limiting the number of versions comparison.
+ (older nil))
+ (seq-some
+ (lambda (package)
+ (pcase (repology-package-field package 'status)
+ ;; Ignore reference package.
+ ((guard (equal package reference-package)) nil)
+ ;; Ignore packages with a dubious status.
+ ((or "devel" "ignored" "incorrect" "legacy" "noscheme"
"rolling"
+ "untrusted")
+ nil)
+ ;; Ignore masked packages.
+ ((guard (repology--masked-package-p package masks))
+ nil)
+ ;; Otherwise, compare versions.
+ (_
+ (let ((v (repology-package-field package 'version)))
+ (and (not (member v older))
+ (prog1 (repology-version-< version v)
+ (push v older)))))))
+ (repology-project-packages project)))))))
+ projects))
+
;;;###autoload
(defun repology-report-problems (repository)
"List problems related to REPOSITORY.
