1 files changed, 50 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-github.el b/emacs/.emacs.d/lisp/my/my-github.el
index 45adcf6..1643612 100644
--- a/emacs/.emacs.d/lisp/my/my-github.el
+++ b/emacs/.emacs.d/lisp/my/my-github.el
@@ -54,6 +54,56 @@ License; name; description; homepage; created at"
         (cons "Developers" (my-grok-github-get-developer-name
                             (alist-get 'url (alist-get 'owner raw))))))
 
+(defun my-github-api-repos (url)
+  (when-let* ((urlobj (url-generic-parse-url url))
+              (path (url-filename urlobj))
+              (project-id
+               (when (string-match "^/[^/]+/[^/]+" path)
+                 (match-string 0 path))))
+    (my-url-fetch-json
+     (format "https://api.github.com/repos%s" project-id))))
+
+(defun my-github-api-readme (url)
+  (when-let* ((urlobj (url-generic-parse-url url))
+              (path (url-filename urlobj))
+              (project-id
+               (when (string-match "^/[^/]+/[^/]+" path)
+                 (match-string 0 path)))
+              ;; so that the response of readme is in html format
+              (url-request-extra-headers
+               '(("Accept" . "application/vnd.github.html"))))
+    (my-url-fetch-raw
+     (format "https://api.github.com/repos%s/readme" project-id))))
+
+(defun my-github-project-infobox (url)
+  (interactive "sGithub repo url: ")
+  (let ((info
+         (append
+          (my-github-api-repos url)
+          `((readme . ,(my-github-api-readme url))))))
+    (infobox-render
+     (infobox-translate
+      info my-github-project-info-specs)
+     `(my-github-project-infobox ,url)
+     (called-interactively-p 'interactive)))
+  )
+
+(defvar my-github-project-info-specs
+  `((html_url . "Clone")
+    (full_name . "Name")
+    (description . "Description")
+    (created_at . ("Created at" . my-gitlab-format-time-string))
+    (pushed_at . ("Pushed at" . my-gitlab-format-time-string))
+    (topics . ("Topics" . ,(lambda (xs)
+                             (mapconcat #'identity xs "; "))))
+    (stargazers_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-grok-github-get-developer-name (url)
   (with-current-buffer (url-retrieve-synchronously url)
     (set-buffer-multibyte t)