From 7cc017ccc12921e38d0ace50400e096a4f6ddd2b Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Thu, 23 Mar 2023 09:21:56 +1100
Subject: added buildbot build mode

---
 buildbot-revision.el | 53 +++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 40 insertions(+), 13 deletions(-)

(limited to 'buildbot-revision.el')

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)
-- 
cgit v1.2.3