emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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))