awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-13 13:13:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

org: better error checking for attachments and :link

Browse Source
This commit is contained in:
Henrik Lissner
2016-03-11 19:28:24 -05:00
parent b580623530
commit 4e49b86f68
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/defuns/defuns-org-notebook.el
View File

@@ -50,6 +50,8 @@
;;;###autoload (autoload 'narf:org-attach "defuns-org-notebook" nil t)
(evil-define-command narf:org-attach (&optional uri)
(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 (f-expand rel-path))
@@ -96,7 +98,8 @@
(let ((attachments '())
element
file)
(when (> (length (f-glob (concat (f-slash org-attach-directory) "*"))) 0)
(when (and (f-dir? org-attach-directory)
(> (length (f-glob (concat (f-slash org-attach-directory) "*"))) 0))
(save-excursion
(goto-char (point-min))
(while (progn (org-next-link) (not org-link-search-failed))