fix: split spec

Author: jcs090218

lisp/_prepare.el

@@ -19,6 +19,7 @@
 (require 'url-vars)
 
 (require 'cl-lib)
+(require 'ffap)
 (require 'files)
 (require 'ls-lisp)
 (require 'pp)

lisp/core/install-vc.el

@@ -22,11 +22,24 @@
 
 (eask-load "core/install-file")
 
+(defun eask-install-vc--split-sepcs (specs)
+  "Split the SPECS and return a list of specification."
+  (let ((new-specs)
+        (current-spec))
+    (dolist (spec specs)
+      ;; Detect new specification.
+      (cond ((ffap-url-p spec)
+             (push (reverse current-spec) new-specs)
+             (setq current-spec (list spec (eask-install-file--guess-name spec))))
+            (t
+             (push spec current-spec))))
+    ;; Push thes rest of the specification.
+    (push (reverse current-spec) new-specs)
+    (cl-remove-if #'null (reverse new-specs))))
+
 (defun eask-install-vc--packages (specs)
   "The vc install packages with SPECS."
-  (let* ((deps (mapcar (lambda (spec)
-                         (list (eask-install-file--guess-name spec) spec))
-                       specs))
+  (let* ((deps (eask-install-vc--split-sepcs specs))
          (names (mapcar #'car deps))
          (len (length deps))
          (s (eask--sinr len "" "s"))