From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Subject: Re: Allow #+SETUPFILE to point to an URL for the org file
Date: Thu, 25 May 2017 12:18:28 +0200
Message-ID: <87k255b5or.fsf@nicolasgoaziou.fr>
References: <CAFyQvY2ASKKcqNNCV3zot1SJW=ECvbpUvF=g82d1xuN5Eov=3g@mail.gmail.com>
	<CAFyQvY1VNJjCJs+87pB_0=GoMAMXhHTD=34__aimm+hV1ozakg@mail.gmail.com>
	<87h96eh4qb.fsf@nicolasgoaziou.fr>
	<CAFyQvY1DW3AXEh0D0s6AcVQs=18vT9_hqRCYERkinHEzSknY-g@mail.gmail.com>
	<871sxigkhk.fsf@nicolasgoaziou.fr>
	<CAFyQvY2ZCmpmCBfqNFdw2tG+w60H5MF+n+u-M3p4VpgCJ=KeWA@mail.gmail.com>
	<87twaef3iq.fsf@nicolasgoaziou.fr>
	<CAFyQvY34SWBq3sMZ=t2teyRShNgO9bwEyijS6udE8GtEFMbeCw@mail.gmail.com>
	<874lybp5ua.fsf@nicolasgoaziou.fr>
	<CAFyQvY0VfUzcnR4+TAXn3fSti_==O2d6suXhn6grqf9CwztLew@mail.gmail.com>
	<87shjtb5wd.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]:51760)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <mail@nicolasgoaziou.fr>) id 1dDpqo-0005nl-Em
	for emacs-orgmode@gnu.org; Thu, 25 May 2017 06:18:39 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <mail@nicolasgoaziou.fr>) id 1dDpqj-0004f6-EH
	for emacs-orgmode@gnu.org; Thu, 25 May 2017 06:18:38 -0400
Received: from relay4-d.mail.gandi.net ([217.70.183.196]:49540)
	by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
	(Exim 4.71) (envelope-from <mail@nicolasgoaziou.fr>)
	id 1dDpqj-0004eD-7b
	for emacs-orgmode@gnu.org; Thu, 25 May 2017 06:18:33 -0400
In-Reply-To: <87shjtb5wd.fsf@nicolasgoaziou.fr> (Nicolas Goaziou's message of
	"Thu, 25 May 2017 12:13:54 +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"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: Kaushal Modi <kaushal.modi@gmail.com>
Cc: emacs-org list <emacs-orgmode@gnu.org>

Correcting myself,

Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:

>       (cond
>        (cache)
>        (is-url
>         (with-current-buffer (url-retrieve-synchronously file)
>           (goto-char (point-min))
>           (if (re-search-forward "HTTP.*\\s-+200\\s-OK" nil t)
>               ;; URL retrieved correctly.  Move point to after the
>               ;; url-retrieve header, update the cache `org--file-cache'
>               ;; and return contents.
>               (progn
>                 (search-forward "\n\n" nil 'move)
>                 (puthash file
>                          (buffer-substring-no-properties (point) (point-max))
>                          org--file-cache))
>             (funcall (if noerror #'message #'user-error)
>                      (format "Unable to fetch file from %S" file)))))

Err.

  (funcall (if noerror #'message #'user-error)
           "Unable to fetch file from %S"
           file)

Also, in your patch,

    "Test whether FILE is a URL.
  Return non-nil if it is."

  ->

    "Non-nil if FILE is a URL."