mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:00:49 +00:00
org-lint: don't complain about #+include URL
* lisp/org-lint.el (org-lint-wrong-include-link-parameter): When the included file is a URL, skip the usual file checks.
This commit is contained in:
parent
e3bf83fe82
commit
ae168d5c8c
|
@ -649,39 +649,40 @@ in description"
|
|||
(org-element-map ast 'keyword
|
||||
(lambda (k)
|
||||
(when (equal (org-element-property :key k) "INCLUDE")
|
||||
(let* ((value (org-element-property :value k))
|
||||
(path
|
||||
(and (string-match "^\\(\".+\"\\|\\S-+\\)[ \t]*" value)
|
||||
(save-match-data
|
||||
(org-strip-quotes (match-string 1 value))))))
|
||||
(if (not path)
|
||||
(list (org-element-property :post-affiliated k)
|
||||
"Missing location argument in INCLUDE keyword")
|
||||
(let* ((file (org-string-nw-p
|
||||
(if (string-match "::\\(.*\\)\\'" path)
|
||||
(substring path 0 (match-beginning 0))
|
||||
path)))
|
||||
(search (and (not (equal file path))
|
||||
(org-string-nw-p (match-string 1 path)))))
|
||||
(if (and file
|
||||
(not (file-remote-p file))
|
||||
(not (file-exists-p file)))
|
||||
(list (org-element-property :post-affiliated k)
|
||||
"Non-existent file argument in INCLUDE keyword")
|
||||
(let* ((visiting (if file (find-buffer-visiting file)
|
||||
(current-buffer)))
|
||||
(buffer (or visiting (find-file-noselect file)))
|
||||
(org-link-search-must-match-exact-headline t))
|
||||
(unwind-protect
|
||||
(with-current-buffer buffer
|
||||
(when (and search
|
||||
(not (ignore-errors
|
||||
(org-link-search search nil t))))
|
||||
(list (org-element-property :post-affiliated k)
|
||||
(format
|
||||
"Invalid search part \"%s\" in INCLUDE keyword"
|
||||
search))))
|
||||
(unless visiting (kill-buffer buffer))))))))))))
|
||||
(let* ((value (org-element-property :value k))
|
||||
(path
|
||||
(and (string-match "^\\(\".+\"\\|\\S-+\\)[ \t]*" value)
|
||||
(save-match-data
|
||||
(org-strip-quotes (match-string 1 value))))))
|
||||
(if (not path)
|
||||
(list (org-element-property :post-affiliated k)
|
||||
"Missing location argument in INCLUDE keyword")
|
||||
(let* ((file (org-string-nw-p
|
||||
(if (string-match "::\\(.*\\)\\'" path)
|
||||
(substring path 0 (match-beginning 0))
|
||||
path)))
|
||||
(search (and (not (equal file path))
|
||||
(org-string-nw-p (match-string 1 path)))))
|
||||
(unless (org-url-p file)
|
||||
(if (and file
|
||||
(not (file-remote-p file))
|
||||
(not (file-exists-p file)))
|
||||
(list (org-element-property :post-affiliated k)
|
||||
"Non-existent file argument in INCLUDE keyword")
|
||||
(let* ((visiting (if file (find-buffer-visiting file)
|
||||
(current-buffer)))
|
||||
(buffer (or visiting (find-file-noselect file)))
|
||||
(org-link-search-must-match-exact-headline t))
|
||||
(unwind-protect
|
||||
(with-current-buffer buffer
|
||||
(when (and search
|
||||
(not (ignore-errors
|
||||
(org-link-search search nil t))))
|
||||
(list (org-element-property :post-affiliated k)
|
||||
(format
|
||||
"Invalid search part \"%s\" in INCLUDE keyword"
|
||||
search))))
|
||||
(unless visiting (kill-buffer buffer)))))))))))))
|
||||
|
||||
(defun org-lint-obsolete-include-markup (ast)
|
||||
(let ((regexp (format "\\`\\(?:\".+\"\\|\\S-+\\)[ \t]+%s"
|
||||
|
|
Loading…
Reference in a new issue