1 files changed, 0 insertions, 84 deletions
diff --git a/buildbot-revision.el b/buildbot-revision.el
deleted file mode 100644
index 78703ea..0000000
--- a/buildbot-revision.el
+++ /dev/null
@@ -1,84 +0,0 @@
-;; -*- lexical-binding: t; -*-
-(require 'buildbot-client)
-(require 'buildbot-view)
-
-(defvar-local buildbot-revision-revision-id nil)
-(defvar-local buildbot-revision-info nil)
-
-(define-derived-mode buildbot-revision-mode buildbot-view-mode "Buildbot revision"
-  "Buildbot view for a revision")
-
-(defun buildbot-revision-buffer-name (revision)
-  (concat "*buildbot revision " revision "*"))
-
-(defun buildbot-revision-load (revision)
-  (let ((buffer-name (buildbot-revision-buffer-name revision)))
-    (with-current-buffer (get-buffer-create buffer-name)
-      (buildbot-revision-mode)
-      (setq buildbot-revision-revision-id revision)
-      (buildbot-revision-update))
-    (switch-to-buffer buffer-name)))
-
-(defun buildbot-revision-update ()
-  (unless (derived-mode-p 'buildbot-revision-mode)
-    (error "Not in buildbot revision mode"))
-  (let ((inhibit-read-only t))
-    (erase-buffer)
-    (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): ")
-  (buildbot-revision-load revision))
-
-(defun buildbot-revision-reload ()
-  (interactive)
-  (buildbot-revision-update))
-(define-key buildbot-revision-mode-map "g" 'buildbot-revision-reload)
-
-(defun buildbot-revision-format (revision-info builds)
-  (concat
-   (buildbot-view-format-revision-info revision-info)
-   "\n"
-   (string-join
-    (mapcar 'buildbot-view-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))
-        (cons 'build-stats (buildbot-revision-get-build-stats
-                            (alist-get 'builds change)))))
-
-(defun buildbot-revision-get-build-stats (builds)
-  (let ((results '((success . 0)
-                   (failure . 0)
-                   (pending . 0)))
-        status)
-    (seq-do
-     (lambda (build)
-       (setq status (buildbot-build-status build))
-       (setf (alist-get status results)
-             (1+ (alist-get status results))))
-     builds)
-    results))
-
-(defun buildbot-revision-open-build ()
-  (interactive)
-  (let ((build (get-text-property (point) 'build)))
-    (unless build
-      (error "Not at a build"))
-    (buildbot-build-load build buildbot-revision-info)))
-(define-key buildbot-revision-mode-map (kbd "<return>")
-  'buildbot-revision-open-build)
-
-(provide 'buildbot-revision)