org.el: Include tags from `org-tag-alist' when completing with the TAB key.
[org-mode/org-mode-NeilSmithlineMods.git] / lisp / org-odt.el
blob234272a378df2624de0bc0da60365e9857457367
1 ;;; org-odt.el --- OpenDocument Text exporter for Org-mode
3 ;; Copyright (C) 2010-2012 Free Software Foundation, Inc.
5 ;; Author: Jambunathan K <kjambunathan at gmail dot com>
6 ;; Keywords: outlines, hypermedia, calendar, wp
7 ;; Homepage: http://orgmode.org
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24 ;;; Commentary:
26 ;;; Code:
27 (eval-when-compile
28 (require 'cl))
29 (require 'org-lparse)
31 (defgroup org-export-odt nil
32 "Options specific for ODT export of Org-mode files."
33 :tag "Org Export ODT"
34 :group 'org-export
35 :version "24.1")
37 (defvar org-lparse-dyn-first-heading-pos) ; let bound during org-do-lparse
38 (defun org-odt-insert-toc ()
39 (goto-char (point-min))
40 (cond
41 ((re-search-forward
42 "\\(<text:p [^>]*>\\)?\\s-*\\[TABLE-OF-CONTENTS\\]\\s-*\\(</text:p>\\)?"
43 nil t)
44 (replace-match ""))
46 (goto-char org-lparse-dyn-first-heading-pos)))
47 (insert (org-odt-format-toc)))
49 (defun org-odt-end-export ()
50 (org-odt-insert-toc)
51 (org-odt-fixup-label-references)
53 ;; remove empty paragraphs
54 (goto-char (point-min))
55 (while (re-search-forward
56 "<text:p\\( text:style-name=\"Text_20_body\"\\)?>[ \r\n\t]*</text:p>"
57 nil t)
58 (replace-match ""))
59 (goto-char (point-min))
61 ;; Convert whitespace place holders
62 (goto-char (point-min))
63 (let (beg end n)
64 (while (setq beg (next-single-property-change (point) 'org-whitespace))
65 (setq n (get-text-property beg 'org-whitespace)
66 end (next-single-property-change beg 'org-whitespace))
67 (goto-char beg)
68 (delete-region beg end)
69 (insert (format "<span style=\"visibility:hidden;\">%s</span>"
70 (make-string n ?x)))))
72 ;; Remove empty lines at the beginning of the file.
73 (goto-char (point-min))
74 (when (looking-at "\\s-+\n") (replace-match ""))
76 ;; Remove display properties
77 (remove-text-properties (point-min) (point-max) '(display t)))
79 (defvar org-odt-suppress-xref nil)
80 (defconst org-export-odt-special-string-regexps
81 '(("\\\\-" . "&#x00ad;\\1") ; shy
82 ("---\\([^-]\\)" . "&#x2014;\\1") ; mdash
83 ("--\\([^-]\\)" . "&#x2013;\\1") ; ndash
84 ("\\.\\.\\." . "&#x2026;")) ; hellip
85 "Regular expressions for special string conversion.")
87 (defconst org-odt-lib-dir (file-name-directory load-file-name)
88 "Location of ODT exporter.
89 Use this to infer values of `org-odt-styles-dir' and
90 `org-export-odt-schema-dir'.")
92 (defvar org-odt-data-dir nil
93 "Data directory for ODT exporter.
94 Use this to infer values of `org-odt-styles-dir' and
95 `org-export-odt-schema-dir'.")
97 (defconst org-odt-schema-dir-list
98 (list
99 (and org-odt-data-dir
100 (expand-file-name "./schema/" org-odt-data-dir)) ; bail out
101 (eval-when-compile
102 (and (boundp 'org-odt-data-dir) org-odt-data-dir ; see make install
103 (expand-file-name "./schema/" org-odt-data-dir)))
104 (expand-file-name "../contrib/odt/etc/schema/" org-odt-lib-dir) ; git
106 "List of directories to search for OpenDocument schema files.
107 Use this list to set the default value of
108 `org-export-odt-schema-dir'. The entries in this list are
109 populated heuristically based on the values of `org-odt-lib-dir'
110 and `org-odt-data-dir'.")
112 (defcustom org-export-odt-schema-dir
113 (let* ((schema-dir
114 (catch 'schema-dir
115 (message "Debug (org-odt): Searching for OpenDocument schema files...")
116 (mapc
117 (lambda (schema-dir)
118 (when schema-dir
119 (message "Debug (org-odt): Trying %s..." schema-dir)
120 (when (and (file-readable-p
121 (expand-file-name "od-manifest-schema-v1.2-cs01.rnc"
122 schema-dir))
123 (file-readable-p
124 (expand-file-name "od-schema-v1.2-cs01.rnc"
125 schema-dir))
126 (file-readable-p
127 (expand-file-name "schemas.xml" schema-dir)))
128 (message "Debug (org-odt): Using schema files under %s"
129 schema-dir)
130 (throw 'schema-dir schema-dir))))
131 org-odt-schema-dir-list)
132 (message "Debug (org-odt): No OpenDocument schema files installed")
133 nil)))
134 schema-dir)
135 "Directory that contains OpenDocument schema files.
137 This directory contains:
138 1. rnc files for OpenDocument schema
139 2. a \"schemas.xml\" file that specifies locating rules needed
140 for auto validation of OpenDocument XML files.
142 Use the customize interface to set this variable. This ensures
143 that `rng-schema-locating-files' is updated and auto-validation
144 of OpenDocument XML takes place based on the value
145 `rng-nxml-auto-validate-flag'.
147 The default value of this variable varies depending on the
148 version of org in use and is initialized from
149 `org-odt-schema-dir-list'. The OASIS schema files are available
150 only in the org's private git repository. It is *not* bundled
151 with GNU ELPA tar or standard Emacs distribution."
152 :type '(choice
153 (const :tag "Not set" nil)
154 (directory :tag "Schema directory"))
155 :group 'org-export-odt
156 :version "24.1"
157 :set
158 (lambda (var value)
159 "Set `org-export-odt-schema-dir'.
160 Also add it to `rng-schema-locating-files'."
161 (let ((schema-dir value))
162 (set var
163 (if (and
164 (file-readable-p
165 (expand-file-name "od-manifest-schema-v1.2-cs01.rnc" schema-dir))
166 (file-readable-p
167 (expand-file-name "od-schema-v1.2-cs01.rnc" schema-dir))
168 (file-readable-p
169 (expand-file-name "schemas.xml" schema-dir)))
170 schema-dir
171 (when value
172 (message "Error (org-odt): %s has no OpenDocument schema files"
173 value))
174 nil)))
175 (when org-export-odt-schema-dir
176 (eval-after-load 'rng-loc
177 '(add-to-list 'rng-schema-locating-files
178 (expand-file-name "schemas.xml"
179 org-export-odt-schema-dir))))))
181 (defconst org-odt-styles-dir-list
182 (list
183 (and org-odt-data-dir
184 (expand-file-name "./styles/" org-odt-data-dir)) ; bail out
185 (eval-when-compile
186 (and (boundp 'org-odt-data-dir) org-odt-data-dir ; see make install
187 (expand-file-name "./styles/" org-odt-data-dir)))
188 (expand-file-name "../etc/styles/" org-odt-lib-dir) ; git
189 (expand-file-name "./etc/styles/" org-odt-lib-dir) ; elpa
190 (expand-file-name "./org/" data-directory) ; system
192 "List of directories to search for OpenDocument styles files.
193 See `org-odt-styles-dir'. The entries in this list are populated
194 heuristically based on the values of `org-odt-lib-dir' and
195 `org-odt-data-dir'.")
197 (defconst org-odt-styles-dir
198 (let* ((styles-dir
199 (catch 'styles-dir
200 (message "Debug (org-odt): Searching for OpenDocument styles files...")
201 (mapc (lambda (styles-dir)
202 (when styles-dir
203 (message "Debug (org-odt): Trying %s..." styles-dir)
204 (when (and (file-readable-p
205 (expand-file-name
206 "OrgOdtContentTemplate.xml" styles-dir))
207 (file-readable-p
208 (expand-file-name
209 "OrgOdtStyles.xml" styles-dir)))
210 (message "Debug (org-odt): Using styles under %s"
211 styles-dir)
212 (throw 'styles-dir styles-dir))))
213 org-odt-styles-dir-list)
214 nil)))
215 (unless styles-dir
216 (error "Error (org-odt): Cannot find factory styles files. Aborting."))
217 styles-dir)
218 "Directory that holds auxiliary XML files used by the ODT exporter.
220 This directory contains the following XML files -
221 \"OrgOdtStyles.xml\" and \"OrgOdtContentTemplate.xml\". These
222 XML files are used as the default values of
223 `org-export-odt-styles-file' and
224 `org-export-odt-content-template-file'.
226 The default value of this variable varies depending on the
227 version of org in use and is initialized from
228 `org-odt-styles-dir-list'. Note that the user could be using org
229 from one of: org's own private git repository, GNU ELPA tar or
230 standard Emacs.")
232 (defvar org-odt-file-extensions
233 '(("odt" . "OpenDocument Text")
234 ("ott" . "OpenDocument Text Template")
235 ("odm" . "OpenDocument Master Document")
236 ("ods" . "OpenDocument Spreadsheet")
237 ("ots" . "OpenDocument Spreadsheet Template")
238 ("odg" . "OpenDocument Drawing (Graphics)")
239 ("otg" . "OpenDocument Drawing Template")
240 ("odp" . "OpenDocument Presentation")
241 ("otp" . "OpenDocument Presentation Template")
242 ("odi" . "OpenDocument Image")
243 ("odf" . "OpenDocument Formula")
244 ("odc" . "OpenDocument Chart")))
246 (mapc
247 (lambda (desc)
248 ;; Let Org open all OpenDocument files using system-registered app
249 (add-to-list 'org-file-apps
250 (cons (concat "\\." (car desc) "\\'") 'system))
251 ;; Let Emacs open all OpenDocument files in archive mode
252 (add-to-list 'auto-mode-alist
253 (cons (concat "\\." (car desc) "\\'") 'archive-mode)))
254 org-odt-file-extensions)
256 ;; register the odt exporter with the pre-processor
257 (add-to-list 'org-export-backends 'odt)
259 ;; register the odt exporter with org-lparse library
260 (org-lparse-register-backend 'odt)
262 (defun org-odt-unload-function ()
263 (org-lparse-unregister-backend 'odt)
264 (remove-hook 'org-export-preprocess-after-blockquote-hook
265 'org-export-odt-preprocess-latex-fragments)
266 nil)
268 (defcustom org-export-odt-content-template-file nil
269 "Template file for \"content.xml\".
270 The exporter embeds the exported content just before
271 \"</office:text>\" element.
273 If unspecified, the file named \"OrgOdtContentTemplate.xml\"
274 under `org-odt-styles-dir' is used."
275 :type 'file
276 :group 'org-export-odt
277 :version "24.1")
279 (defcustom org-export-odt-styles-file nil
280 "Default styles file for use with ODT export.
281 Valid values are one of:
282 1. nil
283 2. path to a styles.xml file
284 3. path to a *.odt or a *.ott file
285 4. list of the form (ODT-OR-OTT-FILE (FILE-MEMBER-1 FILE-MEMBER-2
286 ...))
288 In case of option 1, an in-built styles.xml is used. See
289 `org-odt-styles-dir' for more information.
291 In case of option 3, the specified file is unzipped and the
292 styles.xml embedded therein is used.
294 In case of option 4, the specified ODT-OR-OTT-FILE is unzipped
295 and FILE-MEMBER-1, FILE-MEMBER-2 etc are copied in to the
296 generated odt file. Use relative path for specifying the
297 FILE-MEMBERS. styles.xml must be specified as one of the
298 FILE-MEMBERS.
300 Use options 1, 2 or 3 only if styles.xml alone suffices for
301 achieving the desired formatting. Use option 4, if the styles.xml
302 references additional files like header and footer images for
303 achieving the desired formatting.
305 Use \"#+ODT_STYLES_FILE: ...\" directive to set this variable on
306 a per-file basis. For example,
308 #+ODT_STYLES_FILE: \"/path/to/styles.xml\" or
309 #+ODT_STYLES_FILE: (\"/path/to/file.ott\" (\"styles.xml\" \"image/hdr.png\"))."
310 :group 'org-export-odt
311 :version "24.1"
312 :type
313 '(choice
314 (const :tag "Factory settings" nil)
315 (file :must-match t :tag "styles.xml")
316 (file :must-match t :tag "ODT or OTT file")
317 (list :tag "ODT or OTT file + Members"
318 (file :must-match t :tag "ODF Text or Text Template file")
319 (cons :tag "Members"
320 (file :tag " Member" "styles.xml")
321 (repeat (file :tag "Member"))))))
323 (eval-after-load 'org-exp
324 '(add-to-list 'org-export-inbuffer-options-extra
325 '("ODT_STYLES_FILE" :odt-styles-file)))
327 (defconst org-export-odt-tmpdir-prefix "%s-")
328 (defconst org-export-odt-bookmark-prefix "OrgXref.")
330 (defvar org-export-odt-embed-images t
331 "Should the images be copied in to the odt file or just linked?")
333 (defvar org-export-odt-inline-images 'maybe)
334 (defcustom org-export-odt-inline-image-extensions
335 '("png" "jpeg" "jpg" "gif")
336 "Extensions of image files that can be inlined into HTML."
337 :type '(repeat (string :tag "Extension"))
338 :group 'org-export-odt
339 :version "24.1")
341 (defcustom org-export-odt-pixels-per-inch display-pixels-per-inch
342 "Scaling factor for converting images pixels to inches.
343 Use this for sizing of embedded images. See Info node `(org)
344 Images in ODT export' for more information."
345 :type 'float
346 :group 'org-export-odt
347 :version "24.1")
349 (defcustom org-export-odt-create-custom-styles-for-srcblocks t
350 "Whether custom styles for colorized source blocks be automatically created.
351 When this option is turned on, the exporter creates custom styles
352 for source blocks based on the advice of `htmlfontify'. Creation
353 of custom styles happen as part of `org-odt-hfy-face-to-css'.
355 When this option is turned off exporter does not create such
356 styles.
358 Use the latter option if you do not want the custom styles to be
359 based on your current display settings. It is necessary that the
360 styles.xml already contains needed styles for colorizing to work.
362 This variable is effective only if
363 `org-export-odt-fontify-srcblocks' is turned on."
364 :group 'org-export-odt
365 :version "24.1"
366 :type 'boolean)
368 (defvar org-export-odt-default-org-styles-alist
369 '((paragraph . ((default . "Text_20_body")
370 (fixedwidth . "OrgFixedWidthBlock")
371 (verse . "OrgVerse")
372 (quote . "Quotations")
373 (blockquote . "Quotations")
374 (center . "OrgCenter")
375 (left . "OrgLeft")
376 (right . "OrgRight")
377 (title . "OrgTitle")
378 (subtitle . "OrgSubtitle")
379 (footnote . "Footnote")
380 (src . "OrgSrcBlock")
381 (illustration . "Illustration")
382 (table . "Table")
383 (definition-term . "Text_20_body_20_bold")
384 (horizontal-line . "Horizontal_20_Line")))
385 (character . ((bold . "Bold")
386 (emphasis . "Emphasis")
387 (code . "OrgCode")
388 (verbatim . "OrgCode")
389 (strike . "Strikethrough")
390 (underline . "Underline")
391 (subscript . "OrgSubscript")
392 (superscript . "OrgSuperscript")))
393 (list . ((ordered . "OrgNumberedList")
394 (unordered . "OrgBulletedList")
395 (description . "OrgDescriptionList"))))
396 "Default styles for various entities.")
398 (defvar org-export-odt-org-styles-alist org-export-odt-default-org-styles-alist)
399 (defun org-odt-get-style-name-for-entity (category &optional entity)
400 (let ((entity (or entity 'default)))
402 (cdr (assoc entity (cdr (assoc category
403 org-export-odt-org-styles-alist))))
404 (cdr (assoc entity (cdr (assoc category
405 org-export-odt-default-org-styles-alist))))
406 (error "Cannot determine style name for entity %s of type %s"
407 entity category))))
409 (defcustom org-export-odt-preferred-output-format nil
410 "Automatically post-process to this format after exporting to \"odt\".
411 Interactive commands `org-export-as-odt' and
412 `org-export-as-odt-and-open' export first to \"odt\" format and
413 then use `org-export-odt-convert-process' to convert the
414 resulting document to this format. During customization of this
415 variable, the list of valid values are populated based on
416 `org-export-odt-convert-capabilities'."
417 :group 'org-export-odt
418 :version "24.1"
419 :type '(choice :convert-widget
420 (lambda (w)
421 (apply 'widget-convert (widget-type w)
422 (eval (car (widget-get w :args)))))
423 `((const :tag "None" nil)
424 ,@(mapcar (lambda (c)
425 `(const :tag ,c ,c))
426 (org-lparse-reachable-formats "odt")))))
428 ;;;###autoload
429 (defun org-export-as-odt-and-open (arg)
430 "Export the outline as ODT and immediately open it with a browser.
431 If there is an active region, export only the region.
432 The prefix ARG specifies how many levels of the outline should become
433 headlines. The default is 3. Lower levels will become bulleted lists."
434 (interactive "P")
435 (org-lparse-and-open
436 (or org-export-odt-preferred-output-format "odt") "odt" arg))
438 ;;;###autoload
439 (defun org-export-as-odt-batch ()
440 "Call the function `org-lparse-batch'.
441 This function can be used in batch processing as:
442 emacs --batch
443 --load=$HOME/lib/emacs/org.el
444 --eval \"(setq org-export-headline-levels 2)\"
445 --visit=MyFile --funcall org-export-as-odt-batch"
446 (org-lparse-batch "odt"))
448 ;;; org-export-as-odt
449 ;;;###autoload
450 (defun org-export-as-odt (arg &optional hidden ext-plist
451 to-buffer body-only pub-dir)
452 "Export the outline as a OpenDocumentText file.
453 If there is an active region, export only the region. The prefix
454 ARG specifies how many levels of the outline should become
455 headlines. The default is 3. Lower levels will become bulleted
456 lists. HIDDEN is obsolete and does nothing.
457 EXT-PLIST is a property list with external parameters overriding
458 org-mode's default settings, but still inferior to file-local
459 settings. When TO-BUFFER is non-nil, create a buffer with that
460 name and export to that buffer. If TO-BUFFER is the symbol
461 `string', don't leave any buffer behind but just return the
462 resulting XML as a string. When BODY-ONLY is set, don't produce
463 the file header and footer, simply return the content of
464 <body>...</body>, without even the body tags themselves. When
465 PUB-DIR is set, use this as the publishing directory."
466 (interactive "P")
467 (org-lparse (or org-export-odt-preferred-output-format "odt")
468 "odt" arg hidden ext-plist to-buffer body-only pub-dir))
470 (defvar org-odt-entity-control-callbacks-alist
471 `((EXPORT
472 . (org-odt-begin-export org-odt-end-export))
473 (DOCUMENT-CONTENT
474 . (org-odt-begin-document-content org-odt-end-document-content))
475 (DOCUMENT-BODY
476 . (org-odt-begin-document-body org-odt-end-document-body))
477 (TOC
478 . (org-odt-begin-toc org-odt-end-toc))
479 (ENVIRONMENT
480 . (org-odt-begin-environment org-odt-end-environment))
481 (FOOTNOTE-DEFINITION
482 . (org-odt-begin-footnote-definition org-odt-end-footnote-definition))
483 (TABLE
484 . (org-odt-begin-table org-odt-end-table))
485 (TABLE-ROWGROUP
486 . (org-odt-begin-table-rowgroup org-odt-end-table-rowgroup))
487 (LIST
488 . (org-odt-begin-list org-odt-end-list))
489 (LIST-ITEM
490 . (org-odt-begin-list-item org-odt-end-list-item))
491 (OUTLINE
492 . (org-odt-begin-outline org-odt-end-outline))
493 (OUTLINE-TEXT
494 . (org-odt-begin-outline-text org-odt-end-outline-text))
495 (PARAGRAPH
496 . (org-odt-begin-paragraph org-odt-end-paragraph)))
499 (defvar org-odt-entity-format-callbacks-alist
500 `((EXTRA-TARGETS . org-lparse-format-extra-targets)
501 (ORG-TAGS . org-lparse-format-org-tags)
502 (SECTION-NUMBER . org-lparse-format-section-number)
503 (HEADLINE . org-odt-format-headline)
504 (TOC-ENTRY . org-odt-format-toc-entry)
505 (TOC-ITEM . org-odt-format-toc-item)
506 (TAGS . org-odt-format-tags)
507 (SPACES . org-odt-format-spaces)
508 (TABS . org-odt-format-tabs)
509 (LINE-BREAK . org-odt-format-line-break)
510 (FONTIFY . org-odt-format-fontify)
511 (TODO . org-lparse-format-todo)
512 (LINK . org-odt-format-link)
513 (INLINE-IMAGE . org-odt-format-inline-image)
514 (ORG-LINK . org-odt-format-org-link)
515 (HEADING . org-odt-format-heading)
516 (ANCHOR . org-odt-format-anchor)
517 (TABLE . org-lparse-format-table)
518 (TABLE-ROW . org-odt-format-table-row)
519 (TABLE-CELL . org-odt-format-table-cell)
520 (FOOTNOTES-SECTION . ignore)
521 (FOOTNOTE-REFERENCE . org-odt-format-footnote-reference)
522 (HORIZONTAL-LINE . org-odt-format-horizontal-line)
523 (COMMENT . org-odt-format-comment)
524 (LINE . org-odt-format-line)
525 (ORG-ENTITY . org-odt-format-org-entity))
528 ;;;_. callbacks
529 ;;;_. control callbacks
530 ;;;_ , document body
531 (defun org-odt-begin-office-body ()
532 ;; automatic styles
533 (insert-file-contents
534 (or org-export-odt-content-template-file
535 (expand-file-name "OrgOdtContentTemplate.xml"
536 org-odt-styles-dir)))
537 (goto-char (point-min))
538 (re-search-forward "</office:text>" nil nil)
539 (delete-region (match-beginning 0) (point-max)))
541 ;; Following variable is let bound when `org-do-lparse' is in
542 ;; progress. See org-html.el.
543 (defvar org-lparse-toc)
544 (defun org-odt-format-toc ()
545 (if (not org-lparse-toc) "" (concat "\n" org-lparse-toc "\n")))
547 (defun org-odt-format-preamble (opt-plist)
548 (let* ((title (plist-get opt-plist :title))
549 (author (plist-get opt-plist :author))
550 (date (plist-get opt-plist :date))
551 (iso-date (org-odt-format-date date))
552 (date (org-odt-format-date date "%d %b %Y"))
553 (email (plist-get opt-plist :email))
554 ;; switch on or off above vars based on user settings
555 (author (and (plist-get opt-plist :author-info) (or author email)))
556 (email (and (plist-get opt-plist :email-info) email))
557 (date (and (plist-get opt-plist :time-stamp-file) date)))
558 (concat
559 ;; title
560 (when title
561 (concat
562 (org-odt-format-stylized-paragraph
563 'title (org-odt-format-tags
564 '("<text:title>" . "</text:title>") title))
565 ;; separator
566 "<text:p text:style-name=\"OrgTitle\"/>"))
567 (cond
568 ((and author (not email))
569 ;; author only
570 (concat
571 (org-odt-format-stylized-paragraph
572 'subtitle
573 (org-odt-format-tags
574 '("<text:initial-creator>" . "</text:initial-creator>")
575 author))
576 ;; separator
577 "<text:p text:style-name=\"OrgSubtitle\"/>"))
578 ((and author email)
579 ;; author and email
580 (concat
581 (org-odt-format-stylized-paragraph
582 'subtitle
583 (org-odt-format-link
584 (org-odt-format-tags
585 '("<text:initial-creator>" . "</text:initial-creator>")
586 author) (concat "mailto:" email)))
587 ;; separator
588 "<text:p text:style-name=\"OrgSubtitle\"/>")))
589 ;; date
590 (when date
591 (concat
592 (org-odt-format-stylized-paragraph
593 'subtitle
594 (org-odt-format-tags
595 '("<text:date style:data-style-name=\"%s\" text:date-value=\"%s\">"
596 . "</text:date>") date "N75" iso-date))
597 ;; separator
598 "<text:p text:style-name=\"OrgSubtitle\"/>")))))
600 (defun org-odt-begin-document-body (opt-plist)
601 (org-odt-begin-office-body)
602 (insert (org-odt-format-preamble opt-plist))
603 (setq org-lparse-dyn-first-heading-pos (point)))
605 (defvar org-lparse-body-only) ; let bound during org-do-lparse
606 (defvar org-lparse-to-buffer) ; let bound during org-do-lparse
607 (defun org-odt-end-document-body (opt-plist)
608 (unless org-lparse-body-only
609 (org-lparse-insert-tag "</office:text>")
610 (org-lparse-insert-tag "</office:body>")))
612 (defun org-odt-begin-document-content (opt-plist)
613 (ignore))
615 (defun org-odt-end-document-content ()
616 (org-lparse-insert-tag "</office:document-content>"))
618 (defun org-odt-begin-outline (level1 snumber title tags
619 target extra-targets class)
620 (org-lparse-insert
621 'HEADING (org-lparse-format
622 'HEADLINE title extra-targets tags snumber level1)
623 level1 target))
625 (defun org-odt-end-outline ()
626 (ignore))
628 (defun org-odt-begin-outline-text (level1 snumber class)
629 (ignore))
631 (defun org-odt-end-outline-text ()
632 (ignore))
634 (defun org-odt-begin-section (style &optional name)
635 (let ((default-name (car (org-odt-add-automatic-style "Section"))))
636 (org-lparse-insert-tag
637 "<text:section text:style-name=\"%s\" text:name=\"%s\">"
638 style (or name default-name))))
640 (defun org-odt-end-section ()
641 (org-lparse-insert-tag "</text:section>"))
643 (defun org-odt-begin-paragraph (&optional style)
644 (org-lparse-insert-tag
645 "<text:p%s>" (org-odt-get-extra-attrs-for-paragraph-style style)))
647 (defun org-odt-end-paragraph ()
648 (org-lparse-insert-tag "</text:p>"))
650 (defun org-odt-get-extra-attrs-for-paragraph-style (style)
651 (let (style-name)
652 (setq style-name
653 (cond
654 ((stringp style) style)
655 ((symbolp style) (org-odt-get-style-name-for-entity
656 'paragraph style))))
657 (unless style-name
658 (error "Don't know how to handle paragraph style %s" style))
659 (format " text:style-name=\"%s\"" style-name)))
661 (defun org-odt-format-stylized-paragraph (style text)
662 (org-odt-format-tags
663 '("<text:p%s>" . "</text:p>") text
664 (org-odt-get-extra-attrs-for-paragraph-style style)))
666 (defvar org-lparse-opt-plist) ; bound during org-do-lparse
667 (defun org-odt-format-author (&optional author)
668 (when (setq author (or author (plist-get org-lparse-opt-plist :author)))
669 (org-odt-format-tags '("<dc:creator>" . "</dc:creator>") author)))
671 (defun org-odt-format-date (&optional org-ts fmt)
672 (save-match-data
673 (let* ((time
674 (and (stringp org-ts)
675 (string-match org-ts-regexp0 org-ts)
676 (apply 'encode-time
677 (org-fix-decoded-time
678 (org-parse-time-string (match-string 0 org-ts) t)))))
679 date)
680 (cond
681 (fmt (format-time-string fmt time))
682 (t (setq date (format-time-string "%Y-%m-%dT%H:%M:%S%z" time))
683 (format "%s:%s" (substring date 0 -2) (substring date -2)))))))
685 (defun org-odt-begin-annotation (&optional author date)
686 (org-lparse-insert-tag "<office:annotation>")
687 (when (setq author (org-odt-format-author author))
688 (insert author))
689 (insert (org-odt-format-tags
690 '("<dc:date>" . "</dc:date>")
691 (org-odt-format-date
692 (or date (plist-get org-lparse-opt-plist :date)))))
693 (org-lparse-begin-paragraph))
695 (defun org-odt-end-annotation ()
696 (org-lparse-insert-tag "</office:annotation>"))
698 (defun org-odt-begin-environment (style env-options-plist)
699 (case style
700 (annotation
701 (org-lparse-stash-save-paragraph-state)
702 (org-odt-begin-annotation (plist-get env-options-plist 'author)
703 (plist-get env-options-plist 'date)))
704 ((blockquote verse center quote)
705 (org-lparse-begin-paragraph style)
706 (list))
707 ((fixedwidth native)
708 (org-lparse-end-paragraph)
709 (list))
710 (t (error "Unknown environment %s" style))))
712 (defun org-odt-end-environment (style env-options-plist)
713 (case style
714 (annotation
715 (org-lparse-end-paragraph)
716 (org-odt-end-annotation)
717 (org-lparse-stash-pop-paragraph-state))
718 ((blockquote verse center quote)
719 (org-lparse-end-paragraph)
720 (list))
721 ((fixedwidth native)
722 (org-lparse-begin-paragraph)
723 (list))
724 (t (error "Unknown environment %s" style))))
726 (defvar org-lparse-list-stack) ; dynamically bound in org-do-lparse
727 (defvar org-odt-list-stack-stashed)
728 (defun org-odt-begin-list (ltype)
729 (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
730 ltype))
731 (let* ((style-name (org-odt-get-style-name-for-entity 'list ltype))
732 (extra (concat (if (or org-lparse-list-table-p
733 (and (= 1 (length org-lparse-list-stack))
734 (null org-odt-list-stack-stashed)))
735 " text:continue-numbering=\"false\""
736 " text:continue-numbering=\"true\"")
737 (when style-name
738 (format " text:style-name=\"%s\"" style-name)))))
739 (case ltype
740 ((ordered unordered description)
741 (org-lparse-end-paragraph)
742 (org-lparse-insert-tag "<text:list%s>" extra))
743 (t (error "Unknown list type: %s" ltype)))))
745 (defun org-odt-end-list (ltype)
746 (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
747 ltype))
748 (if ltype
749 (org-lparse-insert-tag "</text:list>")
750 (error "Unknown list type: %s" ltype)))
752 (defun org-odt-begin-list-item (ltype &optional arg headline)
753 (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
754 ltype))
755 (case ltype
756 (ordered
757 (assert (not headline) t)
758 (let* ((counter arg) (extra ""))
759 (org-lparse-insert-tag (if (= (length org-lparse-list-stack)
760 (length org-odt-list-stack-stashed))
761 "<text:list-header>" "<text:list-item>"))
762 (org-lparse-begin-paragraph)))
763 (unordered
764 (let* ((id arg) (extra ""))
765 (org-lparse-insert-tag (if (= (length org-lparse-list-stack)
766 (length org-odt-list-stack-stashed))
767 "<text:list-header>" "<text:list-item>"))
768 (org-lparse-begin-paragraph)
769 (insert (if headline (org-odt-format-target headline id)
770 (org-odt-format-bookmark "" id)))))
771 (description
772 (assert (not headline) t)
773 (let ((term (or arg "(no term)")))
774 (insert
775 (org-odt-format-tags
776 '("<text:list-item>" . "</text:list-item>")
777 (org-odt-format-stylized-paragraph 'definition-term term)))
778 (org-lparse-begin-list-item 'unordered)
779 (org-lparse-begin-list 'description)
780 (org-lparse-begin-list-item 'unordered)))
781 (t (error "Unknown list type"))))
783 (defun org-odt-end-list-item (ltype)
784 (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
785 ltype))
786 (case ltype
787 ((ordered unordered)
788 (org-lparse-insert-tag (if (= (length org-lparse-list-stack)
789 (length org-odt-list-stack-stashed))
790 (prog1 "</text:list-header>"
791 (setq org-odt-list-stack-stashed nil))
792 "</text:list-item>")))
793 (description
794 (org-lparse-end-list-item-1)
795 (org-lparse-end-list 'description)
796 (org-lparse-end-list-item-1))
797 (t (error "Unknown list type"))))
799 (defun org-odt-discontinue-list ()
800 (let ((stashed-stack org-lparse-list-stack))
801 (loop for list-type in stashed-stack
802 do (org-lparse-end-list-item-1 list-type)
803 (org-lparse-end-list list-type))
804 (setq org-odt-list-stack-stashed stashed-stack)))
806 (defun org-odt-continue-list ()
807 (setq org-odt-list-stack-stashed (nreverse org-odt-list-stack-stashed))
808 (loop for list-type in org-odt-list-stack-stashed
809 do (org-lparse-begin-list list-type)
810 (org-lparse-begin-list-item list-type)))
812 ;; Following variables are let bound when table emission is in
813 ;; progress. See org-lparse.el.
814 (defvar org-lparse-table-begin-marker)
815 (defvar org-lparse-table-ncols)
816 (defvar org-lparse-table-rowgrp-open)
817 (defvar org-lparse-table-rownum)
818 (defvar org-lparse-table-cur-rowgrp-is-hdr)
819 (defvar org-lparse-table-is-styled)
820 (defvar org-lparse-table-rowgrp-info)
821 (defvar org-lparse-table-colalign-vector)
823 (defvar org-odt-table-style nil
824 "Table style specified by \"#+ATTR_ODT: <style-name>\" line.
825 This is set during `org-odt-begin-table'.")
827 (defvar org-odt-table-style-spec nil
828 "Entry for `org-odt-table-style' in `org-export-odt-table-styles'.")
830 (defcustom org-export-odt-table-styles
831 '(("OrgEquation" "OrgEquation"
832 ((use-first-column-styles . t)
833 (use-last-column-styles . t))))
834 "Specify how Table Styles should be derived from a Table Template.
835 This is a list where each element is of the
836 form (TABLE-STYLE-NAME TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS).
838 TABLE-STYLE-NAME is the style associated with the table through
839 `org-odt-table-style'.
841 TABLE-TEMPLATE-NAME is a set of - upto 9 - automatic
842 TABLE-CELL-STYLE-NAMEs and PARAGRAPH-STYLE-NAMEs (as defined
843 below) that is included in
844 `org-export-odt-content-template-file'.
846 TABLE-CELL-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +
847 \"TableCell\"
848 PARAGRAPH-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +
849 \"TableParagraph\"
850 TABLE-CELL-TYPE := \"FirstRow\" | \"LastColumn\" |
851 \"FirstRow\" | \"LastRow\" |
852 \"EvenRow\" | \"OddRow\" |
853 \"EvenColumn\" | \"OddColumn\" | \"\"
854 where \"+\" above denotes string concatenation.
856 TABLE-CELL-OPTIONS is an alist where each element is of the
857 form (TABLE-CELL-STYLE-SELECTOR . ON-OR-OFF).
858 TABLE-CELL-STYLE-SELECTOR := `use-first-row-styles' |
859 `use-last-row-styles' |
860 `use-first-column-styles' |
861 `use-last-column-styles' |
862 `use-banding-rows-styles' |
863 `use-banding-columns-styles' |
864 `use-first-row-styles'
865 ON-OR-OFF := `t' | `nil'
867 For example, with the following configuration
869 \(setq org-export-odt-table-styles
870 '\(\(\"TableWithHeaderRowsAndColumns\" \"Custom\"
871 \(\(use-first-row-styles . t\)
872 \(use-first-column-styles . t\)\)\)
873 \(\"TableWithHeaderColumns\" \"Custom\"
874 \(\(use-first-column-styles . t\)\)\)\)\)
876 1. A table associated with \"TableWithHeaderRowsAndColumns\"
877 style will use the following table-cell styles -
878 \"CustomFirstRowTableCell\", \"CustomFirstColumnTableCell\",
879 \"CustomTableCell\" and the following paragraph styles
880 \"CustomFirstRowTableParagraph\",
881 \"CustomFirstColumnTableParagraph\", \"CustomTableParagraph\"
882 as appropriate.
884 2. A table associated with \"TableWithHeaderColumns\" style will
885 use the following table-cell styles -
886 \"CustomFirstColumnTableCell\", \"CustomTableCell\" and the
887 following paragraph styles
888 \"CustomFirstColumnTableParagraph\", \"CustomTableParagraph\"
889 as appropriate..
891 Note that TABLE-TEMPLATE-NAME corresponds to the
892 \"<table:table-template>\" elements contained within
893 \"<office:styles>\". The entries (TABLE-STYLE-NAME
894 TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS) correspond to
895 \"table:template-name\" and \"table:use-first-row-styles\" etc
896 attributes of \"<table:table>\" element. Refer ODF-1.2
897 specification for more information. Also consult the
898 implementation filed under `org-odt-get-table-cell-styles'.
900 The TABLE-STYLE-NAME \"OrgEquation\" is used internally for
901 formatting of numbered display equations. Do not delete this
902 style from the list."
903 :group 'org-export-odt
904 :version "24.1"
905 :type '(choice
906 (const :tag "None" nil)
907 (repeat :tag "Table Styles"
908 (list :tag "Table Style Specification"
909 (string :tag "Table Style Name")
910 (string :tag "Table Template Name")
911 (alist :options (use-first-row-styles
912 use-last-row-styles
913 use-first-column-styles
914 use-last-column-styles
915 use-banding-rows-styles
916 use-banding-columns-styles)
917 :key-type symbol
918 :value-type (const :tag "True" t))))))
920 (defvar org-odt-table-style-format
922 <style:style style:name=\"%s\" style:family=\"table\">
923 <style:table-properties style:rel-width=\"%d%%\" fo:margin-top=\"0cm\" fo:margin-bottom=\"0.20cm\" table:align=\"center\"/>
924 </style:style>
926 "Template for auto-generated Table styles.")
928 (defvar org-odt-automatic-styles '()
929 "Registry of automatic styles for various OBJECT-TYPEs.
930 The variable has the following form:
931 \(\(OBJECT-TYPE-A
932 \(\(OBJECT-NAME-A.1 OBJECT-PROPS-A.1\)
933 \(OBJECT-NAME-A.2 OBJECT-PROPS-A.2\) ...\)\)
934 \(OBJECT-TYPE-B
935 \(\(OBJECT-NAME-B.1 OBJECT-PROPS-B.1\)
936 \(OBJECT-NAME-B.2 OBJECT-PROPS-B.2\) ...\)\)
937 ...\).
939 OBJECT-TYPEs could be \"Section\", \"Table\", \"Figure\" etc.
940 OBJECT-PROPS is (typically) a plist created by passing
941 \"#+ATTR_ODT: \" option to `org-lparse-get-block-params'.
943 Use `org-odt-add-automatic-style' to add update this variable.'")
945 (defvar org-odt-object-counters nil
946 "Running counters for various OBJECT-TYPEs.
947 Use this to generate automatic names and style-names. See
948 `org-odt-add-automatic-style'.")
950 (defun org-odt-write-automatic-styles ()
951 "Write automatic styles to \"content.xml\"."
952 (with-current-buffer
953 (find-file-noselect (expand-file-name "content.xml") t)
954 ;; position the cursor
955 (goto-char (point-min))
956 (re-search-forward " </office:automatic-styles>" nil t)
957 (goto-char (match-beginning 0))
958 ;; write automatic table styles
959 (loop for (style-name props) in
960 (plist-get org-odt-automatic-styles 'Table) do
961 (when (setq props (or (plist-get props :rel-width) 96))
962 (insert (format org-odt-table-style-format style-name props))))))
964 (defun org-odt-add-automatic-style (object-type &optional object-props)
965 "Create an automatic style of type OBJECT-TYPE with param OBJECT-PROPS.
966 OBJECT-PROPS is (typically) a plist created by passing
967 \"#+ATTR_ODT: \" option of the object in question to
968 `org-lparse-get-block-params'.
970 Use `org-odt-object-counters' to generate an automatic
971 OBJECT-NAME and STYLE-NAME. If OBJECT-PROPS is non-nil, add a
972 new entry in `org-odt-automatic-styles'. Return (OBJECT-NAME
973 . STYLE-NAME)."
974 (assert (stringp object-type))
975 (let* ((object (intern object-type))
976 (seqvar object)
977 (seqno (1+ (or (plist-get org-odt-object-counters seqvar) 0)))
978 (object-name (format "%s%d" object-type seqno)) style-name)
979 (setq org-odt-object-counters
980 (plist-put org-odt-object-counters seqvar seqno))
981 (when object-props
982 (setq style-name (format "Org%s" object-name))
983 (setq org-odt-automatic-styles
984 (plist-put org-odt-automatic-styles object
985 (append (list (list style-name object-props))
986 (plist-get org-odt-automatic-styles object)))))
987 (cons object-name style-name)))
989 (defvar org-odt-table-indentedp nil)
990 (defun org-odt-begin-table (caption label attributes)
991 (setq org-odt-table-indentedp (not (null org-lparse-list-stack)))
992 (when org-odt-table-indentedp
993 ;; Within the Org file, the table is appearing within a list item.
994 ;; OpenDocument doesn't allow table to appear within list items.
995 ;; Temporarily terminate the list, emit the table and then
996 ;; re-continue the list.
997 (org-odt-discontinue-list)
998 ;; Put the Table in an indented section.
999 (let ((level (length org-odt-list-stack-stashed)))
1000 (org-odt-begin-section (format "OrgIndentedSection-Level-%d" level))))
1001 (setq attributes (org-lparse-get-block-params attributes))
1002 (setq org-odt-table-style (plist-get attributes :style))
1003 (setq org-odt-table-style-spec
1004 (assoc org-odt-table-style org-export-odt-table-styles))
1005 (when (or label caption)
1006 (insert
1007 (org-odt-format-stylized-paragraph
1008 'table (org-odt-format-entity-caption label caption "__Table__"))))
1009 (let ((name-and-style (org-odt-add-automatic-style "Table" attributes)))
1010 (org-lparse-insert-tag
1011 "<table:table table:name=\"%s\" table:style-name=\"%s\">"
1012 (car name-and-style) (or (nth 1 org-odt-table-style-spec)
1013 (cdr name-and-style) "OrgTable")))
1014 (setq org-lparse-table-begin-marker (point)))
1016 (defvar org-lparse-table-colalign-info)
1017 (defun org-odt-end-table ()
1018 (goto-char org-lparse-table-begin-marker)
1019 (loop for level from 0 below org-lparse-table-ncols
1020 do (let* ((col-cookie (and org-lparse-table-is-styled
1021 (cdr (assoc (1+ level)
1022 org-lparse-table-colalign-info))))
1023 (extra-columns (or (nth 1 col-cookie) 0)))
1024 (dotimes (i (1+ extra-columns))
1025 (insert
1026 (org-odt-format-tags
1027 "<table:table-column table:style-name=\"%sColumn\"/>"
1028 "" (or (nth 1 org-odt-table-style-spec) "OrgTable"))))
1029 (insert "\n")))
1030 ;; fill style attributes for table cells
1031 (when org-lparse-table-is-styled
1032 (while (re-search-forward "@@\\(table-cell:p\\|table-cell:style-name\\)@@\\([0-9]+\\)@@\\([0-9]+\\)@@" nil t)
1033 (let* ((spec (match-string 1))
1034 (r (string-to-number (match-string 2)))
1035 (c (string-to-number (match-string 3)))
1036 (cell-styles (org-odt-get-table-cell-styles
1037 r c org-odt-table-style-spec))
1038 (table-cell-style (car cell-styles))
1039 (table-cell-paragraph-style (cdr cell-styles)))
1040 (cond
1041 ((equal spec "table-cell:p")
1042 (replace-match table-cell-paragraph-style t t))
1043 ((equal spec "table-cell:style-name")
1044 (replace-match table-cell-style t t))))))
1045 (goto-char (point-max))
1046 (org-lparse-insert-tag "</table:table>")
1047 (when org-odt-table-indentedp
1048 (org-odt-end-section)
1049 (org-odt-continue-list)))
1051 (defun org-odt-begin-table-rowgroup (&optional is-header-row)
1052 (when org-lparse-table-rowgrp-open
1053 (org-lparse-end 'TABLE-ROWGROUP))
1054 (org-lparse-insert-tag (if is-header-row
1055 "<table:table-header-rows>"
1056 "<table:table-rows>"))
1057 (setq org-lparse-table-rowgrp-open t)
1058 (setq org-lparse-table-cur-rowgrp-is-hdr is-header-row))
1060 (defun org-odt-end-table-rowgroup ()
1061 (when org-lparse-table-rowgrp-open
1062 (setq org-lparse-table-rowgrp-open nil)
1063 (org-lparse-insert-tag
1064 (if org-lparse-table-cur-rowgrp-is-hdr
1065 "</table:table-header-rows>" "</table:table-rows>"))))
1067 (defun org-odt-format-table-row (row)
1068 (org-odt-format-tags
1069 '("<table:table-row>" . "</table:table-row>") row))
1071 (defun org-odt-get-table-cell-styles (r c &optional style-spec)
1072 "Retrieve styles applicable to a table cell.
1073 R and C are (zero-based) row and column numbers of the table
1074 cell. STYLE-SPEC is an entry in `org-export-odt-table-styles'
1075 applicable to the current table. It is `nil' if the table is not
1076 associated with any style attributes.
1078 Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME).
1080 When STYLE-SPEC is nil, style the table cell the conventional way
1081 - choose cell borders based on row and column groupings and
1082 choose paragraph alignment based on `org-col-cookies' text
1083 property. See also
1084 `org-odt-get-paragraph-style-cookie-for-table-cell'.
1086 When STYLE-SPEC is non-nil, ignore the above cookie and return
1087 styles congruent with the ODF-1.2 specification."
1088 (cond
1089 (style-spec
1091 ;; LibreOffice - particularly the Writer - honors neither table
1092 ;; templates nor custom table-cell styles. Inorder to retain
1093 ;; inter-operability with LibreOffice, only automatic styles are
1094 ;; used for styling of table-cells. The current implementation is
1095 ;; congruent with ODF-1.2 specification and hence is
1096 ;; future-compatible.
1098 ;; Additional Note: LibreOffice's AutoFormat facility for tables -
1099 ;; which recognizes as many as 16 different cell types - is much
1100 ;; richer. Unfortunately it is NOT amenable to easy configuration
1101 ;; by hand.
1103 (let* ((template-name (nth 1 style-spec))
1104 (cell-style-selectors (nth 2 style-spec))
1105 (cell-type
1106 (cond
1107 ((and (cdr (assoc 'use-first-column-styles cell-style-selectors))
1108 (= c 0)) "FirstColumn")
1109 ((and (cdr (assoc 'use-last-column-styles cell-style-selectors))
1110 (= c (1- org-lparse-table-ncols))) "LastColumn")
1111 ((and (cdr (assoc 'use-first-row-styles cell-style-selectors))
1112 (= r 0)) "FirstRow")
1113 ((and (cdr (assoc 'use-last-row-styles cell-style-selectors))
1114 (= r org-lparse-table-rownum))
1115 "LastRow")
1116 ((and (cdr (assoc 'use-banding-rows-styles cell-style-selectors))
1117 (= (% r 2) 1)) "EvenRow")
1118 ((and (cdr (assoc 'use-banding-rows-styles cell-style-selectors))
1119 (= (% r 2) 0)) "OddRow")
1120 ((and (cdr (assoc 'use-banding-columns-styles cell-style-selectors))
1121 (= (% c 2) 1)) "EvenColumn")
1122 ((and (cdr (assoc 'use-banding-columns-styles cell-style-selectors))
1123 (= (% c 2) 0)) "OddColumn")
1124 (t ""))))
1125 (cons
1126 (concat template-name cell-type "TableCell")
1127 (concat template-name cell-type "TableParagraph"))))
1129 (cons
1130 (concat
1131 "OrgTblCell"
1132 (cond
1133 ((= r 0) "T")
1134 ((eq (cdr (assoc r org-lparse-table-rowgrp-info)) :start) "T")
1135 (t ""))
1136 (when (= r org-lparse-table-rownum) "B")
1137 (cond
1138 ((= c 0) "")
1139 ((or (memq (nth c org-table-colgroup-info) '(:start :startend))
1140 (memq (nth (1- c) org-table-colgroup-info) '(:end :startend))) "L")
1141 (t "")))
1142 (capitalize (aref org-lparse-table-colalign-vector c))))))
1144 (defun org-odt-get-paragraph-style-cookie-for-table-cell (r c)
1145 (concat
1146 (and (not org-odt-table-style-spec)
1147 (cond
1148 (org-lparse-table-cur-rowgrp-is-hdr "OrgTableHeading")
1149 ((and (= c 0) (org-lparse-get 'TABLE-FIRST-COLUMN-AS-LABELS))
1150 "OrgTableHeading")
1151 (t "OrgTableContents")))
1152 (and org-lparse-table-is-styled
1153 (format "@@table-cell:p@@%03d@@%03d@@" r c))))
1155 (defun org-odt-get-style-name-cookie-for-table-cell (r c)
1156 (when org-lparse-table-is-styled
1157 (format "@@table-cell:style-name@@%03d@@%03d@@" r c)))
1159 (defun org-odt-format-table-cell (data r c horiz-span)
1160 (concat
1161 (let* ((paragraph-style-cookie
1162 (org-odt-get-paragraph-style-cookie-for-table-cell r c))
1163 (style-name-cookie
1164 (org-odt-get-style-name-cookie-for-table-cell r c))
1165 (extra (and style-name-cookie
1166 (format " table:style-name=\"%s\"" style-name-cookie)))
1167 (extra (concat extra
1168 (and (> horiz-span 0)
1169 (format " table:number-columns-spanned=\"%d\""
1170 (1+ horiz-span))))))
1171 (org-odt-format-tags
1172 '("<table:table-cell%s>" . "</table:table-cell>")
1173 (if org-lparse-list-table-p data
1174 (org-odt-format-stylized-paragraph paragraph-style-cookie data)) extra))
1175 (let (s)
1176 (dotimes (i horiz-span)
1177 (setq s (concat s "\n<table:covered-table-cell/>"))) s)
1178 "\n"))
1180 (defun org-odt-begin-footnote-definition (n)
1181 (org-lparse-begin-paragraph 'footnote))
1183 (defun org-odt-end-footnote-definition (n)
1184 (org-lparse-end-paragraph))
1186 (defun org-odt-begin-toc (lang-specific-heading max-level)
1187 ;; Strings in `org-export-language-setup' can contain named html
1188 ;; entities. Replace those with utf-8 equivalents.
1189 (let ((i 0) entity rpl)
1190 (while (string-match "&\\([^#].*?\\);" lang-specific-heading i)
1191 (setq entity (match-string 1 lang-specific-heading))
1192 (if (not (setq rpl (org-entity-get-representation entity 'utf8)))
1193 (setq i (match-end 0))
1194 (setq i (+ (match-beginning 0) (length rpl)))
1195 (setq lang-specific-heading
1196 (replace-match rpl t t lang-specific-heading)))))
1197 (insert
1198 (format "
1199 <text:table-of-content text:style-name=\"Sect2\" text:protected=\"true\" text:name=\"Table of Contents1\">
1200 <text:table-of-content-source text:outline-level=\"%d\">
1201 <text:index-title-template text:style-name=\"Contents_20_Heading\">%s</text:index-title-template>
1202 " max-level lang-specific-heading))
1203 (loop for level from 1 upto 10
1204 do (insert (format
1206 <text:table-of-content-entry-template text:outline-level=\"%d\" text:style-name=\"Contents_20_%d\">
1207 <text:index-entry-link-start text:style-name=\"Internet_20_link\"/>
1208 <text:index-entry-chapter/>
1209 <text:index-entry-text/>
1210 <text:index-entry-link-end/>
1211 </text:table-of-content-entry-template>
1212 " level level)))
1214 (insert
1215 (format "
1216 </text:table-of-content-source>
1218 <text:index-body>
1219 <text:index-title text:style-name=\"Sect1\" text:name=\"Table of Contents1_Head\">
1220 <text:p text:style-name=\"Contents_20_Heading\">%s</text:p>
1221 </text:index-title>
1222 " lang-specific-heading)))
1224 (defun org-odt-end-toc ()
1225 (insert "
1226 </text:index-body>
1227 </text:table-of-content>
1230 (defun org-odt-format-toc-entry (snumber todo headline tags href)
1231 (setq headline (concat
1232 (and org-export-with-section-numbers
1233 (concat snumber ". "))
1234 headline
1235 (and tags
1236 (concat
1237 (org-lparse-format 'SPACES 3)
1238 (org-lparse-format 'FONTIFY tags "tag")))))
1239 (when todo
1240 (setq headline (org-lparse-format 'FONTIFY headline "todo")))
1242 (let ((org-odt-suppress-xref t))
1243 (org-odt-format-link headline (concat "#" href))))
1245 (defun org-odt-format-toc-item (toc-entry level org-last-level)
1246 (let ((style (format "Contents_20_%d"
1247 (+ level (or (org-lparse-get 'TOPLEVEL-HLEVEL) 1) -1))))
1248 (insert "\n" (org-odt-format-stylized-paragraph style toc-entry) "\n")))
1250 ;; Following variable is let bound during 'ORG-LINK callback. See
1251 ;; org-html.el
1252 (defvar org-lparse-link-description-is-image nil)
1253 (defun org-odt-format-link (desc href &optional attr)
1254 (cond
1255 ((and (= (string-to-char href) ?#) (not org-odt-suppress-xref))
1256 (setq href (substring href 1))
1257 (let ((xref-format "text"))
1258 (when (numberp desc)
1259 (setq desc (format "%d" desc) xref-format "number"))
1260 (when (listp desc)
1261 (setq desc (mapconcat 'identity desc ".") xref-format "chapter"))
1262 (setq href (concat org-export-odt-bookmark-prefix href))
1263 (org-odt-format-tags
1264 '("<text:bookmark-ref text:reference-format=\"%s\" text:ref-name=\"%s\">" .
1265 "</text:bookmark-ref>")
1266 desc xref-format href)))
1267 (org-lparse-link-description-is-image
1268 (org-odt-format-tags
1269 '("<draw:a xlink:type=\"simple\" xlink:href=\"%s\" %s>" . "</draw:a>")
1270 desc href (or attr "")))
1272 (org-odt-format-tags
1273 '("<text:a xlink:type=\"simple\" xlink:href=\"%s\" %s>" . "</text:a>")
1274 desc href (or attr "")))))
1276 (defun org-odt-format-spaces (n)
1277 (cond
1278 ((= n 1) " ")
1279 ((> n 1) (concat
1280 " " (org-odt-format-tags "<text:s text:c=\"%d\"/>" "" (1- n))))
1281 (t "")))
1283 (defun org-odt-format-tabs (&optional n)
1284 (let ((tab "<text:tab/>")
1285 (n (or n 1)))
1286 (insert tab)))
1288 (defun org-odt-format-line-break ()
1289 (org-odt-format-tags "<text:line-break/>" ""))
1291 (defun org-odt-format-horizontal-line ()
1292 (org-odt-format-stylized-paragraph 'horizontal-line ""))
1294 (defun org-odt-encode-plain-text (line &optional no-whitespace-filling)
1295 (setq line (org-xml-encode-plain-text line))
1296 (if no-whitespace-filling line
1297 (org-odt-fill-tabs-and-spaces line)))
1299 (defun org-odt-format-line (line)
1300 (case org-lparse-dyn-current-environment
1301 (fixedwidth (concat
1302 (org-odt-format-stylized-paragraph
1303 'fixedwidth (org-odt-encode-plain-text line)) "\n"))
1304 (t (concat line "\n"))))
1306 (defun org-odt-format-comment (fmt &rest args)
1307 (let ((comment (apply 'format fmt args)))
1308 (format "\n<!-- %s -->\n" comment)))
1310 (defun org-odt-format-org-entity (wd)
1311 (org-entity-get-representation wd 'utf8))
1313 (defun org-odt-fill-tabs-and-spaces (line)
1314 (replace-regexp-in-string
1315 "\\([\t]\\|\\([ ]+\\)\\)" (lambda (s)
1316 (cond
1317 ((string= s "\t") (org-odt-format-tabs))
1318 (t (org-odt-format-spaces (length s))))) line))
1320 (defcustom org-export-odt-fontify-srcblocks t
1321 "Specify whether or not source blocks need to be fontified.
1322 Turn this option on if you want to colorize the source code
1323 blocks in the exported file. For colorization to work, you need
1324 to make available an enhanced version of `htmlfontify' library."
1325 :type 'boolean
1326 :group 'org-export-odt
1327 :version "24.1")
1329 (defun org-odt-format-source-line-with-line-number-and-label
1330 (line rpllbl num fontifier par-style)
1332 (let ((keep-label (not (numberp rpllbl)))
1333 (ref (org-find-text-property-in-string 'org-coderef line)))
1334 (setq line (concat line (and keep-label ref (format "(%s)" ref))))
1335 (setq line (funcall fontifier line))
1336 (when ref
1337 (setq line (org-odt-format-target line (concat "coderef-" ref))))
1338 (setq line (org-odt-format-stylized-paragraph par-style line))
1339 (if (not num) line
1340 (org-odt-format-tags '("<text:list-item>" . "</text:list-item>") line))))
1342 (defun org-odt-format-source-code-or-example-plain
1343 (lines lang caption textareap cols rows num cont rpllbl fmt)
1344 "Format source or example blocks much like fixedwidth blocks.
1345 Use this when `org-export-odt-fontify-srcblocks' option is turned
1346 off."
1347 (let* ((lines (org-split-string lines "[\r\n]"))
1348 (line-count (length lines))
1349 (i 0))
1350 (mapconcat
1351 (lambda (line)
1352 (incf i)
1353 (org-odt-format-source-line-with-line-number-and-label
1354 line rpllbl num 'org-odt-encode-plain-text
1355 (if (= i line-count) "OrgFixedWidthBlockLastLine"
1356 "OrgFixedWidthBlock")))
1357 lines "\n")))
1359 (defvar org-src-block-paragraph-format
1360 "<style:style style:name=\"OrgSrcBlock\" style:family=\"paragraph\" style:parent-style-name=\"Preformatted_20_Text\">
1361 <style:paragraph-properties fo:background-color=\"%s\" fo:padding=\"0.049cm\" fo:border=\"0.51pt solid #000000\" style:shadow=\"none\">
1362 <style:background-image/>
1363 </style:paragraph-properties>
1364 <style:text-properties fo:color=\"%s\"/>
1365 </style:style>"
1366 "Custom paragraph style for colorized source and example blocks.
1367 This style is much the same as that of \"OrgFixedWidthBlock\"
1368 except that the foreground and background colors are set
1369 according to the default face identified by the `htmlfontify'.")
1371 (defvar hfy-optimisations)
1372 (declare-function hfy-face-to-style "htmlfontify" (fn))
1373 (declare-function hfy-face-or-def-to-name "htmlfontify" (fn))
1375 (defun org-odt-hfy-face-to-css (fn)
1376 "Create custom style for face FN.
1377 When FN is the default face, use it's foreground and background
1378 properties to create \"OrgSrcBlock\" paragraph style. Otherwise
1379 use it's color attribute to create a character style whose name
1380 is obtained from FN. Currently all attributes of FN other than
1381 color are ignored.
1383 The style name for a face FN is derived using the following
1384 operations on the face name in that order - de-dash, CamelCase
1385 and prefix with \"OrgSrc\". For example,
1386 `font-lock-function-name-face' is associated with
1387 \"OrgSrcFontLockFunctionNameFace\"."
1388 (let* ((css-list (hfy-face-to-style fn))
1389 (style-name ((lambda (fn)
1390 (concat "OrgSrc"
1391 (mapconcat
1392 'capitalize (split-string
1393 (hfy-face-or-def-to-name fn) "-")
1394 ""))) fn))
1395 (color-val (cdr (assoc "color" css-list)))
1396 (background-color-val (cdr (assoc "background" css-list)))
1397 (style (and org-export-odt-create-custom-styles-for-srcblocks
1398 (cond
1399 ((eq fn 'default)
1400 (format org-src-block-paragraph-format
1401 background-color-val color-val))
1403 (format
1405 <style:style style:name=\"%s\" style:family=\"text\">
1406 <style:text-properties fo:color=\"%s\"/>
1407 </style:style>" style-name color-val))))))
1408 (cons style-name style)))
1410 (defun org-odt-insert-custom-styles-for-srcblocks (styles)
1411 "Save STYLES used for colorizing of source blocks.
1412 Update styles.xml with styles that were collected as part of
1413 `org-odt-hfy-face-to-css' callbacks."
1414 (when styles
1415 (with-current-buffer
1416 (find-file-noselect (expand-file-name "styles.xml") t)
1417 (goto-char (point-min))
1418 (when (re-search-forward "</office:styles>" nil t)
1419 (goto-char (match-beginning 0))
1420 (insert "\n<!-- Org Htmlfontify Styles -->\n" styles "\n")))))
1422 (defun org-odt-format-source-code-or-example-colored
1423 (lines lang caption textareap cols rows num cont rpllbl fmt)
1424 "Format source or example blocks using `htmlfontify-string'.
1425 Use this routine when `org-export-odt-fontify-srcblocks' option
1426 is turned on."
1427 (let* ((lang-m (and lang (or (cdr (assoc lang org-src-lang-modes)) lang)))
1428 (mode (and lang-m (intern (concat (if (symbolp lang-m)
1429 (symbol-name lang-m)
1430 lang-m) "-mode"))))
1431 (org-inhibit-startup t)
1432 (org-startup-folded nil)
1433 (lines (with-temp-buffer
1434 (insert lines)
1435 (if (functionp mode) (funcall mode) (fundamental-mode))
1436 (font-lock-fontify-buffer)
1437 (buffer-string)))
1438 (hfy-html-quote-regex "\\([<\"&> ]\\)")
1439 (hfy-html-quote-map '(("\"" "&quot;")
1440 ("<" "&lt;")
1441 ("&" "&amp;")
1442 (">" "&gt;")
1443 (" " "<text:s/>")
1444 (" " "<text:tab/>")))
1445 (hfy-face-to-css 'org-odt-hfy-face-to-css)
1446 (hfy-optimisations-1 (copy-seq hfy-optimisations))
1447 (hfy-optimisations (add-to-list 'hfy-optimisations-1
1448 'body-text-only))
1449 (hfy-begin-span-handler
1450 (lambda (style text-block text-id text-begins-block-p)
1451 (insert (format "<text:span text:style-name=\"%s\">" style))))
1452 (hfy-end-span-handler (lambda nil (insert "</text:span>"))))
1453 (when (fboundp 'htmlfontify-string)
1454 (let* ((lines (org-split-string lines "[\r\n]"))
1455 (line-count (length lines))
1456 (i 0))
1457 (mapconcat
1458 (lambda (line)
1459 (incf i)
1460 (org-odt-format-source-line-with-line-number-and-label
1461 line rpllbl num 'htmlfontify-string
1462 (if (= i line-count) "OrgSrcBlockLastLine" "OrgSrcBlock")))
1463 lines "\n")))))
1465 (defun org-odt-format-source-code-or-example (lines lang caption textareap
1466 cols rows num cont
1467 rpllbl fmt)
1468 "Format source or example blocks for export.
1469 Use `org-odt-format-source-code-or-example-plain' or
1470 `org-odt-format-source-code-or-example-colored' depending on the
1471 value of `org-export-odt-fontify-srcblocks."
1472 (setq lines (org-export-number-lines
1473 lines 0 0 num cont rpllbl fmt 'preprocess)
1474 lines (funcall
1475 (or (and org-export-odt-fontify-srcblocks
1476 (or (featurep 'htmlfontify)
1477 ;; htmlfontify.el was introduced in Emacs 23.2
1478 ;; So load it with some caution
1479 (require 'htmlfontify nil t))
1480 (fboundp 'htmlfontify-string)
1481 'org-odt-format-source-code-or-example-colored)
1482 'org-odt-format-source-code-or-example-plain)
1483 lines lang caption textareap cols rows num cont rpllbl fmt))
1484 (if (not num) lines
1485 (let ((extra (format " text:continue-numbering=\"%s\""
1486 (if cont "true" "false"))))
1487 (org-odt-format-tags
1488 '("<text:list text:style-name=\"OrgSrcBlockNumberedLine\"%s>"
1489 . "</text:list>") lines extra))))
1491 (defun org-odt-remap-stylenames (style-name)
1493 (cdr (assoc style-name '(("timestamp-wrapper" . "OrgTimestampWrapper")
1494 ("timestamp" . "OrgTimestamp")
1495 ("timestamp-kwd" . "OrgTimestampKeyword")
1496 ("tag" . "OrgTag")
1497 ("todo" . "OrgTodo")
1498 ("done" . "OrgDone")
1499 ("target" . "OrgTarget"))))
1500 style-name))
1502 (defun org-odt-format-fontify (text style &optional id)
1503 (let* ((style-name
1504 (cond
1505 ((stringp style)
1506 (org-odt-remap-stylenames style))
1507 ((symbolp style)
1508 (org-odt-get-style-name-for-entity 'character style))
1509 ((listp style)
1510 (assert (< 1 (length style)))
1511 (let ((parent-style (pop style)))
1512 (mapconcat (lambda (s)
1513 ;; (assert (stringp s) t)
1514 (org-odt-remap-stylenames s)) style "")
1515 (org-odt-remap-stylenames parent-style)))
1516 (t (error "Don't how to handle style %s" style)))))
1517 (org-odt-format-tags
1518 '("<text:span text:style-name=\"%s\">" . "</text:span>")
1519 text style-name)))
1521 (defun org-odt-relocate-relative-path (path dir)
1522 (if (file-name-absolute-p path) path
1523 (file-relative-name (expand-file-name path dir)
1524 (expand-file-name "eyecandy" dir))))
1526 (defun org-odt-format-inline-image (thefile)
1527 (let* ((thelink (if (file-name-absolute-p thefile) thefile
1528 (org-xml-format-href
1529 (org-odt-relocate-relative-path
1530 thefile org-current-export-file))))
1531 (href
1532 (org-odt-format-tags
1533 "<draw:image xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" ""
1534 (if org-export-odt-embed-images
1535 (org-odt-copy-image-file thefile) thelink))))
1536 (org-export-odt-format-image thefile href)))
1538 (defvar org-odt-entity-labels-alist nil
1539 "Associate Labels with the Labeled entities.
1540 Each element of the alist is of the form (LABEL-NAME
1541 CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as
1542 that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the
1543 type of the entity that LABEL-NAME is attached to. CATEGORY-NAME
1544 can be one of \"Table\", \"Figure\" or \"Equation\". SEQNO is
1545 the unique number assigned to the referenced entity on a
1546 per-CATEGORY basis. It is generated sequentially and is 1-based.
1547 LABEL-STYLE-NAME is a key `org-odt-label-styles'.
1549 See `org-odt-add-label-definition' and
1550 `org-odt-fixup-label-references'.")
1552 (defun org-export-odt-format-formula (src href)
1553 (save-match-data
1554 (let* ((caption (org-find-text-property-in-string 'org-caption src))
1555 (caption (and caption (org-xml-format-desc caption)))
1556 (label (org-find-text-property-in-string 'org-label src))
1557 (latex-frag (org-find-text-property-in-string 'org-latex-src src))
1558 (embed-as (or (and latex-frag
1559 (org-find-text-property-in-string
1560 'org-latex-src-embed-type src))
1561 (if (or caption label) 'paragraph 'character)))
1562 width height)
1563 (when latex-frag
1564 (setq href (org-propertize href :title "LaTeX Fragment"
1565 :description latex-frag)))
1566 (cond
1567 ((eq embed-as 'character)
1568 (org-odt-format-entity "InlineFormula" href width height))
1570 (org-lparse-end-paragraph)
1571 (org-lparse-insert-list-table
1572 `((,(org-odt-format-entity
1573 (if (not (or caption label)) "DisplayFormula"
1574 "CaptionedDisplayFormula")
1575 href width height :caption caption :label label)
1576 ,(if (not (or caption label)) ""
1577 (let* ((label-props (car org-odt-entity-labels-alist)))
1578 (setcar (last label-props) "math-label")
1579 (apply 'org-odt-format-label-definition
1580 caption label-props)))))
1581 nil nil nil ":style \"OrgEquation\"" nil '((1 "c" 8) (2 "c" 1)))
1582 (throw 'nextline nil))))))
1584 (defvar org-odt-embedded-formulas-count 0)
1585 (defun org-odt-copy-formula-file (path)
1586 "Returns the internal name of the file"
1587 (let* ((src-file (expand-file-name
1588 path (file-name-directory org-current-export-file)))
1589 (target-dir (format "Formula-%04d/"
1590 (incf org-odt-embedded-formulas-count)))
1591 (target-file (concat target-dir "content.xml")))
1592 (when (not org-lparse-to-buffer)
1593 (message "Embedding %s as %s ..."
1594 (substring-no-properties path) target-file)
1596 (make-directory target-dir)
1597 (org-odt-create-manifest-file-entry
1598 "application/vnd.oasis.opendocument.formula" target-dir "1.2")
1600 (case (org-odt-is-formula-link-p src-file)
1601 (mathml
1602 (copy-file src-file target-file 'overwrite))
1603 (odf
1604 (org-odt-zip-extract-one src-file "content.xml" target-dir))
1606 (error "%s is not a formula file" src-file)))
1608 (org-odt-create-manifest-file-entry "text/xml" target-file))
1609 target-file))
1611 (defun org-odt-format-inline-formula (thefile)
1612 (let* ((thelink (if (file-name-absolute-p thefile) thefile
1613 (org-xml-format-href
1614 (org-odt-relocate-relative-path
1615 thefile org-current-export-file))))
1616 (href
1617 (org-odt-format-tags
1618 "<draw:object xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" ""
1619 (file-name-directory (org-odt-copy-formula-file thefile)))))
1620 (org-export-odt-format-formula thefile href)))
1622 (defun org-odt-is-formula-link-p (file)
1623 (let ((case-fold-search nil))
1624 (cond
1625 ((string-match "\\.\\(mathml\\|mml\\)\\'" file)
1626 'mathml)
1627 ((string-match "\\.odf\\'" file)
1628 'odf))))
1630 (defun org-odt-format-org-link (opt-plist type-1 path fragment desc attr
1631 descp)
1632 "Make a OpenDocument link.
1633 OPT-PLIST is an options list.
1634 TYPE-1 is the device-type of the link (THIS://foo.html).
1635 PATH is the path of the link (http://THIS#location).
1636 FRAGMENT is the fragment part of the link, if any (foo.html#THIS).
1637 DESC is the link description, if any.
1638 ATTR is a string of other attributes of the a element."
1639 (declare (special org-lparse-par-open))
1640 (save-match-data
1641 (let* ((may-inline-p
1642 (and (member type-1 '("http" "https" "file"))
1643 (org-lparse-should-inline-p path descp)
1644 (not fragment)))
1645 (type (if (equal type-1 "id") "file" type-1))
1646 (filename path)
1647 (thefile path)
1648 sec-frag sec-nos)
1649 (cond
1650 ;; check for inlined images
1651 ((and (member type '("file"))
1652 (not fragment)
1653 (org-file-image-p
1654 filename org-export-odt-inline-image-extensions)
1655 (or (eq t org-export-odt-inline-images)
1656 (and org-export-odt-inline-images (not descp))))
1657 (org-odt-format-inline-image thefile))
1658 ;; check for embedded formulas
1659 ((and (member type '("file"))
1660 (not fragment)
1661 (org-odt-is-formula-link-p filename)
1662 (or (not descp)))
1663 (org-odt-format-inline-formula thefile))
1664 ;; code references
1665 ((string= type "coderef")
1666 (let* ((ref fragment)
1667 (lineno-or-ref (cdr (assoc ref org-export-code-refs)))
1668 (desc (and descp desc))
1669 (org-odt-suppress-xref nil)
1670 (href (org-xml-format-href (concat "#coderef-" ref))))
1671 (cond
1672 ((and (numberp lineno-or-ref) (not desc))
1673 (org-odt-format-link lineno-or-ref href))
1674 ((and (numberp lineno-or-ref) desc
1675 (string-match (regexp-quote (concat "(" ref ")")) desc))
1676 (format (replace-match "%s" t t desc)
1677 (org-odt-format-link lineno-or-ref href)))
1679 (setq desc (format
1680 (if (and desc (string-match
1681 (regexp-quote (concat "(" ref ")"))
1682 desc))
1683 (replace-match "%s" t t desc)
1684 (or desc "%s"))
1685 lineno-or-ref))
1686 (org-odt-format-link (org-xml-format-desc desc) href)))))
1687 ;; links to headlines
1688 ((and (string= type "")
1689 (or (not thefile) (string= thefile ""))
1690 (plist-get org-lparse-opt-plist :section-numbers)
1691 (setq sec-frag fragment)
1692 (org-find-text-property-in-string 'org-no-description fragment)
1693 (or (string-match "\\`sec\\(\\(-[0-9]+\\)+\\)" sec-frag)
1694 (and (setq sec-frag
1695 (loop for alias in org-export-target-aliases do
1696 (when (member fragment (cdr alias))
1697 (return (car alias)))))
1698 (string-match "\\`sec\\(\\(-[0-9]+\\)+\\)" sec-frag)))
1699 (setq sec-nos (org-split-string (match-string 1 sec-frag) "-"))
1700 (<= (length sec-nos) (plist-get org-lparse-opt-plist
1701 :headline-levels)))
1702 (let ((org-odt-suppress-xref nil))
1703 (org-odt-format-link sec-nos (concat "#" sec-frag) attr)))
1705 (when (string= type "file")
1706 (setq thefile
1707 (cond
1708 ((file-name-absolute-p path)
1709 (concat "file://" (expand-file-name path)))
1710 (t (org-odt-relocate-relative-path
1711 thefile org-current-export-file)))))
1713 (when (and (member type '("" "http" "https" "file")) fragment)
1714 (setq thefile (concat thefile "#" fragment)))
1716 (setq thefile (org-xml-format-href thefile))
1718 (when (not (member type '("" "file")))
1719 (setq thefile (concat type ":" thefile)))
1721 (let ((org-odt-suppress-xref nil))
1722 (org-odt-format-link
1723 (org-xml-format-desc desc) thefile attr)))))))
1725 (defun org-odt-format-heading (text level &optional id)
1726 (let* ((text (if id (org-odt-format-target text id) text)))
1727 (org-odt-format-tags
1728 '("<text:h text:style-name=\"Heading_20_%s\" text:outline-level=\"%s\">" .
1729 "</text:h>") text level level)))
1731 (defun org-odt-format-headline (title extra-targets tags
1732 &optional snumber level)
1733 (concat
1734 (org-lparse-format 'EXTRA-TARGETS extra-targets)
1736 ;; No need to generate section numbers. They are auto-generated by
1737 ;; the application
1739 ;; (concat (org-lparse-format 'SECTION-NUMBER snumber level) " ")
1740 title
1741 (and tags (concat (org-lparse-format 'SPACES 3)
1742 (org-lparse-format 'ORG-TAGS tags)))))
1744 (defun org-odt-format-anchor (text name &optional class)
1745 (org-odt-format-target text name))
1747 (defun org-odt-format-bookmark (text id)
1748 (if id
1749 (org-odt-format-tags "<text:bookmark text:name=\"%s\"/>" text id)
1750 text))
1752 (defun org-odt-format-target (text id)
1753 (let ((name (concat org-export-odt-bookmark-prefix id)))
1754 (concat
1755 (and id (org-odt-format-tags
1756 "<text:bookmark-start text:name=\"%s\"/>" "" name))
1757 (org-odt-format-bookmark text id)
1758 (and id (org-odt-format-tags
1759 "<text:bookmark-end text:name=\"%s\"/>" "" name)))))
1761 (defun org-odt-format-footnote (n def)
1762 (let ((id (concat "fn" n))
1763 (note-class "footnote")
1764 (par-style "Footnote"))
1765 (org-odt-format-tags
1766 '("<text:note text:id=\"%s\" text:note-class=\"%s\">" .
1767 "</text:note>")
1768 (concat
1769 (org-odt-format-tags
1770 '("<text:note-citation>" . "</text:note-citation>")
1772 (org-odt-format-tags
1773 '("<text:note-body>" . "</text:note-body>")
1774 def))
1775 id note-class)))
1777 (defun org-odt-format-footnote-reference (n def refcnt)
1778 (if (= refcnt 1)
1779 (org-odt-format-footnote n def)
1780 (org-odt-format-footnote-ref n)))
1782 (defun org-odt-format-footnote-ref (n)
1783 (let ((note-class "footnote")
1784 (ref-format "text")
1785 (ref-name (concat "fn" n)))
1786 (org-odt-format-tags
1787 '("<text:span text:style-name=\"%s\">" . "</text:span>")
1788 (org-odt-format-tags
1789 '("<text:note-ref text:note-class=\"%s\" text:reference-format=\"%s\" text:ref-name=\"%s\">" . "</text:note-ref>")
1790 n note-class ref-format ref-name)
1791 "OrgSuperscript")))
1793 (defun org-odt-get-image-name (file-name)
1794 (require 'sha1)
1795 (file-relative-name
1796 (expand-file-name
1797 (concat (sha1 file-name) "." (file-name-extension file-name)) "Pictures")))
1799 (defun org-export-odt-format-image (src href)
1800 "Create image tag with source and attributes."
1801 (save-match-data
1802 (let* ((caption (org-find-text-property-in-string 'org-caption src))
1803 (caption (and caption (org-xml-format-desc caption)))
1804 (attr (org-find-text-property-in-string 'org-attributes src))
1805 (label (org-find-text-property-in-string 'org-label src))
1806 (latex-frag (org-find-text-property-in-string
1807 'org-latex-src src))
1808 (category (and latex-frag "__DvipngImage__"))
1809 (attr-plist (org-lparse-get-block-params attr))
1810 (user-frame-anchor
1811 (car (assoc-string (plist-get attr-plist :anchor)
1812 '(("as-char") ("paragraph") ("page")) t)))
1813 (user-frame-style
1814 (and user-frame-anchor (plist-get attr-plist :style)))
1815 (user-frame-attrs
1816 (and user-frame-anchor (plist-get attr-plist :attributes)))
1817 (user-frame-params
1818 (list user-frame-style user-frame-attrs user-frame-anchor))
1819 (embed-as (cond
1820 (latex-frag
1821 (symbol-name
1822 (case (org-find-text-property-in-string
1823 'org-latex-src-embed-type src)
1824 (paragraph 'paragraph)
1825 (t 'as-char))))
1826 (user-frame-anchor)
1827 (t "paragraph")))
1828 (size (org-odt-image-size-from-file
1829 src (plist-get attr-plist :width)
1830 (plist-get attr-plist :height)
1831 (plist-get attr-plist :scale) nil embed-as))
1832 (width (car size)) (height (cdr size)))
1833 (when latex-frag
1834 (setq href (org-propertize href :title "LaTeX Fragment"
1835 :description latex-frag)))
1836 (let ((frame-style-handle (concat (and (or caption label) "Captioned")
1837 embed-as "Image")))
1838 (org-odt-format-entity
1839 frame-style-handle href width height
1840 :caption caption :label label :category category
1841 :user-frame-params user-frame-params)))))
1843 (defun org-odt-format-object-description (title description)
1844 (concat (and title (org-odt-format-tags
1845 '("<svg:title>" . "</svg:title>")
1846 (org-odt-encode-plain-text title t)))
1847 (and description (org-odt-format-tags
1848 '("<svg:desc>" . "</svg:desc>")
1849 (org-odt-encode-plain-text description t)))))
1851 (defun org-odt-format-frame (text width height style &optional
1852 extra anchor-type)
1853 (let ((frame-attrs
1854 (concat
1855 (if width (format " svg:width=\"%0.2fcm\"" width) "")
1856 (if height (format " svg:height=\"%0.2fcm\"" height) "")
1857 extra
1858 (format " text:anchor-type=\"%s\"" (or anchor-type "paragraph")))))
1859 (org-odt-format-tags
1860 '("<draw:frame draw:style-name=\"%s\"%s>" . "</draw:frame>")
1861 (concat text (org-odt-format-object-description
1862 (get-text-property 0 :title text)
1863 (get-text-property 0 :description text)))
1864 style frame-attrs)))
1866 (defun org-odt-format-textbox (text width height style &optional
1867 extra anchor-type)
1868 (org-odt-format-frame
1869 (org-odt-format-tags
1870 '("<draw:text-box %s>" . "</draw:text-box>")
1871 text (concat (format " fo:min-height=\"%0.2fcm\"" (or height .2))
1872 (unless width
1873 (format " fo:min-width=\"%0.2fcm\"" (or width .2)))))
1874 width nil style extra anchor-type))
1876 (defun org-odt-format-inlinetask (heading content
1877 &optional todo priority tags)
1878 (org-odt-format-stylized-paragraph
1879 nil (org-odt-format-textbox
1880 (concat (org-odt-format-stylized-paragraph
1881 "OrgInlineTaskHeading"
1882 (org-lparse-format
1883 'HEADLINE (concat (org-lparse-format-todo todo) " " heading)
1884 nil tags))
1885 content) nil nil "OrgInlineTaskFrame" " style:rel-width=\"100%\"")))
1887 (defvar org-odt-entity-frame-styles
1888 '(("As-CharImage" "__Figure__" ("OrgInlineImage" nil "as-char"))
1889 ("ParagraphImage" "__Figure__" ("OrgDisplayImage" nil "paragraph"))
1890 ("PageImage" "__Figure__" ("OrgPageImage" nil "page"))
1891 ("CaptionedAs-CharImage" "__Figure__"
1892 ("OrgCaptionedImage"
1893 " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
1894 ("OrgInlineImage" nil "as-char"))
1895 ("CaptionedParagraphImage" "__Figure__"
1896 ("OrgCaptionedImage"
1897 " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
1898 ("OrgImageCaptionFrame" nil "paragraph"))
1899 ("CaptionedPageImage" "__Figure__"
1900 ("OrgCaptionedImage"
1901 " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
1902 ("OrgPageImageCaptionFrame" nil "page"))
1903 ("InlineFormula" "__MathFormula__" ("OrgInlineFormula" nil "as-char"))
1904 ("DisplayFormula" "__MathFormula__" ("OrgDisplayFormula" nil "as-char"))
1905 ("CaptionedDisplayFormula" "__MathFormula__"
1906 ("OrgCaptionedFormula" nil "paragraph")
1907 ("OrgFormulaCaptionFrame" nil "as-char"))))
1909 (defun org-odt-merge-frame-params(default-frame-params user-frame-params)
1910 (if (not user-frame-params) default-frame-params
1911 (assert (= (length default-frame-params) 3))
1912 (assert (= (length user-frame-params) 3))
1913 (loop for user-frame-param in user-frame-params
1914 for default-frame-param in default-frame-params
1915 collect (or user-frame-param default-frame-param))))
1917 (defun* org-odt-format-entity (entity href width height
1918 &key caption label category
1919 user-frame-params)
1920 (let* ((entity-style (assoc-string entity org-odt-entity-frame-styles t))
1921 default-frame-params frame-params)
1922 (cond
1923 ((not (or caption label))
1924 (setq default-frame-params (nth 2 entity-style))
1925 (setq frame-params (org-odt-merge-frame-params
1926 default-frame-params user-frame-params))
1927 (apply 'org-odt-format-frame href width height frame-params))
1929 (setq default-frame-params (nth 3 entity-style))
1930 (setq frame-params (org-odt-merge-frame-params
1931 default-frame-params user-frame-params))
1932 (apply 'org-odt-format-textbox
1933 (org-odt-format-stylized-paragraph
1934 'illustration
1935 (concat
1936 (apply 'org-odt-format-frame href width height
1937 (nth 2 entity-style))
1938 (org-odt-format-entity-caption
1939 label caption (or category (nth 1 entity-style)))))
1940 width height frame-params)))))
1942 (defvar org-odt-embedded-images-count 0)
1943 (defun org-odt-copy-image-file (path)
1944 "Returns the internal name of the file"
1945 (let* ((image-type (file-name-extension path))
1946 (media-type (format "image/%s" image-type))
1947 (src-file (expand-file-name
1948 path (file-name-directory org-current-export-file)))
1949 (target-dir "Images/")
1950 (target-file
1951 (format "%s%04d.%s" target-dir
1952 (incf org-odt-embedded-images-count) image-type)))
1953 (when (not org-lparse-to-buffer)
1954 (message "Embedding %s as %s ..."
1955 (substring-no-properties path) target-file)
1957 (when (= 1 org-odt-embedded-images-count)
1958 (make-directory target-dir)
1959 (org-odt-create-manifest-file-entry "" target-dir))
1961 (copy-file src-file target-file 'overwrite)
1962 (org-odt-create-manifest-file-entry media-type target-file))
1963 target-file))
1965 (defvar org-export-odt-image-size-probe-method
1966 (append (and (executable-find "identify") '(imagemagick)) ; See Bug#10675
1967 '(emacs fixed))
1968 "Ordered list of methods for determining image sizes.")
1970 (defvar org-export-odt-default-image-sizes-alist
1971 '(("as-char" . (5 . 0.4))
1972 ("paragraph" . (5 . 5)))
1973 "Hardcoded image dimensions one for each of the anchor
1974 methods.")
1976 ;; A4 page size is 21.0 by 29.7 cms
1977 ;; The default page settings has 2cm margin on each of the sides. So
1978 ;; the effective text area is 17.0 by 25.7 cm
1979 (defvar org-export-odt-max-image-size '(17.0 . 20.0)
1980 "Limiting dimensions for an embedded image.")
1982 (defun org-odt-do-image-size (probe-method file &optional dpi anchor-type)
1983 (setq dpi (or dpi org-export-odt-pixels-per-inch))
1984 (setq anchor-type (or anchor-type "paragraph"))
1985 (flet ((size-in-cms (size-in-pixels)
1986 (flet ((pixels-to-cms (pixels)
1987 (let* ((cms-per-inch 2.54)
1988 (inches (/ pixels dpi)))
1989 (* cms-per-inch inches))))
1990 (and size-in-pixels
1991 (cons (pixels-to-cms (car size-in-pixels))
1992 (pixels-to-cms (cdr size-in-pixels)))))))
1993 (case probe-method
1994 (emacs
1995 (size-in-cms (ignore-errors ; Emacs could be in batch mode
1996 (clear-image-cache)
1997 (image-size (create-image file) 'pixels))))
1998 (imagemagick
1999 (size-in-cms
2000 (let ((dim (shell-command-to-string
2001 (format "identify -format \"%%w:%%h\" \"%s\"" file))))
2002 (when (string-match "\\([0-9]+\\):\\([0-9]+\\)" dim)
2003 (cons (string-to-number (match-string 1 dim))
2004 (string-to-number (match-string 2 dim)))))))
2006 (cdr (assoc-string anchor-type
2007 org-export-odt-default-image-sizes-alist))))))
2009 (defun org-odt-image-size-from-file (file &optional user-width
2010 user-height scale dpi embed-as)
2011 (unless (file-name-absolute-p file)
2012 (setq file (expand-file-name
2013 file (file-name-directory org-current-export-file))))
2014 (let* (size width height)
2015 (unless (and user-height user-width)
2016 (loop for probe-method in org-export-odt-image-size-probe-method
2017 until size
2018 do (setq size (org-odt-do-image-size
2019 probe-method file dpi embed-as)))
2020 (or size (error "Cannot determine Image size. Aborting ..."))
2021 (setq width (car size) height (cdr size)))
2022 (cond
2023 (scale
2024 (setq width (* width scale) height (* height scale)))
2025 ((and user-height user-width)
2026 (setq width user-width height user-height))
2027 (user-height
2028 (setq width (* user-height (/ width height)) height user-height))
2029 (user-width
2030 (setq height (* user-width (/ height width)) width user-width))
2031 (t (ignore)))
2032 ;; ensure that an embedded image fits comfortably within a page
2033 (let ((max-width (car org-export-odt-max-image-size))
2034 (max-height (cdr org-export-odt-max-image-size)))
2035 (when (or (> width max-width) (> height max-height))
2036 (let* ((scale1 (/ max-width width))
2037 (scale2 (/ max-height height))
2038 (scale (min scale1 scale2)))
2039 (setq width (* scale width) height (* scale height)))))
2040 (cons width height)))
2042 (defvar org-odt-entity-counts-plist nil
2043 "Plist of running counters of SEQNOs for each of the CATEGORY-NAMEs.
2044 See `org-odt-entity-labels-alist' for known CATEGORY-NAMEs.")
2046 (defvar org-odt-label-styles
2047 '(("math-formula" "%c" "text" "(%n)")
2048 ("math-label" "(%n)" "text" "(%n)")
2049 ("category-and-value" "%e %n: %c" "category-and-value" "%e %n")
2050 ("value" "%e %n: %c" "value" "%n"))
2051 "Specify how labels are applied and referenced.
2052 This is an alist where each element is of the
2053 form (LABEL-STYLE-NAME LABEL-ATTACH-FMT LABEL-REF-MODE
2054 LABEL-REF-FMT).
2056 LABEL-ATTACH-FMT controls how labels and captions are attached to
2057 an entity. It may contain following specifiers - %e, %n and %c.
2058 %e is replaced with the CATEGORY-NAME. %n is replaced with
2059 \"<text:sequence ...> SEQNO </text:sequence>\". %c is replaced
2060 with CAPTION. See `org-odt-format-label-definition'.
2062 LABEL-REF-MODE and LABEL-REF-FMT controls how label references
2063 are generated. The following XML is generated for a label
2064 reference - \"<text:sequence-ref
2065 text:reference-format=\"LABEL-REF-MODE\" ...> LABEL-REF-FMT
2066 </text:sequence-ref>\". LABEL-REF-FMT may contain following
2067 specifiers - %e and %n. %e is replaced with the CATEGORY-NAME.
2068 %n is replaced with SEQNO. See
2069 `org-odt-format-label-reference'.")
2071 (defcustom org-export-odt-category-strings
2072 '(("en" "Table" "Figure" "Equation" "Equation"))
2073 "Specify category strings for various captionable entities.
2074 Captionable entity can be one of a Table, an Embedded Image, a
2075 LaTeX fragment (generated with dvipng) or a Math Formula.
2077 For example, when `org-export-default-language' is \"en\", an
2078 embedded image will be captioned as \"Figure 1: Orgmode Logo\".
2079 If you want the images to be captioned instead as \"Illustration
2080 1: Orgmode Logo\", then modify the entry for \"en\" as shown
2081 below.
2083 \(setq org-export-odt-category-strings
2084 '\(\(\"en\" \"Table\" \"Illustration\"
2085 \"Equation\" \"Equation\"\)\)\)"
2086 :group 'org-export-odt
2087 :version "24.1"
2088 :type '(repeat (list (string :tag "Language tag")
2089 (choice :tag "Table"
2090 (const :tag "Use Default" nil)
2091 (string :tag "Category string"))
2092 (choice :tag "Figure"
2093 (const :tag "Use Default" nil)
2094 (string :tag "Category string"))
2095 (choice :tag "Math Formula"
2096 (const :tag "Use Default" nil)
2097 (string :tag "Category string"))
2098 (choice :tag "Dvipng Image"
2099 (const :tag "Use Default" nil)
2100 (string :tag "Category string")))))
2102 (defvar org-odt-category-map-alist
2103 '(("__Table__" "Table" "value")
2104 ("__Figure__" "Illustration" "value")
2105 ("__MathFormula__" "Text" "math-formula")
2106 ("__DvipngImage__" "Equation" "value")
2107 ;; ("__Table__" "Table" "category-and-value")
2108 ;; ("__Figure__" "Figure" "category-and-value")
2109 ;; ("__DvipngImage__" "Equation" "category-and-value")
2111 "Map a CATEGORY-HANDLE to OD-VARIABLE and LABEL-STYLE.
2112 This is a list where each entry is of the form \\(CATEGORY-HANDLE
2113 OD-VARIABLE LABEL-STYLE\\). CATEGORY_HANDLE identifies the
2114 captionable entity in question. OD-VARIABLE is the OpenDocument
2115 sequence counter associated with the entity. These counters are
2116 declared within
2117 \"<text:sequence-decls>...</text:sequence-decls>\" block of
2118 `org-export-odt-content-template-file'. LABEL-STYLE is a key
2119 into `org-odt-label-styles' and specifies how a given entity
2120 should be captioned and referenced.
2122 The position of a CATEGORY-HANDLE in this list is used as an
2123 index in to per-language entry for
2124 `org-export-odt-category-strings' to retrieve a CATEGORY-NAME.
2125 This CATEGORY-NAME is then used for qualifying the user-specified
2126 captions on export.")
2128 (defun org-odt-add-label-definition (label default-category)
2129 "Create an entry in `org-odt-entity-labels-alist' and return it."
2130 (let* ((label-props (assoc default-category org-odt-category-map-alist))
2131 ;; identify the sequence number
2132 (counter (nth 1 label-props))
2133 (sequence-var (intern counter))
2134 (seqno (1+ (or (plist-get org-odt-entity-counts-plist sequence-var)
2135 0)))
2136 ;; assign an internal label, if user has not provided one
2137 (label (if label (substring-no-properties label)
2138 (format "%s-%s" default-category seqno)))
2139 ;; identify label style
2140 (label-style (nth 2 label-props))
2141 ;; grok language setting
2142 (en-strings (assoc-default "en" org-export-odt-category-strings))
2143 (lang (plist-get org-lparse-opt-plist :language))
2144 (lang-strings (assoc-default lang org-export-odt-category-strings))
2145 ;; retrieve localized category sting
2146 (pos (- (length org-odt-category-map-alist)
2147 (length (memq label-props org-odt-category-map-alist))))
2148 (category (or (nth pos lang-strings) (nth pos en-strings)))
2149 (label-props (list label category counter seqno label-style)))
2150 ;; synchronize internal counters
2151 (setq org-odt-entity-counts-plist
2152 (plist-put org-odt-entity-counts-plist sequence-var seqno))
2153 ;; stash label properties for later retrieval
2154 (push label-props org-odt-entity-labels-alist)
2155 label-props))
2157 (defun org-odt-format-label-definition (caption label category counter
2158 seqno label-style)
2159 (assert label)
2160 (format-spec
2161 (cadr (assoc-string label-style org-odt-label-styles t))
2162 `((?e . ,category)
2163 (?n . ,(org-odt-format-tags
2164 '("<text:sequence text:ref-name=\"%s\" text:name=\"%s\" text:formula=\"ooow:%s+1\" style:num-format=\"1\">" . "</text:sequence>")
2165 (format "%d" seqno) label counter counter))
2166 (?c . ,(or caption "")))))
2168 (defun org-odt-format-label-reference (label category counter
2169 seqno label-style)
2170 (assert label)
2171 (save-match-data
2172 (let* ((fmt (cddr (assoc-string label-style org-odt-label-styles t)))
2173 (fmt1 (car fmt))
2174 (fmt2 (cadr fmt)))
2175 (org-odt-format-tags
2176 '("<text:sequence-ref text:reference-format=\"%s\" text:ref-name=\"%s\">"
2177 . "</text:sequence-ref>")
2178 (format-spec fmt2 `((?e . ,category)
2179 (?n . ,(format "%d" seqno)))) fmt1 label))))
2181 (defun org-odt-fixup-label-references ()
2182 (goto-char (point-min))
2183 (while (re-search-forward
2184 "<text:sequence-ref text:ref-name=\"\\([^\"]+\\)\">[ \t\n]*</text:sequence-ref>"
2185 nil t)
2186 (let* ((label (match-string 1))
2187 (label-def (assoc label org-odt-entity-labels-alist))
2188 (rpl (and label-def
2189 (apply 'org-odt-format-label-reference label-def))))
2190 (if rpl (replace-match rpl t t)
2191 (org-lparse-warn
2192 (format "Unable to resolve reference to label \"%s\"" label))))))
2194 (defun org-odt-format-entity-caption (label caption category)
2195 (if (not (or label caption)) ""
2196 (apply 'org-odt-format-label-definition caption
2197 (org-odt-add-label-definition label category))))
2199 (defun org-odt-format-tags (tag text &rest args)
2200 (let ((prefix (when org-lparse-encode-pending "@"))
2201 (suffix (when org-lparse-encode-pending "@")))
2202 (apply 'org-lparse-format-tags tag text prefix suffix args)))
2204 (defvar org-odt-manifest-file-entries nil)
2205 (defun org-odt-init-outfile (filename)
2206 (unless (executable-find "zip")
2207 ;; Not at all OSes ship with zip by default
2208 (error "Executable \"zip\" needed for creating OpenDocument files"))
2210 (let* ((outdir (make-temp-file
2211 (format org-export-odt-tmpdir-prefix org-lparse-backend) t))
2212 (content-file (expand-file-name "content.xml" outdir)))
2214 ;; init conten.xml
2215 (with-current-buffer (find-file-noselect content-file t))
2217 ;; reset variables
2218 (setq org-odt-manifest-file-entries nil
2219 org-odt-embedded-images-count 0
2220 org-odt-embedded-formulas-count 0
2221 org-odt-entity-labels-alist nil
2222 org-odt-list-stack-stashed nil
2223 org-odt-automatic-styles nil
2224 org-odt-object-counters nil
2225 org-odt-entity-counts-plist nil)
2226 content-file))
2228 (defcustom org-export-odt-prettify-xml nil
2229 "Specify whether or not the xml output should be prettified.
2230 When this option is turned on, `indent-region' is run on all
2231 component xml buffers before they are saved. Turn this off for
2232 regular use. Turn this on if you need to examine the xml
2233 visually."
2234 :group 'org-export-odt
2235 :version "24.1"
2236 :type 'boolean)
2238 (defvar hfy-user-sheet-assoc) ; bound during org-do-lparse
2239 (defun org-odt-save-as-outfile (target opt-plist)
2240 ;; write automatic styles
2241 (org-odt-write-automatic-styles)
2243 ;; write meta file
2244 (org-odt-update-meta-file opt-plist)
2246 ;; write styles file
2247 (when (equal org-lparse-backend 'odt)
2248 (org-odt-update-styles-file opt-plist))
2250 ;; create mimetype file
2251 (let ((mimetype (org-odt-write-mimetype-file org-lparse-backend)))
2252 (org-odt-create-manifest-file-entry mimetype "/" "1.2"))
2254 ;; create a manifest entry for content.xml
2255 (org-odt-create-manifest-file-entry "text/xml" "content.xml")
2257 ;; write out the manifest entries before zipping
2258 (org-odt-write-manifest-file)
2260 (let ((xml-files '("mimetype" "META-INF/manifest.xml" "content.xml"
2261 "meta.xml"))
2262 (zipdir default-directory))
2263 (when (equal org-lparse-backend 'odt)
2264 (push "styles.xml" xml-files))
2265 (message "Switching to directory %s" (expand-file-name zipdir))
2267 ;; save all xml files
2268 (mapc (lambda (file)
2269 (with-current-buffer
2270 (find-file-noselect (expand-file-name file) t)
2271 ;; prettify output if needed
2272 (when org-export-odt-prettify-xml
2273 (indent-region (point-min) (point-max)))
2274 (save-buffer 0)))
2275 xml-files)
2277 (let* ((target-name (file-name-nondirectory target))
2278 (target-dir (file-name-directory target))
2279 (cmds `(("zip" "-mX0" ,target-name "mimetype")
2280 ("zip" "-rmTq" ,target-name "."))))
2281 (when (file-exists-p target)
2282 ;; FIXME: If the file is locked this throws a cryptic error
2283 (delete-file target))
2285 (let ((coding-system-for-write 'no-conversion) exitcode err-string)
2286 (message "Creating odt file...")
2287 (mapc
2288 (lambda (cmd)
2289 (message "Running %s" (mapconcat 'identity cmd " "))
2290 (setq err-string
2291 (with-output-to-string
2292 (setq exitcode
2293 (apply 'call-process (car cmd)
2294 nil standard-output nil (cdr cmd)))))
2295 (or (zerop exitcode)
2296 (ignore (message "%s" err-string))
2297 (error "Unable to create odt file (%S)" exitcode)))
2298 cmds))
2300 ;; move the file from outdir to target-dir
2301 (rename-file target-name target-dir)
2303 ;; kill all xml buffers
2304 (mapc (lambda (file)
2305 (kill-buffer
2306 (find-file-noselect (expand-file-name file zipdir) t)))
2307 xml-files)
2309 (delete-directory zipdir)))
2310 (message "Created %s" target)
2311 (set-buffer (find-file-noselect target t)))
2313 (defconst org-odt-manifest-file-entry-tag
2315 <manifest:file-entry manifest:media-type=\"%s\" manifest:full-path=\"%s\"%s/>")
2317 (defun org-odt-create-manifest-file-entry (&rest args)
2318 (push args org-odt-manifest-file-entries))
2320 (defun org-odt-write-manifest-file ()
2321 (make-directory "META-INF")
2322 (let ((manifest-file (expand-file-name "META-INF/manifest.xml")))
2323 (with-current-buffer
2324 (find-file-noselect manifest-file t)
2325 (insert
2326 "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
2327 <manifest:manifest xmlns:manifest=\"urn:oasis:names:tc:opendocument:xmlns:manifest:1.0\" manifest:version=\"1.2\">\n")
2328 (mapc
2329 (lambda (file-entry)
2330 (let* ((version (nth 2 file-entry))
2331 (extra (if version
2332 (format " manifest:version=\"%s\"" version)
2333 "")))
2334 (insert
2335 (format org-odt-manifest-file-entry-tag
2336 (nth 0 file-entry) (nth 1 file-entry) extra))))
2337 org-odt-manifest-file-entries)
2338 (insert "\n</manifest:manifest>"))))
2340 (defun org-odt-update-meta-file (opt-plist)
2341 (let ((date (org-odt-format-date (plist-get opt-plist :date)))
2342 (author (or (plist-get opt-plist :author) ""))
2343 (email (plist-get opt-plist :email))
2344 (keywords (plist-get opt-plist :keywords))
2345 (description (plist-get opt-plist :description))
2346 (title (plist-get opt-plist :title)))
2347 (write-region
2348 (concat
2349 "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
2350 <office:document-meta
2351 xmlns:office=\"urn:oasis:names:tc:opendocument:xmlns:office:1.0\"
2352 xmlns:xlink=\"http://www.w3.org/1999/xlink\"
2353 xmlns:dc=\"http://purl.org/dc/elements/1.1/\"
2354 xmlns:meta=\"urn:oasis:names:tc:opendocument:xmlns:meta:1.0\"
2355 xmlns:ooo=\"http://openoffice.org/2004/office\"
2356 office:version=\"1.2\">
2357 <office:meta>" "\n"
2358 (org-odt-format-author)
2359 (org-odt-format-tags
2360 '("\n<meta:initial-creator>" . "</meta:initial-creator>") author)
2361 (org-odt-format-tags '("\n<dc:date>" . "</dc:date>") date)
2362 (org-odt-format-tags
2363 '("\n<meta:creation-date>" . "</meta:creation-date>") date)
2364 (org-odt-format-tags '("\n<meta:generator>" . "</meta:generator>")
2365 (when org-export-creator-info
2366 (format "Org-%s/Emacs-%s"
2367 org-version emacs-version)))
2368 (org-odt-format-tags '("\n<meta:keyword>" . "</meta:keyword>") keywords)
2369 (org-odt-format-tags '("\n<dc:subject>" . "</dc:subject>") description)
2370 (org-odt-format-tags '("\n<dc:title>" . "</dc:title>") title)
2371 "\n"
2372 " </office:meta>" "</office:document-meta>")
2373 nil (expand-file-name "meta.xml")))
2375 ;; create a manifest entry for meta.xml
2376 (org-odt-create-manifest-file-entry "text/xml" "meta.xml"))
2378 (defun org-odt-update-styles-file (opt-plist)
2379 ;; write styles file
2380 (let ((styles-file (plist-get opt-plist :odt-styles-file)))
2381 (org-odt-copy-styles-file (and styles-file
2382 (read (org-trim styles-file)))))
2384 ;; Update styles.xml - take care of outline numbering
2385 (with-current-buffer
2386 (find-file-noselect (expand-file-name "styles.xml") t)
2387 ;; Don't make automatic backup of styles.xml file. This setting
2388 ;; prevents the backed-up styles.xml file from being zipped in to
2389 ;; odt file. This is more of a hackish fix. Better alternative
2390 ;; would be to fix the zip command so that the output odt file
2391 ;; includes only the needed files and excludes any auto-generated
2392 ;; extra files like backups and auto-saves etc etc. Note that
2393 ;; currently the zip command zips up the entire temp directory so
2394 ;; that any auto-generated files created under the hood ends up in
2395 ;; the resulting odt file.
2396 (set (make-local-variable 'backup-inhibited) t)
2398 ;; Import local setting of `org-export-with-section-numbers'
2399 (org-lparse-bind-local-variables opt-plist)
2400 (org-odt-configure-outline-numbering
2401 (if org-export-with-section-numbers org-export-headline-levels 0)))
2403 ;; Write custom styles for source blocks
2404 (org-odt-insert-custom-styles-for-srcblocks
2405 (mapconcat
2406 (lambda (style)
2407 (format " %s\n" (cddr style)))
2408 hfy-user-sheet-assoc "")))
2410 (defun org-odt-write-mimetype-file (format)
2411 ;; create mimetype file
2412 (let ((mimetype
2413 (case format
2414 (odt "application/vnd.oasis.opendocument.text")
2415 (odf "application/vnd.oasis.opendocument.formula")
2416 (t (error "Unknown OpenDocument backend %S" org-lparse-backend)))))
2417 (write-region mimetype nil (expand-file-name "mimetype"))
2418 mimetype))
2420 (defun org-odt-finalize-outfile ()
2421 (org-odt-delete-empty-paragraphs))
2423 (defun org-odt-delete-empty-paragraphs ()
2424 (goto-char (point-min))
2425 (let ((open "<text:p[^>]*>")
2426 (close "</text:p>"))
2427 (while (re-search-forward (format "%s[ \r\n\t]*%s" open close) nil t)
2428 (replace-match ""))))
2430 (defcustom org-export-odt-convert-processes
2431 '(("LibreOffice"
2432 "soffice --headless --convert-to %f%x --outdir %d %i")
2433 ("unoconv"
2434 "unoconv -f %f -o %d %i"))
2435 "Specify a list of document converters and their usage.
2436 The converters in this list are offered as choices while
2437 customizing `org-export-odt-convert-process'.
2439 This variable is a list where each element is of the
2440 form (CONVERTER-NAME CONVERTER-CMD). CONVERTER-NAME is the name
2441 of the converter. CONVERTER-CMD is the shell command for the
2442 converter and can contain format specifiers. These format
2443 specifiers are interpreted as below:
2445 %i input file name in full
2446 %I input file name as a URL
2447 %f format of the output file
2448 %o output file name in full
2449 %O output file name as a URL
2450 %d output dir in full
2451 %D output dir as a URL.
2452 %x extra options as set in `org-export-odt-convert-capabilities'."
2453 :group 'org-export-odt
2454 :version "24.1"
2455 :type
2456 '(choice
2457 (const :tag "None" nil)
2458 (alist :tag "Converters"
2459 :key-type (string :tag "Converter Name")
2460 :value-type (group (string :tag "Command line")))))
2462 (defcustom org-export-odt-convert-process "LibreOffice"
2463 "Use this converter to convert from \"odt\" format to other formats.
2464 During customization, the list of converter names are populated
2465 from `org-export-odt-convert-processes'."
2466 :group 'org-export-odt
2467 :version "24.1"
2468 :type '(choice :convert-widget
2469 (lambda (w)
2470 (apply 'widget-convert (widget-type w)
2471 (eval (car (widget-get w :args)))))
2472 `((const :tag "None" nil)
2473 ,@(mapcar (lambda (c)
2474 `(const :tag ,(car c) ,(car c)))
2475 org-export-odt-convert-processes))))
2477 (defcustom org-export-odt-convert-capabilities
2478 '(("Text"
2479 ("odt" "ott" "doc" "rtf" "docx")
2480 (("pdf" "pdf") ("odt" "odt") ("rtf" "rtf") ("ott" "ott")
2481 ("doc" "doc" ":\"MS Word 97\"") ("docx" "docx") ("html" "html")))
2482 ("Web"
2483 ("html")
2484 (("pdf" "pdf") ("odt" "odt") ("html" "html")))
2485 ("Spreadsheet"
2486 ("ods" "ots" "xls" "csv" "xlsx")
2487 (("pdf" "pdf") ("ots" "ots") ("html" "html") ("csv" "csv") ("ods" "ods")
2488 ("xls" "xls") ("xlsx" "xlsx")))
2489 ("Presentation"
2490 ("odp" "otp" "ppt" "pptx")
2491 (("pdf" "pdf") ("swf" "swf") ("odp" "odp") ("otp" "otp") ("ppt" "ppt")
2492 ("pptx" "pptx") ("odg" "odg"))))
2493 "Specify input and output formats of `org-export-odt-convert-process'.
2494 More correctly, specify the set of input and output formats that
2495 the user is actually interested in.
2497 This variable is an alist where each element is of the
2498 form (DOCUMENT-CLASS INPUT-FMT-LIST OUTPUT-FMT-ALIST).
2499 INPUT-FMT-LIST is a list of INPUT-FMTs. OUTPUT-FMT-ALIST is an
2500 alist where each element is of the form (OUTPUT-FMT
2501 OUTPUT-FILE-EXTENSION EXTRA-OPTIONS).
2503 The variable is interpreted as follows:
2504 `org-export-odt-convert-process' can take any document that is in
2505 INPUT-FMT-LIST and produce any document that is in the
2506 OUTPUT-FMT-LIST. A document converted to OUTPUT-FMT will have
2507 OUTPUT-FILE-EXTENSION as the file name extension. OUTPUT-FMT
2508 serves dual purposes:
2509 - It is used for populating completion candidates during
2510 `org-export-odt-convert' commands.
2511 - It is used as the value of \"%f\" specifier in
2512 `org-export-odt-convert-process'.
2514 EXTRA-OPTIONS is used as the value of \"%x\" specifier in
2515 `org-export-odt-convert-process'.
2517 DOCUMENT-CLASS is used to group a set of file formats in
2518 INPUT-FMT-LIST in to a single class.
2520 Note that this variable inherently captures how LibreOffice based
2521 converters work. LibreOffice maps documents of various formats
2522 to classes like Text, Web, Spreadsheet, Presentation etc and
2523 allow document of a given class (irrespective of it's source
2524 format) to be converted to any of the export formats associated
2525 with that class.
2527 See default setting of this variable for an typical
2528 configuration."
2529 :group 'org-export-odt
2530 :version "24.1"
2531 :type
2532 '(choice
2533 (const :tag "None" nil)
2534 (alist :tag "Capabilities"
2535 :key-type (string :tag "Document Class")
2536 :value-type
2537 (group (repeat :tag "Input formats" (string :tag "Input format"))
2538 (alist :tag "Output formats"
2539 :key-type (string :tag "Output format")
2540 :value-type
2541 (group (string :tag "Output file extension")
2542 (choice
2543 (const :tag "None" nil)
2544 (string :tag "Extra options"))))))))
2546 (declare-function org-create-math-formula "org"
2547 (latex-frag &optional mathml-file))
2549 ;;;###autoload
2550 (defun org-export-odt-convert (&optional in-file out-fmt prefix-arg)
2551 "Convert IN-FILE to format OUT-FMT using a command line converter.
2552 IN-FILE is the file to be converted. If unspecified, it defaults
2553 to variable `buffer-file-name'. OUT-FMT is the desired output
2554 format. Use `org-export-odt-convert-process' as the converter.
2555 If PREFIX-ARG is non-nil then the newly converted file is opened
2556 using `org-open-file'."
2557 (interactive
2558 (append (org-lparse-convert-read-params) current-prefix-arg))
2559 (org-lparse-do-convert in-file out-fmt prefix-arg))
2561 (defun org-odt-get (what &optional opt-plist)
2562 (case what
2563 (BACKEND 'odt)
2564 (EXPORT-DIR (org-export-directory :html opt-plist))
2565 (FILE-NAME-EXTENSION "odt")
2566 (EXPORT-BUFFER-NAME "*Org ODT Export*")
2567 (ENTITY-CONTROL org-odt-entity-control-callbacks-alist)
2568 (ENTITY-FORMAT org-odt-entity-format-callbacks-alist)
2569 (INIT-METHOD 'org-odt-init-outfile)
2570 (FINAL-METHOD 'org-odt-finalize-outfile)
2571 (SAVE-METHOD 'org-odt-save-as-outfile)
2572 (CONVERT-METHOD
2573 (and org-export-odt-convert-process
2574 (cadr (assoc-string org-export-odt-convert-process
2575 org-export-odt-convert-processes t))))
2576 (CONVERT-CAPABILITIES
2577 (and org-export-odt-convert-process
2578 (cadr (assoc-string org-export-odt-convert-process
2579 org-export-odt-convert-processes t))
2580 org-export-odt-convert-capabilities))
2581 (TOPLEVEL-HLEVEL 1)
2582 (SPECIAL-STRING-REGEXPS org-export-odt-special-string-regexps)
2583 (INLINE-IMAGES 'maybe)
2584 (INLINE-IMAGE-EXTENSIONS '("png" "jpeg" "jpg" "gif" "svg"))
2585 (PLAIN-TEXT-MAP '(("&" . "&amp;") ("<" . "&lt;") (">" . "&gt;")))
2586 (TABLE-FIRST-COLUMN-AS-LABELS nil)
2587 (FOOTNOTE-SEPARATOR (org-lparse-format 'FONTIFY "," 'superscript))
2588 (CODING-SYSTEM-FOR-WRITE 'utf-8)
2589 (CODING-SYSTEM-FOR-SAVE 'utf-8)
2590 (t (error "Unknown property: %s" what))))
2592 (defvar org-lparse-latex-fragment-fallback) ; set by org-do-lparse
2593 (defun org-export-odt-do-preprocess-latex-fragments ()
2594 "Convert LaTeX fragments to images."
2595 (let* ((latex-frag-opt (plist-get org-lparse-opt-plist :LaTeX-fragments))
2596 (latex-frag-opt ; massage the options
2597 (or (and (member latex-frag-opt '(mathjax t))
2598 (not (and (fboundp 'org-format-latex-mathml-available-p)
2599 (org-format-latex-mathml-available-p)))
2600 (prog1 org-lparse-latex-fragment-fallback
2601 (org-lparse-warn
2602 (concat
2603 "LaTeX to MathML converter not available. "
2604 (format "Using %S instead."
2605 org-lparse-latex-fragment-fallback)))))
2606 latex-frag-opt))
2607 cache-dir display-msg)
2608 (cond
2609 ((eq latex-frag-opt 'dvipng)
2610 (setq cache-dir "ltxpng/")
2611 (setq display-msg "Creating LaTeX image %s"))
2612 ((member latex-frag-opt '(mathjax t))
2613 (setq latex-frag-opt 'mathml)
2614 (setq cache-dir "ltxmathml/")
2615 (setq display-msg "Creating MathML formula %s")))
2616 (when (and org-current-export-file)
2617 (org-format-latex
2618 (concat cache-dir (file-name-sans-extension
2619 (file-name-nondirectory org-current-export-file)))
2620 org-current-export-dir nil display-msg
2621 nil nil latex-frag-opt))))
2623 (defadvice org-format-latex-as-mathml
2624 (after org-odt-protect-latex-fragment activate)
2625 "Encode LaTeX fragment as XML.
2626 Do this when translation to MathML fails."
2627 (when (or (not (> (length ad-return-value) 0))
2628 (get-text-property 0 'org-protected ad-return-value))
2629 (setq ad-return-value
2630 (org-propertize (org-odt-encode-plain-text (ad-get-arg 0))
2631 'org-protected t))))
2633 (defun org-export-odt-preprocess-latex-fragments ()
2634 (when (equal org-export-current-backend 'odt)
2635 (org-export-odt-do-preprocess-latex-fragments)))
2637 (defun org-export-odt-preprocess-label-references ()
2638 (goto-char (point-min))
2639 (let (label label-components category value pretty-label)
2640 (while (re-search-forward "\\\\ref{\\([^{}\n]+\\)}" nil t)
2641 (org-if-unprotected-at (match-beginning 1)
2642 (replace-match
2643 (let ((org-lparse-encode-pending t)
2644 (label (match-string 1)))
2645 ;; markup generated below is mostly an eye-candy. At
2646 ;; pre-processing stage, there is no information on which
2647 ;; entity a label reference points to. The actual markup
2648 ;; is generated as part of `org-odt-fixup-label-references'
2649 ;; which gets called at the fag end of export. By this
2650 ;; time we would have seen and collected all the label
2651 ;; definitions in `org-odt-entity-labels-alist'.
2652 (org-odt-format-tags
2653 '("<text:sequence-ref text:ref-name=\"%s\">" .
2654 "</text:sequence-ref>")
2655 "" (org-add-props label '(org-protected t)))) t t)))))
2657 ;; process latex fragments as part of
2658 ;; `org-export-preprocess-after-blockquote-hook'. Note that this hook
2659 ;; is the one that is closest and well before the call to
2660 ;; `org-export-attach-captions-and-attributes' in
2661 ;; `org-export-preprocess-string'. The above arrangement permits
2662 ;; captions, labels and attributes to be attached to png images
2663 ;; generated out of latex equations.
2664 (add-hook 'org-export-preprocess-after-blockquote-hook
2665 'org-export-odt-preprocess-latex-fragments)
2667 (defun org-export-odt-preprocess (parameters)
2668 (org-export-odt-preprocess-label-references))
2670 (declare-function archive-zip-extract "arc-mode.el" (archive name))
2671 (defun org-odt-zip-extract-one (archive member &optional target)
2672 (require 'arc-mode)
2673 (let* ((target (or target default-directory))
2674 (archive (expand-file-name archive))
2675 (archive-zip-extract
2676 (list "unzip" "-qq" "-o" "-d" target))
2677 exit-code command-output)
2678 (setq command-output
2679 (with-temp-buffer
2680 (setq exit-code (archive-zip-extract archive member))
2681 (buffer-string)))
2682 (unless (zerop exit-code)
2683 (message command-output)
2684 (error "Extraction failed"))))
2686 (defun org-odt-zip-extract (archive members &optional target)
2687 (when (atom members) (setq members (list members)))
2688 (mapc (lambda (member)
2689 (org-odt-zip-extract-one archive member target))
2690 members))
2692 (defun org-odt-copy-styles-file (&optional styles-file)
2693 ;; Non-availability of styles.xml is not a critical error. For now
2694 ;; throw an error purely for aesthetic reasons.
2695 (setq styles-file (or styles-file
2696 org-export-odt-styles-file
2697 (expand-file-name "OrgOdtStyles.xml"
2698 org-odt-styles-dir)
2699 (error "org-odt: Missing styles file?")))
2700 (cond
2701 ((listp styles-file)
2702 (let ((archive (nth 0 styles-file))
2703 (members (nth 1 styles-file)))
2704 (org-odt-zip-extract archive members)
2705 (mapc
2706 (lambda (member)
2707 (when (org-file-image-p member)
2708 (let* ((image-type (file-name-extension member))
2709 (media-type (format "image/%s" image-type)))
2710 (org-odt-create-manifest-file-entry media-type member))))
2711 members)))
2712 ((and (stringp styles-file) (file-exists-p styles-file))
2713 (let ((styles-file-type (file-name-extension styles-file)))
2714 (cond
2715 ((string= styles-file-type "xml")
2716 (copy-file styles-file "styles.xml" t))
2717 ((member styles-file-type '("odt" "ott"))
2718 (org-odt-zip-extract styles-file "styles.xml")))))
2720 (error (format "Invalid specification of styles.xml file: %S"
2721 org-export-odt-styles-file))))
2723 ;; create a manifest entry for styles.xml
2724 (org-odt-create-manifest-file-entry "text/xml" "styles.xml"))
2726 (defun org-odt-configure-outline-numbering (level)
2727 "Outline numbering is retained only upto LEVEL.
2728 To disable outline numbering pass a LEVEL of 0."
2729 (goto-char (point-min))
2730 (let ((regex
2731 "<text:outline-level-style\\([^>]*\\)text:level=\"\\([^\"]*\\)\"\\([^>]*\\)>")
2732 (replacement
2733 "<text:outline-level-style\\1text:level=\"\\2\" style:num-format=\"\">"))
2734 (while (re-search-forward regex nil t)
2735 (when (> (string-to-number (match-string 2)) level)
2736 (replace-match replacement t nil))))
2737 (save-buffer 0))
2739 ;;;###autoload
2740 (defun org-export-as-odf (latex-frag &optional odf-file)
2741 "Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
2742 Use `org-create-math-formula' to convert LATEX-FRAG first to
2743 MathML. When invoked as an interactive command, use
2744 `org-latex-regexps' to infer LATEX-FRAG from currently active
2745 region. If no LaTeX fragments are found, prompt for it. Push
2746 MathML source to kill ring, if `org-export-copy-to-kill-ring' is
2747 non-nil."
2748 (interactive
2749 `(,(let (frag)
2750 (setq frag (and (setq frag (and (region-active-p)
2751 (buffer-substring (region-beginning)
2752 (region-end))))
2753 (loop for e in org-latex-regexps
2754 thereis (when (string-match (nth 1 e) frag)
2755 (match-string (nth 2 e) frag)))))
2756 (read-string "LaTeX Fragment: " frag nil frag))
2757 ,(let ((odf-filename (expand-file-name
2758 (concat
2759 (file-name-sans-extension
2760 (or (file-name-nondirectory buffer-file-name)))
2761 "." "odf")
2762 (file-name-directory buffer-file-name))))
2763 (read-file-name "ODF filename: " nil odf-filename nil
2764 (file-name-nondirectory odf-filename)))))
2765 (let* ((org-lparse-backend 'odf)
2766 org-lparse-opt-plist
2767 (filename (or odf-file
2768 (expand-file-name
2769 (concat
2770 (file-name-sans-extension
2771 (or (file-name-nondirectory buffer-file-name)))
2772 "." "odf")
2773 (file-name-directory buffer-file-name))))
2774 (buffer (find-file-noselect (org-odt-init-outfile filename)))
2775 (coding-system-for-write 'utf-8)
2776 (save-buffer-coding-system 'utf-8))
2777 (set-buffer buffer)
2778 (set-buffer-file-coding-system coding-system-for-write)
2779 (let ((mathml (org-create-math-formula latex-frag)))
2780 (unless mathml (error "No Math formula created"))
2781 (insert mathml)
2782 (or (org-export-push-to-kill-ring
2783 (upcase (symbol-name org-lparse-backend)))
2784 (message "Exporting... done")))
2785 (org-odt-save-as-outfile filename nil)))
2787 ;;;###autoload
2788 (defun org-export-as-odf-and-open ()
2789 "Export LaTeX fragment as OpenDocument formula and immediately open it.
2790 Use `org-export-as-odf' to read LaTeX fragment and OpenDocument
2791 formula file."
2792 (interactive)
2793 (org-lparse-and-open
2794 nil nil nil (call-interactively 'org-export-as-odf)))
2796 (provide 'org-odt)
2798 ;;; org-odt.el ends here