From 94172a6c655ea4aefe2960aa5db9fec77130e87d Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Fri, 24 Mar 2023 00:08:42 +1100
Subject: Adding step mode. Also refactoring

---
 buildbot-step.el | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 buildbot-step.el

(limited to 'buildbot-step.el')

diff --git a/buildbot-step.el b/buildbot-step.el
new file mode 100644
index 0000000..1058410
--- /dev/null
+++ b/buildbot-step.el
@@ -0,0 +1,54 @@
+;; -*- lexical-binding: t; -*-
+(require 'buildbot-client)
+(require 'buildbot-view)
+
+(define-derived-mode buildbot-step-mode buildbot-view-mode "Buildbot step"
+  "Buildbot view for a step")
+
+(defvar-local buildbot-step-revision-info nil)
+(defvar-local buildbot-step-build nil)
+(defvar-local buildbot-step-step nil)
+(defun buildbot-step-buffer-name (stepid)
+  (concat "*buildbot step " (number-to-string stepid) "*"))
+
+(defun buildbot-step-load (revision-info build step)
+  (let ((buffer-name (buildbot-step-buffer-name (alist-get 'stepid step))))
+    (with-current-buffer (get-buffer-create buffer-name)
+      (buildbot-step-mode)
+      (setq buildbot-step-revision-info revision-info
+            buildbot-step-build build
+            buildbot-step-step step)
+      (buildbot-step-update))
+    (switch-to-buffer buffer-name)))
+
+(defun buildbot-step-update ()
+  (unless (derived-mode-p 'buildbot-step-mode)
+    (error "Not in buildbot step mode"))
+  (let ((inhibit-read-only t))
+    (erase-buffer)
+    (let ((logs (buildbot-get-logs-by-stepid
+                 (alist-get 'stepid buildbot-step-step))))
+      (insert (buildbot-step-format
+               buildbot-step-revision-info
+               buildbot-step-build
+               buildbot-step-step
+               logs))
+      (goto-char (point-min)))))
+
+(defun buildbot-step-reload ()
+  (interactive)
+  (buildbot-step-update))
+(define-key buildbot-step-mode-map "g" 'buildbot-step-reload)
+
+(defun buildbot-step-format (revision-info build step logs)
+  (concat
+   (buildbot-view-format-revision-info revision-info)
+   "\n"
+   (buildbot-view-format-build build)
+   "\n"
+   (buildbot-view-format-step step)
+   (string-join
+    (mapcar 'buildbot-view-format-log logs)
+    "\n")))
+
+(provide 'buildbot-step)
-- 
cgit v1.2.3