added buildbot build mode

4 files changed, 86 insertions, 13 deletions

diff --git a/buildbot-build.el b/buildbot-build.el
index ca1a8bc..a6c2b09 100644
--- a/buildbot-build.el
+++ b/buildbot-build.el
@@ -1,4 +1,43 @@
+(require 'buildbot-client)
 (define-derived-mode buildbot-build-mode special-mode "Buildbot build"
   "Buildbot view for a build")
 
+(defvar-local buildbot-build-build-id nil)
+(defvar-local buildbot-build-info nil)
+(defun buildbot-build-buffer-name (buildid)
+  (concat "*buildbot build " (number-to-string buildid) "*"))
+
+(defun buildbot-build-load (buildid)
+  (let ((buffer-name (buildbot-build-buffer-name buildid)))
+    (with-current-buffer (get-buffer-create buffer-name)
+      (buildbot-build-mode)
+      (setq buildbot-build-build-id buildid)
+      (buildbot-build-update))
+    (switch-to-buffer buffer-name)))
+
+(defun buildbot-build-update ()
+  (unless (derived-mode-p 'buildbot-build-mode)
+    (error "Not in buildbot build mode"))
+  (let ((inhibit-read-only t))
+    (erase-buffer)
+    (let ((steps (buildbot-get-steps-by-buildid buildbot-build-build-id)))
+      (insert (buildbot-build-format steps))
+      (goto-char (point-min)))))
+
+(defun buildbot-build-open (buildid)
+  (interactive "sBuildi ID: ")
+  (buildbot-build-load (string-to-number buildid)))
+
+(defun buildbot-build-format (steps)
+  (string-join
+   (mapcar 'buildbot-build-format-step steps)
+   "\n"))
+
+(defun buildbot-build-format-step (step)
+  (propertize
+   (format "\n[%d %s %s]\n"
+           (alist-get 'number step)
+           (alist-get 'name step)
+           (alist-get 'state_string step))))
+
 (provide 'buildbot-build)
diff --git a/buildbot-client.el b/buildbot-client.el
index 1bb8310..afc1a69 100644
--- a/buildbot-client.el
+++ b/buildbot-client.el
@@ -55,6 +55,9 @@
               (buildbot-api-change (list (cons 'revision revision))))
    0))
 
+(defun buildbot-get-build-by-buildid (buildid)
+  (buildbot-api-build (list (cons 'buildid buildid))))
+
 (defun buildbot-get-builds-by-revision (revision)
   (alist-get 'builds (buildbot-get-change-by-revision revision)))
 
diff --git a/buildbot-revision.el b/buildbot-revision.el
index 4f8ad57..08ba7b1 100644
--- a/buildbot-revision.el
+++ b/buildbot-revision.el
@@ -2,6 +2,7 @@
 (require 'buildbot-client)
 
 (defvar-local buildbot-revision-revision-id nil)
+(defvar-local buildbot-revision-info nil)
 (defvar buildbot-revision-header-regex "^\\[.*\\]$")
 
 (define-derived-mode buildbot-revision-mode special-mode "Buildbot revision"
@@ -25,7 +26,13 @@
     (error "Not in buildbot revision mode"))
   (let ((inhibit-read-only t))
     (erase-buffer)
-    (insert (buildbot-revision-format buildbot-revision-revision-id))))
+    (let ((change
+           (buildbot-get-change-by-revision buildbot-revision-revision-id)))
+      (setq buildbot-revision-info
+            (buildbot-revision-get-info change))
+      (insert (buildbot-revision-format buildbot-revision-info
+                                        (alist-get 'builds change)))
+      (goto-char (point-min)))))
 
 (defun buildbot-revision-open (revision)
   (interactive "sRevision (commit hash): ")
@@ -35,11 +42,29 @@
   (interactive)
   (buildbot-revision-update))
 
-(defun buildbot-revision-format (revision)
-  (string-join
-   (mapcar 'buildbot-revision-format-build
-           (buildbot-get-builds-by-revision revision))
-   "\n"))
+(defun buildbot-revision-format (revision-info builds)
+  (concat
+   (buildbot-revision-format-info revision-info)
+   "\n"
+   (string-join
+    (mapcar 'buildbot-revision-format-build builds)
+    "\n")))
+
+(defun buildbot-revision-get-info (change)
+  (list (cons 'revision (alist-get 'revision change))
+        (cons 'author (alist-get 'author change))
+        (cons 'created-at (buildbot-format-epoch-time
+                     (alist-get 'created_at
+                                (alist-get 'sourcestamp change))))
+        (cons 'comments (alist-get 'comments change))))
+
+(defun buildbot-revision-format-info (info)
+  (format
+   "commit %s\nAuthor: %s\nDate: %s\n\n%s"
+   (alist-get 'revision info)
+   (alist-get 'author info)
+   (alist-get 'created-at info)
+   (alist-get 'comments info)))
 
 (defun buildbot-revision-next-header (n)
   (interactive "p")
@@ -59,12 +84,14 @@
 (define-key buildbot-revision-mode-map "p" 'buildbot-revision-previous-header)
 
 (defun buildbot-revision-format-build (build)
-  (format "[%s %s]\n%s\n"
-          (buildbot-get-builder-name-by-id (alist-get 'builderid build))
-          (alist-get 'state_string build)
-          (string-join
-           (mapcar (lambda (test) (alist-get 'test_name test))
-                   (alist-get 'failed_tests build))
-           "\n")))
+  (propertize
+   (format "\n[%s %s]\n%s"
+           (buildbot-get-builder-name-by-id (alist-get 'builderid build))
+           (alist-get 'state_string build)
+           (string-join
+            (mapcar (lambda (test) (alist-get 'test_name test))
+                    (alist-get 'failed_tests build))
+            "\n"))
+   'buildid (alist-get 'id build)))
 
 (provide 'buildbot-revision)
diff --git a/buildbot-utils.el b/buildbot-utils.el
index ebac706..269cdf3 100644
--- a/buildbot-utils.el
+++ b/buildbot-utils.el
@@ -47,4 +47,8 @@
                        attr)
                "&"))
 
+(defun buildbot-format-epoch-time (epoch)
+  (format-time-string "%Y-%m-%d %a %H:%M:%S %Z" (encode-time
+                                                 (decode-time epoch))))
+
 (provide 'buildbot-utils)