| blob | 3437a5e8cd10114c7de8c1739e4c08444faab514 |
1 ;;; org-e-odt.el --- OpenDocument Text exporter for Org-mode
3 ;; Copyright (C) 2010-2012 Free Software Foundation, Inc.
5 ;; Author: Jambunathan K <kjambunathan at gmail dot com>
6 ;; Keywords: outlines, hypermedia, calendar, wp
7 ;; Homepage: http://orgmode.org
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24 ;;; Commentary:
26 ;;; Code:
32 "Options specific for ODT export of Org-mode files."
37 ;; (defun org-e-odt-unload-function ()
38 ;; (org-lparse-unregister-backend 'odt)
39 ;; (remove-hook 'org-export-preprocess-after-blockquote-hook
40 ;; 'org-export-e-odt-preprocess-latex-fragments)
41 ;; nil)
47 org-export-e-odt-org-styles-alist))))
49 org-export-e-odt-default-org-styles-alist))))
51 entity category))))
54 ;;;###autoload
56 "Export the outline as ODT and immediately open it with a browser.
57 If there is an active region, export only the region.
58 The prefix ARG specifies how many levels of the outline should become
59 headlines. The default is 3. Lower levels will become bulleted lists."
64 ;;;###autoload
66 "Call the function `org-lparse-batch'.
67 This function can be used in batch processing as:
68 emacs --batch
69 --load=$HOME/lib/emacs/org.el
71 --visit=MyFile --funcall org-export-as-e-odt-batch"
74 ;;; org-export-as-e-odt
75 ;;;###autoload
77 to-buffer body-only pub-dir)
78 "Export the outline as a OpenDocumentText file.
79 If there is an active region, export only the region. The prefix
80 ARG specifies how many levels of the outline should become
81 headlines. The default is 3. Lower levels will become bulleted
82 lists. HIDDEN is obsolete and does nothing.
83 EXT-PLIST is a property list with external parameters overriding
84 org-mode's default settings, but still inferior to file-local
85 settings. When TO-BUFFER is non-nil, create a buffer with that
86 name and export to that buffer. If TO-BUFFER is the symbol
87 `string', don't leave any buffer behind but just return the
88 resulting XML as a string. When BODY-ONLY is set, don't produce
89 the file header and footer, simply return the content of
90 <body>...</body>, without even the body tags themselves. When
91 PUB-DIR is set, use this as the publishing directory."
98 ;; Following variable is let bound when `org-do-lparse' is in
99 ;; progress. See org-html.el.
108 ;; switch on or off above vars based on user settings
111 ;; (date (and (plist-get info :time-stamp-file) date))
112 )
114 ;; title
119 ;; separator
123 ;; author only
126 'subtitle
128 ;; separator
131 ;; author and email
134 'subtitle
138 ;; separator
140 ;; date
144 'subtitle
149 ;; separator
180 text))
194 date)
242 ;; (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
243 ;; ltype))
246 ;; (if (or org-lparse-list-table-p
247 ;; (and (= 1 (length org-lparse-list-stack))
248 ;; (null org-e-odt-list-stack-stashed)))
249 ;; " text:continue-numbering=\"false\""
250 ;; " text:continue-numbering=\"true\"")
259 ;; (org-e-odt-end-paragraph)
264 ;; (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
265 ;; ltype))
271 ltype))
277 )
278 ;; (if (= (length org-lparse-list-stack)
279 ;; (length org-e-odt-list-stack-stashed))
280 ;; "<text:list-header>" "<text:list-item>")
281 ))
285 "<text:list-item>"
286 ;; (org-e-odt-begin-paragraph)
289 ;; (if (= (length org-lparse-list-stack)
290 ;; (length org-e-odt-list-stack-stashed))
291 ;; "<text:list-header>" "<text:list-item>")
292 ))
306 ;; (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
307 ;; ltype))
310 ;; (org-lparse-insert-tag
311 ;; (if (= (length org-lparse-list-stack)
312 ;; (length org-e-odt-list-stack-stashed))
313 ;; (prog1 "</text:list-header>"
314 ;; (setq org-e-odt-list-stack-stashed nil))
315 ;; "</text:list-item>")
316 "</text:list-item>"
317 ;; )
318 )
324 ))
340 ;; Following variables are let bound when table emission is in
341 ;; progress. See org-lparse.el.
346 ;; position the cursor
350 ;; write automatic table styles
357 "Create an automatic style of type OBJECT-TYPE with param OBJECT-PROPS.
358 OBJECT-PROPS is (typically) a plist created by passing
360 `org-lparse-get-block-params'.
362 Use `org-e-odt-object-counters' to generate an automatic
363 OBJECT-NAME and STYLE-NAME. If OBJECT-PROPS is non-nil, add a
364 new entry in `org-e-odt-automatic-styles'. Return (OBJECT-NAME
365 . STYLE-NAME)."
399 ;; (setq org-e-odt-table-indentedp (not (null org-lparse-list-stack)))
402 ;; Within the Org file, the table is appearing within a list item.
403 ;; OpenDocument doesn't allow table to appear within list items.
404 ;; Temporarily terminate the list, emit the table and then
405 ;; re-continue the list.
407 ;; Put the Table in an indented section.
424 ;; (org-e-html-pp table-info)
426 ;; (setq org-lparse-table-begin-marker (point))
427 )
430 ;; fill style attributes for table cells
432 (while (re-search-forward "@@\\(table-cell:p\\|table-cell:style-name\\)@@\\([0-9]+\\)@@\\([0-9]+\\)@@" nil t)
434 ;; (r (string-to-number (match-string 2)))
435 ;; (c (string-to-number (match-string 3)))
437 r c org-e-odt-table-style-spec))
448 "</table:table>"
449 ;; (when org-e-odt-table-indentedp
450 ;; (org-e-odt-end-section)
451 ;; (org-e-odt-continue-list))
452 ))
475 ;; FIXME
482 "Retrieve styles applicable to a table cell.
483 R and C are (zero-based) row and column numbers of the table
484 cell. STYLE-SPEC is an entry in `org-export-e-odt-table-styles'
485 applicable to the current table. It is `nil' if the table is not
486 associated with any style attributes.
488 Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME).
490 When STYLE-SPEC is nil, style the table cell the conventional way
491 - choose cell borders based on row and column groupings and
492 choose paragraph alignment based on `org-col-cookies' text
493 property. See also
494 `org-e-odt-get-paragraph-style-cookie-for-table-cell'.
496 When STYLE-SPEC is non-nil, ignore the above cookie and return
497 styles congruent with the ODF-1.2 specification."
501 ;; LibreOffice - particularly the Writer - honors neither table
502 ;; templates nor custom table-cell styles. Inorder to retain
503 ;; inter-operability with LibreOffice, only automatic styles are
504 ;; used for styling of table-cells. The current implementation is
505 ;; congruent with ODF-1.2 specification and hence is
506 ;; future-compatible.
508 ;; Additional Note: LibreOffice's AutoFormat facility for tables -
509 ;; which recognizes as many as 16 different cell types - is much
510 ;; richer. Unfortunately it is NOT amenable to easy configuration
511 ;; by hand.
541 "OrgTblCell"
561 ;; (org-lparse-get 'TABLE-FIRST-COLUMN-AS-LABELS)
562 )
567 r c org-e-odt-table-style-spec)))))
572 r c org-e-odt-table-style-spec))
574 table-cell-style)))
606 <text:table-of-content text:style-name=\"Sect2\" text:protected=\"true\" text:name=\"Table of Contents1\">
608 <text:index-title-template text:style-name=\"Contents_20_Heading\">%s</text:index-title-template>
616 "
617 <text:table-of-content-entry-template text:outline-level=\"%d\" text:style-name=\"Contents_20_%d\">
619 <text:index-entry-chapter/>
620 <text:index-entry-text/>
621 <text:index-entry-link-end/>
622 </text:table-of-content-entry-template>
624 entry-templates)
627 </text:table-of-content-source>
629 <text:index-body>
632 </text:index-title>
637 </text:index-body>
638 </text:table-of-content>
643 ;; FIXME
647 headline
661 1
665 ;; Following variable is let bound during 'ORG-LINK callback. See
666 ;; org-html.el
678 desc xref-format href)))
748 "Format source or example blocks much like fixedwidth blocks.
749 Use this when `org-export-e-odt-fontify-srcblocks' option is turned
750 off."
758 line rpllbl num 'org-e-odt-encode-plain-text
764 "Create custom style for face FN.
765 When FN is the default face, use it's foreground and background
767 use it's color attribute to create a character style whose name
768 is obtained from FN. Currently all attributes of FN other than
769 color are ignored.
771 The style name for a face FN is derived using the following
772 operations on the face name in that order - de-dash, CamelCase
774 `font-lock-function-name-face' is associated with
789 background-color-val color-val))
792 "
799 "Save STYLES used for colorizing of source blocks.
800 Update styles.xml with styles that were collected as part of
801 `org-e-odt-hfy-face-to-css' callbacks."
812 "Format source or example blocks using `htmlfontify-string'.
813 Use this routine when `org-export-e-odt-fontify-srcblocks' option
814 is turned on."
849 line rpllbl num 'htmlfontify-string
854 &optional
855 caption textareap
856 cols rows num cont
857 rpllbl fmt)
858 "Format source or example blocks for export.
859 Use `org-e-odt-format-source-code-or-example-plain' or
860 `org-e-odt-format-source-code-or-example-colored' depending on the
861 value of `org-export-e-odt-fontify-srcblocks."
863 ;; lines 0 0 num cont rpllbl fmt 'preprocess) FIXME
867 ;; htmlfontify.el was introduced in Emacs 23.2
868 ;; So load it with some caution
873 lines lang caption textareap cols rows num cont rpllbl fmt))
890 style-name))
903 ;; (assert (stringp s) t)
909 text style-name)))
918 )
922 thefile org-current-export-file))))
925 "<draw:image xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" ""
940 width height)
959 "Returns the internal name of the file"
982 target-file))
988 thefile org-current-export-file))))
991 "<draw:object xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" ""
1004 descp)
1005 "Make a OpenDocument link.
1006 OPT-PLIST is an options list.
1007 TYPE-1 is the device-type of the link (THIS://foo.html).
1008 PATH is the path of the link (http://THIS#location).
1009 FRAGMENT is the fragment part of the link, if any (foo.html#THIS).
1010 DESC is the link description, if any.
1011 ATTR is a string of other attributes of the a element."
1022 ;; check for inlined images
1026 filename org-export-e-odt-inline-image-extensions)
1030 ;; check for embedded formulas
1053 desc))
1056 lineno-or-ref))
1065 thefile org-current-export-file)))))
1090 ;; No need to generate section numbers. They are auto-generated by
1091 ;; the application
1093 ;; (concat (org-lparse-format 'SECTION-NUMBER snumber level) " ")
1094 title
1104 text))
1126 n)
1129 def))
1130 id note-class)))
1145 '("<text:note-ref text:note-class=\"%s\" text:reference-format=\"%s\" text:ref-name=\"%s\">" . "</text:note-ref>")
1146 n note-class ref-format ref-name)
1156 "Create image tag with source and attributes."
1195 frame-style-handle href width height
1208 extra anchor-type)
1213 extra
1220 style frame-attrs)))
1223 extra anchor-type)
1230 width nil style extra anchor-type))
1237 "OrgInlineTaskHeading"
1240 nil tags))
1249 for default-frame-param in default-frame-params
1253 &key caption label category
1254 user-frame-params)
1256 default-frame-params frame-params)
1261 default-frame-params user-frame-params))
1266 default-frame-params user-frame-params))
1269 'illustration
1275 width height frame-params)))))
1279 "Returns the internal name of the file"
1298 target-file))
1325 org-export-e-odt-default-image-sizes-alist))))))
1328 user-height scale dpi embed-as)
1335 until size
1337 probe-method file dpi embed-as)))
1350 ;; ensure that an embedded image fits comfortably within a page
1361 "See `org-export-e-odt-get-category-from-label'."
1364 user-category user-category-map category)
1367 default-category-map)
1372 default-category-map)
1379 user-category-map
1380 default-category-map)))))
1383 "Create an entry in `org-e-odt-entity-labels-alist' and return it."
1386 label default-category))
1391 'downcase
1399 label-props))
1407 '("<text:sequence text:ref-name=\"%s\" text:name=\"%s\" text:formula=\"ooow:%s+1\" style:num-format=\"1\">" . "</text:sequence>")
1427 nil t)
1455 ;; Not at all OSes ship with zip by default
1462 ;; reset variables
1464 org-e-odt-embedded-images-count 0
1465 org-e-odt-embedded-formulas-count 0
1466 org-e-odt-section-count 0
1467 org-e-odt-entity-labels-alist nil
1468 org-e-odt-list-stack-stashed nil
1469 org-e-odt-automatic-styles nil
1470 org-e-odt-object-counters nil
1471 org-e-odt-entity-counts-plist nil)
1473 ;; init conten.xml
1481 ;; write automatic styles
1484 ;; write styles file
1485 ;; (when (equal org-lparse-backend 'odt) FIXME
1486 ;; )
1490 ;; create mimetype file
1495 ;; create a manifest entry for content.xml
1498 ;; write out the manifest entries before zipping
1508 ;; save all xml files
1512 ;; prettify output if needed
1516 xml-files)
1523 ;; FIXME: If the file is locked this throws a cryptic error
1539 cmds))
1541 ;; move the file from outdir to target-dir
1544 ;; kill all xml buffers
1548 xml-files)
1565 <manifest:manifest xmlns:manifest=\"urn:oasis:names:tc:opendocument:xmlns:manifest:1.0\" manifest:version=\"1.2\">\n")
1575 org-e-odt-manifest-file-entries)
1588 <office:document-meta
1603 org-version emacs-version)))
1611 ;; create a manifest entry for meta.xml
1615 ;; write styles file
1620 ;; Update styles.xml - take care of outline numbering
1623 ;; Don't make automatic backup of styles.xml file. This setting
1624 ;; prevents the backed-up styles.xml file from being zipped in to
1625 ;; odt file. This is more of a hackish fix. Better alternative
1626 ;; would be to fix the zip command so that the output odt file
1627 ;; includes only the needed files and excludes any auto-generated
1628 ;; extra files like backups and auto-saves etc etc. Note that
1629 ;; currently the zip command zips up the entire temp directory so
1630 ;; that any auto-generated files created under the hood ends up in
1631 ;; the resulting odt file.
1634 ;; Import local setting of `org-export-with-section-numbers'
1639 ;; Write custom styles for source blocks
1640 ;; (org-e-odt-insert-custom-styles-for-srcblocks FIXME
1641 ;; (mapconcat
1642 ;; (lambda (style)
1643 ;; (format " %s\n" (cddr style)))
1644 ;; hfy-user-sheet-assoc ""))
1645 )
1648 ;; create mimetype file
1655 mimetype))
1670 ;;;###autoload
1672 "Convert IN-FILE to format OUT-FMT using a command line converter.
1673 IN-FILE is the file to be converted. If unspecified, it defaults
1674 to variable `buffer-file-name'. OUT-FMT is the desired output
1675 format. Use `org-export-e-odt-convert-process' as the converter.
1676 If PREFIX-ARG is non-nil then the newly converted file is opened
1677 using `org-open-file'."
1696 org-export-e-odt-convert-processes t))))
1700 org-export-e-odt-convert-processes t))
1701 org-export-e-odt-convert-capabilities))
1714 "Convert LaTeX fragments to images."
1723 "LaTeX to MathML converter not available. "
1725 org-lparse-latex-fragment-fallback)))))
1726 latex-frag-opt))
1727 cache-dir display-msg)
1740 org-current-export-dir nil display-msg
1741 nil nil latex-frag-opt))))
1745 "Encode LaTeX fragment as XML.
1746 Do this when translation to MathML fails."
1765 ;; markup generated below is mostly an eye-candy. At
1766 ;; pre-processing stage, there is no information on which
1767 ;; entity a label reference points to. The actual markup
1768 ;; is generated as part of `org-e-odt-fixup-label-references'
1769 ;; which gets called at the fag end of export. By this
1770 ;; time we would have seen and collected all the label
1771 ;; definitions in `org-e-odt-entity-labels-alist'.
1777 ;; process latex fragments as part of
1778 ;; `org-export-preprocess-after-blockquote-hook'. Note that this hook
1779 ;; is the one that is closest and well before the call to
1780 ;; `org-export-attach-captions-and-attributes' in
1781 ;; `org-export-preprocess-string'. The above arrangement permits
1782 ;; captions, labels and attributes to be attached to png images
1783 ;; generated out of latex equations.
1797 exit-code command-output)
1810 members))
1813 ;; Non-availability of styles.xml is not a critical error. For now
1814 ;; throw an error purely for aesthetic reasons.
1816 org-export-e-odt-styles-file
1818 org-e-odt-styles-dir)
1831 members)))
1841 org-export-e-odt-styles-file))))
1843 ;; create a manifest entry for styles.xml
1847 "Outline numbering is retained only upto LEVEL.
1848 To disable outline numbering pass a LEVEL of 0."
1859 ;;;###autoload
1861 "Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
1862 Use `org-create-math-formula' to convert LATEX-FRAG first to
1863 MathML. When invoked as an interactive command, use
1864 `org-latex-regexps' to infer LATEX-FRAG from currently active
1865 region. If no LaTeX fragments are found, prompt for it. Push
1866 MathML source to kill ring, if `org-export-copy-to-kill-ring' is
1867 non-nil."
1886 org-lparse-opt-plist
1906 )))
1908 ;;;###autoload
1910 "Export LaTeX fragment as OpenDocument formula and immediately open it.
1911 Use `org-export-as-odf' to read LaTeX fragment and OpenDocument
1912 formula file."
1918 \f
1920 ;;; Driver Starts here
1921 ;;; Dependencies
1927 \f
1928 ;;; Hooks
1936 ;; FIXME: it already exists in org-e-odt.el
1937 ;;; Function Declarations
1974 org-export-to-buffer "org-export"
1977 org-export-to-file "org-export"
1987 \f
1993 ;;; Internal Variables
1995 ;;;; ODT Internal Variables
1999 "Location of ODT exporter.
2000 Use this to infer values of `org-e-odt-styles-dir' and
2005 "Data directory for ODT exporter.
2006 Use this to infer values of `org-e-odt-styles-dir' and
2027 )
2028 "List of directories to search for OpenDocument schema files.
2029 Use this list to set the default value of
2030 `org-export-e-odt-schema-dir'. The entries in this list are
2031 populated heuristically based on the values of `org-e-odt-lib-dir'
2045 )
2046 "List of directories to search for OpenDocument styles files.
2047 See `org-e-odt-styles-dir'. The entries in this list are populated
2048 heuristically based on the values of `org-e-odt-lib-dir' and
2065 styles-dir)
2067 org-e-odt-styles-dir-list)
2068 nil)))
2071 styles-dir)
2072 "Directory that holds auxiliary XML files used by the ODT exporter.
2074 This directory contains the following XML files -
2076 XML files are used as the default values of
2077 `org-export-e-odt-styles-file' and
2078 `org-export-e-odt-content-template-file'.
2080 The default value of this variable varies depending on the
2081 version of org in use and is initialized from
2082 `org-e-odt-styles-dir-list'. Note that the user could be using org
2083 from one of: org's own private git repository, GNU ELPA tar or
2090 "
2206 ;;;_. callbacks
2207 ;;;_. control callbacks
2208 ;;;_ , document body
2234 "
2236 <style:table-properties style:rel-width=\"%d%%\" fo:margin-top=\"0cm\" fo:margin-bottom=\"0.20cm\" table:align=\"center\"/>
2237 </style:style>
2238 "
2242 "Registry of automatic styles for various OBJECT-TYPEs.
2243 The variable has the following form:
2244 \(\(OBJECT-TYPE-A
2245 \(\(OBJECT-NAME-A.1 OBJECT-PROPS-A.1\)
2246 \(OBJECT-NAME-A.2 OBJECT-PROPS-A.2\) ...\)\)
2247 \(OBJECT-TYPE-B
2248 \(\(OBJECT-NAME-B.1 OBJECT-PROPS-B.1\)
2249 \(OBJECT-NAME-B.2 OBJECT-PROPS-B.2\) ...\)\)
2250 ...\).
2253 OBJECT-PROPS is (typically) a plist created by passing
2259 "Running counters for various OBJECT-TYPEs.
2260 Use this to generate automatic names and style-names. See
2269 "<style:style style:name=\"OrgSrcBlock\" style:family=\"paragraph\" style:parent-style-name=\"Preformatted_20_Text\">
2270 <style:paragraph-properties fo:background-color=\"%s\" fo:padding=\"0.049cm\" fo:border=\"0.51pt solid #000000\" style:shadow=\"none\">
2271 <style:background-image/>
2272 </style:paragraph-properties>
2274 </style:style>"
2275 "Custom paragraph style for colorized source and example blocks.
2277 except that the foreground and background colors are set
2314 "Hardcoded image dimensions one for each of the anchor
2317 ;; A4 page size is 21.0 by 29.7 cms
2318 ;; The default page settings has 2cm margin on each of the sides. So
2319 ;; the effective text area is 17.0 by 25.7 cm
2324 "Associate Labels with the Labeled entities.
2325 Each element of the alist is of the form (LABEL-NAME
2326 CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as
2328 type of the entity that LABEL-NAME is attached to. CATEGORY-NAME
2330 the unique number assigned to the referenced entity on a
2331 per-CATEGORY basis. It is generated sequentially and is 1-based.
2332 LABEL-STYLE-NAME is a key `org-e-odt-label-styles'.
2334 See `org-e-odt-add-label-definition' and
2338 "Plist of running counters of SEQNOs for each of the CATEGORY-NAMEs.
2345 "Specify how labels are applied and referenced.
2346 This is an alist where each element is of the
2347 form (LABEL-STYLE-NAME LABEL-ATTACH-FMT LABEL-REF-MODE
2348 LABEL-REF-FMT).
2350 LABEL-ATTACH-FMT controls how labels and captions are attached to
2351 an entity. It may contain following specifiers - %e, %n and %c.
2352 %e is replaced with the CATEGORY-NAME. %n is replaced with
2354 with CAPTION. See `org-e-odt-format-label-definition'.
2356 LABEL-REF-MODE and LABEL-REF-FMT controls how label references
2357 are generated. The following XML is generated for a label
2361 specifiers - %e and %n. %e is replaced with the CATEGORY-NAME.
2362 %n is replaced with SEQNO. See
2370 ;; ("__Table__" "Table" "category-and-value")
2371 ;; ("__Figure__" "Figure" "category-and-value")
2372 ;; ("__DvipngImage__" "Equation" "category-and-value")
2373 )
2374 "Map a CATEGORY-HANDLE to CATEGORY-NAME and LABEL-STYLE.
2375 This is an alist where each element is of the form
2377 could either be one of the internal handles (as seen above) or be
2379 `org-export-e-odt-get-category-from-label'. CATEGORY-NAME and
2380 LABEL-STYLE are used for generating ODT labels. See
2387 "Should category of label be inferred from label itself.
2388 When this option is non-nil, a label is parsed in to two
2390 #+LABEL:[CATEGORY-HANDLE:]EXTRA. The CATEGORY-HANDLE is mapped
2391 to a CATEGORY-NAME and LABEL-STYLE using
2392 `org-e-odt-category-map-alist'. (If no such map is provided and
2393 CATEGORY-NAME is set to CATEGORY-HANDLE and LABEL-STYLE is set to
2395 under `org-export-e-odt-user-categories' then the user specified
2396 styles are used. Otherwise styles as determined by the internal
2397 CATEGORY-HANDLE is used. See
2405 ;;;; HTML Internal Variables
2408 '(
2409 ;; (:agenda-style nil nil org-agenda-export-html-style)
2410 ;; (:convert-org-links nil nil org-e-odt-link-org-files-as-html)
2411 ;; ;; FIXME Use (org-xml-encode-org-text-skip-links s) ??
2412 ;; ;; (:expand-quoted-html nil "@" org-e-odt-expand)
2413 ;; (:inline-images nil nil org-e-odt-inline-images)
2414 ;; ;; (:link-home nil nil org-e-odt-link-home) FIXME
2415 ;; ;; (:link-up nil nil org-e-odt-link-up) FIXME
2416 ;; (:style nil nil org-e-odt-style)
2417 ;; (:style-extra nil nil org-e-odt-style-extra)
2418 ;; (:style-include-default nil nil org-e-odt-style-include-default)
2419 ;; (:style-include-scripts nil nil org-e-odt-style-include-scripts)
2420 ;; ;; (:timestamp nil nil org-e-odt-with-timestamp)
2421 ;; (:html-extension nil nil org-e-odt-extension)
2422 ;; (:html-postamble nil nil org-e-odt-postamble)
2423 ;; (:html-preamble nil nil org-e-odt-preamble)
2424 ;; (:html-table-tag nil nil org-e-odt-table-tag)
2425 ;; (:xml-declaration nil nil org-e-odt-xml-declaration)
2427 "Alist between export properties and ways to set them.
2429 The car of the alist is the property name, and the cdr is a list
2430 like \(KEYWORD OPTION DEFAULT BEHAVIOUR\) where:
2432 KEYWORD is a string representing a buffer keyword, or nil.
2433 OPTION is a string that could be found in an #+OPTIONS: line.
2434 DEFAULT is the default value for the property.
2435 BEHAVIOUR determine how Org should handle multiple keywords for
2436 the same property. It is a symbol among:
2437 nil Keep old value and discard the new one.
2438 t Replace old value with the new one.
2439 `space' Concatenate the values, separating them with a space.
2440 `newline' Concatenate the values, separating them with
2441 a newline.
2442 `split' Split values at white spaces, and cons them to the
2443 previous list.
2445 KEYWORD and OPTION have precedence over DEFAULT.
2447 All these properties should be back-end agnostic. For back-end
2448 specific properties, define a similar variable named
2449 `org-BACKEND-option-alist', replacing BACKEND with the name of
2450 the appropriate back-end. You can also redefine properties
2455 ;; FIXME: it already exists in org-e-odt.el
2457 nil
2458 "Function to convert link URLs to exportable URLs.
2459 Takes two arguments, TYPE and PATH.
2460 Returns exportable url as (TYPE PATH), or nil to signal that it
2461 didn't handle this case.
2465 \f
2476 \f
2479 title tags target extra-targets extra-class)
2483 \f
2484 ;;; User Configuration Variables
2487 "Options for exporting Org mode files to HTML."
2495 "Alist of characters to be converted by `org-e-html-protect'."
2509 schema-dir))
2512 schema-dir))
2516 schema-dir)
2518 org-e-odt-schema-dir-list)
2520 nil)))
2521 schema-dir)
2522 "Directory that contains OpenDocument schema files.
2524 This directory contains:
2525 1. rnc files for OpenDocument schema
2527 for auto validation of OpenDocument XML files.
2529 Use the customize interface to set this variable. This ensures
2530 that `rng-schema-locating-files' is updated and auto-validation
2531 of OpenDocument XML takes place based on the value
2532 `rng-nxml-auto-validate-flag'.
2534 The default value of this variable varies depending on the
2535 version of org in use and is initialized from
2536 `org-e-odt-schema-dir-list'. The OASIS schema files are available
2537 only in the org's private git repository. It is *not* bundled
2538 with GNU ELPA tar or standard Emacs distribution."
2544 :set
2546 "Set `org-export-e-odt-schema-dir'.
2547 Also add it to `rng-schema-locating-files'."
2557 schema-dir
2560 value))
2561 nil)))
2566 org-export-e-odt-schema-dir))))))
2570 The exporter embeds the exported content just before
2574 under `org-e-odt-styles-dir' is used."
2580 "Default styles file for use with ODT export.
2581 Valid values are one of:
2582 1. nil
2583 2. path to a styles.xml file
2584 3. path to a *.odt or a *.ott file
2585 4. list of the form (ODT-OR-OTT-FILE (FILE-MEMBER-1 FILE-MEMBER-2
2586 ...))
2588 In case of option 1, an in-built styles.xml is used. See
2589 `org-e-odt-styles-dir' for more information.
2591 In case of option 3, the specified file is unzipped and the
2592 styles.xml embedded therein is used.
2594 In case of option 4, the specified ODT-OR-OTT-FILE is unzipped
2595 and FILE-MEMBER-1, FILE-MEMBER-2 etc are copied in to the
2596 generated odt file. Use relative path for specifying the
2597 FILE-MEMBERS. styles.xml must be specified as one of the
2598 FILE-MEMBERS.
2600 Use options 1, 2 or 3 only if styles.xml alone suffices for
2601 achieving the desired formatting. Use option 4, if the styles.xml
2602 references additional files like header and footer images for
2603 achieving the desired formatting.
2606 a per-file basis. For example,
2612 :type
2626 "Extensions of image files that can be inlined into HTML."
2632 "Scaling factor for converting images pixels to inches.
2633 Use this for sizing of embedded images. See Info node `(org)
2634 Images in ODT export' for more information."
2640 "Whether custom styles for colorized source blocks be automatically created.
2641 When this option is turned on, the exporter creates custom styles
2642 for source blocks based on the advice of `htmlfontify'. Creation
2643 of custom styles happen as part of `org-e-odt-hfy-face-to-css'.
2645 When this option is turned off exporter does not create such
2646 styles.
2648 Use the latter option if you do not want the custom styles to be
2649 based on your current display settings. It is necessary that the
2650 styles.xml already contains needed styles for colorizing to work.
2652 This variable is effective only if
2653 `org-export-e-odt-fontify-srcblocks' is turned on."
2660 Interactive commands `org-export-as-e-odt' and
2662 then use `org-export-e-odt-convert-process' to convert the
2663 resulting document to this format. During customization of this
2664 variable, the list of valid values are populated based on
2665 `org-export-e-odt-convert-capabilities'."
2681 "Specify how Table Styles should be derived from a Table Template.
2682 This is a list where each element is of the
2683 form (TABLE-STYLE-NAME TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS).
2685 TABLE-STYLE-NAME is the style associated with the table through
2686 `org-e-odt-table-style'.
2688 TABLE-TEMPLATE-NAME is a set of - upto 9 - automatic
2689 TABLE-CELL-STYLE-NAMEs and PARAGRAPH-STYLE-NAMEs (as defined
2690 below) that is included in
2691 `org-export-e-odt-content-template-file'.
2693 TABLE-CELL-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +
2695 PARAGRAPH-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +
2703 TABLE-CELL-OPTIONS is an alist where each element is of the
2704 form (TABLE-CELL-STYLE-SELECTOR . ON-OR-OFF).
2705 TABLE-CELL-STYLE-SELECTOR := `use-first-row-styles' |
2706 `use-last-row-styles' |
2707 `use-first-column-styles' |
2708 `use-last-column-styles' |
2709 `use-banding-rows-styles' |
2710 `use-banding-columns-styles' |
2711 `use-first-row-styles'
2712 ON-OR-OFF := `t' | `nil'
2714 For example, with the following configuration
2716 \(setq org-export-e-odt-table-styles
2718 \(\(use-first-row-styles . t\)
2719 \(use-first-column-styles . t\)\)\)
2721 \(\(use-first-column-styles . t\)\)\)\)\)
2724 style will use the following table-cell styles -
2729 as appropriate.
2732 use the following table-cell styles -
2734 following paragraph styles
2736 as appropriate..
2738 Note that TABLE-TEMPLATE-NAME corresponds to the
2741 TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS) correspond to
2744 specification for more information. Also consult the
2745 implementation filed under `org-e-odt-get-table-cell-styles'.
2748 formatting of numbered display equations. Do not delete this
2749 style from the list."
2759 use-last-row-styles
2760 use-first-column-styles
2761 use-last-column-styles
2762 use-banding-rows-styles
2763 use-banding-columns-styles)
2764 :key-type symbol
2767 "Specify whether or not source blocks need to be fontified.
2768 Turn this option on if you want to colorize the source code
2769 blocks in the exported file. For colorization to work, you need
2770 to make available an enhanced version of `htmlfontify' library."
2776 "Specify whether or not the xml output should be prettified.
2777 When this option is turned on, `indent-region' is run on all
2778 component xml buffers before they are saved. Turn this off for
2779 regular use. Turn this on if you need to examine the xml
2780 visually."
2790 "Specify a list of document converters and their usage.
2791 The converters in this list are offered as choices while
2792 customizing `org-export-e-odt-convert-process'.
2794 This variable is a list where each element is of the
2795 form (CONVERTER-NAME CONVERTER-CMD). CONVERTER-NAME is the name
2796 of the converter. CONVERTER-CMD is the shell command for the
2797 converter and can contain format specifiers. These format
2798 specifiers are interpreted as below:
2800 %i input file name in full
2801 %I input file name as a URL
2802 %f format of the output file
2803 %o output file name in full
2804 %O output file name as a URL
2805 %d output dir in full
2806 %D output dir as a URL.
2807 %x extra options as set in `org-export-e-odt-convert-capabilities'."
2810 :type
2819 During customization, the list of converter names are populated
2820 from `org-export-e-odt-convert-processes'."
2830 org-export-e-odt-convert-processes))))
2848 "Specify input and output formats of `org-export-e-odt-convert-process'.
2849 More correctly, specify the set of input and output formats that
2850 the user is actually interested in.
2852 This variable is an alist where each element is of the
2853 form (DOCUMENT-CLASS INPUT-FMT-LIST OUTPUT-FMT-ALIST).
2854 INPUT-FMT-LIST is a list of INPUT-FMTs. OUTPUT-FMT-ALIST is an
2855 alist where each element is of the form (OUTPUT-FMT
2856 OUTPUT-FILE-EXTENSION EXTRA-OPTIONS).
2858 The variable is interpreted as follows:
2859 `org-export-e-odt-convert-process' can take any document that is in
2860 INPUT-FMT-LIST and produce any document that is in the
2861 OUTPUT-FMT-LIST. A document converted to OUTPUT-FMT will have
2862 OUTPUT-FILE-EXTENSION as the file name extension. OUTPUT-FMT
2863 serves dual purposes:
2864 - It is used for populating completion candidates during
2865 `org-export-e-odt-convert' commands.
2867 `org-export-e-odt-convert-process'.
2870 `org-export-e-odt-convert-process'.
2872 DOCUMENT-CLASS is used to group a set of file formats in
2873 INPUT-FMT-LIST in to a single class.
2875 Note that this variable inherently captures how LibreOffice based
2876 converters work. LibreOffice maps documents of various formats
2877 to classes like Text, Web, Spreadsheet, Presentation etc and
2878 allow document of a given class (irrespective of it's source
2879 format) to be converted to any of the export formats associated
2880 with that class.
2882 See default setting of this variable for an typical
2883 configuration."
2886 :type
2891 :value-type
2895 :value-type
2901 ;;;; Debugging
2904 ;;;; Document
2906 ;;;; Document Header (Styles)
2908 ;;;; Document Header (Scripts)
2910 ;;;; Document Header (Mathjax)
2912 ;;;; Preamble
2914 ;;;; Postamble
2916 ;;;; Emphasis
2918 ;;;; Todos
2920 ;;;; Tags
2922 ;;;; Time-stamps
2923 ;;;; Statistics Cookie
2924 ;;;; Subscript
2925 ;;;; Superscript
2927 ;;;; Inline images
2929 ;;;; Block
2930 ;;;; Comment
2931 ;;;; Comment Block
2932 ;;;; Drawer
2933 ;;;; Dynamic Block
2934 ;;;; Emphasis
2935 ;;;; Entity
2936 ;;;; Example Block
2937 ;;;; Export Snippet
2938 ;;;; Export Block
2939 ;;;; Fixed Width
2940 ;;;; Footnotes
2942 ;;;; Headline
2943 ;;;; Horizontal Rule
2944 ;;;; Inline Babel Call
2945 ;;;; Inline Src Block
2946 ;;;; Inlinetask
2947 ;;;; Item
2948 ;;;; Keyword
2949 ;;;; Latex Environment
2950 ;;;; Latex Fragment
2951 ;;;; Line Break
2952 ;;;; Link
2953 ;;;; Babel Call
2954 ;;;; Macro
2955 ;;;; Paragraph
2956 ;;;; Plain List
2957 ;;;; Plain Text
2958 ;;;; Property Drawer
2959 ;;;; Quote Block
2960 ;;;; Quote Section
2961 ;;;; Section
2962 ;;;; Radio Target
2963 ;;;; Special Block
2964 ;;;; Src Block
2966 ;;;; Table
2968 ;;;; Target
2969 ;;;; Time-stamp
2971 ;;;; Verbatim
2972 ;;;; Verse Block
2973 ;;;; Headline
2975 ;;;; Links
2976 ;;;; Drawers
2977 ;;;; Inlinetasks
2978 ;;;; Publishing
2980 ;;;; Compilation
2983 \f
2984 ;;; User Configurable Variables (MAYBE)
2986 ;;;; Preamble
2988 ;;;; Headline
2990 ;;;; Emphasis
2993 "Function to format headline text.
2995 This function will be called with 5 arguments:
2996 TODO the todo keyword \(string or nil\).
2997 TODO-TYPE the type of todo \(symbol: `todo', `done', nil\)
2998 PRIORITY the priority of the headline \(integer or nil\)
2999 TEXT the main headline text \(string\).
3000 TAGS the tags string, separated with colons \(string or nil\).
3002 The function result will be used in the section format string.
3004 As an example, one could set the variable to the following, in
3005 order to reproduce the default set-up:
3007 \(defun org-e-odt-format-headline \(todo todo-type priority text tags\)
3009 \(concat \(when todo
3011 \(when priority
3013 text
3018 ;;;; Footnotes
3020 ;;;; Time-stamps
3023 "A printf format string to be applied to active time-stamps."
3028 "A printf format string to be applied to inactive time-stamps."
3033 "A printf format string to be applied to diary time-stamps."
3038 ;;;; Links
3041 "Default option for images."
3046 "Default position for latex figures."
3052 "Rules characterizing image files that can be inlined into HTML.
3054 A rule consists in an association whose key is the type of link
3055 to consider, and value is a regexp that will be matched against
3056 link's path.
3058 Note that, by default, the image extension *actually* allowed
3059 depend on the way the HTML file is processed. When used with
3060 pdflatex, pdf, jpg and png images are OK. When processing
3061 through dvi to Postscript, only ps and eps are allowed. The
3062 default we use here encompasses both."
3067 ;;;; Tables
3070 "When non-nil, place caption string at the beginning of the table.
3071 Otherwise, place it near the end."
3075 ;;;; Drawers
3078 "Function called to format a drawer in HTML code.
3080 The function must accept two parameters:
3082 CONTENTS the contents of the drawer.
3084 The function should return the string to be exported.
3086 For example, the variable could be set to the following function
3087 in order to mimic default behaviour:
3089 \(defun org-e-odt-format-drawer-default \(name contents\)
3091 contents\)"
3096 ;;;; Inlinetasks
3099 "Function called to format an inlinetask in HTML code.
3101 The function must accept six parameters:
3102 TODO the todo keyword, as a string
3103 TODO-TYPE the todo type, a symbol among `todo', `done' and nil.
3104 PRIORITY the inlinetask priority, as a string
3105 NAME the inlinetask name, as a string.
3106 TAGS the inlinetask tags, as a string.
3107 CONTENTS the contents of the inlinetask, as a string.
3109 The function should return the string to be exported.
3111 For example, the variable could be set to the following function
3112 in order to mimic default behaviour:
3114 \(defun org-e-odt-format-inlinetask \(todo type priority name tags contents\)
3116 \(let \(\(full-title
3117 \(concat
3118 \(when todo
3121 title
3131 full-title contents\)\)"
3136 ;; Src blocks
3138 ;;;; Plain text
3143 "Alist for quotes to use when converting english double-quotes.
3145 The CAR of each item in this alist is the language code.
3146 The CDR of each item in this alist is a list of three CONS:
3147 - the first CONS defines the opening quote;
3148 - the second CONS defines the closing quote;
3149 - the last CONS defines single quotes.
3151 For each item in a CONS, the first string is a regexp
3152 for allowed characters before/after the quote, the second
3153 string defines the replacement string for this quote."
3167 ;;;; Compilation
3170 \f
3171 ;;; Internal Functions (HTML)
3173 ;; (defun org-e-odt-format-inline-image (path &optional caption label attr)
3174 ;; ;; FIXME: alt text missing here?
3175 ;; (let ((inline-image (format "<img src=\"%s\" alt=\"%s\"/>"
3176 ;; path (file-name-nondirectory path))))
3177 ;; (if (not label) inline-image
3178 ;; (org-e-odt-format-section inline-image "figure" label))))
3181 "Create image tag with source and attributes."
3208 extra)))
3210 img))))
3212 ;;;; Bibliography
3215 "Find bibliography, cut it out and return it."
3230 nil))))
3232 ;;;; Table
3239 "Read attributes in string ATTRIBUTES, add and replace in HTML tag TAG."
3241 tag
3251 t t tag)))
3252 tag)))
3262 style))
3265 "Convert the region to HTML, using htmlize.el.
3266 This is much like `htmlize-region-for-paste', only that it uses
3267 the settings define in the org-... variables."
3277 ;;;###autoload
3279 "Create the CSS for all font definitions in the current Emacs session.
3280 Use this to create face definitions in your CSS style file that can then
3281 be used by code snippets transformed by htmlize.
3282 This command just produces a buffer that contains class definitions for all
3283 faces used in the current Emacs session. You can copy and paste the ones you
3284 need into your CSS file.
3286 If you then set `org-export-e-odtize-output-type' to `css', calls to
3287 the function `org-export-e-odtize-region-for-paste' will produce code
3288 that uses these same face definitions."
3296 f i)
3312 ;; (defun org-e-odt-format-toc-entry (snumber todo headline tags href)
3313 ;; (setq headline (concat
3314 ;; ;; section number
3315 ;; (and org-export-with-section-numbers (concat snumber " "))
3316 ;; ;; headline
3317 ;; headline
3318 ;; ;; tags
3319 ;; (and tags (concat
3320 ;; (org-e-odt-format-spaces 3)
3321 ;; (org-e-odt-format-fontify tags "tag")))))
3322 ;; ;; fontify headline based on TODO keyword
3323 ;; (when todo (setq headline (org-e-odt-format-fontify headline "todo")))
3324 ;; (org-e-odt-format-link headline (concat "#" href)))
3328 headline tags target extra-targets extra-class)
3361 target extra-targets extra-class)
3373 level1 target))))
3379 ;; (defun org-e-odt-format-heading (text level &optional id)
3380 ;; (let* ((extra (concat (when id (format " id=\"%s\"" id)))))
3381 ;; (concat (format "<h%d%s>" level extra) text (format "</h%d>" level))))
3386 org-export-preferred-target-alist))))
3390 tags target extra-targets extra-class)
3394 level1 target)
3395 contents))
3397 ;; (defun org-e-odt-begin-outline-text (level1 snumber extra-class)
3398 ;; (let* ((class (format "outline-text-%d" level1))
3399 ;; (class (if extra-class (concat class " " extra-class) class))
3400 ;; (id (format "text-%s" (org-lparse-suffix-from-snumber snumber)))
3401 ;; (extra (concat (when id (format " id=\"%s\"" id))
3402 ;; (when class (format " class=\"%s\"" class)))))
3403 ;; (org-lparse-insert-tag "<div%s>" extra)))
3405 ;; (defun org-e-odt-end-outline-text ()
3406 ;; (org-lparse-insert-tag "</div>"))
3408 ;; (defun org-e-odt-format-spaces (n)
3409 ;; (let (out) (dotimes (i n out) (setq out (concat out " ")))))
3414 ;; (defun org-e-odt-format-line (line)
3415 ;; (case org-lparse-dyn-current-environment
3416 ;; ((quote fixedwidth) (concat (org-e-odt-encode-plain-text line) "\n"))
3417 ;; (t (concat line "\n"))))
3424 "Turn todo keyword into a valid class name.
3429 kwd)
3431 ;; (defun org-e-odt-format-fontify (text style &optional id)
3432 ;; (let (class extra how)
3433 ;; (cond
3434 ;; ((eq style 'underline)
3435 ;; (setq extra " style=\"text-decoration:underline;\"" ))
3436 ;; ((setq how (cdr (assoc style
3437 ;; '((bold . ("<b>" . "</b>"))
3438 ;; (emphasis . ("<i>" . "</i>"))
3439 ;; (code . ("<code>" . "</code>"))
3440 ;; (verbatim . ("<code>" . "</code>"))
3441 ;; (strike . ("<del>" . "</del>"))
3442 ;; (subscript . ("<sub>" . "</sub>"))
3443 ;; (superscript . ("<sup>" . "</sup>")))))))
3444 ;; ((listp style)
3445 ;; (setq class (mapconcat 'identity style " ")))
3446 ;; ((stringp style)
3447 ;; (setq class style))
3448 ;; (t (error "Unknown style %S" style)))
3450 ;; (setq extra (concat (when class (format " class=\"%s\"" class))
3451 ;; (when id (format " id=\"%s\"" id))
3452 ;; extra))
3454 ;; (let ((tags (or how '("<span%s>" . "</span>"))))
3455 ;; (concat (format (car tags) extra) text (cdr tags)))))
3457 ;; (defun org-e-odt-format-link (text href &optional extra)
3458 ;; (let ((extra (concat (format " href=\"%s\"" href)
3459 ;; (and extra (concat " " extra)))))
3460 ;; (format "<a%s>%s</a>" extra text)))
3465 ;; (defun org-e-odt-format-heading (text level &optional id)
3466 ;; (let* ((extra (concat (when id (format " id=\"%s\"" id)))))
3467 ;; (concat (format "<h%d%s>" level extra) text (format "</h%d>\n" level))))
3469 ;; (defun org-e-odt-format-anchor (text name &optional class)
3470 ;; (let* ((id name)
3471 ;; (extra (concat
3472 ;; (when name (format " name=\"%s\"" name))
3473 ;; (when id (format " id=\"%s\"" id))
3474 ;; (when class (format " class=\"%s\"" class)))))
3475 ;; (format "<a%s>%s</a>" extra text)))
3497 ;; FIXME
3499 ;; (not org-lparse-body-only)
3500 snumber level
3503 ;; (defun org-e-odt-format-headline (title extra-targets tags
3504 ;; &optional snumber level)
3505 ;; (concat
3506 ;; (org-e-odt-format-extra-targets extra-targets)
3507 ;; (concat (org-e-odt-format-section-number snumber level) " ")
3508 ;; title
3509 ;; (and tags (concat (org-e-odt-format-spaces 3)
3510 ;; (org-e-odt-format-org-tags tags)))))
3512 ;; (defun org-e-odt-format-footnote-reference (n def refcnt)
3513 ;; (let ((extra (if (= refcnt 1) "" (format ".%d" refcnt))))
3514 ;; (format org-e-odt-footnote-format
3515 ;; (format
3516 ;; "<a class=\"footref\" name=\"fnr.%s%s\" href=\"#fn.%s\">%s</a>"
3517 ;; n extra n n))))
3523 ;; (defun org-e-odt-format-footnote-definition (fn)
3524 ;; (let ((n (car fn)) (def (cdr fn)))
3525 ;; (format
3526 ;; "<tr>\n<td>%s</td>\n<td>%s</td>\n</tr>\n"
3527 ;; (format
3528 ;; (format org-e-odt-footnote-format
3529 ;; "<a class=\"footnum\" name=\"fn.%s\" href=\"#fnr.%s\">%s</a>")
3530 ;; n n n) def)))
3540 ;; (defun org-e-odt-format-date (info)
3541 ;; (let ((date (plist-get info :date)))
3542 ;; (cond
3543 ;; ((and date (string-match "%" date))
3544 ;; (format-time-string date))
3545 ;; (date date)
3546 ;; (t (format-time-string "%Y-%m-%d %T %Z")))))
3549 \f
3550 ;;; Internal Functions (Ngz)
3553 "Return caption and label HTML string for floats.
3555 CAPTION is a cons cell of secondary strings, the car being the
3556 standard caption and the cdr its short form. LABEL is a string
3557 representing the label. INFO is a plist holding contextual
3558 information.
3560 If there's no caption nor label, return the empty string.
3562 For non-floats, see `org-e-odt--wrap-label'."
3569 ;; Option caption format with short name.
3573 label-str
3575 ;; Standard caption format.
3576 ;; (t (format "\\caption{%s%s}\n"
3577 ;; label-str
3578 ;; (org-export-secondary-string (car caption) 'e-odt info)))
3583 "Return a character not used in string S.
3585 (let ((ll "~,./?;':\"|!@#%^&-_=+abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ<>()[]{}"))
3591 "Return a comma separated string of keywords and values.
3592 OPTIONS is an alist where the key is the options keyword as
3593 a string, and the value a list containing the keyword value, or
3594 nil."
3599 options
3603 "Export quotation marks depending on language conventions.
3604 TEXT is a string containing quotation marks to be replaced. INFO
3605 is a plist used as a communication channel."
3612 ;; Falls back on English.
3614 text)
3617 "Wrap label associated to ELEMENT around OUTPUT, if appropriate.
3618 This function shouldn't be used for floats. See
3619 `org-e-odt--caption/label-string'."
3620 ;; (let ((label (org-element-property :name element)))
3621 ;; (if (or (not output) (not label) (string= output "") (string= label ""))
3622 ;; output
3623 ;; (concat (format "\\label{%s}\n" label) output)))
3624 output)
3627 \f
3628 ;;; Template
3631 "Return complete document string after HTML conversion.
3632 CONTENTS is the transcoded contents string. RAW-DATA is the
3633 original parsed data. INFO is a plist holding export options."
3636 ;; write meta file
3644 org-e-odt-styles-dir)))
3649 ;; Title
3651 ;; Table of Contents
3655 ;; Contents
3660 \f
3661 ;;; Transcode Functions
3663 ;;;; Block
3666 "Transcode a CENTER-BLOCK element from Org to HTML.
3667 CONTENTS holds the contents of the block. INFO is a plist
3668 holding contextual information."
3670 center-block
3674 ;;;; Comment
3676 ;; Comments are ignored.
3679 ;;;; Comment Block
3681 ;; Comment Blocks are ignored.
3684 ;;;; Drawer
3687 "Transcode a DRAWER element from Org to HTML.
3688 CONTENTS holds the contents of the block. INFO is a plist
3689 holding contextual information."
3693 name contents)
3694 ;; If there's no user defined function: simply
3695 ;; display contents of the drawer.
3696 contents)))
3700 ;;;; Dynamic Block
3703 "Transcode a DYNAMIC-BLOCK element from Org to HTML.
3704 CONTENTS holds the contents of the block. INFO is a plist
3705 holding contextual information. See
3706 `org-export-data'."
3710 ;;;; Emphasis
3713 "Transcode EMPHASIS from Org to HTML.
3714 CONTENTS is the contents of the emphasized text. INFO is a plist
3715 holding contextual information.."
3716 ;; (format (cdr (assoc (org-element-property :marker emphasis)
3717 ;; org-e-odt-emphasis-alist))
3718 ;; contents)
3730 ;;;; Entity
3733 "Transcode an ENTITY object from Org to HTML.
3734 CONTENTS are the definition itself. INFO is a plist holding
3735 contextual information."
3736 ;; (let ((ent (org-element-property :latex entity)))
3737 ;; (if (org-element-property :latex-math-p entity)
3738 ;; (format "$%s$" ent)
3739 ;; ent))
3743 ;;;; Example Block
3746 ;; (defun org-odt-format-source-code-or-example-colored
3747 ;; (lines lang caption textareap cols rows num cont rpllbl fmt))
3749 ;; (defun org-e-odt-format-source-code-or-example-plain
3750 ;; (lines lang caption textareap cols rows num cont rpllbl fmt)
3751 ;; (setq lines
3752 ;; (concat
3753 ;; "<pre class=\"example\">\n"
3754 ;; (cond
3755 ;; (textareap
3756 ;; (concat
3757 ;; (format "<p>\n<textarea cols=\"%d\" rows=\"%d\">"
3758 ;; cols rows)
3759 ;; lines "</textarea>\n</p>\n"))
3760 ;; (t
3761 ;; (with-temp-buffer
3762 ;; (insert lines)
3763 ;; (goto-char (point-min))
3764 ;; (while (re-search-forward "[<>&]" nil t)
3765 ;; (replace-match (cdr (assq (char-before)
3766 ;; '((?&."&")(?<."<")(?>.">"))))
3767 ;; t t))
3768 ;; (buffer-string))))
3769 ;; "</pre>\n"))
3771 ;; (unless textareap
3772 ;; (setq lines (org-export-number-lines lines 1 1 num cont rpllbl fmt)))
3774 ;; ;; (when (string-match "\\(\\`<[^>]*>\\)\n" lines)
3775 ;; ;; (setq lines (replace-match "\\1" t nil lines)))
3777 ;; lines)
3779 ;; (defun org-e-odt-format-source-code-or-example-colored
3780 ;; (lines lang caption textareap cols rows num cont rpllbl fmt)
3781 ;; (let* ((lang-m (when lang
3782 ;; (or (cdr (assoc lang org-src-lang-modes))
3783 ;; lang)))
3784 ;; (mode (and lang-m (intern
3785 ;; (concat
3786 ;; (if (symbolp lang-m)
3787 ;; (symbol-name lang-m)
3788 ;; lang-m)
3789 ;; "-mode"))))
3790 ;; (org-inhibit-startup t)
3791 ;; (org-startup-folded nil))
3792 ;; (setq lines
3793 ;; (with-temp-buffer
3794 ;; (insert lines)
3795 ;; (if (functionp mode)
3796 ;; (funcall mode)
3797 ;; (fundamental-mode))
3798 ;; (font-lock-fontify-buffer)
3799 ;; ;; markup each line separately
3800 ;; (org-remove-formatting-on-newlines-in-region
3801 ;; (point-min) (point-max))
3802 ;; (org-src-mode)
3803 ;; (set-buffer-modified-p nil)
3804 ;; (org-export-e-odtize-region-for-paste
3805 ;; (point-min) (point-max))))
3807 ;; (when (string-match "<pre\\([^>]*\\)>\n*" lines)
3808 ;; (setq lines (replace-match
3809 ;; (format "<pre class=\"src src-%s\">\n" lang) t t lines)))
3811 ;; (when caption
3812 ;; (setq lines
3813 ;; (concat
3814 ;; "<div class=\"org-src-container\">"
3815 ;; (format "<label class=\"org-src-name\">%s</label>" caption)
3816 ;; lines "</div>")))
3818 ;; (unless textareap
3819 ;; (setq lines (org-export-number-lines lines 1 1 num cont rpllbl fmt)))
3821 ;; ;; (when (string-match "\\(\\`<[^>]*>\\)\n" lines)
3822 ;; ;; (setq lines (replace-match "\\1" t nil lines)))
3823 ;; lines))
3825 ;; (defun org-e-odt-format-source-code-or-example
3826 ;; (lang code &optional opts indent caption)
3827 ;; "Format CODE from language LANG and return it formatted for export.
3828 ;; The CODE is marked up in `org-export-current-backend' format.
3830 ;; Check if a function by name
3831 ;; \"org-<backend>-format-source-code-or-example\" is bound. If yes,
3832 ;; use it as the custom formatter. Otherwise, use the default
3833 ;; formatter. Default formatters are provided for docbook, html,
3834 ;; latex and ascii backends. For example, use
3835 ;; `org-e-odt-format-source-code-or-example' to provide a custom
3836 ;; formatter for export to \"html\".
3838 ;; If LANG is nil, do not add any fontification.
3839 ;; OPTS contains formatting options, like `-n' for triggering numbering lines,
3840 ;; and `+n' for continuing previous numbering.
3841 ;; Code formatting according to language currently only works for HTML.
3842 ;; Numbering lines works for all three major backends (html, latex, and ascii).
3843 ;; INDENT was the original indentation of the block."
3844 ;; (save-match-data
3845 ;; (let* ((backend-formatter 'org-e-odt-format-source-code-or-example-plain)
3846 ;; num cont rtn rpllbl keepp textareap preserve-indentp cols rows fmt)
3847 ;; (setq opts (or opts "")
3848 ;; num (string-match "[-+]n\\>" opts)
3849 ;; cont (string-match "\\+n\\>" opts)
3850 ;; rpllbl (string-match "-r\\>" opts)
3851 ;; keepp (string-match "-k\\>" opts)
3852 ;; textareap (string-match "-t\\>" opts)
3853 ;; preserve-indentp (or org-src-preserve-indentation
3854 ;; (string-match "-i\\>" opts))
3855 ;; cols (if (string-match "-w[ \t]+\\([0-9]+\\)" opts)
3856 ;; (string-to-number (match-string 1 opts))
3857 ;; 80)
3858 ;; rows (if (string-match "-h[ \t]+\\([0-9]+\\)" opts)
3859 ;; (string-to-number (match-string 1 opts))
3860 ;; (org-count-lines code))
3861 ;; fmt (if (string-match "-l[ \t]+\"\\([^\"\n]+\\)\"" opts)
3862 ;; (match-string 1 opts)))
3863 ;; (when (and textareap
3864 ;; ;; (eq org-export-current-backend 'html)
3865 ;; )
3866 ;; ;; we cannot use numbering or highlighting.
3867 ;; (setq num nil cont nil lang nil))
3868 ;; (if keepp (setq rpllbl 'keep))
3869 ;; (setq rtn (if preserve-indentp code (org-remove-indentation code)))
3870 ;; (when (string-match "^," rtn)
3871 ;; (setq rtn (with-temp-buffer
3872 ;; (insert rtn)
3873 ;; ;; Free up the protected lines
3874 ;; (goto-char (point-min))
3875 ;; (while (re-search-forward "^," nil t)
3876 ;; (if (or (equal lang "org")
3877 ;; (save-match-data
3878 ;; (looking-at "\\([*#]\\|[ \t]*#\\+\\)")))
3879 ;; (replace-match ""))
3880 ;; (end-of-line 1))
3881 ;; (buffer-string))))
3882 ;; (when lang
3883 ;; (if (featurep 'xemacs)
3884 ;; (require 'htmlize)
3885 ;; (require 'htmlize nil t)))
3887 ;; (setq backend-formatter
3888 ;; (cond
3889 ;; ((fboundp 'htmlize-region-for-paste)
3890 ;; 'org-e-odt-format-source-code-or-example-colored)
3891 ;; (t
3892 ;; (message
3893 ;; "htmlize.el 1.34 or later is needed for source code formatting")
3894 ;; 'org-e-odt-format-source-code-or-example-plain)))
3895 ;; (funcall backend-formatter rtn lang caption textareap cols rows
3896 ;; num cont rpllbl fmt))))
3899 "Transcode a EXAMPLE-BLOCK element from Org to HTML.
3900 CONTENTS is nil. INFO is a plist holding contextual information."
3903 ;; (org-e-odt--wrap-label
3904 ;; example-block (format "\\begin{verbatim}\n%s\\end{verbatim}" value))
3909 ;;;; Export Snippet
3912 "Transcode a EXPORT-SNIPPET object from Org to HTML.
3913 CONTENTS is nil. INFO is a plist holding contextual information."
3917 ;;;; Export Block
3920 "Transcode a EXPORT-BLOCK element from Org to HTML.
3921 CONTENTS is nil. INFO is a plist holding contextual information."
3926 ;;;; Fixed Width
3929 "Transcode a FIXED-WIDTH element from Org to HTML.
3930 CONTENTS is nil. INFO is a plist holding contextual information."
3939 ;;;; Footnote Definition
3941 ;; Footnote Definitions are ignored.
3944 ;;;; Footnote Reference
3956 "Transcode a FOOTNOTE-REFERENCE element from Org to HTML.
3957 CONTENTS is nil. INFO is a plist holding contextual information."
3959 ;; Insert separator between two footnotes in a row.
3962 org-e-odt-footnote-separator))
3967 ;; Inline definitions are secondary strings.
3973 ;; Non-inline footnotes definitions are full Org data.
3981 ;;;; Headline
3990 todo))))
3993 "Transcode an HEADLINE element from Org to HTML.
3994 CONTENTS holds the contents of the headline. INFO is a plist
3995 holding contextual information."
4021 org-e-odt-headline-formatter)))
4023 text tags primary-target secondary-targets extra-class)))
4026 "Transcode an HEADLINE element from Org to HTML.
4027 CONTENTS holds the contents of the headline. INFO is a plist
4028 holding contextual information."
4031 ;; Get level relative to current parsed data.
4033 ;; (class-sectionning (assoc class org-e-odt-classes))
4034 ;; Section formatting will set two placeholders: one for the
4035 ;; title and the other for the contents.
4036 ;; (section-fmt
4037 ;; (let ((sec (if (and (symbolp (nth 2 class-sectionning))
4038 ;; (fboundp (nth 2 class-sectionning)))
4039 ;; (funcall (nth 2 class-sectionning) level numberedp)
4040 ;; (nth (1+ level) class-sectionning))))
4041 ;; (cond
4042 ;; ;; No section available for that LEVEL.
4043 ;; ((not sec) nil)
4044 ;; ;; Section format directly returned by a function.
4045 ;; ((stringp sec) sec)
4046 ;; ;; (numbered-section . unnumbered-section)
4047 ;; ((not (consp (cdr sec)))
4048 ;; (concat (funcall (if numberedp #'car #'cdr) sec) "\n%s"))
4049 ;; ;; (numbered-open numbered-close)
4050 ;; ((= (length sec) 2)
4051 ;; (when numberedp (concat (car sec) "\n%s" (nth 1 sec))))
4052 ;; ;; (num-in num-out no-num-in no-num-out)
4053 ;; ((= (length sec) 4)
4054 ;; (if numberedp
4055 ;; (concat (car sec) "\n%s" (nth 1 sec))
4056 ;; (concat (nth 2 sec) "\n%s" (nth 3 sec)))))))
4069 ;; Create the headline text.
4071 ;; User-defined formatting function.
4073 todo todo-type priority text tags)
4074 ;; Default formatting.
4076 ;; (when todo
4077 ;; (format "\\textbf{\\textsf{\\textsc{%s}}} " todo))
4080 text
4081 ;; (when tags (format "\\hfill{}\\textsc{%s}" tags))
4082 )))
4083 ;; Associate some \label to the headline for internal links.
4084 ;; (headline-label
4085 ;; (format "\\label{sec-%s}\n"
4086 ;; (mapconcat 'number-to-string
4087 ;; (org-export-get-headline-number headline info)
4088 ;; "-")))
4090 ;; FIXME - begin
4097 ;; FIXME - end
4102 ;; Case 1: This is a footnote section: ignore it.
4104 ;; Case 2. This is a deep sub-tree: export it as a list item.
4105 ;; Also export as items headlines for which no section
4106 ;; format has been found.
4108 ;; Build the real contents of the sub-tree.
4111 contents type nil nil full-text)))
4115 itemized-body
4118 ;; Case 3. Standard headline. Export it as a section.
4120 ;; (format section-fmt full-text
4121 ;; (concat headline-label pre-blanks contents))
4128 ;;;; Horizontal Rule
4131 "Transcode an HORIZONTAL-RULE object from Org to HTML.
4132 CONTENTS is nil. INFO is a plist holding contextual information."
4140 ;;;; Inline Babel Call
4142 ;; Inline Babel Calls are ignored.
4145 ;;;; Inline Src Block
4148 "Transcode an INLINE-SRC-BLOCK element from Org to HTML.
4149 CONTENTS holds the contents of the item. INFO is a plist holding
4150 contextual information."
4157 ;;;; Inlinetask
4164 "Transcode an INLINETASK element from Org to HTML.
4165 CONTENTS holds the contents of the block. INFO is a plist
4166 holding contextual information."
4179 ;; If `org-e-odt-format-inlinetask-function' is provided, call it
4180 ;; with appropriate arguments.
4183 todo todo-type priority title tags contents)
4184 ;; Otherwise, use a default template.
4186 inlinetask
4191 title
4198 "%s"
4202 full-title contents))))))
4205 ;;;; Item
4208 &optional term-counter-id
4209 headline)
4218 ;; FIXME checkbox (and checkbox " ")
4219 contents
4223 "Transcode an ITEM element from Org to HTML.
4224 CONTENTS holds the contents of the item. INFO is a plist holding
4225 contextual information."
4226 ;; Grab `:level' from plain-list properties, which is always the
4227 ;; first element above current item.
4239 ;;;; Keyword
4242 "Transcode a KEYWORD element from Org to HTML.
4243 CONTENTS is nil. INFO is a plist holding contextual information."
4263 ;; At the moment, src blocks with a caption are wrapped
4264 ;; into a figure environment.
4268 ;;;; Latex Environment
4284 nil nil processing-type)
4288 "Transcode a LATEX-ENVIRONMENT element from Org to HTML.
4289 CONTENTS is nil. INFO is a plist holding contextual information."
4291 latex-environment
4301 latex-frag processing-type)))
4306 latex-frag)))))
4309 ;;;; Latex Fragment
4312 "Transcode a LATEX-FRAGMENT object from Org to HTML.
4313 CONTENTS is nil. INFO is a plist holding contextual information."
4314 ;; (org-element-property :value latex-fragment)
4322 label)))
4330 latex-frag processing-type)))
4338 ;;;; Line Break
4341 "Transcode a LINE-BREAK object from Org to HTML.
4342 CONTENTS is nil. INFO is a plist holding contextual information."
4346 ;;;; Link
4349 "Return HTML code for an inline image.
4350 LINK is the link pointing to the inline image. INFO is a plist
4351 used as a communication channel."
4359 info))
4361 ;; Retrieve latex attributes from the element around.
4367 ;; Now clear ATTR from any special keyword and set a default
4368 ;; value if nothing is left.
4370 ;; Return proper string, depending on DISPOSITION.
4375 "Transcode a LINK object from Org to HTML.
4377 DESC is the description part of the link, or the empty string.
4378 INFO is a plist holding contextual information. See
4379 `org-export-data'."
4382 ;; Ensure DESC really exists, or set it to nil.
4385 link org-e-odt-inline-image-rules))
4394 ;; TODO: Not implemented yet. Concat also:
4395 ;; (org-export-directory :HTML info)
4398 protocol)
4400 ;; Image file.
4402 ;; Target or radioed target: replace link with the normalized
4403 ;; custom-id/target name.
4408 ;; Links pointing to an headline: Find destination and build
4409 ;; appropriate referencing commanding.
4414 ;; Fuzzy link points to a target. Do as above.
4424 ;; Fuzzy link points to an headline. If headlines are
4425 ;; numbered and the link has no description, display
4426 ;; headline's number. Otherwise, display description or
4427 ;; headline's title.
4432 'number-to-string
4442 ;; Fuzzy link points nowhere.
4449 ;; Coderef: replace link with the reference name or the
4450 ;; equivalent line number.
4454 ;; Link type is handled by a special function.
4457 ;; External link with a description part.
4459 ;; External link without a description part.
4461 ;; No path, only description. Try to do something useful.
4465 ;;;; Babel Call
4467 ;; Babel Calls are ignored.
4470 ;;;; Macro
4473 "Transcode a MACRO element from Org to HTML.
4474 CONTENTS is nil. INFO is a plist holding contextual information."
4475 ;; Use available tools.
4479 ;;;; Paragraph
4482 "Transcode a PARAGRAPH element from Org to HTML.
4483 CONTENTS is the contents of the paragraph, as a string. INFO is
4484 the plist used as a communication channel."
4491 ;; ((and (equal (car parent) 'item)
4492 ;; (= (org-element-property :begin paragraph)
4493 ;; (org-element-property :contents-begin parent)))
4494 ;; ;; leading paragraph in a list item have no tags
4495 ;; contents)
4499 ;;;; Plain List
4502 "Transcode a PLAIN-LIST element from Org to HTML.
4503 CONTENTS is the contents of the list. INFO is a plist holding
4504 contextual information."
4515 ;;;; Plain Text
4518 "Convert special characters in STRING to ODT."
4520 e a re rpl start)
4525 string))
4527 ;; (defun org-e-odt-encode-plain-text (s)
4528 ;; "Convert plain text characters to HTML equivalent.
4529 ;; Possible conversions are set in `org-export-html-protect-char-alist'."
4530 ;; (let ((cl org-e-odt-protect-char-alist) c)
4531 ;; (while (setq c (pop cl))
4532 ;; (let ((start 0))
4533 ;; (while (string-match (car c) s start)
4534 ;; (setq s (replace-match (cdr c) t t s)
4535 ;; start (1+ (match-beginning 0))))))
4536 ;; s))
4539 "Transcode a TEXT string from Org to HTML.
4540 TEXT is the string to transcode. INFO is a plist holding
4541 contextual information."
4543 ;; Protect %, #, &, $, ~, ^, _, { and }.
4544 ;; (while (string-match "\\([^\\]\\|^\\)\\([%$#&{}~^_]\\)" text)
4545 ;; (setq text
4546 ;; (replace-match (format "\\%s" (match-string 2 text)) nil t text 2)))
4547 ;; Protect \
4548 ;; (setq text (replace-regexp-in-string
4549 ;; "\\(?:[^\\]\\|^\\)\\(\\\\\\)\\(?:[^%$#&{}~^_\\]\\|$\\)"
4550 ;; "$\\backslash$" text nil t 1))
4551 ;; HTML into \HTML{} and TeX into \TeX{}.
4552 ;; (let ((case-fold-search nil)
4553 ;; (start 0))
4554 ;; (while (string-match "\\<\\(\\(?:La\\)?TeX\\)\\>" text start)
4555 ;; (setq text (replace-match
4556 ;; (format "\\%s{}" (match-string 1 text)) nil t text)
4557 ;; start (match-end 0))))
4558 ;; Handle quotation marks
4559 ;; (setq text (org-e-odt--quotation-marks text info))
4560 ;; Convert special strings.
4561 ;; (when (plist-get info :with-special-strings)
4562 ;; (while (string-match (regexp-quote "...") text)
4563 ;; (setq text (replace-match "\\ldots{}" nil t text))))
4566 ;; Handle break preservation if required.
4569 text)))
4570 ;; Return value.
4571 text)
4574 ;;;; Property Drawer
4577 "Transcode a PROPERTY-DRAWER element from Org to HTML.
4578 CONTENTS is nil. INFO is a plist holding contextual
4579 information."
4580 ;; The property drawer isn't exported but we want separating blank
4581 ;; lines nonetheless.
4585 ;;;; Quote Block
4588 "Transcode a QUOTE-BLOCK element from Org to HTML.
4589 CONTENTS holds the contents of the block. INFO is a plist
4590 holding contextual information."
4595 ;;;; Quote Section
4598 "Transcode a QUOTE-SECTION element from Org to HTML.
4599 CONTENTS is nil. INFO is a plist holding contextual information."
4605 ;;;; Section
4608 "Transcode a SECTION element from Org to HTML.
4609 CONTENTS holds the contents of the section. INFO is a plist
4610 holding contextual information."
4611 contents)
4613 ;;;; Radio Target
4616 "Transcode a RADIO-TARGET object from Org to HTML.
4617 TEXT is the text of the target. INFO is a plist holding
4618 contextual information."
4624 ;;;; Special Block
4627 "Transcode a SPECIAL-BLOCK element from Org to HTML.
4628 CONTENTS holds the contents of the block. INFO is a plist
4629 holding contextual information."
4632 special-block
4636 ;;;; Src Block
4639 "Transcode a SRC-BLOCK element from Org to HTML.
4640 CONTENTS holds the contents of the item. INFO is a plist holding
4641 contextual information."
4646 ;; FIXME: Handle caption
4648 ;; caption-str (when caption)
4649 ;; (main (org-export-secondary-string (car caption) 'e-odt info))
4650 ;; (secondary (org-export-secondary-string (cdr caption) 'e-odt info))
4651 ;; (caption-str (org-e-odt--caption/label-string caption label info))
4655 ;;;; Statistics Cookie
4658 "Transcode a STATISTICS-COOKIE object from Org to HTML.
4659 CONTENTS is nil. INFO is a plist holding contextual information."
4664 ;;;; Subscript
4667 "Transcode a SUBSCRIPT object from Org to HTML.
4668 CONTENTS is the contents of the object. INFO is a plist holding
4669 contextual information."
4670 ;; (format (if (= (length contents) 1) "$_%s$" "$_{\\mathrm{%s}}$") contents)
4674 ;;;; Superscript
4677 "Transcode a SUPERSCRIPT object from Org to HTML.
4678 CONTENTS is the contents of the object. INFO is a plist holding
4679 contextual information."
4680 ;; (format (if (= (length contents) 1) "$^%s$" "$^{\\mathrm{%s}}$") contents)
4684 ;;;; Table
4686 ;; (defun org-e-odt-begin-table (caption label attributes)
4687 ;; (let* ((html-table-tag (or (plist-get info :html-table-tag) ; FIXME
4688 ;; org-e-odt-table-tag))
4689 ;; (html-table-tag
4690 ;; (org-e-odt-splice-attributes html-table-tag attributes)))
4691 ;; (when label
4692 ;; (setq html-table-tag
4693 ;; (org-e-odt-splice-attributes
4694 ;; html-table-tag
4695 ;; (format "id=\"%s\"" (org-solidify-link-text label)))))
4696 ;; (concat "\n" html-table-tag
4697 ;; (format "\n<caption>%s</caption>" (or caption "")))))
4699 ;; (defun org-e-odt-end-table ()
4700 ;; "</table>\n")
4702 ;; (defun org-e-odt-format-table-cell (text r c horiz-span)
4703 ;; (let ((cell-style-cookie
4704 ;; (if org-e-odt-table-align-individual-fields
4705 ;; (format (if (and (boundp 'org-e-odt-format-table-no-css)
4706 ;; org-e-odt-format-table-no-css)
4707 ;; " align=\"%s\"" " class=\"%s\"")
4708 ;; (or (aref (plist-get table-info :alignment) c) "left")) ""))) ;; FIXME
4709 ;; (cond
4710 ;; (org-e-odt-table-cur-rowgrp-is-hdr
4711 ;; (concat
4712 ;; (format (car org-export-table-header-tags) "col" cell-style-cookie)
4713 ;; text (cdr org-export-table-header-tags)))
4714 ;; ((and (= c 0) org-e-odt-table-use-header-tags-for-first-column)
4715 ;; (concat
4716 ;; (format (car org-export-table-header-tags) "row" cell-style-cookie)
4717 ;; text (cdr org-export-table-header-tags)))
4718 ;; (t
4719 ;; (concat
4720 ;; (format (car org-export-table-data-tags) cell-style-cookie)
4721 ;; text (cdr org-export-table-data-tags))))))
4737 ;; (defun org-e-odt-end-table-rowgroup ()
4738 ;; (when org-e-odt-table-rowgrp-open
4739 ;; (setq org-e-odt-table-rowgrp-open nil)
4740 ;; (if org-e-odt-table-cur-rowgrp-is-hdr "</thead>" "</tbody>")))
4742 ;; (defun org-e-odt-begin-table-rowgroup (&optional is-header-row)
4743 ;; (concat
4744 ;; (when org-e-odt-table-rowgrp-open
4745 ;; (org-e-odt-end-table-rowgroup))
4746 ;; (progn
4747 ;; (setq org-e-odt-table-rowgrp-open t)
4748 ;; (setq org-e-odt-table-cur-rowgrp-is-hdr is-header-row)
4749 ;; (if is-header-row "<thead>" "<tbody>"))))
4753 c gr colgropen preamble)
4760 preamble
4770 org-e-odt-format-table-no-css)
4784 fields line
4785 org-e-odt-table-cur-rowgrp-is-hdr
4786 org-e-odt-table-rowgrp-open
4787 n
4789 org-lparse-table-is-styled)
4799 ;; FIXME (org-e-odt-table-preamble)
4818 cell
4820 cell)
4825 "Convert org-table to list-table.
4826 LINES is a list of the form (ROW1 ROW2 ROW3 ...) where each
4827 element is a `string' representing a single row of org-table.
4829 fields. A ROW could also be a row-group separator of the form
4831 ...). ROW could either be symbol `'hline' or a list of the
4832 form (FIELD1 FIELD2 FIELD3 ...) as appropriate."
4858 output))
4861 "Transcode a TABLE element from Org to HTML.
4862 CONTENTS is nil. INFO is a plist holding contextual information."
4873 ;; (org-e-odt-table-table raw-table)
4874 )
4884 ;;;; Target
4887 "Transcode a TARGET object from Org to HTML.
4888 TEXT is the text of the target. INFO is a plist holding
4889 contextual information."
4895 ;;;; Time-stamp
4898 "Transcode a TIME-STAMP object from Org to HTML.
4899 CONTENTS is nil. INFO is a plist holding contextual
4900 information."
4901 ;; (let ((value (org-element-property :value time-stamp))
4902 ;; (type (org-element-property :type time-stamp))
4903 ;; (appt-type (org-element-property :appt-type time-stamp)))
4904 ;; (concat (cond ((eq appt-type 'scheduled)
4905 ;; (format "\\textbf{\\textsc{%s}} " org-scheduled-string))
4906 ;; ((eq appt-type 'deadline)
4907 ;; (format "\\textbf{\\textsc{%s}} " org-deadline-string))
4908 ;; ((eq appt-type 'closed)
4909 ;; (format "\\textbf{\\textsc{%s}} " org-closed-string)))
4910 ;; (cond ((memq type '(active active-range))
4911 ;; (format org-e-odt-active-timestamp-format value))
4912 ;; ((memq type '(inactive inactive-range))
4913 ;; (format org-e-odt-inactive-timestamp-format value))
4914 ;; (t
4915 ;; (format org-e-odt-diary-timestamp-format value)))))
4926 ;; FIXME: (org-translate-time value)
4931 ;;;; Verbatim
4934 "Transcode a VERBATIM object from Org to HTML.
4935 CONTENTS is nil. INFO is a plist used as a communication
4936 channel."
4941 ;;;; Verse Block
4944 "Transcode a VERSE-BLOCK element from Org to HTML.
4945 CONTENTS is nil. INFO is a plist holding contextual information."
4946 ;; Replace each newline character with line break. Also replace
4947 ;; each blank line with a line break.
4957 ;; Replace each white space at beginning of a line with a
4958 ;; non-breaking space.
4968 \f
4970 ;;; Filter Functions
4972 ;;;; Filter Settings
4976 "Alist between filters keywords and back-end specific filters.
4980 ;;;; Filters
4991 ;;; Interactive functions
4995 "Export current buffer to a HTML file.
4997 If narrowing is active in the current buffer, only export its
4998 narrowed part.
5000 If a region is active, export that region.
5002 When optional argument SUBTREEP is non-nil, export the sub-tree
5003 at point, extracting information from the headline properties
5004 first.
5006 When optional argument VISIBLE-ONLY is non-nil, don't export
5007 contents of hidden elements.
5009 When optional argument BODY-ONLY is non-nil, only write code
5012 EXT-PLIST, when provided, is a property list with external
5013 parameters overriding Org default settings, but still inferior to
5014 file-local settings.
5016 When optional argument PUB-DIR is set, use it as the publishing
5017 directory.
5019 Return output file's name."
5022 ;; FIXME
5026 ;; (let* ((outfile (org-export-output-file-name ".html" subtreep pub-dir))
5027 ;; (outfile "content.xml"))
5028 ;; (org-export-to-file
5029 ;; 'e-odt outfile subtreep visible-only body-only ext-plist))
5036 ;; FIXME: for copying embedded images
5042 'e-odt outbuf
5047 nil
5048 )
5050 ;; return outfile
5051 target))
5055 \f
5056 ;;; FIXMES, TODOS, FOR REVIEW etc
5058 ;;;; org-format-table-html
5059 ;;;; org-format-org-table-html
5060 ;;;; org-format-table-table-html
5061 ;;;; org-table-number-fraction
5062 ;;;; org-table-number-regexp
5063 ;;;; org-e-odt-table-caption-above
5065 ;;;; org-whitespace
5066 ;;;; "<span style=\"visibility:hidden;\">%s</span>"
5067 ;;;; Remove display properties
5068 ;;;; org-e-odt-final-hook
5070 ;;;; org-e-odt-with-timestamp
5071 ;;;; org-e-odt-html-helper-timestamp
5073 ;;;; org-export-as-html-and-open
5074 ;;;; org-export-as-html-batch
5075 ;;;; org-export-as-html-to-buffer
5076 ;;;; org-replace-region-by-html
5077 ;;;; org-export-region-as-html
5078 ;;;; org-export-as-html
5080 ;;;; (org-export-directory :html opt-plist)
5081 ;;;; (plist-get opt-plist :html-extension)
5082 ;;;; org-e-odt-toplevel-hlevel
5083 ;;;; org-e-odt-special-string-regexps
5084 ;;;; org-e-odt-coding-system
5085 ;;;; org-e-odt-coding-system
5086 ;;;; org-e-odt-inline-images
5087 ;;;; org-e-odt-inline-image-extensions
5088 ;;;; org-e-odt-protect-char-alist
5089 ;;;; org-e-odt-table-use-header-tags-for-first-column
5090 ;;;; org-e-odt-todo-kwd-class-prefix
5091 ;;;; org-e-odt-tag-class-prefix
5092 ;;;; org-e-odt-footnote-separator
5095 ;;; Library Initializations
5099 ;; Let Org open all OpenDocument files using system-registered app
5102 ;; Let Emacs open all OpenDocument files in archive mode
5105 org-e-odt-file-extensions)
5107 ;; register the odt exporter with the pre-processor
5110 ;; register the odt exporter with org-lparse library
5119 ;;; org-e-odt.el ends here