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/>.
31 (defgroup org-export-odt nil
32 "Options specific for ODT export of Org-mode files."
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))
42 "\\(<text:p [^>]*>\\)?\\s-*\\[TABLE-OF-CONTENTS\\]\\s-*\\(</text:p>\\)?"
46 (goto-char org-lparse-dyn-first-heading-pos
)))
47 (insert (org-odt-format-toc)))
49 (defun org-odt-end-export ()
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>"
59 (goto-char (point-min))
61 ;; Convert whitespace place holders
62 (goto-char (point-min))
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
))
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 '(("\\\\-" .
"­\\1") ; shy
82 ("---\\([^-]\\)" .
"—\\1") ; mdash
83 ("--\\([^-]\\)" .
"–\\1") ; ndash
84 ("\\.\\.\\." .
"…")) ; 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
100 (expand-file-name "./schema/" org-odt-data-dir
)) ; bail out
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
115 (message "Debug (org-odt): Searching for OpenDocument schema files...")
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"
124 (expand-file-name "od-schema-v1.2-cs01.rnc"
127 (expand-file-name "schemas.xml" schema-dir
)))
128 (message "Debug (org-odt): Using schema files under %s"
130 (throw 'schema-dir schema-dir
))))
131 org-odt-schema-dir-list
)
132 (message "Debug (org-odt): No OpenDocument schema files installed")
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."
153 (const :tag
"Not set" nil
)
154 (directory :tag
"Schema directory"))
155 :group
'org-export-odt
159 "Set `org-export-odt-schema-dir'.
160 Also add it to `rng-schema-locating-files'."
161 (let ((schema-dir value
))
165 (expand-file-name "od-manifest-schema-v1.2-cs01.rnc" schema-dir
))
167 (expand-file-name "od-schema-v1.2-cs01.rnc" schema-dir
))
169 (expand-file-name "schemas.xml" schema-dir
)))
172 (message "Error (org-odt): %s has no OpenDocument schema files"
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
183 (and org-odt-data-dir
184 (expand-file-name "./styles/" org-odt-data-dir
)) ; bail out
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
200 (message "Debug (org-odt): Searching for OpenDocument styles files...")
201 (mapc (lambda (styles-dir)
203 (message "Debug (org-odt): Trying %s..." styles-dir
)
204 (when (and (file-readable-p
206 "OrgOdtContentTemplate.xml" styles-dir
))
209 "OrgOdtStyles.xml" styles-dir
)))
210 (message "Debug (org-odt): Using styles under %s"
212 (throw 'styles-dir styles-dir
))))
213 org-odt-styles-dir-list
)
216 (error "Error (org-odt): Cannot find factory styles files. Aborting."))
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
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")))
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
)
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."
276 :group
'org-export-odt
279 (defcustom org-export-odt-styles-file nil
280 "Default styles file for use with ODT export.
281 Valid values are one of:
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
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
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
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")
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
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."
346 :group
'org-export-odt
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
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
368 (defvar org-export-odt-default-org-styles-alist
369 '((paragraph .
((default .
"Text_20_body")
370 (fixedwidth .
"OrgFixedWidthBlock")
372 (quote .
"Quotations")
373 (blockquote .
"Quotations")
374 (center .
"OrgCenter")
378 (subtitle .
"OrgSubtitle")
379 (footnote .
"Footnote")
380 (src .
"OrgSrcBlock")
381 (illustration .
"Illustration")
383 (definition-term .
"Text_20_body_20_bold")
384 (horizontal-line .
"Horizontal_20_Line")))
385 (character .
((bold .
"Bold")
386 (emphasis .
"Emphasis")
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"
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
419 :type
'(choice :convert-widget
421 (apply 'widget-convert
(widget-type w
)
422 (eval (car (widget-get w
:args
)))))
423 `((const :tag
"None" nil
)
424 ,@(mapcar (lambda (c)
426 (org-lparse-reachable-formats "odt")))))
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."
436 (or org-export-odt-preferred-output-format
"odt") "odt" arg
))
439 (defun org-export-as-odt-batch ()
440 "Call the function `org-lparse-batch'.
441 This function can be used in batch processing as:
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
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."
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
472 .
(org-odt-begin-export org-odt-end-export
))
474 .
(org-odt-begin-document-content org-odt-end-document-content
))
476 .
(org-odt-begin-document-body org-odt-end-document-body
))
478 .
(org-odt-begin-toc org-odt-end-toc
))
480 .
(org-odt-begin-environment org-odt-end-environment
))
482 .
(org-odt-begin-footnote-definition org-odt-end-footnote-definition
))
484 .
(org-odt-begin-table org-odt-end-table
))
486 .
(org-odt-begin-table-rowgroup org-odt-end-table-rowgroup
))
488 .
(org-odt-begin-list org-odt-end-list
))
490 .
(org-odt-begin-list-item org-odt-end-list-item
))
492 .
(org-odt-begin-outline org-odt-end-outline
))
494 .
(org-odt-begin-outline-text org-odt-end-outline-text
))
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
))
529 ;;;_. control callbacks
531 (defun org-odt-begin-office-body ()
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
)))
562 (org-odt-format-stylized-paragraph
563 'title
(org-odt-format-tags
564 '("<text:title>" .
"</text:title>") title
))
566 "<text:p text:style-name=\"OrgTitle\"/>"))
568 ((and author
(not email
))
571 (org-odt-format-stylized-paragraph
574 '("<text:initial-creator>" .
"</text:initial-creator>")
577 "<text:p text:style-name=\"OrgSubtitle\"/>"))
581 (org-odt-format-stylized-paragraph
585 '("<text:initial-creator>" .
"</text:initial-creator>")
586 author
) (concat "mailto:" email
)))
588 "<text:p text:style-name=\"OrgSubtitle\"/>")))
592 (org-odt-format-stylized-paragraph
595 '("<text:date style:data-style-name=\"%s\" text:date-value=\"%s\">"
596 .
"</text:date>") date
"N75" iso-date
))
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)
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
)
621 'HEADING
(org-lparse-format
622 'HEADLINE title extra-targets tags snumber level1
)
625 (defun org-odt-end-outline ()
628 (defun org-odt-begin-outline-text (level1 snumber class
)
631 (defun org-odt-end-outline-text ()
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)
654 ((stringp style
) style
)
655 ((symbolp style
) (org-odt-get-style-name-for-entity
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
)
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
)
674 (and (stringp org-ts
)
675 (string-match org-ts-regexp0 org-ts
)
677 (org-fix-decoded-time
678 (org-parse-time-string (match-string 0 org-ts
) t
)))))
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
))
689 (insert (org-odt-format-tags
690 '("<dc:date>" .
"</dc: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
)
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
)
708 (org-lparse-end-paragraph)
710 (t (error "Unknown environment %s" style
))))
712 (defun org-odt-end-environment (style env-options-plist
)
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)
722 (org-lparse-begin-paragraph)
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
)
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\"")
738 (format " text:style-name=\"%s\"" style-name
)))))
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
)
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
)
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)))
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
)))))
772 (assert (not headline
) t
)
773 (let ((term (or arg
"(no term)")))
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
)
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>")))
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 +
848 PARAGRAPH-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +
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\"
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\"
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
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
913 use-first-column-styles
914 use-last-column-styles
915 use-banding-rows-styles
916 use-banding-columns-styles
)
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\"/>
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:
932 \(\(OBJECT-NAME-A.1 OBJECT-PROPS-A.1\)
933 \(OBJECT-NAME-A.2 OBJECT-PROPS-A.2\) ...\)\)
935 \(\(OBJECT-NAME-B.1 OBJECT-PROPS-B.1\)
936 \(OBJECT-NAME-B.2 OBJECT-PROPS-B.2\) ...\)\)
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\"."
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
974 (assert (stringp object-type
))
975 (let* ((object (intern object-type
))
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
))
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
))
1006 (org-odt-format-stylized-paragraph
1007 'table
(org-odt-format-entity-caption label caption
"__Table__")))
1008 (let ((name-and-style (org-odt-add-automatic-style "Table" attributes
)))
1009 (org-lparse-insert-tag
1010 "<table:table table:name=\"%s\" table:style-name=\"%s\">"
1011 (car name-and-style
) (or (nth 1 org-odt-table-style-spec
)
1012 (cdr name-and-style
) "OrgTable")))
1013 (setq org-lparse-table-begin-marker
(point)))
1015 (defvar org-lparse-table-colalign-info
)
1016 (defun org-odt-end-table ()
1017 (goto-char org-lparse-table-begin-marker
)
1018 (loop for level from
0 below org-lparse-table-ncols
1019 do
(let* ((col-cookie (and org-lparse-table-is-styled
1020 (cdr (assoc (1+ level
)
1021 org-lparse-table-colalign-info
))))
1022 (extra-columns (or (nth 1 col-cookie
) 0)))
1023 (dotimes (i (1+ extra-columns
))
1025 (org-odt-format-tags
1026 "<table:table-column table:style-name=\"%sColumn\"/>"
1027 "" (or (nth 1 org-odt-table-style-spec
) "OrgTable"))))
1029 ;; fill style attributes for table cells
1030 (when org-lparse-table-is-styled
1031 (while (re-search-forward "@@\\(table-cell:p\\|table-cell:style-name\\)@@\\([0-9]+\\)@@\\([0-9]+\\)@@" nil t
)
1032 (let* ((spec (match-string 1))
1033 (r (string-to-number (match-string 2)))
1034 (c (string-to-number (match-string 3)))
1035 (cell-styles (org-odt-get-table-cell-styles
1036 r c org-odt-table-style-spec
))
1037 (table-cell-style (car cell-styles
))
1038 (table-cell-paragraph-style (cdr cell-styles
)))
1040 ((equal spec
"table-cell:p")
1041 (replace-match table-cell-paragraph-style t t
))
1042 ((equal spec
"table-cell:style-name")
1043 (replace-match table-cell-style t t
))))))
1044 (goto-char (point-max))
1045 (org-lparse-insert-tag "</table:table>")
1046 (when org-odt-table-indentedp
1047 (org-odt-end-section)
1048 (org-odt-continue-list)))
1050 (defun org-odt-begin-table-rowgroup (&optional is-header-row
)
1051 (when org-lparse-table-rowgrp-open
1052 (org-lparse-end 'TABLE-ROWGROUP
))
1053 (org-lparse-insert-tag (if is-header-row
1054 "<table:table-header-rows>"
1055 "<table:table-rows>"))
1056 (setq org-lparse-table-rowgrp-open t
)
1057 (setq org-lparse-table-cur-rowgrp-is-hdr is-header-row
))
1059 (defun org-odt-end-table-rowgroup ()
1060 (when org-lparse-table-rowgrp-open
1061 (setq org-lparse-table-rowgrp-open nil
)
1062 (org-lparse-insert-tag
1063 (if org-lparse-table-cur-rowgrp-is-hdr
1064 "</table:table-header-rows>" "</table:table-rows>"))))
1066 (defun org-odt-format-table-row (row)
1067 (org-odt-format-tags
1068 '("<table:table-row>" .
"</table:table-row>") row
))
1070 (defun org-odt-get-table-cell-styles (r c
&optional style-spec
)
1071 "Retrieve styles applicable to a table cell.
1072 R and C are (zero-based) row and column numbers of the table
1073 cell. STYLE-SPEC is an entry in `org-export-odt-table-styles'
1074 applicable to the current table. It is `nil' if the table is not
1075 associated with any style attributes.
1077 Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME).
1079 When STYLE-SPEC is nil, style the table cell the conventional way
1080 - choose cell borders based on row and column groupings and
1081 choose paragraph alignment based on `org-col-cookies' text
1083 `org-odt-get-paragraph-style-cookie-for-table-cell'.
1085 When STYLE-SPEC is non-nil, ignore the above cookie and return
1086 styles congruent with the ODF-1.2 specification."
1090 ;; LibreOffice - particularly the Writer - honors neither table
1091 ;; templates nor custom table-cell styles. Inorder to retain
1092 ;; inter-operability with LibreOffice, only automatic styles are
1093 ;; used for styling of table-cells. The current implementation is
1094 ;; congruent with ODF-1.2 specification and hence is
1095 ;; future-compatible.
1097 ;; Additional Note: LibreOffice's AutoFormat facility for tables -
1098 ;; which recognizes as many as 16 different cell types - is much
1099 ;; richer. Unfortunately it is NOT amenable to easy configuration
1102 (let* ((template-name (nth 1 style-spec
))
1103 (cell-style-selectors (nth 2 style-spec
))
1106 ((and (cdr (assoc 'use-first-column-styles cell-style-selectors
))
1107 (= c
0)) "FirstColumn")
1108 ((and (cdr (assoc 'use-last-column-styles cell-style-selectors
))
1109 (= c
(1- org-lparse-table-ncols
))) "LastColumn")
1110 ((and (cdr (assoc 'use-first-row-styles cell-style-selectors
))
1111 (= r
0)) "FirstRow")
1112 ((and (cdr (assoc 'use-last-row-styles cell-style-selectors
))
1113 (= r org-lparse-table-rownum
))
1115 ((and (cdr (assoc 'use-banding-rows-styles cell-style-selectors
))
1116 (= (% r
2) 1)) "EvenRow")
1117 ((and (cdr (assoc 'use-banding-rows-styles cell-style-selectors
))
1118 (= (% r
2) 0)) "OddRow")
1119 ((and (cdr (assoc 'use-banding-columns-styles cell-style-selectors
))
1120 (= (% c
2) 1)) "EvenColumn")
1121 ((and (cdr (assoc 'use-banding-columns-styles cell-style-selectors
))
1122 (= (% c
2) 0)) "OddColumn")
1125 (concat template-name cell-type
"TableCell")
1126 (concat template-name cell-type
"TableParagraph"))))
1133 ((eq (cdr (assoc r org-lparse-table-rowgrp-info
)) :start
) "T")
1135 (when (= r org-lparse-table-rownum
) "B")
1138 ((or (memq (nth c org-table-colgroup-info
) '(:start
:startend
))
1139 (memq (nth (1- c
) org-table-colgroup-info
) '(:end
:startend
))) "L")
1141 (capitalize (aref org-lparse-table-colalign-vector c
))))))
1143 (defun org-odt-get-paragraph-style-cookie-for-table-cell (r c
)
1145 (and (not org-odt-table-style-spec
)
1147 (org-lparse-table-cur-rowgrp-is-hdr "OrgTableHeading")
1148 ((and (= c
0) (org-lparse-get 'TABLE-FIRST-COLUMN-AS-LABELS
))
1150 (t "OrgTableContents")))
1151 (and org-lparse-table-is-styled
1152 (format "@@table-cell:p@@%03d@@%03d@@" r c
))))
1154 (defun org-odt-get-style-name-cookie-for-table-cell (r c
)
1155 (when org-lparse-table-is-styled
1156 (format "@@table-cell:style-name@@%03d@@%03d@@" r c
)))
1158 (defun org-odt-format-table-cell (data r c horiz-span
)
1160 (let* ((paragraph-style-cookie
1161 (org-odt-get-paragraph-style-cookie-for-table-cell r c
))
1163 (org-odt-get-style-name-cookie-for-table-cell r c
))
1164 (extra (and style-name-cookie
1165 (format " table:style-name=\"%s\"" style-name-cookie
)))
1166 (extra (concat extra
1167 (and (> horiz-span
0)
1168 (format " table:number-columns-spanned=\"%d\""
1169 (1+ horiz-span
))))))
1170 (org-odt-format-tags
1171 '("<table:table-cell%s>" .
"</table:table-cell>")
1172 (if org-lparse-list-table-p data
1173 (org-odt-format-stylized-paragraph paragraph-style-cookie data
)) extra
))
1175 (dotimes (i horiz-span
)
1176 (setq s
(concat s
"\n<table:covered-table-cell/>"))) s
)
1179 (defun org-odt-begin-footnote-definition (n)
1180 (org-lparse-begin-paragraph 'footnote
))
1182 (defun org-odt-end-footnote-definition (n)
1183 (org-lparse-end-paragraph))
1185 (defun org-odt-begin-toc (lang-specific-heading max-level
)
1188 <text:table-of-content text:style-name=\"Sect2\" text:protected=\"true\" text:name=\"Table of Contents1\">
1189 <text:table-of-content-source text:outline-level=\"%d\">
1190 <text:index-title-template text:style-name=\"Contents_20_Heading\">%s</text:index-title-template>
1191 " max-level lang-specific-heading
))
1192 (loop for level from
1 upto
10
1195 <text:table-of-content-entry-template text:outline-level=\"%d\" text:style-name=\"Contents_20_%d\">
1196 <text:index-entry-link-start text:style-name=\"Internet_20_link\"/>
1197 <text:index-entry-chapter/>
1198 <text:index-entry-text/>
1199 <text:index-entry-link-end/>
1200 </text:table-of-content-entry-template>
1205 </text:table-of-content-source>
1208 <text:index-title text:style-name=\"Sect1\" text:name=\"Table of Contents1_Head\">
1209 <text:p text:style-name=\"Contents_20_Heading\">%s</text:p>
1211 " lang-specific-heading
)))
1213 (defun org-odt-end-toc ()
1216 </text:table-of-content>
1219 (defun org-odt-format-toc-entry (snumber todo headline tags href
)
1220 (setq headline
(concat
1221 (and org-export-with-section-numbers
1222 (concat snumber
". "))
1226 (org-lparse-format 'SPACES
3)
1227 (org-lparse-format 'FONTIFY tags
"tag")))))
1229 (setq headline
(org-lparse-format 'FONTIFY headline
"todo")))
1231 (let ((org-odt-suppress-xref t
))
1232 (org-odt-format-link headline
(concat "#" href
))))
1234 (defun org-odt-format-toc-item (toc-entry level org-last-level
)
1235 (let ((style (format "Contents_20_%d"
1236 (+ level
(or (org-lparse-get 'TOPLEVEL-HLEVEL
) 1) -
1))))
1237 (insert "\n" (org-odt-format-stylized-paragraph style toc-entry
) "\n")))
1239 ;; Following variable is let bound during 'ORG-LINK callback. See
1241 (defvar org-lparse-link-description-is-image nil
)
1242 (defun org-odt-format-link (desc href
&optional attr
)
1244 ((and (= (string-to-char href
) ?
#) (not org-odt-suppress-xref
))
1245 (setq href
(concat org-export-odt-bookmark-prefix
(substring href
1)))
1246 (let ((xref-format "text"))
1247 (when (numberp desc
)
1248 (setq desc
(format "%d" desc
) xref-format
"number"))
1249 (org-odt-format-tags
1250 '("<text:bookmark-ref text:reference-format=\"%s\" text:ref-name=\"%s\">" .
1251 "</text:bookmark-ref>")
1252 desc xref-format href
)))
1253 (org-lparse-link-description-is-image
1254 (org-odt-format-tags
1255 '("<draw:a xlink:type=\"simple\" xlink:href=\"%s\" %s>" .
"</draw:a>")
1256 desc href
(or attr
"")))
1258 (org-odt-format-tags
1259 '("<text:a xlink:type=\"simple\" xlink:href=\"%s\" %s>" .
"</text:a>")
1260 desc href
(or attr
"")))))
1262 (defun org-odt-format-spaces (n)
1266 " " (org-odt-format-tags "<text:s text:c=\"%d\"/>" "" (1- n
))))
1269 (defun org-odt-format-tabs (&optional n
)
1270 (let ((tab "<text:tab/>")
1274 (defun org-odt-format-line-break ()
1275 (org-odt-format-tags "<text:line-break/>" ""))
1277 (defun org-odt-format-horizontal-line ()
1278 (org-odt-format-stylized-paragraph 'horizontal-line
""))
1280 (defun org-odt-encode-plain-text (line &optional no-whitespace-filling
)
1281 (setq line
(org-xml-encode-plain-text line
))
1282 (if no-whitespace-filling line
1283 (org-odt-fill-tabs-and-spaces line
)))
1285 (defun org-odt-format-line (line)
1286 (case org-lparse-dyn-current-environment
1288 (org-odt-format-stylized-paragraph
1289 'fixedwidth
(org-odt-encode-plain-text line
)) "\n"))
1290 (t (concat line
"\n"))))
1292 (defun org-odt-format-comment (fmt &rest args
)
1293 (let ((comment (apply 'format fmt args
)))
1294 (format "\n<!-- %s -->\n" comment
)))
1296 (defun org-odt-format-org-entity (wd)
1297 (org-entity-get-representation wd
'utf8
))
1299 (defun org-odt-fill-tabs-and-spaces (line)
1300 (replace-regexp-in-string
1301 "\\([\t]\\|\\([ ]+\\)\\)" (lambda (s)
1303 ((string= s
"\t") (org-odt-format-tabs))
1304 (t (org-odt-format-spaces (length s
))))) line
))
1306 (defcustom org-export-odt-fontify-srcblocks t
1307 "Specify whether or not source blocks need to be fontified.
1308 Turn this option on if you want to colorize the source code
1309 blocks in the exported file. For colorization to work, you need
1310 to make available an enhanced version of `htmlfontify' library."
1312 :group
'org-export-odt
1315 (defun org-odt-format-source-line-with-line-number-and-label
1316 (line rpllbl num fontifier par-style
)
1318 (let ((keep-label (not (numberp rpllbl
)))
1319 (ref (org-find-text-property-in-string 'org-coderef line
)))
1320 (setq line
(concat line
(and keep-label ref
(format "(%s)" ref
))))
1321 (setq line
(funcall fontifier line
))
1323 (setq line
(org-odt-format-target line
(concat "coderef-" ref
))))
1324 (setq line
(org-odt-format-stylized-paragraph par-style line
))
1326 (org-odt-format-tags '("<text:list-item>" .
"</text:list-item>") line
))))
1328 (defun org-odt-format-source-code-or-example-plain
1329 (lines lang caption textareap cols rows num cont rpllbl fmt
)
1330 "Format source or example blocks much like fixedwidth blocks.
1331 Use this when `org-export-odt-fontify-srcblocks' option is turned
1333 (let* ((lines (org-split-string lines
"[\r\n]"))
1334 (line-count (length lines
))
1339 (org-odt-format-source-line-with-line-number-and-label
1340 line rpllbl num
'org-odt-encode-plain-text
1341 (if (= i line-count
) "OrgFixedWidthBlockLastLine"
1342 "OrgFixedWidthBlock")))
1345 (defvar org-src-block-paragraph-format
1346 "<style:style style:name=\"OrgSrcBlock\" style:family=\"paragraph\" style:parent-style-name=\"Preformatted_20_Text\">
1347 <style:paragraph-properties fo:background-color=\"%s\" fo:padding=\"0.049cm\" fo:border=\"0.51pt solid #000000\" style:shadow=\"none\">
1348 <style:background-image/>
1349 </style:paragraph-properties>
1350 <style:text-properties fo:color=\"%s\"/>
1352 "Custom paragraph style for colorized source and example blocks.
1353 This style is much the same as that of \"OrgFixedWidthBlock\"
1354 except that the foreground and background colors are set
1355 according to the default face identified by the `htmlfontify'.")
1357 (defvar hfy-optimisations
)
1358 (declare-function hfy-face-to-style
"htmlfontify" (fn))
1359 (declare-function hfy-face-or-def-to-name
"htmlfontify" (fn))
1361 (defun org-odt-hfy-face-to-css (fn)
1362 "Create custom style for face FN.
1363 When FN is the default face, use it's foreground and background
1364 properties to create \"OrgSrcBlock\" paragraph style. Otherwise
1365 use it's color attribute to create a character style whose name
1366 is obtained from FN. Currently all attributes of FN other than
1369 The style name for a face FN is derived using the following
1370 operations on the face name in that order - de-dash, CamelCase
1371 and prefix with \"OrgSrc\". For example,
1372 `font-lock-function-name-face' is associated with
1373 \"OrgSrcFontLockFunctionNameFace\"."
1374 (let* ((css-list (hfy-face-to-style fn
))
1375 (style-name ((lambda (fn)
1378 'capitalize
(split-string
1379 (hfy-face-or-def-to-name fn
) "-")
1381 (color-val (cdr (assoc "color" css-list
)))
1382 (background-color-val (cdr (assoc "background" css-list
)))
1383 (style (and org-export-odt-create-custom-styles-for-srcblocks
1386 (format org-src-block-paragraph-format
1387 background-color-val color-val
))
1391 <style:style style:name=\"%s\" style:family=\"text\">
1392 <style:text-properties fo:color=\"%s\"/>
1393 </style:style>" style-name color-val
))))))
1394 (cons style-name style
)))
1396 (defun org-odt-insert-custom-styles-for-srcblocks (styles)
1397 "Save STYLES used for colorizing of source blocks.
1398 Update styles.xml with styles that were collected as part of
1399 `org-odt-hfy-face-to-css' callbacks."
1401 (with-current-buffer
1402 (find-file-noselect (expand-file-name "styles.xml") t
)
1403 (goto-char (point-min))
1404 (when (re-search-forward "</office:styles>" nil t
)
1405 (goto-char (match-beginning 0))
1406 (insert "\n<!-- Org Htmlfontify Styles -->\n" styles
"\n")))))
1408 (defun org-odt-format-source-code-or-example-colored
1409 (lines lang caption textareap cols rows num cont rpllbl fmt
)
1410 "Format source or example blocks using `htmlfontify-string'.
1411 Use this routine when `org-export-odt-fontify-srcblocks' option
1413 (let* ((lang-m (and lang
(or (cdr (assoc lang org-src-lang-modes
)) lang
)))
1414 (mode (and lang-m
(intern (concat (if (symbolp lang-m
)
1415 (symbol-name lang-m
)
1417 (org-inhibit-startup t
)
1418 (org-startup-folded nil
)
1419 (lines (with-temp-buffer
1421 (if (functionp mode
) (funcall mode
) (fundamental-mode))
1422 (font-lock-fontify-buffer)
1424 (hfy-html-quote-regex "\\([<\"&> ]\\)")
1425 (hfy-html-quote-map '(("\"" """)
1430 (" " "<text:tab/>")))
1431 (hfy-face-to-css 'org-odt-hfy-face-to-css
)
1432 (hfy-optimisations-1 (copy-seq hfy-optimisations
))
1433 (hfy-optimisations (add-to-list 'hfy-optimisations-1
1435 (hfy-begin-span-handler
1436 (lambda (style text-block text-id text-begins-block-p
)
1437 (insert (format "<text:span text:style-name=\"%s\">" style
))))
1438 (hfy-end-span-handler (lambda nil
(insert "</text:span>"))))
1439 (when (fboundp 'htmlfontify-string
)
1440 (let* ((lines (org-split-string lines
"[\r\n]"))
1441 (line-count (length lines
))
1446 (org-odt-format-source-line-with-line-number-and-label
1447 line rpllbl num
'htmlfontify-string
1448 (if (= i line-count
) "OrgSrcBlockLastLine" "OrgSrcBlock")))
1451 (defun org-odt-format-source-code-or-example (lines lang caption textareap
1454 "Format source or example blocks for export.
1455 Use `org-odt-format-source-code-or-example-plain' or
1456 `org-odt-format-source-code-or-example-colored' depending on the
1457 value of `org-export-odt-fontify-srcblocks."
1458 (setq lines
(org-export-number-lines
1459 lines
0 0 num cont rpllbl fmt
'preprocess
)
1461 (or (and org-export-odt-fontify-srcblocks
1462 (or (featurep 'htmlfontify
)
1463 ;; htmlfontify.el was introduced in Emacs 23.2
1464 ;; So load it with some caution
1465 (require 'htmlfontify nil t
))
1466 (fboundp 'htmlfontify-string
)
1467 'org-odt-format-source-code-or-example-colored
)
1468 'org-odt-format-source-code-or-example-plain
)
1469 lines lang caption textareap cols rows num cont rpllbl fmt
))
1471 (let ((extra (format " text:continue-numbering=\"%s\""
1472 (if cont
"true" "false"))))
1473 (org-odt-format-tags
1474 '("<text:list text:style-name=\"OrgSrcBlockNumberedLine\"%s>"
1475 .
"</text:list>") lines extra
))))
1477 (defun org-odt-remap-stylenames (style-name)
1479 (cdr (assoc style-name
'(("timestamp-wrapper" .
"OrgTimestampWrapper")
1480 ("timestamp" .
"OrgTimestamp")
1481 ("timestamp-kwd" .
"OrgTimestampKeyword")
1483 ("todo" .
"OrgTodo")
1484 ("done" .
"OrgDone")
1485 ("target" .
"OrgTarget"))))
1488 (defun org-odt-format-fontify (text style
&optional id
)
1492 (org-odt-remap-stylenames style
))
1494 (org-odt-get-style-name-for-entity 'character style
))
1496 (assert (< 1 (length style
)))
1497 (let ((parent-style (pop style
)))
1498 (mapconcat (lambda (s)
1499 ;; (assert (stringp s) t)
1500 (org-odt-remap-stylenames s
)) style
"")
1501 (org-odt-remap-stylenames parent-style
)))
1502 (t (error "Don't how to handle style %s" style
)))))
1503 (org-odt-format-tags
1504 '("<text:span text:style-name=\"%s\">" .
"</text:span>")
1507 (defun org-odt-relocate-relative-path (path dir
)
1508 (if (file-name-absolute-p path
) path
1509 (file-relative-name (expand-file-name path dir
)
1510 (expand-file-name "eyecandy" dir
))))
1512 (defun org-odt-format-inline-image (thefile)
1513 (let* ((thelink (if (file-name-absolute-p thefile
) thefile
1514 (org-xml-format-href
1515 (org-odt-relocate-relative-path
1516 thefile org-current-export-file
))))
1518 (org-odt-format-tags
1519 "<draw:image xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" ""
1520 (if org-export-odt-embed-images
1521 (org-odt-copy-image-file thefile
) thelink
))))
1522 (org-export-odt-format-image thefile href
)))
1524 (defun org-export-odt-format-formula (src href
)
1526 (let* ((caption (org-find-text-property-in-string 'org-caption src
))
1527 (caption (and caption
(org-xml-format-desc caption
)))
1528 (label (org-find-text-property-in-string 'org-label src
))
1529 (latex-frag (org-find-text-property-in-string 'org-latex-src src
))
1530 (embed-as (or (and latex-frag
1531 (org-find-text-property-in-string
1532 'org-latex-src-embed-type src
))
1533 (if (or caption label
) 'paragraph
'character
)))
1536 (setq href
(org-propertize href
:title
"LaTeX Fragment"
1537 :description latex-frag
)))
1539 ((eq embed-as
'character
)
1540 (org-odt-format-entity "InlineFormula" href width height
))
1542 (org-lparse-end-paragraph)
1543 (org-lparse-insert-list-table
1544 `((,(org-odt-format-entity
1545 (if caption
"CaptionedDisplayFormula" "DisplayFormula")
1546 href width height
:caption caption
:label nil
)
1548 (org-odt-format-entity-caption label nil
"__MathFormula__"))))
1549 nil nil nil
":style \"OrgEquation\"" nil
'((1 "c" 8) (2 "c" 1)))
1550 (throw 'nextline nil
))))))
1552 (defvar org-odt-embedded-formulas-count
0)
1553 (defun org-odt-copy-formula-file (path)
1554 "Returns the internal name of the file"
1555 (let* ((src-file (expand-file-name
1556 path
(file-name-directory org-current-export-file
)))
1557 (target-dir (format "Formula-%04d/"
1558 (incf org-odt-embedded-formulas-count
)))
1559 (target-file (concat target-dir
"content.xml")))
1560 (when (not org-lparse-to-buffer
)
1561 (message "Embedding %s as %s ..."
1562 (substring-no-properties path
) target-file
)
1564 (make-directory target-dir
)
1565 (org-odt-create-manifest-file-entry
1566 "application/vnd.oasis.opendocument.formula" target-dir
"1.2")
1568 (case (org-odt-is-formula-link-p src-file
)
1570 (copy-file src-file target-file
'overwrite
))
1572 (org-odt-zip-extract-one src-file
"content.xml" target-dir
))
1574 (error "%s is not a formula file" src-file
)))
1576 (org-odt-create-manifest-file-entry "text/xml" target-file
))
1579 (defun org-odt-format-inline-formula (thefile)
1580 (let* ((thelink (if (file-name-absolute-p thefile
) thefile
1581 (org-xml-format-href
1582 (org-odt-relocate-relative-path
1583 thefile org-current-export-file
))))
1585 (org-odt-format-tags
1586 "<draw:object xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" ""
1587 (file-name-directory (org-odt-copy-formula-file thefile
)))))
1588 (org-export-odt-format-formula thefile href
)))
1590 (defun org-odt-is-formula-link-p (file)
1591 (let ((case-fold-search nil
))
1593 ((string-match "\\.\\(mathml\\|mml\\)\\'" file
)
1595 ((string-match "\\.odf\\'" file
)
1598 (defun org-odt-format-org-link (opt-plist type-1 path fragment desc attr
1600 "Make a OpenDocument link.
1601 OPT-PLIST is an options list.
1602 TYPE-1 is the device-type of the link (THIS://foo.html).
1603 PATH is the path of the link (http://THIS#location).
1604 FRAGMENT is the fragment part of the link, if any (foo.html#THIS).
1605 DESC is the link description, if any.
1606 ATTR is a string of other attributes of the a element."
1607 (declare (special org-lparse-par-open
))
1609 (let* ((may-inline-p
1610 (and (member type-1
'("http" "https" "file"))
1611 (org-lparse-should-inline-p path descp
)
1613 (type (if (equal type-1
"id") "file" type-1
))
1617 ;; check for inlined images
1618 ((and (member type
'("file"))
1621 filename org-export-odt-inline-image-extensions
)
1622 (or (eq t org-export-odt-inline-images
)
1623 (and org-export-odt-inline-images
(not descp
))))
1624 (org-odt-format-inline-image thefile
))
1625 ;; check for embedded formulas
1626 ((and (member type
'("file"))
1628 (org-odt-is-formula-link-p filename
)
1630 (org-odt-format-inline-formula thefile
))
1631 ((string= type
"coderef")
1632 (let* ((ref fragment
)
1633 (lineno-or-ref (cdr (assoc ref org-export-code-refs
)))
1634 (desc (and descp desc
))
1635 (org-odt-suppress-xref nil
)
1636 (href (org-xml-format-href (concat "#coderef-" ref
))))
1638 ((and (numberp lineno-or-ref
) (not desc
))
1639 (org-odt-format-link lineno-or-ref href
))
1640 ((and (numberp lineno-or-ref
) desc
1641 (string-match (regexp-quote (concat "(" ref
")")) desc
))
1642 (format (replace-match "%s" t t desc
)
1643 (org-odt-format-link lineno-or-ref href
)))
1646 (if (and desc
(string-match
1647 (regexp-quote (concat "(" ref
")"))
1649 (replace-match "%s" t t desc
)
1652 (org-odt-format-link (org-xml-format-desc desc
) href
)))))
1654 (when (string= type
"file")
1657 ((file-name-absolute-p path
)
1658 (concat "file://" (expand-file-name path
)))
1659 (t (org-odt-relocate-relative-path
1660 thefile org-current-export-file
)))))
1662 (when (and (member type
'("" "http" "https" "file")) fragment
)
1663 (setq thefile
(concat thefile
"#" fragment
)))
1665 (setq thefile
(org-xml-format-href thefile
))
1667 (when (not (member type
'("" "file")))
1668 (setq thefile
(concat type
":" thefile
)))
1670 (let ((org-odt-suppress-xref nil
))
1671 (org-odt-format-link
1672 (org-xml-format-desc desc
) thefile attr
)))))))
1674 (defun org-odt-format-heading (text level
&optional id
)
1675 (let* ((text (if id
(org-odt-format-target text id
) text
)))
1676 (org-odt-format-tags
1677 '("<text:h text:style-name=\"Heading_20_%s\" text:outline-level=\"%s\">" .
1678 "</text:h>") text level level
)))
1680 (defun org-odt-format-headline (title extra-targets tags
1681 &optional snumber level
)
1683 (org-lparse-format 'EXTRA-TARGETS extra-targets
)
1685 ;; No need to generate section numbers. They are auto-generated by
1688 ;; (concat (org-lparse-format 'SECTION-NUMBER snumber level) " ")
1690 (and tags
(concat (org-lparse-format 'SPACES
3)
1691 (org-lparse-format 'ORG-TAGS tags
)))))
1693 (defun org-odt-format-anchor (text name
&optional class
)
1694 (org-odt-format-target text name
))
1696 (defun org-odt-format-bookmark (text id
)
1698 (org-odt-format-tags "<text:bookmark text:name=\"%s\"/>" text id
)
1701 (defun org-odt-format-target (text id
)
1702 (let ((name (concat org-export-odt-bookmark-prefix id
)))
1704 (and id
(org-odt-format-tags
1705 "<text:bookmark-start text:name=\"%s\"/>" "" name
))
1706 (org-odt-format-bookmark text id
)
1707 (and id
(org-odt-format-tags
1708 "<text:bookmark-end text:name=\"%s\"/>" "" name
)))))
1710 (defun org-odt-format-footnote (n def
)
1711 (let ((id (concat "fn" n
))
1712 (note-class "footnote")
1713 (par-style "Footnote"))
1714 (org-odt-format-tags
1715 '("<text:note text:id=\"%s\" text:note-class=\"%s\">" .
1718 (org-odt-format-tags
1719 '("<text:note-citation>" .
"</text:note-citation>")
1721 (org-odt-format-tags
1722 '("<text:note-body>" .
"</text:note-body>")
1726 (defun org-odt-format-footnote-reference (n def refcnt
)
1728 (org-odt-format-footnote n def
)
1729 (org-odt-format-footnote-ref n
)))
1731 (defun org-odt-format-footnote-ref (n)
1732 (let ((note-class "footnote")
1734 (ref-name (concat "fn" n
)))
1735 (org-odt-format-tags
1736 '("<text:span text:style-name=\"%s\">" .
"</text:span>")
1737 (org-odt-format-tags
1738 '("<text:note-ref text:note-class=\"%s\" text:reference-format=\"%s\" text:ref-name=\"%s\">" .
"</text:note-ref>")
1739 n note-class ref-format ref-name
)
1742 (defun org-odt-get-image-name (file-name)
1746 (concat (sha1 file-name
) "." (file-name-extension file-name
)) "Pictures")))
1748 (defun org-export-odt-format-image (src href
)
1749 "Create image tag with source and attributes."
1751 (let* ((caption (org-find-text-property-in-string 'org-caption src
))
1752 (caption (and caption
(org-xml-format-desc caption
)))
1753 (attr (org-find-text-property-in-string 'org-attributes src
))
1754 (label (org-find-text-property-in-string 'org-label src
))
1755 (latex-frag (org-find-text-property-in-string
1756 'org-latex-src src
))
1757 (category (and latex-frag
"__DvipngImage__"))
1758 (attr-plist (org-lparse-get-block-params attr
))
1760 (car (assoc-string (plist-get attr-plist
:anchor
)
1761 '(("as-char") ("paragraph") ("page")) t
)))
1763 (and user-frame-anchor
(plist-get attr-plist
:style
)))
1765 (and user-frame-anchor
(plist-get attr-plist
:attributes
)))
1767 (list user-frame-style user-frame-attrs user-frame-anchor
))
1771 (case (org-find-text-property-in-string
1772 'org-latex-src-embed-type src
)
1773 (paragraph 'paragraph
)
1777 (size (org-odt-image-size-from-file
1778 src
(plist-get attr-plist
:width
)
1779 (plist-get attr-plist
:height
)
1780 (plist-get attr-plist
:scale
) nil embed-as
))
1781 (width (car size
)) (height (cdr size
)))
1783 (setq href
(org-propertize href
:title
"LaTeX Fragment"
1784 :description latex-frag
)))
1785 (let ((frame-style-handle (concat (and (or caption label
) "Captioned")
1787 (org-odt-format-entity
1788 frame-style-handle href width height
1789 :caption caption
:label label
:category category
1790 :user-frame-params user-frame-params
)))))
1792 (defun org-odt-format-object-description (title description
)
1793 (concat (and title
(org-odt-format-tags
1794 '("<svg:title>" .
"</svg:title>")
1795 (org-odt-encode-plain-text title t
)))
1796 (and description
(org-odt-format-tags
1797 '("<svg:desc>" .
"</svg:desc>")
1798 (org-odt-encode-plain-text description t
)))))
1800 (defun org-odt-format-frame (text width height style
&optional
1804 (if width
(format " svg:width=\"%0.2fcm\"" width
) "")
1805 (if height
(format " svg:height=\"%0.2fcm\"" height
) "")
1807 (format " text:anchor-type=\"%s\"" (or anchor-type
"paragraph")))))
1808 (org-odt-format-tags
1809 '("<draw:frame draw:style-name=\"%s\"%s>" .
"</draw:frame>")
1810 (concat text
(org-odt-format-object-description
1811 (get-text-property 0 :title text
)
1812 (get-text-property 0 :description text
)))
1813 style frame-attrs
)))
1815 (defun org-odt-format-textbox (text width height style
&optional
1817 (org-odt-format-frame
1818 (org-odt-format-tags
1819 '("<draw:text-box %s>" .
"</draw:text-box>")
1820 text
(concat (format " fo:min-height=\"%0.2fcm\"" (or height
.2))
1822 (format " fo:min-width=\"%0.2fcm\"" (or width
.2)))))
1823 width nil style extra anchor-type
))
1825 (defun org-odt-format-inlinetask (heading content
1826 &optional todo priority tags
)
1827 (org-odt-format-stylized-paragraph
1828 nil
(org-odt-format-textbox
1829 (concat (org-odt-format-stylized-paragraph
1830 "OrgInlineTaskHeading"
1832 'HEADLINE
(concat (org-lparse-format-todo todo
) " " heading
)
1834 content
) nil nil
"OrgInlineTaskFrame" " style:rel-width=\"100%\"")))
1836 (defvar org-odt-entity-frame-styles
1837 '(("As-CharImage" "__Figure__" ("OrgInlineImage" nil
"as-char"))
1838 ("ParagraphImage" "__Figure__" ("OrgDisplayImage" nil
"paragraph"))
1839 ("PageImage" "__Figure__" ("OrgPageImage" nil
"page"))
1840 ("CaptionedAs-CharImage" "__Figure__"
1841 ("OrgCaptionedImage"
1842 " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
1843 ("OrgInlineImage" nil
"as-char"))
1844 ("CaptionedParagraphImage" "__Figure__"
1845 ("OrgCaptionedImage"
1846 " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
1847 ("OrgImageCaptionFrame" nil
"paragraph"))
1848 ("CaptionedPageImage" "__Figure__"
1849 ("OrgCaptionedImage"
1850 " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
1851 ("OrgPageImageCaptionFrame" nil
"page"))
1852 ("InlineFormula" "__MathFormula__" ("OrgInlineFormula" nil
"as-char"))
1853 ("DisplayFormula" "__MathFormula__" ("OrgDisplayFormula" nil
"as-char"))
1854 ("CaptionedDisplayFormula" "__MathFormula__"
1855 ("OrgCaptionedFormula" nil
"paragraph")
1856 ("OrgFormulaCaptionFrame" nil
"as-char"))))
1858 (defun org-odt-merge-frame-params(default-frame-params user-frame-params
)
1859 (if (not user-frame-params
) default-frame-params
1860 (assert (= (length default-frame-params
) 3))
1861 (assert (= (length user-frame-params
) 3))
1862 (loop for user-frame-param in user-frame-params
1863 for default-frame-param in default-frame-params
1864 collect
(or user-frame-param default-frame-param
))))
1866 (defun* org-odt-format-entity
(entity href width height
1867 &key caption label category
1869 (let* ((entity-style (assoc-string entity org-odt-entity-frame-styles t
))
1870 default-frame-params frame-params
)
1872 ((not (or caption label
))
1873 (setq default-frame-params
(nth 2 entity-style
))
1874 (setq frame-params
(org-odt-merge-frame-params
1875 default-frame-params user-frame-params
))
1876 (apply 'org-odt-format-frame href width height frame-params
))
1878 (setq default-frame-params
(nth 3 entity-style
))
1879 (setq frame-params
(org-odt-merge-frame-params
1880 default-frame-params user-frame-params
))
1881 (apply 'org-odt-format-textbox
1882 (org-odt-format-stylized-paragraph
1885 (apply 'org-odt-format-frame href width height
1886 (nth 2 entity-style
))
1887 (org-odt-format-entity-caption
1888 label caption
(or category
(nth 1 entity-style
)))))
1889 width height frame-params
)))))
1891 (defvar org-odt-embedded-images-count
0)
1892 (defun org-odt-copy-image-file (path)
1893 "Returns the internal name of the file"
1894 (let* ((image-type (file-name-extension path
))
1895 (media-type (format "image/%s" image-type
))
1896 (src-file (expand-file-name
1897 path
(file-name-directory org-current-export-file
)))
1898 (target-dir "Images/")
1900 (format "%s%04d.%s" target-dir
1901 (incf org-odt-embedded-images-count
) image-type
)))
1902 (when (not org-lparse-to-buffer
)
1903 (message "Embedding %s as %s ..."
1904 (substring-no-properties path
) target-file
)
1906 (when (= 1 org-odt-embedded-images-count
)
1907 (make-directory target-dir
)
1908 (org-odt-create-manifest-file-entry "" target-dir
))
1910 (copy-file src-file target-file
'overwrite
)
1911 (org-odt-create-manifest-file-entry media-type target-file
))
1914 (defvar org-export-odt-image-size-probe-method
1915 '(emacs imagemagick force
)
1916 "Ordered list of methods by for determining size of an embedded
1919 (defvar org-export-odt-default-image-sizes-alist
1920 '(("as-char" .
(5 .
0.4))
1921 ("paragraph" .
(5 .
5)))
1922 "Hardcoded image dimensions one for each of the anchor
1925 ;; A4 page size is 21.0 by 29.7 cms
1926 ;; The default page settings has 2cm margin on each of the sides. So
1927 ;; the effective text area is 17.0 by 25.7 cm
1928 (defvar org-export-odt-max-image-size
'(17.0 .
20.0)
1929 "Limiting dimensions for an embedded image.")
1931 (defun org-odt-do-image-size (probe-method file
&optional dpi anchor-type
)
1932 (setq dpi
(or dpi org-export-odt-pixels-per-inch
))
1933 (setq anchor-type
(or anchor-type
"paragraph"))
1934 (flet ((size-in-cms (size-in-pixels)
1935 (flet ((pixels-to-cms (pixels)
1936 (let* ((cms-per-inch 2.54)
1937 (inches (/ pixels dpi
)))
1938 (* cms-per-inch inches
))))
1940 (cons (pixels-to-cms (car size-in-pixels
))
1941 (pixels-to-cms (cdr size-in-pixels
)))))))
1944 (size-in-cms (ignore-errors (clear-image-cache)
1945 (image-size (create-image file
) 'pixels
))))
1948 (let ((dim (shell-command-to-string
1949 (format "identify -format \"%%w:%%h\" \"%s\"" file
))))
1950 (when (string-match "\\([0-9]+\\):\\([0-9]+\\)" dim
)
1951 (cons (string-to-number (match-string 1 dim
))
1952 (string-to-number (match-string 2 dim
)))))))
1954 (cdr (assoc-string anchor-type
1955 org-export-odt-default-image-sizes-alist
))))))
1957 (defun org-odt-image-size-from-file (file &optional user-width
1958 user-height scale dpi embed-as
)
1959 (unless (file-name-absolute-p file
)
1960 (setq file
(expand-file-name
1961 file
(file-name-directory org-current-export-file
))))
1962 (let* (size width height
)
1963 (unless (and user-height user-width
)
1964 (loop for probe-method in org-export-odt-image-size-probe-method
1966 do
(setq size
(org-odt-do-image-size
1967 probe-method file dpi embed-as
)))
1968 (or size
(error "Cannot determine Image size. Aborting ..."))
1969 (setq width
(car size
) height
(cdr size
)))
1972 (setq width
(* width scale
) height
(* height scale
)))
1973 ((and user-height user-width
)
1974 (setq width user-width height user-height
))
1976 (setq width
(* user-height
(/ width height
)) height user-height
))
1978 (setq height
(* user-width
(/ height width
)) width user-width
))
1980 ;; ensure that an embedded image fits comfortably within a page
1981 (let ((max-width (car org-export-odt-max-image-size
))
1982 (max-height (cdr org-export-odt-max-image-size
)))
1983 (when (or (> width max-width
) (> height max-height
))
1984 (let* ((scale1 (/ max-width width
))
1985 (scale2 (/ max-height height
))
1986 (scale (min scale1 scale2
)))
1987 (setq width
(* scale width
) height
(* scale height
)))))
1988 (cons width height
)))
1990 (defvar org-odt-entity-labels-alist nil
1991 "Associate Labels with the Labeled entities.
1992 Each element of the alist is of the form (LABEL-NAME
1993 CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as
1994 that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the
1995 type of the entity that LABEL-NAME is attached to. CATEGORY-NAME
1996 can be one of \"Table\", \"Figure\" or \"Equation\". SEQNO is
1997 the unique number assigned to the referenced entity on a
1998 per-CATEGORY basis. It is generated sequentially and is 1-based.
1999 LABEL-STYLE-NAME is a key `org-odt-label-styles'.
2001 See `org-odt-add-label-definition' and
2002 `org-odt-fixup-label-references'.")
2004 (defvar org-odt-entity-counts-plist nil
2005 "Plist of running counters of SEQNOs for each of the CATEGORY-NAMEs.
2006 See `org-odt-entity-labels-alist' for known CATEGORY-NAMEs.")
2008 (defvar org-odt-label-styles
2009 '(("text" "(%n)" "text" "(%n)")
2010 ("category-and-value" "%e %n%c" "category-and-value" "%e %n")
2011 ("value" "%e %n%c" "value" "%n"))
2012 "Specify how labels are applied and referenced.
2013 This is an alist where each element is of the
2014 form (LABEL-STYLE-NAME LABEL-ATTACH-FMT LABEL-REF-MODE
2017 LABEL-ATTACH-FMT controls how labels and captions are attached to
2018 an entity. It may contain following specifiers - %e, %n and %c.
2019 %e is replaced with the CATEGORY-NAME. %n is replaced with
2020 \"<text:sequence ...> SEQNO </text:sequence>\". %c is replaced
2021 with CAPTION. See `org-odt-format-label-definition'.
2023 LABEL-REF-MODE and LABEL-REF-FMT controls how label references
2024 are generated. The following XML is generated for a label
2025 reference - \"<text:sequence-ref
2026 text:reference-format=\"LABEL-REF-MODE\" ...> LABEL-REF-FMT
2027 </text:sequence-ref>\". LABEL-REF-FMT may contain following
2028 specifiers - %e and %n. %e is replaced with the CATEGORY-NAME.
2029 %n is replaced with SEQNO. See
2030 `org-odt-format-label-reference'.")
2032 (defvar org-odt-category-map-alist
2033 '(("__Table__" "Table" "value")
2034 ("__Figure__" "Figure" "value")
2035 ("__MathFormula__" "Equation" "text")
2036 ("__DvipngImage__" "Equation" "value")
2037 ;; ("__Table__" "Table" "category-and-value")
2038 ;; ("__Figure__" "Figure" "category-and-value")
2039 ;; ("__DvipngImage__" "Equation" "category-and-value")
2041 "Map a CATEGORY-HANDLE to CATEGORY-NAME and LABEL-STYLE.
2042 This is an alist where each element is of the form
2043 \\(CATEGORY-HANDLE CATEGORY-NAME LABEL-STYLE\\). CATEGORY_HANDLE
2044 could either be one of the internal handles (as seen above) or be
2045 derived from the \"#+LABEL:<label-name>\" specification. See
2046 `org-export-odt-get-category-from-label'. CATEGORY-NAME and
2047 LABEL-STYLE are used for generating ODT labels. See
2048 `org-odt-label-styles'.")
2050 (defvar org-export-odt-user-categories
2051 '("Illustration" "Table" "Text" "Drawing" "Equation" "Figure"))
2053 (defvar org-export-odt-get-category-from-label nil
2054 "Should category of label be inferred from label itself.
2055 When this option is non-nil, a label is parsed in to two
2056 component parts delimited by a \":\" (colon) as shown here -
2057 #+LABEL:[CATEGORY-HANDLE:]EXTRA. The CATEGORY-HANDLE is mapped
2058 to a CATEGORY-NAME and LABEL-STYLE using
2059 `org-odt-category-map-alist'. (If no such map is provided and
2060 CATEGORY-NAME is set to CATEGORY-HANDLE and LABEL-STYLE is set to
2061 \"category-and-value\"). If CATEGORY-NAME so obtained is listed
2062 under `org-export-odt-user-categories' then the user specified
2063 styles are used. Otherwise styles as determined by the internal
2064 CATEGORY-HANDLE is used. See
2065 `org-odt-get-label-category-and-style' for details.")
2067 (defun org-odt-get-label-category-and-style (label default-category
)
2068 "See `org-export-odt-get-category-from-label'."
2069 (let ((default-category-map
2070 (assoc default-category org-odt-category-map-alist
))
2071 user-category user-category-map category
)
2073 ((not org-export-odt-get-category-from-label
)
2074 default-category-map
)
2075 ((not (setq user-category
2077 (and (string-match "\\`\\(.*\\):.+" label
)
2078 (match-string 1 label
)))))
2079 default-category-map
)
2081 (setq user-category-map
2082 (or (assoc user-category org-odt-category-map-alist
)
2083 (list nil user-category
"category-and-value"))
2084 category
(nth 1 user-category-map
))
2085 (if (member category org-export-odt-user-categories
)
2087 default-category-map
)))))
2089 (defun org-odt-add-label-definition (label default-category
)
2090 "Create an entry in `org-odt-entity-labels-alist' and return it."
2091 (setq label
(substring-no-properties label
))
2092 (let* ((label-props (org-odt-get-label-category-and-style
2093 label default-category
))
2094 (category (nth 1 label-props
))
2096 (label-style (nth 2 label-props
))
2097 (sequence-var (intern (mapconcat
2099 (org-split-string counter
) "-")))
2100 (seqno (1+ (or (plist-get org-odt-entity-counts-plist sequence-var
)
2102 (label-props (list label category seqno label-style
)))
2103 (setq org-odt-entity-counts-plist
2104 (plist-put org-odt-entity-counts-plist sequence-var seqno
))
2105 (push label-props org-odt-entity-labels-alist
)
2108 (defun org-odt-format-label-definition (caption label category seqno label-style
)
2111 (cadr (assoc-string label-style org-odt-label-styles t
))
2113 (?n .
,(org-odt-format-tags
2114 '("<text:sequence text:ref-name=\"%s\" text:name=\"%s\" text:formula=\"ooow:%s+1\" style:num-format=\"1\">" .
"</text:sequence>")
2115 (format "%d" seqno
) label category category
))
2116 (?c .
,(or (and caption
(concat ": " caption
)) "")))))
2118 (defun org-odt-format-label-reference (label category seqno label-style
)
2121 (let* ((fmt (cddr (assoc-string label-style org-odt-label-styles t
)))
2124 (org-odt-format-tags
2125 '("<text:sequence-ref text:reference-format=\"%s\" text:ref-name=\"%s\">"
2126 .
"</text:sequence-ref>")
2127 (format-spec fmt2
`((?e .
,category
)
2128 (?n .
,(format "%d" seqno
)))) fmt1 label
))))
2130 (defun org-odt-fixup-label-references ()
2131 (goto-char (point-min))
2132 (while (re-search-forward
2133 "<text:sequence-ref text:ref-name=\"\\([^\"]+\\)\">[ \t\n]*</text:sequence-ref>"
2135 (let* ((label (match-string 1))
2136 (label-def (assoc label org-odt-entity-labels-alist
))
2138 (apply 'org-odt-format-label-reference label-def
))))
2139 (if rpl
(replace-match rpl t t
)
2141 (format "Unable to resolve reference to label \"%s\"" label
))))))
2143 (defun org-odt-format-entity-caption (label caption category
)
2145 (apply 'org-odt-format-label-definition
2146 caption
(org-odt-add-label-definition label category
)))
2149 (defun org-odt-format-tags (tag text
&rest args
)
2150 (let ((prefix (when org-lparse-encode-pending
"@"))
2151 (suffix (when org-lparse-encode-pending
"@")))
2152 (apply 'org-lparse-format-tags tag text prefix suffix args
)))
2154 (defvar org-odt-manifest-file-entries nil
)
2155 (defun org-odt-init-outfile (filename)
2156 (unless (executable-find "zip")
2157 ;; Not at all OSes ship with zip by default
2158 (error "Executable \"zip\" needed for creating OpenDocument files"))
2160 (let* ((outdir (make-temp-file
2161 (format org-export-odt-tmpdir-prefix org-lparse-backend
) t
))
2162 (content-file (expand-file-name "content.xml" outdir
)))
2165 (with-current-buffer (find-file-noselect content-file t
))
2168 (setq org-odt-manifest-file-entries nil
2169 org-odt-embedded-images-count
0
2170 org-odt-embedded-formulas-count
0
2171 org-odt-entity-labels-alist nil
2172 org-odt-list-stack-stashed nil
2173 org-odt-automatic-styles nil
2174 org-odt-object-counters nil
2175 org-odt-entity-counts-plist nil
)
2178 (defcustom org-export-odt-prettify-xml nil
2179 "Specify whether or not the xml output should be prettified.
2180 When this option is turned on, `indent-region' is run on all
2181 component xml buffers before they are saved. Turn this off for
2182 regular use. Turn this on if you need to examine the xml
2184 :group
'org-export-odt
2188 (defvar hfy-user-sheet-assoc
) ; bound during org-do-lparse
2189 (defun org-odt-save-as-outfile (target opt-plist
)
2190 ;; write automatic styles
2191 (org-odt-write-automatic-styles)
2194 (org-odt-update-meta-file opt-plist
)
2196 ;; write styles file
2197 (when (equal org-lparse-backend
'odt
)
2198 (org-odt-update-styles-file opt-plist
))
2200 ;; create mimetype file
2201 (let ((mimetype (org-odt-write-mimetype-file org-lparse-backend
)))
2202 (org-odt-create-manifest-file-entry mimetype
"/" "1.2"))
2204 ;; create a manifest entry for content.xml
2205 (org-odt-create-manifest-file-entry "text/xml" "content.xml")
2207 ;; write out the manifest entries before zipping
2208 (org-odt-write-manifest-file)
2210 (let ((xml-files '("mimetype" "META-INF/manifest.xml" "content.xml"
2212 (zipdir default-directory
))
2213 (when (equal org-lparse-backend
'odt
)
2214 (push "styles.xml" xml-files
))
2215 (message "Switching to directory %s" (expand-file-name zipdir
))
2217 ;; save all xml files
2218 (mapc (lambda (file)
2219 (with-current-buffer
2220 (find-file-noselect (expand-file-name file
) t
)
2221 ;; prettify output if needed
2222 (when org-export-odt-prettify-xml
2223 (indent-region (point-min) (point-max)))
2227 (let* ((target-name (file-name-nondirectory target
))
2228 (target-dir (file-name-directory target
))
2229 (cmds `(("zip" "-mX0" ,target-name
"mimetype")
2230 ("zip" "-rmTq" ,target-name
"."))))
2231 (when (file-exists-p target
)
2232 ;; FIXME: If the file is locked this throws a cryptic error
2233 (delete-file target
))
2235 (let ((coding-system-for-write 'no-conversion
) exitcode err-string
)
2236 (message "Creating odt file...")
2239 (message "Running %s" (mapconcat 'identity cmd
" "))
2241 (with-output-to-string
2243 (apply 'call-process
(car cmd
)
2244 nil standard-output nil
(cdr cmd
)))))
2245 (or (zerop exitcode
)
2246 (ignore (message "%s" err-string
))
2247 (error "Unable to create odt file (%S)" exitcode
)))
2250 ;; move the file from outdir to target-dir
2251 (rename-file target-name target-dir
)
2253 ;; kill all xml buffers
2254 (mapc (lambda (file)
2256 (find-file-noselect (expand-file-name file zipdir
) t
)))
2259 (delete-directory zipdir
)))
2260 (message "Created %s" target
)
2261 (set-buffer (find-file-noselect target t
)))
2263 (defconst org-odt-manifest-file-entry-tag
2265 <manifest:file-entry manifest:media-type=\"%s\" manifest:full-path=\"%s\"%s/>")
2267 (defun org-odt-create-manifest-file-entry (&rest args
)
2268 (push args org-odt-manifest-file-entries
))
2270 (defun org-odt-write-manifest-file ()
2271 (make-directory "META-INF")
2272 (let ((manifest-file (expand-file-name "META-INF/manifest.xml")))
2273 (with-current-buffer
2274 (find-file-noselect manifest-file t
)
2276 "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
2277 <manifest:manifest xmlns:manifest=\"urn:oasis:names:tc:opendocument:xmlns:manifest:1.0\" manifest:version=\"1.2\">\n")
2279 (lambda (file-entry)
2280 (let* ((version (nth 2 file-entry
))
2282 (format " manifest:version=\"%s\"" version
)
2285 (format org-odt-manifest-file-entry-tag
2286 (nth 0 file-entry
) (nth 1 file-entry
) extra
))))
2287 org-odt-manifest-file-entries
)
2288 (insert "\n</manifest:manifest>"))))
2290 (defun org-odt-update-meta-file (opt-plist)
2291 (let ((date (org-odt-format-date (plist-get opt-plist
:date
)))
2292 (author (or (plist-get opt-plist
:author
) ""))
2293 (email (plist-get opt-plist
:email
))
2294 (keywords (plist-get opt-plist
:keywords
))
2295 (description (plist-get opt-plist
:description
))
2296 (title (plist-get opt-plist
:title
)))
2299 "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
2300 <office:document-meta
2301 xmlns:office=\"urn:oasis:names:tc:opendocument:xmlns:office:1.0\"
2302 xmlns:xlink=\"http://www.w3.org/1999/xlink\"
2303 xmlns:dc=\"http://purl.org/dc/elements/1.1/\"
2304 xmlns:meta=\"urn:oasis:names:tc:opendocument:xmlns:meta:1.0\"
2305 xmlns:ooo=\"http://openoffice.org/2004/office\"
2306 office:version=\"1.2\">
2308 (org-odt-format-author)
2309 (org-odt-format-tags
2310 '("\n<meta:initial-creator>" .
"</meta:initial-creator>") author
)
2311 (org-odt-format-tags '("\n<dc:date>" .
"</dc:date>") date
)
2312 (org-odt-format-tags
2313 '("\n<meta:creation-date>" .
"</meta:creation-date>") date
)
2314 (org-odt-format-tags '("\n<meta:generator>" .
"</meta:generator>")
2315 (when org-export-creator-info
2316 (format "Org-%s/Emacs-%s"
2317 org-version emacs-version
)))
2318 (org-odt-format-tags '("\n<meta:keyword>" .
"</meta:keyword>") keywords
)
2319 (org-odt-format-tags '("\n<dc:subject>" .
"</dc:subject>") description
)
2320 (org-odt-format-tags '("\n<dc:title>" .
"</dc:title>") title
)
2322 " </office:meta>" "</office:document-meta>")
2323 nil
(expand-file-name "meta.xml")))
2325 ;; create a manifest entry for meta.xml
2326 (org-odt-create-manifest-file-entry "text/xml" "meta.xml"))
2328 (defun org-odt-update-styles-file (opt-plist)
2329 ;; write styles file
2330 (let ((styles-file (plist-get opt-plist
:odt-styles-file
)))
2331 (org-odt-copy-styles-file (and styles-file
2332 (read (org-trim styles-file
)))))
2334 ;; Update styles.xml - take care of outline numbering
2335 (with-current-buffer
2336 (find-file-noselect (expand-file-name "styles.xml") t
)
2337 ;; Don't make automatic backup of styles.xml file. This setting
2338 ;; prevents the backed-up styles.xml file from being zipped in to
2339 ;; odt file. This is more of a hackish fix. Better alternative
2340 ;; would be to fix the zip command so that the output odt file
2341 ;; includes only the needed files and excludes any auto-generated
2342 ;; extra files like backups and auto-saves etc etc. Note that
2343 ;; currently the zip command zips up the entire temp directory so
2344 ;; that any auto-generated files created under the hood ends up in
2345 ;; the resulting odt file.
2346 (set (make-local-variable 'backup-inhibited
) t
)
2348 ;; Import local setting of `org-export-with-section-numbers'
2349 (org-lparse-bind-local-variables opt-plist
)
2350 (org-odt-configure-outline-numbering
2351 (if org-export-with-section-numbers org-export-headline-levels
0)))
2353 ;; Write custom styles for source blocks
2354 (org-odt-insert-custom-styles-for-srcblocks
2357 (format " %s\n" (cddr style
)))
2358 hfy-user-sheet-assoc
"")))
2360 (defun org-odt-write-mimetype-file (format)
2361 ;; create mimetype file
2364 (odt "application/vnd.oasis.opendocument.text")
2365 (odf "application/vnd.oasis.opendocument.formula")
2366 (t (error "Unknown OpenDocument backend %S" org-lparse-backend
)))))
2367 (write-region mimetype nil
(expand-file-name "mimetype"))
2370 (defun org-odt-finalize-outfile ()
2371 (org-odt-delete-empty-paragraphs))
2373 (defun org-odt-delete-empty-paragraphs ()
2374 (goto-char (point-min))
2375 (let ((open "<text:p[^>]*>")
2376 (close "</text:p>"))
2377 (while (re-search-forward (format "%s[ \r\n\t]*%s" open close
) nil t
)
2378 (replace-match ""))))
2380 (defcustom org-export-odt-convert-processes
2382 "soffice --headless --convert-to %f --outdir %d %i")
2384 "unoconv -f %f -o %d %i"))
2385 "Specify a list of document converters and their usage.
2386 The converters in this list are offered as choices while
2387 customizing `org-export-odt-convert-process'.
2389 This variable is a list where each element is of the
2390 form (CONVERTER-NAME CONVERTER-CMD). CONVERTER-NAME is the name
2391 of the converter. CONVERTER-CMD is the shell command for the
2392 converter and can contain format specifiers. These format
2393 specifiers are interpreted as below:
2395 %i input file name in full
2396 %I input file name as a URL
2397 %f format of the output file
2398 %o output file name in full
2399 %O output file name as a URL
2400 %d output dir in full
2401 %D output dir as a URL."
2402 :group
'org-export-odt
2406 (const :tag
"None" nil
)
2407 (alist :tag
"Converters"
2408 :key-type
(string :tag
"Converter Name")
2409 :value-type
(group (string :tag
"Command line")))))
2411 (defcustom org-export-odt-convert-process
"LibreOffice"
2412 "Use this converter to convert from \"odt\" format to other formats.
2413 During customization, the list of converter names are populated
2414 from `org-export-odt-convert-processes'."
2415 :group
'org-export-odt
2417 :type
'(choice :convert-widget
2419 (apply 'widget-convert
(widget-type w
)
2420 (eval (car (widget-get w
:args
)))))
2421 `((const :tag
"None" nil
)
2422 ,@(mapcar (lambda (c)
2423 `(const :tag
,(car c
) ,(car c
)))
2424 org-export-odt-convert-processes
))))
2426 (defcustom org-export-odt-convert-capabilities
2428 ("odt" "ott" "doc" "rtf" "docx")
2429 (("pdf" "pdf") ("odt" "odt") ("rtf" "rtf") ("ott" "ott") ("doc" "doc")
2430 ("docx" "docx") ("html" "html")))
2433 (("pdf" "pdf") ("odt" "odt") ("html" "html")))
2435 ("ods" "ots" "xls" "csv" "xlsx")
2436 (("pdf" "pdf") ("ots" "ots") ("html" "html") ("csv" "csv") ("ods" "ods")
2437 ("xls" "xls") ("xlsx" "xlsx")))
2439 ("odp" "otp" "ppt" "pptx")
2440 (("pdf" "pdf") ("swf" "swf") ("odp" "odp") ("otp" "otp") ("ppt" "ppt")
2441 ("pptx" "pptx") ("odg" "odg"))))
2442 "Specify input and output formats of `org-export-odt-convert-process'.
2443 More correctly, specify the set of input and output formats that
2444 the user is actually interested in.
2446 This variable is an alist where each element is of the
2447 form (DOCUMENT-CLASS INPUT-FMT-LIST OUTPUT-FMT-ALIST).
2448 INPUT-FMT-LIST is a list of INPUT-FMTs. OUTPUT-FMT-ALIST is an
2449 alist where each element is of the form (OUTPUT-FMT
2450 OUTPUT-FILE-EXTENSION).
2452 The variable is interpreted as follows:
2453 `org-export-odt-convert-process' can take any document that is in
2454 INPUT-FMT-LIST and produce any document that is in the
2455 OUTPUT-FMT-LIST. A document converted to OUTPUT-FMT will have
2456 OUTPUT-FILE-EXTENSION as the file name extension. OUTPUT-FMT
2457 serves dual purposes:
2458 - It is used for populating completion candidates during
2459 `org-export-odt-convert' commands.
2460 - It is used as the value of \"%f\" specifier in
2461 `org-export-odt-convert-process'.
2463 DOCUMENT-CLASS is used to group a set of file formats in
2464 INPUT-FMT-LIST in to a single class.
2466 Note that this variable inherently captures how LibreOffice based
2467 converters work. LibreOffice maps documents of various formats
2468 to classes like Text, Web, Spreadsheet, Presentation etc and
2469 allow document of a given class (irrespective of it's source
2470 format) to be converted to any of the export formats associated
2473 See default setting of this variable for an typical
2475 :group
'org-export-odt
2479 (const :tag
"None" nil
)
2480 (alist :tag
"Capabilities"
2481 :key-type
(string :tag
"Document Class")
2483 (group (repeat :tag
"Input formats" (string :tag
"Input format"))
2484 (alist :tag
"Output formats"
2485 :key-type
(string :tag
"Output format")
2487 (group (string :tag
"Output file extension")))))))
2489 (declare-function org-create-math-formula
"org"
2490 (latex-frag &optional mathml-file
))
2493 (defun org-export-odt-convert (&optional in-file out-fmt prefix-arg
)
2494 "Convert IN-FILE to format OUT-FMT using a command line converter.
2495 IN-FILE is the file to be converted. If unspecified, it defaults
2496 to variable `buffer-file-name'. OUT-FMT is the desired output
2497 format. Use `org-export-odt-convert-process' as the converter.
2498 If PREFIX-ARG is non-nil then the newly converted file is opened
2499 using `org-open-file'."
2501 (append (org-lparse-convert-read-params) current-prefix-arg
))
2502 (org-lparse-do-convert in-file out-fmt prefix-arg
))
2504 (defun org-odt-get (what &optional opt-plist
)
2507 (EXPORT-DIR (org-export-directory :html opt-plist
))
2508 (FILE-NAME-EXTENSION "odt")
2509 (EXPORT-BUFFER-NAME "*Org ODT Export*")
2510 (ENTITY-CONTROL org-odt-entity-control-callbacks-alist
)
2511 (ENTITY-FORMAT org-odt-entity-format-callbacks-alist
)
2512 (INIT-METHOD 'org-odt-init-outfile
)
2513 (FINAL-METHOD 'org-odt-finalize-outfile
)
2514 (SAVE-METHOD 'org-odt-save-as-outfile
)
2516 (and org-export-odt-convert-process
2517 (cadr (assoc-string org-export-odt-convert-process
2518 org-export-odt-convert-processes t
))))
2519 (CONVERT-CAPABILITIES
2520 (and org-export-odt-convert-process
2521 (cadr (assoc-string org-export-odt-convert-process
2522 org-export-odt-convert-processes t
))
2523 org-export-odt-convert-capabilities
))
2525 (SPECIAL-STRING-REGEXPS org-export-odt-special-string-regexps
)
2526 (INLINE-IMAGES 'maybe
)
2527 (INLINE-IMAGE-EXTENSIONS '("png" "jpeg" "jpg" "gif" "svg"))
2528 (PLAIN-TEXT-MAP '(("&" .
"&") ("<" .
"<") (">" .
">")))
2529 (TABLE-FIRST-COLUMN-AS-LABELS nil
)
2530 (FOOTNOTE-SEPARATOR (org-lparse-format 'FONTIFY
"," 'superscript
))
2531 (CODING-SYSTEM-FOR-WRITE 'utf-8
)
2532 (CODING-SYSTEM-FOR-SAVE 'utf-8
)
2533 (t (error "Unknown property: %s" what
))))
2535 (defvar org-lparse-latex-fragment-fallback
) ; set by org-do-lparse
2536 (defun org-export-odt-do-preprocess-latex-fragments ()
2537 "Convert LaTeX fragments to images."
2538 (let* ((latex-frag-opt (plist-get org-lparse-opt-plist
:LaTeX-fragments
))
2539 (latex-frag-opt ; massage the options
2540 (or (and (member latex-frag-opt
'(mathjax t
))
2541 (not (and (fboundp 'org-format-latex-mathml-available-p
)
2542 (org-format-latex-mathml-available-p)))
2543 (prog1 org-lparse-latex-fragment-fallback
2546 "LaTeX to MathML converter not available. "
2547 (format "Using %S instead."
2548 org-lparse-latex-fragment-fallback
)))))
2550 cache-dir display-msg
)
2552 ((eq latex-frag-opt
'dvipng
)
2553 (setq cache-dir
"ltxpng/")
2554 (setq display-msg
"Creating LaTeX image %s"))
2555 ((member latex-frag-opt
'(mathjax t
))
2556 (setq latex-frag-opt
'mathml
)
2557 (setq cache-dir
"ltxmathml/")
2558 (setq display-msg
"Creating MathML formula %s")))
2559 (when (and org-current-export-file
)
2561 (concat cache-dir
(file-name-sans-extension
2562 (file-name-nondirectory org-current-export-file
)))
2563 org-current-export-dir nil display-msg
2564 nil nil latex-frag-opt
))))
2566 (defadvice org-format-latex-as-mathml
2567 (after org-odt-protect-latex-fragment activate
)
2568 "Encode LaTeX fragment as XML.
2569 Do this when translation to MathML fails."
2570 (when (or (not (> (length ad-return-value
) 0))
2571 (get-text-property 0 'org-protected ad-return-value
))
2572 (setq ad-return-value
2573 (org-propertize (org-odt-encode-plain-text (ad-get-arg 0))
2574 'org-protected t
))))
2576 (defun org-export-odt-preprocess-latex-fragments ()
2577 (when (equal org-export-current-backend
'odt
)
2578 (org-export-odt-do-preprocess-latex-fragments)))
2580 (defun org-export-odt-preprocess-label-references ()
2581 (goto-char (point-min))
2582 (let (label label-components category value pretty-label
)
2583 (while (re-search-forward "\\\\ref{\\([^{}\n]+\\)}" nil t
)
2584 (org-if-unprotected-at (match-beginning 1)
2586 (let ((org-lparse-encode-pending t
)
2587 (label (match-string 1)))
2588 ;; markup generated below is mostly an eye-candy. At
2589 ;; pre-processing stage, there is no information on which
2590 ;; entity a label reference points to. The actual markup
2591 ;; is generated as part of `org-odt-fixup-label-references'
2592 ;; which gets called at the fag end of export. By this
2593 ;; time we would have seen and collected all the label
2594 ;; definitions in `org-odt-entity-labels-alist'.
2595 (org-odt-format-tags
2596 '("<text:sequence-ref text:ref-name=\"%s\">" .
2597 "</text:sequence-ref>")
2598 "" (org-add-props label
'(org-protected t
)))) t t
)))))
2600 ;; process latex fragments as part of
2601 ;; `org-export-preprocess-after-blockquote-hook'. Note that this hook
2602 ;; is the one that is closest and well before the call to
2603 ;; `org-export-attach-captions-and-attributes' in
2604 ;; `org-export-preprocess-string'. The above arrangement permits
2605 ;; captions, labels and attributes to be attached to png images
2606 ;; generated out of latex equations.
2607 (add-hook 'org-export-preprocess-after-blockquote-hook
2608 'org-export-odt-preprocess-latex-fragments
)
2610 (defun org-export-odt-preprocess (parameters)
2611 (org-export-odt-preprocess-label-references))
2613 (declare-function archive-zip-extract
"arc-mode.el" (archive name
))
2614 (defun org-odt-zip-extract-one (archive member
&optional target
)
2616 (let* ((target (or target default-directory
))
2617 (archive (expand-file-name archive
))
2618 (archive-zip-extract
2619 (list "unzip" "-qq" "-o" "-d" target
))
2620 exit-code command-output
)
2621 (setq command-output
2623 (setq exit-code
(archive-zip-extract archive member
))
2625 (unless (zerop exit-code
)
2626 (message command-output
)
2627 (error "Extraction failed"))))
2629 (defun org-odt-zip-extract (archive members
&optional target
)
2630 (when (atom members
) (setq members
(list members
)))
2631 (mapc (lambda (member)
2632 (org-odt-zip-extract-one archive member target
))
2635 (defun org-odt-copy-styles-file (&optional styles-file
)
2636 ;; Non-availability of styles.xml is not a critical error. For now
2637 ;; throw an error purely for aesthetic reasons.
2638 (setq styles-file
(or styles-file
2639 org-export-odt-styles-file
2640 (expand-file-name "OrgOdtStyles.xml"
2642 (error "org-odt: Missing styles file?")))
2644 ((listp styles-file
)
2645 (let ((archive (nth 0 styles-file
))
2646 (members (nth 1 styles-file
)))
2647 (org-odt-zip-extract archive members
)
2650 (when (org-file-image-p member
)
2651 (let* ((image-type (file-name-extension member
))
2652 (media-type (format "image/%s" image-type
)))
2653 (org-odt-create-manifest-file-entry media-type member
))))
2655 ((and (stringp styles-file
) (file-exists-p styles-file
))
2656 (let ((styles-file-type (file-name-extension styles-file
)))
2658 ((string= styles-file-type
"xml")
2659 (copy-file styles-file
"styles.xml" t
))
2660 ((member styles-file-type
'("odt" "ott"))
2661 (org-odt-zip-extract styles-file
"styles.xml")))))
2663 (error (format "Invalid specification of styles.xml file: %S"
2664 org-export-odt-styles-file
))))
2666 ;; create a manifest entry for styles.xml
2667 (org-odt-create-manifest-file-entry "text/xml" "styles.xml"))
2669 (defun org-odt-configure-outline-numbering (level)
2670 "Outline numbering is retained only upto LEVEL.
2671 To disable outline numbering pass a LEVEL of 0."
2672 (goto-char (point-min))
2674 "<text:outline-level-style\\([^>]*\\)text:level=\"\\([^\"]*\\)\"\\([^>]*\\)>")
2676 "<text:outline-level-style\\1text:level=\"\\2\" style:num-format=\"\">"))
2677 (while (re-search-forward regex nil t
)
2678 (when (> (string-to-number (match-string 2)) level
)
2679 (replace-match replacement t nil
))))
2683 (defun org-export-as-odf (latex-frag &optional odf-file
)
2684 "Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
2685 Use `org-create-math-formula' to convert LATEX-FRAG first to
2686 MathML. When invoked as an interactive command, use
2687 `org-latex-regexps' to infer LATEX-FRAG from currently active
2688 region. If no LaTeX fragments are found, prompt for it. Push
2689 MathML source to kill ring, if `org-export-copy-to-kill-ring' is
2693 (setq frag
(and (setq frag
(and (region-active-p)
2694 (buffer-substring (region-beginning)
2696 (loop for e in org-latex-regexps
2697 thereis
(when (string-match (nth 1 e
) frag
)
2698 (match-string (nth 2 e
) frag
)))))
2699 (read-string "LaTeX Fragment: " frag nil frag
))
2700 ,(let ((odf-filename (expand-file-name
2702 (file-name-sans-extension
2703 (or (file-name-nondirectory buffer-file-name
)))
2705 (file-name-directory buffer-file-name
))))
2706 (read-file-name "ODF filename: " nil odf-filename nil
2707 (file-name-nondirectory odf-filename
)))))
2708 (let* ((org-lparse-backend 'odf
)
2709 org-lparse-opt-plist
2710 (filename (or odf-file
2713 (file-name-sans-extension
2714 (or (file-name-nondirectory buffer-file-name
)))
2716 (file-name-directory buffer-file-name
))))
2717 (buffer (find-file-noselect (org-odt-init-outfile filename
)))
2718 (coding-system-for-write 'utf-8
)
2719 (save-buffer-coding-system 'utf-8
))
2721 (set-buffer-file-coding-system coding-system-for-write
)
2722 (let ((mathml (org-create-math-formula latex-frag
)))
2723 (unless mathml
(error "No Math formula created"))
2725 (or (org-export-push-to-kill-ring
2726 (upcase (symbol-name org-lparse-backend
)))
2727 (message "Exporting... done")))
2728 (org-odt-save-as-outfile filename nil
)))
2731 (defun org-export-as-odf-and-open ()
2732 "Export LaTeX fragment as OpenDocument formula and immediately open it.
2733 Use `org-export-as-odf' to read LaTeX fragment and OpenDocument
2736 (org-lparse-and-open
2737 nil nil nil
(call-interactively 'org-export-as-odf
)))
2741 ;;; org-odt.el ends here