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

org-odt.el: Create mimetype file towards the end of export 

* contrib/lisp/org-odt.el (org-odt-init-outfile): Don't create
mimetype file here.
(org-odt-save-as-outfile): Create mimetype file here.  Note
that this routine gets called towards the end of the export
just before files are zipped.
This commit is contained in:
Jambunathan K 2011-09-05 11:33:20 +05:30
parent c08183d043
commit 82cf5d59e7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/org-odt.el
View File

@ -1422,10 +1422,6 @@ MAY-INLINE-P allows inlining it as an image."
(save-excursion
(insert (mapconcat 'identity (cdr org-export-odt-manifest-lines) "\n"))))
;; mimetype
(with-current-buffer (find-file-noselect mimetype-file t)
(insert "application/vnd.oasis.opendocument.text"))
;; styles file
;; (copy-file org-export-odt-styles-file styles-file t)
@ -1451,6 +1447,10 @@ visually."
(defvar hfy-user-sheet-assoc) ; bound during org-do-lparse
(defun org-odt-save-as-outfile (target opt-plist)
;; create mimetype file
(write-region "application/vnd.oasis.opendocument.text" nil
(expand-file-name "mimetype"))
;; write meta file
(org-odt-update-meta-file opt-plist)