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

lang/org: fix broken inline-image previews

Browse source 
For uses with imagemagick installed. Caused by
48da60f4
This commit is contained in:
Henrik Lissner 2019-09-26 15:29:09 -04:00
parent 647ea041be
commit 87b7a8da05
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/lang/org/config.el
View file

@ -473,7 +473,20 @@ current workspace."
"Prevent temporarily opened agenda buffers from polluting recentf." "Prevent temporarily opened agenda buffers from polluting recentf."
:around #'org-get-agenda-file-buffer :around #'org-get-agenda-file-buffer
(let ((recentf-exclude (list (lambda (_file) t)))) (let ((recentf-exclude (list (lambda (_file) t))))
(funcall orig-fn file)))) (funcall orig-fn file)))
;; HACK With https://code.orgmode.org/bzg/org-mode/commit/48da60f4, inline
;; image previews broke for users with imagemagick support built in. This
;; reverses the problem, but should be removed once it is addressed upstream
;; (if ever).
(defadvice! +org--fix-inline-images-for-imagemagick-users-a (orig-fn &rest args)
:around #'org-display-inline-images
(cl-letf* ((old-create-image (symbol-function #'create-image))
((symbol-function #'create-image)
(lambda (file-or-data &optional type data-p &rest props)
(let ((type (if (plist-get props :width) type)))
(apply old-create-image file-or-data type data-p props)))))
(apply orig-fn args))))
(defun +org-init-keybinds-h () (defun +org-init-keybinds-h ()