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