Re: [O] unlinking links

[Adam Spiers]

On Thu, Dec 04, 2014 at 06:07:53PM +0100, Nicolas Goaziou wrote:
> Adam Spiers <address@hidden> writes:
> > On Thu, Nov 06, 2014 at 08:30:08PM -0500, John Kitchin wrote:
> >> Adam Spiers <address@hidden> 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? :-)