feat: Add priority as the 3rd arugment to source alias

Author: jcs090218

docs/content/en/DSL/_index.md

@@ -69,15 +69,15 @@ scripts.
 
 # 🚩 Dependencies
 
-## 🔍 **source** (`alias`)
-
-## 🔍 **source** (`name` `url`)
+## 🔍 **source** (`alias-or-name` &optional `url` `priority`)
 
 Add a package archive to install dependencies from.
 
 ```elisp
 (source "gnu")
 (source "gnu" "https://elpa.gnu.org/packages/")
+(source "gnu" "https://elpa.gnu.org/packages/" 10)
+(source "gnu" nil 10)
 ```
 
 Available aliases:
@@ -96,14 +96,6 @@ Available aliases:
 💡 Use **--insecure** to make **https** to **http**, but not recommended
 {{< /hint >}}
 
-## 🔍 **source-priority** (`name` `priority`)
-
-Set archive priority.
-
-```elisp
-(source-priority "gnu" 5)
-```
-
 ## 🔍 **depends-on** (`package-name` `&optional minimum-version`)
 
 ## 🔍 **depends-on** (`package-name` `&rest recipe`)

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

@@ -440,14 +440,10 @@ Alias of `files`.
 
 Alias of `script`.
 
-## 🔍 Function: eask-f-source (`name` &optional `location`)
+## 🔍 Function: eask-f-source (`name` &optional `location` `priority`)
 
 Alias of `source`.
 
-## 🔍 Function: eask-f-source-priority (`name` &optional `priority`)
-
-Alias of `source-priority`.
-
 ## 🔍 Function: eask-f-depends-on (`pkg` &rest `args`)
 
 Alias of `depends-on`.

lisp/_prepare.el

@@ -553,7 +553,7 @@ other scripts internally.  See function `eask-call'.")
   '("package" "website-url" "keywords"
     "package-file" "files"
     "script"
-    "source" "source-priority"
+    "source"
     "depends-on" "development"
     "exec-paths" "load-paths")
   "List of Eask file keywords.")
@@ -780,8 +780,12 @@ Eask file in the workspace."
               (mapconcat #'identity (append (list command) args) " "))
         eask-scripts))
 
-(defun eask-f-source (name &optional location)
-  "Add archive NAME with LOCATION."
+(defun eask-f-source (name &optional location priority)
+  "Add archive NAME alias.
+
+If LOCATION is a URL string, replace the default URL from `eask-source-mapping'
+to it's value.  Optional argument PRIORITY can be use to register to variable
+`package-archive-priorities'."
   (when (assoc name package-archives)
     (eask-error "Multiple definition of source `%s'" name))
   (setq location (or location (cdr (assq (intern name) eask-source-mapping))))
@@ -790,11 +794,9 @@ Eask file in the workspace."
              (gnutls-available-p)
              (not (eask-network-insecure-p)))
     (setq location (s-replace "https://" "http://" location)))
-  (add-to-list 'package-archives (cons name location) t))
-
-(defun eask-f-source-priority (archive-id &optional priority)
-  "Add PRIORITY for to ARCHIVE-ID."
-  (add-to-list 'package-archive-priorities (cons archive-id priority) t))
+  (add-to-list 'package-archives (cons name location) t)
+  (when priority
+    (add-to-list 'package-archive-priorities (cons name priority) t)))
 
 (defvar eask-depends-on-recipe-p nil
   "Set to t if package depends on recipe.")