emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: resolve +org-dir later

Browse source 
Gives users more of a chance to change +org-dir before paths are
resolved with it.

Addresses #296
This commit is contained in:
Henrik Lissner 2017-12-24 15:13:36 -05:00
parent 208fbb1726
commit b0c73c486e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/lang/org/autoload/org-attach.el
View file

@ -98,7 +98,7 @@ the cursor."
(delete-region (match-beginning 0) (match-end 0))
(newline))
(cond ((image-type-from-file-name filename)
(when (file-in-directory-p filename +org-attach-dir)
(when (file-in-directory-p filename org-attach-directory)
(setq filename (file-relative-name filename +org-dir)))
(insert
(concat (if (= org-download-image-html-width 0)
@ -124,9 +124,7 @@ the cursor."
(let* ((context (save-match-data (org-element-context)))
(file (org-link-unescape (org-element-property :path context)))
(default-directory
(if (string-prefix-p
(concat "./" (car (last (split-string +org-attach-dir "/" t))))
file)
(if (file-in-directory-p file org-attach-directory)
+org-dir
default-directory)))
(apply orig-fn args))