1 files changed, 70 insertions, 10 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-gitlab.el b/emacs/.emacs.d/lisp/my/my-gitlab.el
index 6dd484c..ad7f0ed 100644
--- a/emacs/.emacs.d/lisp/my/my-gitlab.el
+++ b/emacs/.emacs.d/lisp/my/my-gitlab.el
@@ -26,8 +26,9 @@
 
 ;;; Code:
 
+(require 'infobox)
 
-(defun my-get-gitlab-project-id (url)
+(defun my-gitlab-get-project-id (url)
   (with-current-buffer (url-retrieve-synchronously
                         (replace-regexp-in-string "\\.git$" "" url))
     (let ((dom (libxml-parse-html-region (point-min) (point-max))))
@@ -35,16 +36,75 @@
                  (dom-search dom (lambda (n) (dom-attr n 'data-project-id))))
                 'data-project-id))))
 
-(defun my-grok-gitlab (url)
+(defun my-gitlab-api-projects (url)
   (when-let* ((urlobj (url-generic-parse-url url))
-              (project-id (my-get-gitlab-project-id url)))
-    (with-current-buffer
-        (url-retrieve-synchronously
-         (concat (url-type urlobj) "://" (url-host urlobj)
-                 "/api/v4/projects/" project-id))
-      (set-buffer-multibyte t)
-      (my-delete-http-header)
-      (my-grok-gitlab-make-info (json-read)))))
+              (project-id (my-gitlab-get-project-id url)))
+    (my-url-fetch-json
+     (format "%s://%s/api/v4/projects/%s"
+             (url-type urlobj)
+             (url-host urlobj)
+             project-id))))
+
+(defvar my-gitlab-readme-get-raw nil "Whether to get raw or html readme")
+
+(defun my-gitlab-project-info (url)
+  "Given a url, returns project info."
+  (let ((info (my-gitlab-api-projects url)))
+    (let-alist info
+      (when .readme_url
+        (setf (alist-get 'readme info)
+              (if my-gitlab-readme-get-raw
+                  (format
+                   "\n%s"
+                   (my-url-fetch-raw
+                    (replace-regexp-in-string "/-/blob/" "/-/raw/" .readme_url)))
+                (alist-get
+                 'html
+                 (my-url-fetch-json
+                  (format "%s?format=json&viewer=rich" .readme_url)))))))
+    info))
+
+(defun my-gitlab-format-time-string (t)
+  (format-time-string "%Y-%m-%d %M:%M:%S" (encode-time (parse-time-string t))))
+
+(defun my-gitlab-project-url-p (url)
+  (let ((urlobj (url-generic-parse-url url)))
+    (and (equal (url-host urlobj) "gitlab.com")
+         (string-match-p "^/[^/]+/[^/]+$" (url-filename urlobj)))))
+
+(require 'my-buffer)
+
+(defvar my-gitlab-project-info-specs
+  `((http_url_to_repo . "Clone")
+    (name_with_namespace . "Name")
+    (description . "Description")
+    (created_at . ("Created at" . my-gitlab-format-time-string))
+    (last_activity_at . ("Updated at" . my-gitlab-format-time-string))
+    (topics . ("Topics" . ,(lambda (xs)
+                             (mapconcat #'identity xs "; "))))
+    (star_count . ("Stars" . number-to-string))
+    (forks_count . ("Forks" . number-to-string))
+    (readme . (body . ,(lambda (text)
+                         (with-temp-buffer
+                           (insert text)
+                           (shr-render-region (point-min) (point-max))
+                           (buffer-string)))))))
+
+(defun my-gitlab-project-infobox (url)
+  "Display a gitlab project info at URL in a help buffer.
+
+A good example would be
+<https://gitlab.com/woob/woob>
+"
+  (interactive "sGitlab project URL: ")
+  (infobox-render
+   (infobox-translate
+    (my-gitlab-project-info url) my-gitlab-project-info-specs)
+   `(my-gitlab-project-infobox ,url)
+   (called-interactively-p 'interactive)))
+
+(defun my-grok-gitlab (url)
+  (my-grok-gitlab-make-info (my-gitlab-api-projects url)))
 
 (defun my-grok-gitlab-make-info (raw)
   (list (cons "Title" (alist-get 'name raw))