2

使用elisp,如何获取Emacs包管理工具-Package安装的包的版本?必须有某种方法可以做到这一点,因为版本信息list-packages.

4

1 回答 1

3
(defun get-package-version (name)
  (when (member name package-activated-list)
    (package-desc-vers (cdr (assoc name package-alist)))))

大多数软件包版本都存储为[major-version minor-version]. 从 GitHub 构建的 Melpa 包使用时间格式[YYYYMMDD hhmm]如果您想要这些列表中的字符串,您可以执行以下操作:

(defun* package-version-string ((major minor))
  (format "%s.%s" major minor))

(package-version-string (get-package-version 'pep8))  ; => "1.2"

更新:要获取未安装的软件包,我们可以测试 的成员资格package-archive-contents,如下所示:

(defun get-not-installed-packages ()
  (remove-if (lambda (x) (assoc (car x) package-alist)) package-archive-contents))

(defun get-not-installed-package-version (name)
  (let ((pkg (assoc name (get-not-installed-packages))))
    (when pkg
      (package-desc-vers (cdr pkg)))))
于 2012-12-31T03:40:57.630 回答