Re: [O] Allow #+SETUPFILE to point to an URL for the org file

[Nicolas Goaziou]

Correcting myself,

Nicolas Goaziou <address@hidden> 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."