Merge to code base

github-tags.el

@@ -0,0 +1,93 @@
+;;; github-tags.el --- Retrieve tags information through GitHub API  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2021  Shen, Jen-Chieh
+;; Created date 2021-08-08 16:14:37
+
+;; Author: Shen, Jen-Chieh <[email protected]>
+;; Description: Retrieve tags information through GitHub API
+;; Keyword: github tags
+;; Version: 0.1.0
+;; Package-Requires: ((emacs "24.3"))
+;; URL: https://github.com/jcs-elpa/github-tags
+
+;; This file is NOT part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Retrieve tags information through GitHub API
+;;
+
+;;; Code:
+
+(require 'json)
+(require 'url)
+
+(defgroup github-tags nil
+  "Retrieve tags information through GitHub API."
+  :prefix "github-tags-"
+  :group 'tool
+  :link '(url-link :tag "Repository" "https://github.com/jcs-elpa/github-tags"))
+
+(defconst github-tags-api "https://api.github.com/repos/%s/tags"
+  "API url to GitHub tags.")
+
+(defvar url-http-end-of-headers)
+
+(defvar github-tags-names nil)
+(defvar github-tags-zipball-urls nil)
+(defvar github-tags-tarball-urls nil)
+(defvar github-tags-commits nil)
+(defvar github-tags-node-ids nil)
+
+(defun github-tags--url-to-json (url)
+  "Get data by URL and convert it to JSON."
+  (with-current-buffer (url-retrieve-synchronously url)
+    (set-buffer-multibyte t)
+    (goto-char url-http-end-of-headers)
+    (prog1 (let ((json-array-type 'list)) (json-read))
+      (kill-buffer))))
+
+(defun github-tags (path)
+  "Retrive tags data for PATH from GitHub API."
+  (setq github-tags-names nil
+        github-tags-zipball-urls nil
+        github-tags-tarball-urls nil
+        github-tags-commits nil
+        github-tags-node-ids nil)
+  (let* ((url (format github-tags-api path))
+         (data (ignore-errors (github-tags--url-to-json url)))
+         (msg-err (cdr (assoc 'message data))))
+    (when msg-err (user-error "[ERROR] %s, %s" msg-err url))
+    (dolist (tag data)
+      (let ((name (cdr (assoc 'name tag)))
+            (zipball (cdr (assoc 'zipball_url tag)))
+            (tarball (cdr (assoc 'tarball_url tag)))
+            (commit (cdr (assoc 'commit tag)))
+            (nodeId (cdr (assoc 'node_id tag))))
+        (push name github-tags-names)
+        (push zipball github-tags-zipball-urls)
+        (push tarball github-tags-tarball-urls)
+        (push commit github-tags-commits)
+        (push nodeId github-tags-node-ids)))
+    (setq github-tags-names (reverse github-tags-names)
+          github-tags-zipball-urls (reverse github-tags-zipball-urls)
+          github-tags-tarball-urls (reverse github-tags-tarball-urls)
+          github-tags-commits (reverse github-tags-commits)
+          github-tags-node-ids (reverse github-tags-node-ids))
+    data))
+
+(provide 'github-tags)
+;;; github-tags.el ends here