copy org-org-output? Based on copy-tex-output

[Uwe Brauer]

Hi 

The following function, courtesy by Al Haji-Ali, allows me to copy latex
output (basically pdf) to a directory of my choice.

(defun copy-tex-output ()
   (interactive)
   (let* ((default (expand-file-name (TeX-active-master nil)))
          (default-dir (file-name-directory default))
          (default-file (concat (file-name-nondirectory default) "." 
(TeX-output-extension)))
          (outputfile (expand-file-name (TeX-active-master 
(TeX-output-extension))))
          (filename (read-file-name "Save as:" default-dir
                     default-file nil default-file)))
     (copy-file outputfile filename t)))

In order to use that for org-export, I need to know whether there is
something like TeX-output-extension for orgmode

Any idea?

regards

Uwe Brauer