[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] unlinking links
From: |
John Kitchin |
Subject: |
Re: [O] unlinking links |
Date: |
Thu, 06 Nov 2014 20:30:08 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.4.50 (darwin) |
Adam Spiers <address@hidden> writes:
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))))))
> Hi all,
>
> 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 ;-)
>
> Regards,
> Adam
>
--
-----------------------------------
John Kitchin
Professor
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
http://kitchingroup.cheme.cmu.edu