picnoir/my-repo-pins
1
0
Fork 0
mirror of https://github.com/NinjaTrappeur/my-repo-pins.git synced 2024-06-01 19:14:07 +02:00
Code Issues Projects Releases Wiki Activity

Forge fetchers: reorganizing code.

Browse source
This commit is contained in:
Félix Baylac-Jacqué 2022-06-09 12:24:39 +02:00
parent 436f6efcc8
commit 2a5021274e
No known key found for this signature in database
GPG key ID: EFD315F31848DBA4
1 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
h.el
View file

@ -116,6 +116,20 @@ A ongoing/failed lookup will also be represented by an entry in this alist:
"Mutex in charge of preventing several fetchers to update the state concurently.")
;;; Github Fetcher
(defun h--query-github-owner-repo (user-name repo-name callback)
"Queries the GitHub API to retrieve some infos about a GitHub repo.
This function will first try to determine whether
github.com/USER-NAME/REPO-NAME exists.
If so, calls the CALLBACK function with a alist containing the ssh and
https clone URLs. If the repo does not exists, calls the callback with
nil as parameter."
(progn
(url-retrieve
(format "https://api.github.com/repos/%s/%s" user-name repo-name)
(lambda (&rest _rest) (funcall callback (h--fetch-github-parse-response(current-buffer)))))))
(defun h--fetch-github-parse-response (response-buffer)
"Parse the RESPONSE-BUFFER containing a GET response from the GitHub API.
@ -144,19 +158,6 @@ Returns nil if the repo does not exists."
(https . ,https-url))))
nil)))
(defun h--query-github-owner-repo (user-name repo-name forge callback)
"Queries the GitHub API to retrieve some infos about a GitHub repo.
This function will first try to determine whether
github.com/USER-NAME/REPO-NAME exists.
If so, calls the CALLBACK function with a alist containing the ssh and
https clone URLs. If the repo does not exists, calls the callback with
nil as parameter."
(progn
(url-retrieve
(format "https://api.github.com/repos/%s/%s" user-name repo-name)
(lambda (&rest _rest) (funcall callback (h--fetch-github-parse-response(current-buffer)) forge)))))
;;; Gitea Fetcher
(defun h--query-gitea (instance-url user-name repo-name callback)
"Queries the INSTANCE-URL gitea instance to retrieve a repo informations.
@ -236,7 +237,7 @@ or
;; owner/repo case
((string-match "^.*/.*$" query-str)
(let*
((splitted-query (split-string "Ninjatrappeur/h.el" "/"))
((splitted-query (split-string query-str "/"))
(owner (car splitted-query))
(repo (cadr splitted-query)))
`((tag . owner-repo) (owner . ,owner) (repo . ,repo))))