50 lines
1.7 KiB
EmacsLisp
50 lines
1.7 KiB
EmacsLisp
|
;;; org/org-attach/config.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
(defvar +org-attach-dir (expand-file-name ".attach/" +org-dir)
|
||
|
|
"Where to store attachments (relative to current org file).")
|
||
|
|
|
||
|
|
|
||
|
|
(add-hook '+org-init-hook #'+org|init-attach t)
|
||
|
|
|
||
|
|
;; FIXME This module is broken and needs to be rewritten.
|
||
|
|
;;
|
||
|
|
;; I believe Org's native attachment system is over-complicated and litters
|
||
|
|
;; files with metadata I don't want.
|
||
|
|
;;
|
||
|
|
;; This installs my own attachment system. It:
|
||
|
|
;;
|
||
|
|
;; + Centralizes attachment in a global location,
|
||
|
|
;; + Adds drag-and-drop file support
|
||
|
|
;; + TODO ...with attachment icons, and
|
||
|
|
;; + TODO Offers an attachment management system.
|
||
|
|
|
||
|
|
(def-package! org-download
|
||
|
|
:config
|
||
|
|
(setq-default org-download-image-dir +org-attach-dir
|
||
|
|
org-download-heading-lvl nil
|
||
|
|
org-download-timestamp "_%Y%m%d_%H%M%S")
|
||
|
|
(setq org-download-screenshot-method
|
||
|
|
(cond (IS-MAC "screencapture -i %s")
|
||
|
|
(IS-LINUX "maim --opengl -s %s")))
|
||
|
|
|
||
|
|
;; Write download paths relative to current file
|
||
|
|
(defun +org-attach*download-fullname (path)
|
||
|
|
(file-relative-name path (file-name-directory (buffer-file-name))))
|
||
|
|
(advice-add #'org-download--dir-2 :override #'ignore)
|
||
|
|
(advice-add #'org-download--fullname
|
||
|
|
:filter-return #'+org-attach*download-fullname))
|
||
|
|
|
||
|
|
;;
|
||
|
|
(defun +org-attach|init ()
|
||
|
|
(setq org-attach-directory +org-attach-directory)
|
||
|
|
|
||
|
|
(push ".attach" projectile-globally-ignored-file-suffixes)
|
||
|
|
(after! recentf
|
||
|
|
(push (format "/%s.+$" (regexp-quote +org-attach-dir))
|
||
|
|
recentf-exclude))
|
||
|
|
|
||
|
|
(require 'org-download)
|
||
|
|
|
||
|
|
;; Add another drag-and-drop handler that will handle anything but image files
|
||
|
|
(push '("^\\(https?\\|ftp\\|file\\|nfs\\):\\(//\\)?" . +org-attach-download-dnd) dnd-protocol-alist))
|