Re: unlinking links

[Adam Spiers <orgmode@adamspiers.org>]

On Thu, Nov 06, 2014 at 08:30:08PM -0500, John Kitchin wrote:
> Adam Spiers <orgmode@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'.