diff options
| -rw-r--r-- | buildbot-view.el | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/buildbot-view.el b/buildbot-view.el index 0cc9b26..e31d6e5 100644 --- a/buildbot-view.el +++ b/buildbot-view.el @@ -48,6 +48,7 @@ One of `revision', `build', `step', or `log'.") (define-key kmap "b" #'buildbot-view-previous-header-same-thing) (define-key kmap "g" #'buildbot-view-reload) (define-key kmap (kbd "<return>") #'buildbot-view-open-thing-at-point) + (define-key kmap "w" #'buildbot-view-copy-url) kmap) "Keymap for `buildbot-view-mode'.") @@ -365,6 +366,30 @@ otherwise pass the value from the current buffer." (interactive) (buildbot-view-update)) +(defun buildbot-view-format-url () + "Format the url of the current view." + (unless (derived-mode-p 'buildbot-view-mode) + (error "Must be in buildbot mode")) + (pcase buildbot-view-type + ('branch (format "%s/#grid?branch=%s" + buildbot-host + (alist-get 'branch buildbot-view-data))) + ('build + (let ((build (alist-get 'build buildbot-view-data))) + (format "%s/#/builders/%d/builds/%s" + buildbot-host + (alist-get 'builderid build) + (alist-get 'number build)))) + (_ (error "Unsupported type for formatting url: %s" + buildbot-view-type)))) + +(defun buildbot-view-copy-url () + "Copy the url of the current view." + (interactive) + (let ((url (buildbot-view-format-url))) + (kill-new url) + (message "Copied url: %s" url))) + ;;;###autoload (defun buildbot-revision-open (&optional read-host) "Open a revision view. |