From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Subject: Re: How to change a link?
Date: Mon, 20 Oct 2014 15:11:19 +0200
Message-ID: <8738ai28eg.fsf@nicolasgoaziou.fr>
References: <87a94yjia9.fsf@wmi.amu.edu.pl> <87bnpd4ov7.fsf@nicolasgoaziou.fr>
	<87h9yzobge.fsf@wmi.amu.edu.pl> <87d29m28su.fsf@nicolasgoaziou.fr>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:51555)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <mail@nicolasgoaziou.fr>) id 1XgCjV-0007lu-Es
	for emacs-orgmode@gnu.org; Mon, 20 Oct 2014 09:10:53 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <mail@nicolasgoaziou.fr>) id 1XgCjK-0005mL-Vu
	for emacs-orgmode@gnu.org; Mon, 20 Oct 2014 09:10:45 -0400
Received: from relay3-d.mail.gandi.net ([2001:4b98:c:538::195]:54118)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <mail@nicolasgoaziou.fr>) id 1XgCjK-0005lz-OZ
	for emacs-orgmode@gnu.org; Mon, 20 Oct 2014 09:10:34 -0400
In-Reply-To: <87d29m28su.fsf@nicolasgoaziou.fr> (Nicolas Goaziou's message of
	"Mon, 20 Oct 2014 15:02:41 +0200")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Marcin Borkowski <mbork@wmi.amu.edu.pl>
Cc: org-mode List <emacs-orgmode@gnu.org>

Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:

>     (org-with-wide-buffer
>      (dolist (link (nreverse
>                     (org-element-map (org-element-parse-buffer) 'link
>                       (lambda (l)
>                         (member (org-element-property :type l)
>                                 '("custom-id" "fuzzy"))))))
>        (goto-char (+ (org-element-property :begin link) 2))
>        (insert "file:path/to/other-file.org::")))

Err, should be

  (org-with-wide-buffer
   (dolist (link (nreverse
                  (org-element-map (org-element-parse-buffer) 'link
                    (lambda (l)
                      (and (member (org-element-property :type l)
                                   '("custom-id" "fuzzy"))
                           l)))))
     (goto-char (org-element-property :begin link))
     (forward-char 2)
     (insert "file:path/to/other-file.org::")))