[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] unlinking links
From: |
Nicolas Goaziou |
Subject: |
Re: [O] unlinking links |
Date: |
Thu, 04 Dec 2014 18:07:53 +0100 |
Hello,
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. It could
go in Worg however.
Regards,
--
Nicolas Goaziou