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
33 lines
1.6 KiB
EmacsLisp
33 lines
1.6 KiB
EmacsLisp
;;; org/org-attach/autoload/evil.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload (autoload '+org-attach:dwim "org/org-attach/autoload/evil" nil t)
|
|
(evil-define-command +org-attach:dwim (&optional uri)
|
|
"An evil ex interface to `+org-attach/dwim'."
|
|
(interactive "<a>")
|
|
(unless (eq major-mode 'org-mode)
|
|
(user-error "Not in an org-mode buffer"))
|
|
(if uri
|
|
(let* ((rel-path (org-download--fullname uri))
|
|
(new-path (expand-file-name rel-path))
|
|
(image-p (image-type-from-file-name uri)))
|
|
(cond ((string-match-p (concat "^" (regexp-opt '("http" "https" "nfs" "ftp" "file")) ":/") uri)
|
|
(url-copy-file uri new-path))
|
|
(t (copy-file uri new-path)))
|
|
(unless new-path
|
|
(user-error "No file was provided"))
|
|
(if (evil-visual-state-p)
|
|
(org-insert-link nil (format "./%s" rel-path)
|
|
(concat (buffer-substring-no-properties (region-beginning) (region-end))
|
|
" " (org-attach--icon rel-path)))
|
|
|
|
(insert (if image-p
|
|
(format "[[./%s]] " rel-path)
|
|
(format "%s [[./%s][%s]] "
|
|
(org-attach--icon rel-path)
|
|
rel-path (file-name-nondirectory (directory-file-name rel-path))))))
|
|
(when (string-match-p (regexp-opt '("jpg" "jpeg" "gif" "png")) (file-name-extension rel-path))
|
|
(org-redisplay-inline-images)))
|
|
(let ((default-directory ".attach/"))
|
|
(if (file-exists-p default-directory)
|
|
(call-interactively 'find-file)
|
|
(user-error "No attachments")))))
|