refactor: Accept rest for archive install

Author: jcs090218

docs/content/Development-API/_index.en.md

@@ -284,15 +284,15 @@ The argument `ARCHIVES` can either be a string or a list of strings.
 💡 This is handy when you need certain packages from certain archives.
 {{< /hint >}}
 
-## 🔍 Function: eask-archive-install-packages (`archives` `names`)
+## 🔍 Function: eask-archive-install-packages (`archives` &rest `names`)
 
 Install packages with archives setup.
 
 The arugment `names` can be a symbol or list of symbols.
 
 ```elisp
 (eask-archive-install-packages '("gnu" "melpa")
-                               'el2org)  ; accept list
+                               'el2org)  ; Accept multiple arguments.
 ```
 
 {{< hint info >}}

docs/content/Development-API/_index.zh-tw.md

@@ -281,15 +281,15 @@ eask init
 💡 當您需要某些存檔中的特定套件時，這非常方便。
 {{< /hint >}}
 
-## 🔍 函式: eask-archive-install-packages (`archives` `names`)
+## 🔍 函式: eask-archive-install-packages (`archives` &rest `names`)
 
 使用 archives 設定安裝套件。
 
 參數 `names` 可以是符號或符號列表。
 
 ```elisp
 (eask-archive-install-packages '("gnu" "melpa")
-                               'el2org)  ; 接受列表
+                               'el2org)  ; 接受多個參數.
 ```
 
 {{< hint info >}}

lisp/_prepare.el

@@ -708,11 +708,10 @@ Argument BODY are forms for execution."
          "done ✓"))
      ,@body))
 
-(defun eask-archive-install-packages (archives names)
+(defun eask-archive-install-packages (archives &rest names)
   "Install package NAMES with ARCHIVES setup."
   (eask-defvc< 27 (eask-pkg-init))  ; XXX: remove this after we drop 26.x
-  (when-let* ((names (eask-listify names))
-              ((cl-some (lambda (pkg) (not (package-installed-p pkg))) names)))
+  (when (cl-some (lambda (pkg) (not (package-installed-p pkg))) names)
     (eask-with-archives archives
       (eask--package-mapc #'eask-package-install names))))
 

lisp/generate/test/buttercup.el

@@ -42,7 +42,8 @@
 
 (eask-start
   (eask-archive-install-packages '("gnu" "melpa")
-                                 '(buttercup f))
+                                 'buttercup
+                                 'f)
   (require 'buttercup)
   (require 'f)
   (eask-generate-test-buttercup--init (eask-guess-package-name)))

lisp/init/cask.el

@@ -209,7 +209,8 @@ Optional argument CONTENTS is used for nested directives.  e.g. development."
 (eask-start
   ;; Preparation
   (eask-archive-install-packages '("gnu" "melpa" "jcs-elpa")
-                                 '(package-build cask))
+                                 'package-build
+                                 'cask)
 
   ;; Start Converting
   (require 'cask)

lisp/test/melpazoid.el

@@ -31,7 +31,8 @@
 (eask-start
   ;; Preparation
   (eask-archive-install-packages '("gnu" "melpa")
-                                 '(package-lint pkg-info))
+                                 'package-lint
+                                 'pkg-info)
 
   ;; Start Testing
   (let* ((dirs (or (eask-args) `(,default-directory))))