diff options
| -rw-r--r-- | rt-liberation.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/rt-liberation.el b/rt-liberation.el index a50dcbb..8e6a226 100644 --- a/rt-liberation.el +++ b/rt-liberation.el @@ -740,13 +740,19 @@ returned as no associated text properties." (rt-liber-next-section-in-viewer)) (message "no correspondence found")))) -(defun rt-liber-viewer-visit-in-browser () - "Visit this ticket in the RT Web interface." - (interactive) - (let ((id (rt-liber-ticket-id-only rt-liber-ticket-local))) +(defun rt-liber-viewer-visit-in-browser (&optional external) + "Visit this ticket section in the RT Web interface. +With a prefix arg, browse using secondary browser." + (interactive "P") + (let ((id (rt-liber-ticket-id-only rt-liber-ticket-local)) + (browser-function + (if external browse-url-secondary-browser-function + browse-url))) (if id - (browse-url - (concat rt-liber-base-url "Ticket/Display.html?id=" id)) + (funcall browser-function + (concat rt-liber-base-url "Ticket/Display.html?id=" id + "#txn-" + (alist-get 'id (rt-liber-viewer2-get-section-data)))) (error "no ticket currently in view")))) (defun rt-liber-viewer-mode-quit () |