d2d4166b42
Since lang/org has grown (and is expected to grow much, much more), it has been given its own module category. Concerns #129, #138
55 lines
2.2 KiB
EmacsLisp
55 lines
2.2 KiB
EmacsLisp
;;; org/org-attach/autoload/org-attach.el -*- lexical-binding: t; -*-
|
|
|
|
(defun +org-attach--icon (path)
|
|
(char-to-string
|
|
(pcase (downcase (file-name-extension path))
|
|
((or "jpg" "jpeg" "png" "gif") ?)
|
|
("pdf" ?)
|
|
((or "ppt" "pptx") ?)
|
|
((or "xls" "xlsx") ?)
|
|
((or "doc" "docx") ?)
|
|
((or "ogg" "mp3" "wav" "aiff" "flac") ?)
|
|
((or "mp4" "mov" "avi") ?)
|
|
((or "zip" "gz" "tar" "7z" "rar") ?)
|
|
(_ ?))))
|
|
|
|
;;;###autoload
|
|
(defun +org-attach-cleanup ()
|
|
;; "Deletes any attachments that are no longer present in the org-mode buffer."
|
|
(let* ((attachments-local (+org-attachments))
|
|
(attachments (directory-files org-attach-directory t "^[^.]" t))
|
|
(to-delete (cl-set-difference attachments-local attachments)))
|
|
;; TODO
|
|
to-delete))
|
|
|
|
(defun +org-attachments ()
|
|
"List all attachments in the current buffer."
|
|
(unless (eq major-mode 'org-mode)
|
|
(user-error "Not an org buffer"))
|
|
(org-save-outline-visibility nil
|
|
(let ((attachments '())
|
|
element)
|
|
(when (and (file-directory-p org-attach-directory)
|
|
(> (length (file-expand-wildcards (expand-file-name "*" org-attach-directory))) 0))
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(while (progn (org-next-link) (not org-link-search-failed))
|
|
(setq element (org-element-context))
|
|
(when-let (file (and (eq (org-element-type element) 'link)
|
|
(expand-file-name (org-element-property :path element))))
|
|
(when (and (string= (org-element-property :type element) "file")
|
|
(string= (concat (file-name-base (directory-file-name (file-name-directory file))) "/")
|
|
org-attach-directory)
|
|
(file-exists-p file))
|
|
(push file attachments))))))
|
|
(cl-remove-duplicates attachments))))
|
|
|
|
;;;###autoload
|
|
(defun +org-attach-download-dnd (uri action)
|
|
(if (eq major-mode 'org-mode)
|
|
(doom:org-attach uri) ;; FIXME
|
|
(let ((dnd-protocol-alist
|
|
(rassq-delete-all '+org-attach-download-dnd
|
|
(copy-alist dnd-protocol-alist))))
|
|
(dnd-handle-one-url nil action uri))))
|
|
|