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

Revert afca8f14a

Browse source 
Fix #2932
This commit is contained in:
Henrik Lissner 2020-04-18 12:51:00 -04:00
parent afcdae4fff
commit 141a649e04
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 2 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
modules/lang/org/autoload/contrib-dragndrop.el
View file

@ -10,13 +10,3 @@
(rassq-delete-all '+org-dragndrop-download-dnd-fn (rassq-delete-all '+org-dragndrop-download-dnd-fn
(copy-alist dnd-protocol-alist)))) (copy-alist dnd-protocol-alist))))
(dnd-handle-one-url nil action uri)))) (dnd-handle-one-url nil action uri))))
;;;###autoload
(defun +org-dragndrop-image-fn (protocol link _description)
"Return the image associated with the current attachment."
(let ((file (expand-file-name link org-attach-id-dir)))
(when (and (file-exists-p file) (image-type-from-file-name file))
(with-temp-buffer
(insert-file-contents file)
(goto-char (point-min))
(buffer-substring-no-properties (point) (point-max))))))

3
modules/lang/org/contrib/dragndrop.el
View file

@ -17,7 +17,8 @@
(after! org (after! org
;; A shorter link to attachments ;; A shorter link to attachments
(+org-def-link "download" org-attach-id-dir) (+org-def-link "download" org-attach-id-dir)
(org-link-set-parameters "download" :image-data-fun #'+org-dragndrop-image-fn)) (setf (alist-get "download" org-link-abbrev-alist nil nil #'equal)
(abbreviate-file-name org-attach-id-dir)))
:config :config
(setq org-download-image-dir org-attach-id-dir (setq org-download-image-dir org-attach-id-dir
org-download-link-format "[[download:%s]]\n" org-download-link-format "[[download:%s]]\n"