On Thu, Dec 04, 2014 at 06:07:53PM +0100, Nicolas Goaziou wrote: > Adam Spiers <orgm...@adamspiers.org> writes: > > On Thu, Nov 06, 2014 at 08:30:08PM -0500, John Kitchin wrote: > >> Adam Spiers <orgm...@adamspiers.org> writes: > >> > Is it just me or is there no quick way to remove the link from some > >> > hyperlinked text? If so, please consider this a feature request ;-) > >> > >> Try this: > >> > >> (defun unlinkify () > >> "replace an org-link with the path, or description." > >> (interactive) > >> (let ((eop (org-element-context))) > >> (when (eq 'link (car eop)) > > (when (eq (org-element-type eop) 'link) > > >> (message "%s" eop) > >> (let* ((start (org-element-property :begin eop)) > >> (end (org-element-property :end eop)) > >> (contents-begin (org-element-property :contents-begin eop)) > >> (contents-end (org-element-property :contents-end eop)) > >> (path (org-element-property :path eop)) > >> (desc (and contents-begin > >> contents-end > >> (buffer-substring contents-begin contents-end)))) > >> (setf (buffer-substring start end) (or desc path)))))) > > > > Thanks, that worked great! Can I suggest you submit this for > > inclusion in org itself? :-) I guess it would need to be called > > `org-unlinkify'. > > FWIW, I don't think it is useful enough for inclusion in core.
Why not? Or perhaps I should ask: how is it determined whether something's useful enough for core? :-)
