From: John Kitchin <jkitchin@andrew.cmu.edu>
To: Sriram Thaiyar <sriram.thaiyar@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Dynamic links
Date: Sun, 10 Jul 2016 17:19:50 -0400 [thread overview]
Message-ID: <m2poqldwcp.fsf@Johns-MacBook-Air.local> (raw)
In-Reply-To: <CAOBv0PdH+MVr+_6w9iWYBzz1ENkHYdivZwBS2U6BpzRGYJWD_w@mail.gmail.com>
It kind of sounds like you want the button-lock package. See
http://kitchingroup.cheme.cmu.edu/blog/2015/03/18/Clickable-links-for-Twitter-handles-in-Emacs/
for example (and search "clickable text" on my blog for other examples).
Maybe something like:
#+BEGIN_SRC emacs-lisp
(require 'button-lock)
(global-button-lock-mode)
(defvar ticket-regexp "\\([[:alpha:]]\\{2,5\\}-[[:digit:]]+\\)")
(button-lock-set-button
ticket-regexp
(lambda ()
(interactive)
(save-excursion
(goto-char (previous-single-property-change (point) 'button-lock))
(looking-at ticket-regexp)
(browse-url (format "http://www.some-ticket-system/%s" (match-string 0)))))
:face 'org-link)
#+END_SRC
You get no export with this, but it has the functionality you want I
think.
Sriram Thaiyar writes:
> Hi-
>
> I've implemented "dynamic links" which are like plain links but for
> arbitrary regular expressions.
>
> I was wondering if there was a better way to do this?
>
> You can see the implementation here:
> https://github.com/sri/dotfiles/commit/cd3429ce0c8e637c803835299c2ed4653d19a5fb
>
> (This works with Org-mode version: 8.3.4 - 8.3.4-88-g792bb9-elpa.)
>
> With this config:
>
> (add-to-list 'my-org-dynamic-links-matcher
> '("\\([[:alpha:]]\\{2,5\\}-[[:digit:]]+\\)"
> "https://some-ticketing-system.org/%s"))
>
> a string like `TEST-122' is turned into a link, as you type it in.
> And when you click on that link, it'll visit this URL:
> https://some-ticketing-system.org/TEST-122
>
> There are some things that gave me problems:
>
> - I can't hit <return> and have it follow the link. For this, it seems
> like I would need to advice the `org-return' function.
>
> - Despite the fact that the `TEST-123' has a `htmlize-link' text property,
> it errors out with "No link found". To fix that, I needed to add a hook to
> `org-open-at-point-functions'.
>
> - I had to copy a bunch of code from `org-activate-plain-links' to get
> this to work.
>
> Thanks,
> -Sriram
--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
next prev parent reply other threads:[~2016-07-10 21:20 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-07-08 22:00 Dynamic links Sriram Thaiyar
2016-07-10 21:19 ` John Kitchin [this message]
2016-07-11 7:42 ` Sriram Thaiyar
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2poqldwcp.fsf@Johns-MacBook-Air.local \
--to=jkitchin@andrew.cmu.edu \
--cc=emacs-orgmode@gnu.org \
--cc=sriram.thaiyar@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.