awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-16 15:56:52 -05:00
Code Issues Packages Projects Releases 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
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))