mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

* ob-core.el (org-babel-result-to-file): relative file link result. 

Respect option `org-link-file-path-type`.
This commit is contained in:
stardiviner 2018-03-06 14:41:20 +08:00
parent 881da595dd
commit 49a8de4ffd
No known key found for this signature in database
GPG Key ID: 1B5DF1C95AE89AC3
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/ob-core.el
View File

@ -2500,15 +2500,18 @@ in the buffer."
If the `default-directory' is different from the containing
file's directory then expand relative links."
(when (stringp result)
(format "[[file:%s]%s]"
(if (and default-directory
buffer-file-name
(not (string= (expand-file-name default-directory)
(expand-file-name
(file-name-directory buffer-file-name)))))
(expand-file-name result default-directory)
result)
(if description (concat "[" description "]") ""))))
(let ((same-directory? (not (string= (expand-file-name default-directory)
(expand-file-name
(file-name-directory buffer-file-name))))))
(format "[[file:%s]%s]"
(if (and default-directory buffer-file-name same-directory?)
(if (eq org-link-file-path-type 'adaptive)
(file-relative-name
(expand-file-name result default-directory)
(file-name-directory (buffer-file-name)))
(expand-file-name result default-directory))
result)
(if description (concat "[" description "]") "")))))
(defun org-babel-examplify-region (beg end &optional results-switches inline)
"Comment out region using the inline `==' or `: ' org example quote."