我正在处理我的 init.el 并希望进行设置,以便它检查我定义的软件包是否已安装,如果没有,则刷新软件包内容并安装它们。
我可以很好地自动安装,但是如果没有安装软件包,我只想刷新软件包列表。
我想出了一些适用于普通 lisp 的东西,但似乎 elisp 没有最简单的方法。
(defparameter *my-packages* '(evil evil-leader helm))
(defparmeter *installed-pkgs* '())
;fake package-installed-p
(defun package-installed-p(pkg)
(member pkg *installed-pkgs*))
;fake package-install
(defun package-install(pkg)
(format t "Installing package: ~a~%" pkg))
(defun check-installed-p()
(every #'package-installed-p *my-packages*))
(defun mytest()
(unless (check-installed-p)
(package-refresh-contents)
(dolist (pkg *my-packages*)
(unless (package-installed-p pkg)
(package-install pkg)))))
我想出的另一种方法是使用return-from,但这似乎不是elisp的一部分。通过一些搜索,看起来我可以通过接球和投掷来模拟这一点。
(defun check-installed-p()
(dolist (pkg *my-packages*)
(unless (package-installed-p(pkg)
(return-from check-installed-p NIL)))
(return-from check-installed-p T))
最好的方法是什么?
编辑 #1使用 cl-lib 和 cl-extra
(require 'package)
(require 'cl-lib)
(require 'cl-extra)
(push '("melpa" . "http://melpa.org/packages/") package-archives )
(package-initialize)
(defconst *my-packages* '(evil evil-leader helm))
(defun my-package-check()
(unless (cl-every #'package-installed-p *my-packages)
(package-refresh-contents)
(dolist (pkg *my-packages*)
(unless (package-installed-p pkg)
(package-install pkg)))))
(my-package-check)
(require 'evil)
(require 'evil-leader)
(require 'helm-config)
编辑#2
要不需要通用的 lisp 库,请按照 Draw 建议的答案将 cl-every 替换为 my-every 。
感谢您的帮助!
(defun my-every (pred list)
(while (and list (funcall pred (car list)))
(setq list (cdr list)))
(null list))
seq-every-p
来自 seq.el,它可以从 GNU ELPA 获得,也将成为 25.1 的内置软件包。
(seq-every-p #'package-installed-p '(helm helm-ls-git helm-ag))
=> t
我在书签+中使用它:
(defun bmkp-every (predicate list)
"Return t if PREDICATE is true for all elements of LIST; else nil."
(while (and list (funcall predicate (car list))) (setq list (cdr list)))
(null list))