aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--buildbot-view.el22
1 files changed, 22 insertions, 0 deletions
diff --git a/buildbot-view.el b/buildbot-view.el
index e1b8e55..dd0d4b0 100644
--- a/buildbot-view.el
+++ b/buildbot-view.el
@@ -37,6 +37,17 @@
(beginning-of-line 1)))
(define-key buildbot-view-mode-map "n" 'buildbot-view-next-header)
+(defun buildbot-view-next-header-same-thing (n)
+ (interactive "p")
+ (when-let
+ ((type (get-text-property (point) 'type)))
+ (dotimes (_ n)
+ (buildbot-view-next-header 1)
+ (while (not (eq (get-text-property (point) 'type) type))
+ (buildbot-view-next-header 1)))))
+(define-key buildbot-view-mode-map (kbd "M-n")
+ 'buildbot-view-next-header-same-thing)
+
(defun buildbot-view-previous-header (n)
(interactive "p")
(beginning-of-line 1)
@@ -46,6 +57,17 @@
(re-search-backward buildbot-view-header-regex)))
(define-key buildbot-view-mode-map "p" 'buildbot-view-previous-header)
+(defun buildbot-view-previous-header-same-thing (n)
+ (interactive "p")
+ (when-let
+ ((type (get-text-property (point) 'type)))
+ (dotimes (_ n)
+ (buildbot-view-previous-header 1)
+ (while (not (eq (get-text-property (point) 'type) type))
+ (buildbot-view-previous-header 1)))))
+(define-key buildbot-view-mode-map (kbd "M-p")
+ 'buildbot-view-previous-header-same-thing)
+
(defun buildbot-view-format-revision-info (revision-info)
(propertize
(format