From af00a03c98b48924528d6d3319455847212efabd Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Thu, 18 Apr 2019 18:08:15 +0900
Subject: [PATCH] Add some git-bug functions

---
 emacs.el | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)

diff --git a/emacs.el b/emacs.el
index b844903..b212596 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2018,7 +2018,68 @@ and search from projectile root (if projectile is available)."
   (pb/push-item '("") text "note" (or title "")))
 
 
+;;;;;;;;;;;;;;;;;;;;;
+;; git-bug
+
+(defconst git-bug-ls-regexp
+  (eval-when-compile
+    (rx bol
+        (submatch (one-or-more alphanumeric))  ; id
+        ;; (one-or-more any)
+        (one-or-more space)
+        (submatch (or "open" "close"))  ; status
+        (one-or-more space)
+        (submatch (maximal-match (zero-or-more print)))  ; title
+        "\t"
+        (submatch (one-or-more alphanumeric))  ; user
+        (one-or-more space)
+        "C:"
+        (submatch (one-or-more digit))  ; Comment num
+        (one-or-more space)
+        "L:"
+        (submatch (one-or-more digit))  ; Label num
+        eol
+        ))
+  "Regexp to parse line of output of git-bug ls.
+Used by `git-bug-ls'.")
 
+(defun git-bug--bugs ()
+  "Get list of git-bug bugs."
+  (interactive)
+  (with-temp-buffer
+    (git-bug--call-process "bug" "ls")
+    (goto-char (point-min))
+    (let ((bugs nil))
+      (while (not (eq (point) (point-max)))
+        (save-match-data
+          (when (re-search-forward git-bug-ls-regexp (point-at-eol) t)
+            (setq bugs `(,@bugs
+                         ,(list
+                           :id (match-string 1)
+                           :status (match-string 2)
+                           :title (string-trim (match-string 3))
+                           :user (match-string 4)
+                           :comment-num (match-string 5)
+                           :label-num (match-string 6)
+                           )))))
+        (forward-line 1)
+        (goto-char (point-at-bol)))
+      bugs)))
+
+(defun git-bug--call-process (&rest args)
+  "Start git process synchronously with ARGS.
+
+Raise error when git process ends with non-zero status.
+Any output will be written to current buffer."
+  (let ((status (apply 'call-process
+                       "git"
+                       nil
+                       t
+                       nil
+                       args)))
+    (cl-assert (eq status 0)
+               nil
+               (buffer-substring-no-properties (point-min) (point-max)))))
 
 
 ;;;;;;;;;;;;;;;;;;;