diff options
| -rw-r--r-- | rt-liberation-org.el | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/rt-liberation-org.el b/rt-liberation-org.el index 0943774..70dd536 100644 --- a/rt-liberation-org.el +++ b/rt-liberation-org.el @@ -34,14 +34,19 @@ (defun rt-org-open (link) "Opens the rt LINK. - Open the rt ticket (for links starting with 'id:') or run - the query (for links starting with 'query:')." + Open the rt ticket (for links starting with 'id:') or run + the query (for links starting with 'query:')." (require 'rt-liberation) (cond - ((string-match "^id:\\(.+\\)" link) - (rt-liber-browse-query (format "id = \"%s\"" (match-string 1 link))) - (rt-liber-ticket-at-point) - ) + ((string-match "^id:\\([^#]+\\)\\(#\\(.+\\)\\)?" link) + (let ((id (match-string 1 link)) + (section (string-to-number (or (match-string 3 link) "0")))) + (rt-liber-browse-query (format "id = \"%s\"" id)) + (rt-liber-next-ticket-in-browser) + (rt-liber-ticket-at-point) + (dotimes (unused section) + (rt-liber-viewer2-next-section-in)) + )) ((string-match "^query:\\(.+\\)" link) (rt-liber-browse-query (match-string 1 link))) (t (error "Unrecognized link type '%s'" link)))) |