Merge pull request #27 from marsam/master

Add optional argument to check min-version of a package

1 files changed, 7 insertions, 6 deletions

diff --git a/epl.el b/epl.el
index 87e23a4..57b6cd3 100644
--- a/epl.el
+++ b/epl.el
@@ -438,16 +438,17 @@ typically ends with -pkg.el."
 
 
 ;;; Package database access
-(defun epl-package-installed-p (package)
-  "Determine whether a PACKAGE is installed.
+(defun epl-package-installed-p (package &optional min-version)
+  "Determine whether a PACKAGE, of MIN-VERSION or newer, is installed.
 
-PACKAGE is either a package name as symbol, or a package object."
+PACKAGE is either a package name as symbol, or a package object.
+When a explicit MIN-VERSION is provided it overwrites the version of the PACKAGE object."
   (let ((name (if (epl-package-p package)
                   (epl-package-name package)
                 package))
-        (version (when (epl-package-p package)
-                   (epl-package-version package))))
-    (package-installed-p name version)))
+        (min-version (or min-version (and (epl-package-p package)
+                                          (epl-package-version package)))))
+    (package-installed-p name min-version)))
 
 (defun epl--parse-built-in-entry (entry)
   "Parse an ENTRY from the list of built-in packages.