picnoir/my-repo-pins
1
0
Fork 0
mirror of https://github.com/NinjaTrappeur/my-repo-pins.git synced 2024-06-18 03:21:57 +02:00
Code Issues Projects Releases Wiki Activity

gitlab-fetcher: introduce gitlab generic fetcher.

Browse source 
We introduce an instance-agnostic Gitlab fetcher.

As noted in the function docstring, there's no way to retrieve the
clone URLs from an API at the moment. We fall back to a somehow dirty
hack to get the job done.
This commit is contained in:
Félix Baylac-Jacqué 2022-06-16 16:45:45 +02:00
parent cdd2e84582
commit 31343e66cb
No known key found for this signature in database
GPG key ID: EFD315F31848DBA4
1 changed files with 32 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
h.el
View file

@ -115,6 +115,38 @@ A ongoing/failed lookup will also be represented by an entry in this alist:
(make-mutex "h-ui-mutex")
"Mutex in charge of preventing several fetchers to update the state concurently.")
;;; Gitlab Fetcher
(defun h--query-gitlab-owner-repo (instance-url user-name repo-name callback)
"Queries the INSTANCE-URL Gitlab instance and retrieve some infos about a repo.
This function will try to determine whether or not the
USER-NAME/REPO-NAME repository exists in the INSTANCE-URL Gitlab
instance.
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.
Note: the gitlab GraphQL API is not accessible without a bearing
token, the gitlab REST API doesn't provide a endpoint to retrieve the
clone URL of a repository. Meaning instead of using an API, we make a
HEAD request to the repository HTTP endpoint and infer by ourselves
the clone URLs. It might go south at some point, but that's sadly the
only option we have for now."
(progn
(setq url-request-method "HEAD")
(url-retrieve
(format "https://%s/%s/%s" instance-url user-name repo-name)
(lambda (status &rest _rest)
(let ((repo-not-found (plist-get status :error)))
(if repo-not-found
(funcall callback nil)
(funcall
callback
`((ssh . ,(format "git@%s:%s/%s.git" instance-url user-name repo-name))
(https . ,(format "https://%s/%s/%s.git" instance-url user-name repo-name))))))))
(setq url-request-method nil)))
;;; 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.
@ -140,7 +172,6 @@ If the repo does exists, returns a alist in the form of:
`(
(ssh . SSH-CHECKOUT-URL)
(https . HTTPS-CHECKOUT-URL)
(forge-str . \"Github\")
)
Returns nil if the repo does not exists."