From 29d910c5e2dabbca5836c2ac89b33663404dd45d Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 16 Jul 2009 18:17:51 -0600 Subject: [PATCH] "file" results now correctly insert a file link --- lisp/org-babel.el | 2 +- org-babel.org | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-babel.el b/lisp/org-babel.el index 8b3572909..7524eb970 100644 --- a/lisp/org-babel.el +++ b/lisp/org-babel.el @@ -388,7 +388,7 @@ relies on `org-babel-insert-result'." RESULT, and the display being the `file-name-nondirectory' if non-nil." (let ((name (file-name-nondirectory result))) - (concat "[[" result (if name (concat "][" name "]]") "]]")))) + (concat "[[file:" result (if name (concat "][" name "]]") "]]")))) (defun org-babel-examplize-region (beg end) "Comment out region using the ': ' org example quote." diff --git a/org-babel.org b/org-babel.org index ea210388c..01b6631bc 100644 --- a/org-babel.org +++ b/org-babel.org @@ -1961,7 +1961,7 @@ This could probably be added to [[file:lisp/org-babel-script.el][org-babel-scrip (see [[* file result types][file result types]]) #+srcname: implementing-ditaa -#+begin_src ditaa :results file :file blue.png +#+begin_src ditaa :results replace file :file blue.png +---------+ | cBLU | | | @@ -1972,7 +1972,7 @@ This could probably be added to [[file:lisp/org-babel-script.el][org-babel-scrip #+end_src #+resname: implementing-ditaa -[[blue.png][blue.png]] +[[file:blue.png][blue.png]] *** TODO dot (see [[* file result types][file result types]])