Hello, Adam Spiers <orgm...@adamspiers.org> writes:
> On Thu, Nov 06, 2014 at 08:30:08PM -0500, John Kitchin wrote: >> Adam Spiers <orgm...@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)) (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
