doomemacs/modules/lang/org/autoload/contrib-dragndrop.el

13 lines
491 B
EmacsLisp
Raw Normal View History

;;; lang/org/autoload/contrib-dragndrop.el -*- lexical-binding: t; -*-
;;;###if (featurep! +dragndrop)
;;;###autoload
(defun +org-dragndrop-download-dnd-fn (uri action)
"Handle file links and base64 data uris."
(if (eq major-mode 'org-mode)
(+org/attach-file-and-insert-link uri)
(let ((dnd-protocol-alist
(rassq-delete-all '+org-dragndrop-download-dnd-fn
(copy-alist dnd-protocol-alist))))
(dnd-handle-one-url nil action uri))))