"file" results now correctly insert a file link

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."

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]])