Adam Spiers <orgm...@adamspiers.org> 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
