fdb9e6b499
They've since been upstreamed in one form or another over time. Fix: #7790 Ref: abo-abo/org-download@69c57bd519 Ref: abo-abo/org-download@8bc54b6c1a
57 lines
2.5 KiB
EmacsLisp
57 lines
2.5 KiB
EmacsLisp
;;; lang/org/contrib/dragndrop.el -*- lexical-binding: t; -*-
|
|
;;;###if (modulep! +dragndrop)
|
|
|
|
(use-package! org-download
|
|
:commands
|
|
org-download-dnd
|
|
org-download-yank
|
|
org-download-screenshot
|
|
org-download-clipboard
|
|
org-download-dnd-base64
|
|
:init
|
|
;; HACK We add these manually so that org-download is truly lazy-loaded
|
|
(pushnew! dnd-protocol-alist
|
|
'("^\\(?:https?\\|ftp\\|file\\|nfs\\):" . org-download-dnd)
|
|
'("^data:" . org-download-dnd-base64))
|
|
(advice-add #'org-download-enable :override #'ignore)
|
|
|
|
(after! org
|
|
;; A shorter link to attachments
|
|
(+org-define-basic-link "download" (lambda () (or org-download-image-dir org-attach-id-dir "."))
|
|
:image-data-fun #'+org-image-file-data-fn
|
|
:requires 'org-download))
|
|
:config
|
|
(unless org-download-image-dir
|
|
(setq org-download-image-dir org-attach-id-dir))
|
|
(setq org-download-method 'attach
|
|
org-download-timestamp "_%Y%m%d_%H%M%S"
|
|
org-download-screenshot-method
|
|
(cond ((featurep :system 'macos) "screencapture -i %s")
|
|
((featurep :system 'linux)
|
|
(cond ((executable-find "maim") "maim -s %s")
|
|
((executable-find "scrot") "scrot -s %s")
|
|
((executable-find "gnome-screenshot") "gnome-screenshot -a -f %s"))))
|
|
|
|
org-download-heading-lvl nil
|
|
org-download-link-format "[[download:%s]]\n"
|
|
org-download-annotate-function (lambda (_link) "")
|
|
org-download-link-format-function
|
|
(lambda (filename)
|
|
(if (eq org-download-method 'attach)
|
|
(format "[[attachment:%s]]\n"
|
|
(org-link-escape
|
|
(file-relative-name filename (org-attach-dir))))
|
|
;; Handle non-image files a little differently. Images should be
|
|
;; inserted as normal with previews. Other files, like pdfs or zips,
|
|
;; should be linked to, with an icon indicating the type of file.
|
|
(format (concat (unless (image-type-from-file-name filename)
|
|
(concat (+org-attach-icon-for filename)
|
|
" "))
|
|
org-download-link-format)
|
|
(org-link-escape
|
|
(funcall org-download-abbreviate-filename-function filename)))))
|
|
org-download-abbreviate-filename-function
|
|
(lambda (path)
|
|
(if (file-in-directory-p path org-download-image-dir)
|
|
(file-relative-name path org-download-image-dir)
|
|
path))))
|