emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Respect org-display-remote-inline-images

Browse source 
Don't download inline previews of URLs if
org-display-remote-inline-images is set to 'skip (its default).
This commit is contained in:
Henrik Lissner 2020-06-28 01:02:55 -04:00
parent 87336c405b
commit 25b240b9b0
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
modules/lang/org/autoload/org-link.el
View file

@ -74,8 +74,9 @@ exist, and `org-link' otherwise."
;;;###autoload
(defun +org-http-image-data-fn (protocol link _description)
"Interpret LINK as an URL to an image file."
(when (image-type-from-file-name link)
(if-let* ((buf (url-retrieve-synchronously (concat protocol ":" link))))
(when (and (image-type-from-file-name link)
(not (eq org-display-remote-inline-images 'skip)))
(if-let (buf (url-retrieve-synchronously (concat protocol ":" link)))
(with-current-buffer buf
(goto-char (point-min))
(re-search-forward "\r?\n\r?\n" nil t)