code: update logic for pkg-file command

Author: jcs090218

lisp/_prepare.el

@@ -614,7 +614,7 @@ Eask file in the workspace."
             (insert-file-contents eask-package-file)
             (setq eask-package-desc (ignore-errors (package-buffer-info))))
           (unless eask-package-desc
-            (eask-warn "Failed to construct buffer-info, try to lint the package-file `%s'" file)))
+            (eask-warn "Failed to construct package-descriptor, lint the package-file `%s'" file)))
       (eask-warn "Missing the package-file `%s'" file))))
 
 (defun eask-files (&rest patterns)

lisp/core/pkg-file.el

@@ -15,14 +15,16 @@
       nil t)
 
 (eask-start
-  (let* ((name (eask-guess-package-name))
-         (version (eask-package-version))
-         (description (eask-package-description))
-         (reqs (package-desc-reqs eask-package-desc))
-         (pkg-file (expand-file-name (concat name "-pkg.el"))))
-    (write-region
-     (pp-to-string `(define-package ,name ,version ,description ,reqs))
-     nil pkg-file)
-    (eask-info "(Generated pkg-file -> %s)" pkg-file)))
+  (let ((pkg-file (expand-file-name (concat name "-pkg.el"))))
+    (if eask-package-desc
+        (package-generate-description-file eask-package-desc pkg-file))
+    (let* ((name (eask-guess-package-name))
+           (version (eask-package-version))
+           (description (eask-package-description))
+           (reqs (package-desc-reqs eask-package-desc)))
+      (write-region
+       (pp-to-string `(define-package ,name ,version ,description ',reqs))
+       nil pkg-file)))
+  (eask-info "(Generated pkg-file -> %s)" pkg-file))
 
 ;;; pkg-file.el ends here