Improved rt-liber-viewer-visit-in-browser.

- With a prefix arg, it opens the ticket in secondary browser. This is
particularly useful when the internal browser complains about REST
access.
- The browsing link pinpoints the section on top of the ticket id.

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 ()