From 594cdeec71fe66ea4e072e36358c7d8fa7f8f39b Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 9 Mar 2021 02:37:26 +0000
Subject: go to first job in jenkins

---
 init.org | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/init.org b/init.org
index 785f83a..a640d1e 100644
--- a/init.org
+++ b/init.org
@@ -3076,9 +3076,17 @@
         ;; one also needs jenkins-api-token, jenkins-username and jenkins-url
         ;; optionally: jenkins-colwidth-id, jenkins-colwidth-last-status
         (setq jenkins-colwidth-name 35)
+        :config
+        (defun jao-jenkins-first-job ()
+          (interactive)
+          (goto-char (point-min))
+          (when (re-search-forward "^- Job" nil t)
+            (goto-char (match-beginning 0))))
+        (add-hook 'jenkins-job-view-mode-hook #'jao-jenkins-first-job)
         :bind (:map jenkins-job-view-mode-map
                     (("n" . next-line)
                      ("p" . previous-line)
+                     ("f" . jao-jenkins-first-job)
                      ("RET" . jenkins--show-console-output-from-job-screen))
                     :map jenkins-console-output-mode-map
                     (("n" . next-line)
-- 
cgit v1.2.3