mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305\306\307#\210\310\311\312\313\314\315\316\317\320&\207" [require cl-lib format-spec ox org-compat table nil noerror org-export-define-backend odt ((bold . org-odt-bold) (center-block . org-odt-center-block) (clock . org-odt-clock) (code . org-odt-code) (drawer . org-odt-drawer) (dynamic-block . org-odt-dynamic-block) (entity . org-odt-entity) (example-block . org-odt-example-block) (export-block . org-odt-export-block) (export-snippet . org-odt-export-snippet) (fixed-width . org-odt-fixed-width) (footnote-definition . org-odt-footnote-definition) (footnote-reference . org-odt-footnote-reference) (headline . org-odt-headline) (horizontal-rule . org-odt-horizontal-rule) (inline-src-block . org-odt-inline-src-block) (inlinetask . org-odt-inlinetask) (italic . org-odt-italic) (item . org-odt-item) (keyword . org-odt-keyword) (latex-environment . org-odt-latex-environment) (latex-fragment . org-odt-latex-fragment) (line-break . org-odt-line-break) (link . org-odt-link) (node-property . org-odt-node-property) (paragraph . org-odt-paragraph) (plain-list . org-odt-plain-list) (plain-text . org-odt-plain-text) (planning . org-odt-planning) (property-drawer . org-odt-property-drawer) (quote-block . org-odt-quote-block) (radio-target . org-odt-radio-target) (section . org-odt-section) (special-block . org-odt-special-block) (src-block . org-odt-src-block) (statistics-cookie . org-odt-statistics-cookie) (strike-through . org-odt-strike-through) (subscript . org-odt-subscript) (superscript . org-odt-superscript) (table . org-odt-table) (table-cell . org-odt-table-cell) (table-row . org-odt-table-row) (target . org-odt-target) (template . org-odt-template) (timestamp . org-odt-timestamp) (underline . org-odt-underline) (verbatim . org-odt-verbatim) (verse-block . org-odt-verse-block)) :filters-alist ((:filter-parse-tree org-odt--translate-latex-fragments org-odt--translate-description-lists org-odt--translate-list-tables org-odt--translate-image-links)) :menu-entry (111 "Export to ODT" ((111 "As ODT file" org-odt-export-to-odt) (79 "As ODT file and open" (lambda (a s v b) (if a (org-odt-export-to-odt t s v) (org-open-file (org-odt-export-to-odt nil s v) 'system)))))) :options-alist ((:odt-styles-file "ODT_STYLES_FILE" nil nil t) (:description "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:subtitle "SUBTITLE" nil nil parse) (:odt-content-template-file nil nil org-odt-content-template-file) (:odt-display-outline-level nil nil org-odt-display-outline-level) (:odt-fontify-srcblocks nil nil org-odt-fontify-srcblocks) (:odt-format-drawer-function nil nil org-odt-format-drawer-function) (:odt-format-headline-function nil nil org-odt-format-headline-function) (:odt-format-inlinetask-function nil nil org-odt-format-inlinetask-function) (:odt-inline-formula-rules nil nil org-odt-inline-formula-rules) (:odt-inline-image-rules nil nil org-odt-inline-image-rules) (:odt-pixels-per-inch nil nil org-odt-pixels-per-inch) (:odt-styles-file nil nil org-odt-styles-file) (:odt-table-styles nil nil org-odt-table-styles) (:odt-use-date-fields nil nil org-odt-use-date-fields) (:with-latex nil "tex" org-odt-with-latex) (:latex-header "LATEX_HEADER" nil nil newline))] 9)
16 #@102 Location of ODT exporter.
17 Use this to infer values of `org-odt-styles-dir' and
18 `org-odt-schema-dir'.
19 (defconst org-odt-lib-dir (byte-code "\301\206\302 !\207" [load-file-name file-name-directory buffer-file-name] 2) (#$ . 3695))
20 #@109 Data directory for ODT exporter.
21 Use this to infer values of `org-odt-styles-dir' and
22 `org-odt-schema-dir'.
23 (defvar org-odt-data-dir (expand-file-name "../../etc/" org-odt-lib-dir) (#$ . 3934))
24 #@52 Regular expressions for special string conversion.
25 (defconst org-odt-special-string-regexps '(("\\\\-" . "­\\1") ("---\\([^-]\\)" . "—\\1") ("--\\([^-]\\)" . "–\\1") ("\\.\\.\\." . "…")) (#$ . 4134))
26 #@245 List of directories to search for OpenDocument schema files.
27 Use this list to set the default value of
28 `org-odt-schema-dir'.  The entries in this list are
29 populated heuristically based on the values of `org-odt-lib-dir'
30 and `org-odt-data-dir'.
e75a20 31 (defconst org-odt-schema-dir-list (byte-code "\205\301\302\"\303D\207" [org-odt-data-dir expand-file-name "./schema/" "c:/usr/share/emacs/etc/org/schema/"] 3) (#$ . 4369))
76bbd0 32 #@207 List of directories to search for OpenDocument styles files.
C 33 See `org-odt-styles-dir'.  The entries in this list are populated
34 heuristically based on the values of `org-odt-lib-dir' and
35 `org-odt-data-dir'.
e75a20 36 (defconst org-odt-styles-dir-list (byte-code "\205\303\304\"\305\303\306    \"\303\307    \"\303\310\n\"\257\207" [org-odt-data-dir org-odt-lib-dir data-directory expand-file-name "./styles/" "c:/usr/share/emacs/etc/org/styles/" "../etc/styles/" "./etc/styles/" "./org/"] 7) (#$ . 4796))
76bbd0 37 #@533 Directory that holds auxiliary XML files used by the ODT exporter.
C 38
39 This directory contains the following XML files -
40  "OrgOdtStyles.xml" and "OrgOdtContentTemplate.xml".  These
41  XML files are used as the default values of
42  `org-odt-styles-file' and `org-odt-content-template-file'.
43
44 The default value of this variable varies depending on the
45 version of Org in use and is initialized from
46 `org-odt-styles-dir-list'.  Note that the user could be using Org
47 from one of: Org own private git repository, GNU ELPA tar or
48 standard Emacs.
e75a20 49 (defconst org-odt-styles-dir (byte-code "\301\302\"\211\204\f\303\304!\210\211\207" [org-odt-styles-dir-list cl-find-if #[257 "\211\205\300\301\302\"!\205\300\301\303\"!\207" [file-readable-p expand-file-name "OrgOdtContentTemplate.xml" "OrgOdtStyles.xml"] 5 "\n\n(fn DIR)"] error "Error (ox-odt): Cannot find factory styles files, aborting"] 3) (#$ . 5296))
76bbd0 50 (defconst org-odt-bookmark-prefix "OrgXref.")
C 51 (defconst org-odt-manifest-file-entry-tag "\n<manifest:file-entry manifest:media-type=\"%s\" manifest:full-path=\"%s\"%s/>")
52 (defconst org-odt-file-extensions '(("odt" . "OpenDocument Text") ("ott" . "OpenDocument Text Template") ("odm" . "OpenDocument Master Document") ("ods" . "OpenDocument Spreadsheet") ("ots" . "OpenDocument Spreadsheet Template") ("odg" . "OpenDocument Drawing (Graphics)") ("otg" . "OpenDocument Drawing Template") ("odp" . "OpenDocument Presentation") ("otp" . "OpenDocument Presentation Template") ("odi" . "OpenDocument Image") ("odf" . "OpenDocument Formula") ("odc" . "OpenDocument Chart")))
53 #@43 Template for auto-generated Table styles.
e75a20 54 (defconst org-odt-table-style-format "\n<style:style style:name=\"%s\" style:family=\"table\">\n  <style:table-properties style:rel-width=\"%s%%\" fo:margin-top=\"0cm\" fo:margin-bottom=\"0.20cm\" table:align=\"center\"/>\n</style:style>\n" (#$ . 6869))
76bbd0 55 #@539 Registry of automatic styles for various OBJECT-TYPEs.
C 56 The variable has the following form:
57  ((OBJECT-TYPE-A
58    ((OBJECT-NAME-A.1 OBJECT-PROPS-A.1)
59     (OBJECT-NAME-A.2 OBJECT-PROPS-A.2) ...))
60   (OBJECT-TYPE-B
61    ((OBJECT-NAME-B.1 OBJECT-PROPS-B.1)
62     (OBJECT-NAME-B.2 OBJECT-PROPS-B.2) ...))
63   ...).
64
65 OBJECT-TYPEs could be "Section", "Table", "Figure" etc.
66 OBJECT-PROPS is (typically) a plist created by passing
67 "#+ATTR_ODT: " option to `org-odt-parse-block-attributes'.
68
69 Use `org-odt-add-automatic-style' to add update this variable.'
e75a20 70 (defvar org-odt-automatic-styles nil (#$ . 7172))
76bbd0 71 #@133 Running counters for various OBJECT-TYPEs.
C 72 Use this to generate automatic names and style-names. See
73 `org-odt-add-automatic-style'.
e75a20 74 (defvar org-odt-object-counters nil (#$ . 7767))
76bbd0 75 #@245 Custom paragraph style for colorized source and example blocks.
C 76 This style is much the same as that of "OrgFixedWidthBlock"
77 except that the foreground and background colors are set
78 according to the default face identified by the `htmlfontify'.
e75a20 79 (defvar org-odt-src-block-paragraph-format "<style:style style:name=\"OrgSrcBlock\" style:family=\"paragraph\" style:parent-style-name=\"Preformatted_20_Text\">\n   <style:paragraph-properties fo:background-color=\"%s\" fo:padding=\"0.049cm\" fo:border=\"0.51pt solid #000000\" style:shadow=\"none\">\n    <style:background-image/>\n   </style:paragraph-properties>\n   <style:text-properties fo:color=\"%s\"/>\n  </style:style>" (#$ . 7955))
76bbd0 80 (defvar org-odt-embedded-formulas-count 0)
C 81 (defvar org-odt-embedded-images-count 0)
82 #@54 Ordered list of methods for determining image sizes.
e75a20 83 (defvar org-odt-image-size-probe-method (byte-code "\300\301\302!\205\303\304\"\207" [append executable-find "identify" (imagemagick) (emacs fixed)] 3) (#$ . 8732))
76bbd0 84 #@66 Hardcoded image dimensions one for each of the anchor
C 85   methods.
e75a20 86 (defvar org-odt-default-image-sizes-alist '(("as-char" 5 . 0.4) ("paragraph" 5 . 5)) (#$ . 8958))
76bbd0 87 #@44 Limiting dimensions for an embedded image.
e75a20 88 (defvar org-odt-max-image-size '(17.0 . 20.0) (#$ . 9127))
76bbd0 89 #@771 Specify how labels are applied and referenced.
C 90
91 This is an alist where each element is of the form:
92
93   (STYLE-NAME ATTACH-FMT REF-MODE REF-FMT)
94
95 ATTACH-FMT controls how labels and captions are attached to an
96 entity.  It may contain following specifiers - %e and %c.  %e is
97 replaced with the CATEGORY-NAME.  %n is replaced with
98 "<text:sequence ...> SEQNO </text:sequence>".  %c is replaced
99 with CAPTION.
100
101 REF-MODE and REF-FMT controls how label references are generated.
102 The following XML is generated for a label reference -
103 "<text:sequence-ref text:reference-format="REF-MODE" ...>
104 REF-FMT </text:sequence-ref>".  REF-FMT may contain following
105 specifiers - %e and %n.  %e is replaced with the CATEGORY-NAME.
106 %n is replaced with SEQNO.
107
108 See also `org-odt-format-label'.
e75a20 109 (defconst org-odt-label-styles '(("math-formula" "%c" "text" "(%n)") ("math-label" "(%n)" "text" "(%n)") ("category-and-value" "%e %n: %c" "category-and-value" "%e %n") ("value" "%e %n: %c" "value" "%n")) (#$ . 9236))
76bbd0 110 #@734 Map a CATEGORY-HANDLE to OD-VARIABLE and LABEL-STYLE.
C 111
112 This is a list where each entry is of the form:
113
114   (CATEGORY-HANDLE OD-VARIABLE LABEL-STYLE CATEGORY-NAME ENUMERATOR-PREDICATE)
115
116 CATEGORY_HANDLE identifies the captionable entity in question.
117
118 OD-VARIABLE is the OpenDocument sequence counter associated with
119 the entity.  These counters are declared within
120 "<text:sequence-decls>...</text:sequence-decls>" block of
121 `org-odt-content-template-file'.
122
123 LABEL-STYLE is a key into `org-odt-label-styles' and specifies
124 how a given entity should be captioned and referenced.
125
126 CATEGORY-NAME is used for qualifying captions on export.
127
128 ENUMERATOR-PREDICATE is used for assigning a sequence number to
129 the entity.  See `org-odt--enumerate'.
e75a20 130 (defvar org-odt-category-map-alist '(("__Table__" "Table" "value" "Table" org-odt--enumerable-p) ("__Figure__" "Illustration" "value" "Figure" org-odt--enumerable-image-p) ("__MathFormula__" "Text" "math-formula" "Equation" org-odt--enumerable-formula-p) ("__DvipngImage__" "Equation" "value" "Equation" org-odt--enumerable-latex-image-p) ("__Listing__" "Listing" "value" "Listing" org-odt--enumerable-p)) (#$ . 10231))
76bbd0 131 (defvar org-odt-manifest-file-entries nil)
C 132 #@53 Temporary work directory for OpenDocument exporter.
e75a20 133 (defvar org-odt-zip-dir nil (#$ . 11433))
76bbd0 134 (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317\320\321&    \210\322\323!\210\310\324\312\313\325DD\326\320\327\306\301\316\317\330\331& \210\310\332\312\313\333DD\334\320\335\306\301\316\336&    \210\310\337\312\313\340DD\341\306\301\316\317\320\342&    \210\310\343\312\313\344DD\345\306\301\316\346\347\350\320\351& \210\310\352\312\313\353DD\354\306\301\316\317\320\355&    \210\310\356\312\313\357DD\360\306\301\316\317\320\361&    \210\310\362\312\313\363DD\364\306\301\316\317\320\365&    \210\310\366\312\313\367DD\370\306\301\316\317\320\371&    \210\372\366\373\374#\210\310\375\312\313\376DD\377\306\301\316\201@\347\201A\320\313& \210\310\201B\312\313\201CDD\201D\306\301\316\201@\347\201E\320\313& \210\310\201F\312\313\201GDD\201H\306\301\316\201@\347\201I\320\313& \210\310\201J\312\313\201KDD\201L\306\301\316\346\347\201M\320\201N& \210\310\201O\312\313\201PDD\201Q\306\301\316\346\347\201R\320\201S& \210\310\201T\312\313\201UDD\201V\306\301\316\201@\347\201W\320\201X& \210\310\201Y\312\313\201ZDD\201[\320\201\\\306\301\316\346\347\201]& \210\310\201^\312\313\201_DD\201`\306\301\316\317\320\321&    \210\310\201a\312\313\201bDD\201c\320\321\306\301\316\317&    \210\310\201d\312\313\201eDD\201f\306\301\316\317\320\201g&    \210\310\201h\312\313\201iDD\201j\306\301\316\346\347\201k\320\321& \207" [custom-declare-group org-export-odt nil "Options for exporting Org mode files to ODT." :tag "Org Export ODT" :group org-export custom-declare-variable org-odt-prettify-xml funcall function #[0 "\300\207" [nil] 1] "Specify whether or not the xml output should be prettified.\nWhen this option is turned on, `indent-region' is run on all\ncomponent xml buffers before they are saved.  Turn this off for\nregular use.  Turn this on if you need to examine the xml\nvisually." :version "24.1" :type boolean require rng-loc org-odt-schema-dir #[0 "\301\302\"\207" [org-odt-schema-dir-list cl-find-if #[257 "\211\205\300\301\302\"!\205\300\301\303\"!\205\304\301\305\"!\207" [file-expand-wildcards expand-file-name "od-manifest-schema*.rnc" "od-schema*.rnc" file-readable-p "schemas.xml"] 5 "\n\n(fn DIR)"]] 3] "Directory that contains OpenDocument schema files.\n\nThis directory contains:\n1. rnc files for OpenDocument schema\n2. a \"schemas.xml\" file that specifies locating rules needed\n   for auto validation of OpenDocument XML files.\n\nUse the customize interface to set this variable.  This ensures\nthat `rng-schema-locating-files' is updated and auto-validation\nof OpenDocument XML takes place based on the value\n`rng-nxml-auto-validate-flag'.\n\nThe default value of this variable varies depending on the\nversion of org in use and is initialized from\n`org-odt-schema-dir-list'.  The OASIS schema files are available\nonly in the org's private git repository.  It is *not* bundled\nwith GNU ELPA tar or standard Emacs distribution." (choice (const :tag "Not set" nil) (directory :tag "Schema directory")) :set #[514 "\211\301\302\303\"!\203!\301\302\304\"!\203!\305\302\306\"!\203!\202+\203*\307\310\"\210\311L\266\2056\312\313\314\"\207" [org-odt-schema-dir file-expand-wildcards expand-file-name "od-manifest-schema*.rnc" "od-schema*.rnc" file-readable-p "schemas.xml" message "Error (ox-odt): %s has no OpenDocument schema files" nil eval-after-load rng-loc #[0 "\301\302\303\304\"\"\207" [org-odt-schema-dir add-to-list rng-schema-locating-files expand-file-name "schemas.xml"] 5]] 8 "Set `org-odt-schema-dir'.\nAlso add it to `rng-schema-locating-files'.\n\n(fn VAR VALUE)"] org-odt-content-template-file #[0 "\300\207" [nil] 1] "Template file for \"content.xml\".\nThe exporter embeds the exported content just before\n\"</office:text>\" element.\n\nIf unspecified, the file named \"OrgOdtContentTemplate.xml\"\nunder `org-odt-styles-dir' is used." (choice (const nil) (file)) "24.3" org-odt-styles-file #[0 "\300\207" [nil] 1] "Default styles file for use with ODT export.\nValid values are one of:\n1. nil\n2. path to a styles.xml file\n3. path to a *.odt or a *.ott file\n4. list of the form (ODT-OR-OTT-FILE (FILE-MEMBER-1 FILE-MEMBER-2\n...))\n\nIn case of option 1, an in-built styles.xml is used. See\n`org-odt-styles-dir' for more information.\n\nIn case of option 3, the specified file is unzipped and the\nstyles.xml embedded therein is used.\n\nIn case of option 4, the specified ODT-OR-OTT-FILE is unzipped\nand FILE-MEMBER-1, FILE-MEMBER-2 etc are copied in to the\ngenerated odt file.  Use relative path for specifying the\nFILE-MEMBERS.  styles.xml must be specified as one of the\nFILE-MEMBERS.\n\nUse options 1, 2 or 3 only if styles.xml alone suffices for\nachieving the desired formatting.  Use option 4, if the styles.xml\nreferences additional files like header and footer images for\nachieving the desired formatting.\n\nUse \"#+ODT_STYLES_FILE: ...\" directive to set this variable on\na per-file basis.  For example,\n\n#+ODT_STYLES_FILE: \"/path/to/styles.xml\" or\n#+ODT_STYLES_FILE: (\"/path/to/file.ott\" (\"styles.xml\" \"image/hdr.png\"))." (choice (const :tag "Factory settings" nil) (file :must-match t :tag "styles.xml") (file :must-match t :tag "ODT or OTT file") (list :tag "ODT or OTT file + Members" (file :must-match t :tag "ODF Text or Text Template file") (cons :tag "Members" (file :tag "    Member" "styles.xml") (repeat (file :tag "Member"))))) org-odt-display-outline-level #[0 "\300\207" [2] 1] "Outline levels considered for enumerating captioned entities." "24.4" :package-version (Org . "8.0") integer org-odt-convert-processes #[0 "\300\207" [(("LibreOffice" "soffice --headless --convert-to %f%x --outdir %d %i") ("unoconv" "unoconv -f %f -o %d %i"))] 1] "Specify a list of document converters and their usage.\nThe converters in this list are offered as choices while\ncustomizing `org-odt-convert-process'.\n\nThis variable is a list where each element is of the\nform (CONVERTER-NAME CONVERTER-CMD).  CONVERTER-NAME is the name\nof the converter.  CONVERTER-CMD is the shell command for the\nconverter and can contain format specifiers.  These format\nspecifiers are interpreted as below:\n\n%i input file name in full\n%I input file name as a URL\n%f format of the output file\n%o output file name in full\n%O output file name as a URL\n%d output dir in full\n%D output dir as a URL.\n%x extra options as set in `org-odt-convert-capabilities'." (choice (const :tag "None" nil) (alist :tag "Converters" :key-type (string :tag "Converter Name") :value-type (group (string :tag "Command line")))) org-odt-convert-process #[0 "\300\207" [#1="LibreOffice"] 1 #1#] "Use this converter to convert from \"odt\" format to other formats.\nDuring customization, the list of converter names are populated\nfrom `org-odt-convert-processes'." (choice :convert-widget (lambda (w) (apply 'widget-convert (widget-type w) (eval (car (widget-get w :args))))) `((const :tag "None" nil) ,@(mapcar (lambda (c) `(const :tag ,(car c) ,(car c))) org-odt-convert-processes))) org-odt-convert-capabilities #[0 "\300\207" [(("Text" ("odt" "ott" "doc" "rtf" "docx") (("pdf" "pdf") ("odt" "odt") ("rtf" "rtf") ("ott" "ott") ("doc" "doc" ":\"MS Word 97\"") ("docx" "docx") ("html" "html"))) ("Web" ("html") (("pdf" "pdf") ("odt" "odt") ("html" "html"))) ("Spreadsheet" ("ods" "ots" "xls" "csv" "xlsx") (("pdf" "pdf") ("ots" "ots") ("html" "html") ("csv" "csv") ("ods" "ods") ("xls" "xls") ("xlsx" "xlsx"))) ("Presentation" ("odp" "otp" "ppt" "pptx") (("pdf" "pdf") ("swf" "swf") ("odp" "odp") ("otp" "otp") ("ppt" "ppt") ("pptx" "pptx") ("odg" "odg"))))] 1] "Specify input and output formats of `org-odt-convert-process'.\nMore correctly, specify the set of input and output formats that\nthe user is actually interested in.\n\nThis variable is an alist where each element is of the\nform (DOCUMENT-CLASS INPUT-FMT-LIST OUTPUT-FMT-ALIST).\nINPUT-FMT-LIST is a list of INPUT-FMTs.  OUTPUT-FMT-ALIST is an\nalist where each element is of the form (OUTPUT-FMT\nOUTPUT-FILE-EXTENSION EXTRA-OPTIONS).\n\nThe variable is interpreted as follows:\n`org-odt-convert-process' can take any document that is in\nINPUT-FMT-LIST and produce any document that is in the\nOUTPUT-FMT-LIST.  A document converted to OUTPUT-FMT will have\nOUTPUT-FILE-EXTENSION as the file name extension.  OUTPUT-FMT\nserves dual purposes:\n- It is used for populating completion candidates during\n  `org-odt-convert' commands.\n- It is used as the value of \"%f\" specifier in\n  `org-odt-convert-process'.\n\nEXTRA-OPTIONS is used as the value of \"%x\" specifier in\n`org-odt-convert-process'.\n\nDOCUMENT-CLASS is used to group a set of file formats in\nINPUT-FMT-LIST in to a single class.\n\nNote that this variable inherently captures how LibreOffice based\nconverters work.  LibreOffice maps documents of various formats\nto classes like Text, Web, Spreadsheet, Presentation etc and\nallow document of a given class (irrespective of its source\nformat) to be converted to any of the export formats associated\nwith that class.\n\nSee default setting of this variable for a typical configuration." (choice (const :tag "None" nil) (alist :tag "Capabilities" :key-type (string :tag "Document Class") :value-type (group (repeat :tag "Input formats" (string :tag "Input format")) (alist :tag "Output formats" :key-type (string :tag "Output format") :value-type (group (string :tag "Output file extension") (choice (const :tag "None" nil) (string :tag "Extra options"))))))) org-odt-preferred-output-format #[0 "\300\207" [nil] 1] "Automatically post-process to this format after exporting to \"odt\".\nCommand `org-odt-export-to-odt' exports first to \"odt\" format\nand then uses `org-odt-convert-process' to convert the\nresulting document to this format.  During customization of this\nvariable, the list of valid values are populated based on\n`org-odt-convert-capabilities'.\n\nYou can set this option on per-file basis using file local\nvalues.  See Info node `(emacs) File Variables'." (choice :convert-widget (lambda (w) (apply 'widget-convert (widget-type w) (eval (car (widget-get w :args))))) `((const :tag "None" nil) ,@(mapcar (lambda (c) `(const :tag ,c ,c)) (org-odt-reachable-formats "odt")))) put safe-local-variable stringp org-odt-format-drawer-function #[0 "\300\207" [#[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]] 1] "Function called to format a drawer in ODT code.\n\nThe function must accept two parameters:\n  NAME      the drawer name, like \"LOGBOOK\"\n  CONTENTS  the contents of the drawer.\n\nThe function should return the string to be exported.\n\nThe default value simply returns the value of CONTENTS." "26.1" (Org . "8.3") org-odt-format-headline-function #[0 "\300\207" [org-odt-format-headline-default-function] 1] "Function to format headline text.\n\nThis function will be called with 5 arguments:\nTODO      the todo keyword (string or nil).\nTODO-TYPE the type of todo (symbol: `todo', `done', nil)\nPRIORITY  the priority of the headline (integer or nil)\nTEXT      the main headline text (string).\nTAGS      the tags string, separated with colons (string or nil).\n\nThe function result will be used as headline text." (Org . "8.3") org-odt-format-inlinetask-function #[0 "\300\207" [org-odt-format-inlinetask-default-function] 1] "Function called to format an inlinetask in ODT code.\n\nThe function must accept six parameters:\n  TODO      the todo keyword, as a string\n  TODO-TYPE the todo type, a symbol among `todo', `done' and nil.\n  PRIORITY  the inlinetask priority, as a string\n  NAME      the inlinetask name, as a string.\n  TAGS      the inlinetask tags, as a string.\n  CONTENTS  the contents of the inlinetask, as a string.\n\nThe function should return the string to be exported." (Org . "8.3") org-odt-with-latex #[0 "\207" [org-export-with-latex] 1] "Non-nil means process LaTeX math snippets.\n\nWhen set, the exporter will process LaTeX environments and\nfragments.\n\nThis option can also be set with the +OPTIONS line,\ne.g. \"tex:mathjax\".  Allowed values are:\n\nnil            Ignore math snippets.\n`verbatim'     Keep everything in verbatim\n`dvipng'       Process the LaTeX fragments to images.  This will also\n               include processing of non-math environments.\n`imagemagick'  Convert the LaTeX fragments to pdf files and use\n               imagemagick to convert pdf files to png files.\n`mathjax'      Do MathJax preprocessing and arrange for MathJax.js to\n               be loaded.\n\nAny other symbol is a synonym for `mathjax'." (Org . "8.0") (choice (const :tag "Do not process math in any way" nil) (const :tag "Leave math verbatim" verbatim) (const :tag "Use dvipng to make images" dvipng) (const :tag "Use imagemagick to make images" imagemagick) (other :tag "Use MathJax to display math" mathjax)) org-odt-inline-formula-rules #[0 "\300\207" [(("file" . "\\.\\(mathml\\|mml\\|odf\\)\\'"))] 1] "Rules characterizing formula files that can be inlined into ODT.\n\nA rule consists in an association whose key is the type of link\nto consider, and value is a regexp that will be matched against\nlink's path." (Org . "8.0") (alist :key-type (string :tag "Type") :value-type (regexp :tag "Path")) org-odt-inline-image-rules #[0 "\300\207" [(("file" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\|svg\\)\\'"))] 1] "Rules characterizing image files that can be inlined into ODT.\n\nA rule consists in an association whose key is the type of link\nto consider, and value is a regexp that will be matched against\nlink's path." (Org . "8.3") (alist :key-type (string :tag "Type") :value-type (regexp :tag "Path")) org-odt-pixels-per-inch #[0 "\300\207" [96.0] 1] "Scaling factor for converting images pixels to inches.\nUse this for sizing of embedded images.  See Info node `(org)\nImages in ODT export' for more information." float (Org . "8.1") org-odt-create-custom-styles-for-srcblocks #[0 "\300\207" [t] 1] "Whether custom styles for colorized source blocks be automatically created.\nWhen this option is turned on, the exporter creates custom styles\nfor source blocks based on the advice of `htmlfontify'.  Creation\nof custom styles happen as part of `org-odt-hfy-face-to-css'.\n\nWhen this option is turned off exporter does not create such\nstyles.\n\nUse the latter option if you do not want the custom styles to be\nbased on your current display settings.  It is necessary that the\nstyles.xml already contains needed styles for colorizing to work.\n\nThis variable is effective only if `org-odt-fontify-srcblocks' is\nturned on." org-odt-fontify-srcblocks #[0 "\300\207" [t] 1] "Specify whether or not source blocks need to be fontified.\nTurn this option on if you want to colorize the source code\nblocks in the exported file.  For colorization to work, you need\nto make available an enhanced version of `htmlfontify' library." org-odt-table-styles #[0 "\300\207" [(("OrgEquation" "OrgEquation" ((use-first-column-styles . t) (use-last-column-styles . t))) ("TableWithHeaderRowAndColumn" "Custom" ((use-first-row-styles . t) (use-first-column-styles . t))) ("TableWithFirstRowandLastRow" "Custom" ((use-first-row-styles . t) (use-last-row-styles . t))) ("GriddedTable" "Custom" nil))] 1] "Specify how Table Styles should be derived from a Table Template.\nThis is a list where each element is of the\nform (TABLE-STYLE-NAME TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS).\n\nTABLE-STYLE-NAME is the style associated with the table through\n\"#+ATTR_ODT: :style TABLE-STYLE-NAME\" line.\n\nTABLE-TEMPLATE-NAME is a set of - upto 9 - automatic\nTABLE-CELL-STYLE-NAMEs and PARAGRAPH-STYLE-NAMEs (as defined\nbelow) that is included in `org-odt-content-template-file'.\n\nTABLE-CELL-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +\n                         \"TableCell\"\nPARAGRAPH-STYLE-NAME  := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +\n                         \"TableParagraph\"\nTABLE-CELL-TYPE       := \"FirstRow\"   | \"LastColumn\" |\n                         \"FirstRow\"   | \"LastRow\"    |\n                         \"EvenRow\"    | \"OddRow\"     |\n                         \"EvenColumn\" | \"OddColumn\"  | \"\"\nwhere \"+\" above denotes string concatenation.\n\nTABLE-CELL-OPTIONS is an alist where each element is of the\nform (TABLE-CELL-STYLE-SELECTOR . ON-OR-OFF).\nTABLE-CELL-STYLE-SELECTOR := `use-first-row-styles'       |\n                             `use-last-row-styles'        |\n                             `use-first-column-styles'    |\n                             `use-last-column-styles'     |\n                             `use-banding-rows-styles'    |\n                             `use-banding-columns-styles' |\n                             `use-first-row-styles'\nON-OR-OFF                 := t | nil\n\nFor example, with the following configuration\n\n(setq org-odt-table-styles\n      \\='((\"TableWithHeaderRowsAndColumns\" \"Custom\"\n         ((use-first-row-styles . t)\n          (use-first-column-styles . t)))\n        (\"TableWithHeaderColumns\" \"Custom\"\n         ((use-first-column-styles . t)))))\n\n1. A table associated with \"TableWithHeaderRowsAndColumns\"\n   style will use the following table-cell styles -\n   \"CustomFirstRowTableCell\", \"CustomFirstColumnTableCell\",\n   \"CustomTableCell\" and the following paragraph styles\n   \"CustomFirstRowTableParagraph\",\n   \"CustomFirstColumnTableParagraph\", \"CustomTableParagraph\"\n   as appropriate.\n\n2. A table associated with \"TableWithHeaderColumns\" style will\n   use the following table-cell styles -\n   \"CustomFirstColumnTableCell\", \"CustomTableCell\" and the\n   following paragraph styles\n   \"CustomFirstColumnTableParagraph\", \"CustomTableParagraph\"\n   as appropriate..\n\nNote that TABLE-TEMPLATE-NAME corresponds to the\n\"<table:table-template>\" elements contained within\n\"<office:styles>\".  The entries (TABLE-STYLE-NAME\nTABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS) correspond to\n\"table:template-name\" and \"table:use-first-row-styles\" etc\nattributes of \"<table:table>\" element.  Refer ODF-1.2\nspecification for more information.  Also consult the\nimplementation filed under `org-odt-get-table-cell-styles'.\n\nThe TABLE-STYLE-NAME \"OrgEquation\" is used internally for\nformatting of numbered display equations.  Do not delete this\nstyle from the list." (choice (const :tag "None" nil) (repeat :tag "Table Styles" (list :tag "Table Style Specification" (string :tag "Table Style Name") (string :tag "Table Template Name") (alist :options (use-first-row-styles use-last-row-styles use-first-column-styles use-last-column-styles use-banding-rows-styles use-banding-columns-styles) :key-type symbol :value-type (const :tag "True" t))))) org-odt-use-date-fields #[0 "\300\207" [nil] 1] "Non-nil, if timestamps should be exported as date fields.\n\nWhen nil, export timestamps as plain text.\n\nWhen non-nil, map `org-time-stamp-custom-formats' to a pair of\nOpenDocument date-styles with names \"OrgDate1\" and \"OrgDate2\"\nrespectively.  A timestamp with no time component is formatted\nwith style \"OrgDate1\" while one with explicit hour and minutes\nis formatted with style \"OrgDate2\".\n\nThis feature is experimental.  Most (but not all) of the common\n%-specifiers in `format-time-string' are supported.\nSpecifically, locale-dependent specifiers like \"%c\", \"%x\" are\nformatted as canonical Org timestamps.  For finer control, avoid\nthese %-specifiers.\n\nTextual specifiers like \"%b\", \"%h\", \"%B\", \"%a\", \"%A\"\netc., are displayed by the application in the default language\nand country specified in `org-odt-styles-file'.  Note that the\ndefault styles file uses language \"en\" and country \"GB\".  You\ncan localize the week day and month strings in the exported\ndocument by setting the default language and country either using\nthe application UI or through a custom styles file.\n\nSee `org-odt--build-date-styles' for implementation details." (Org . "8.0")] 12)
C 135 #@43 
136
137 (fn TIMESTAMP &optional END ISO-DATE-P)
e75a20 138 (defalias 'org-odt--format-timestamp #[769 "\302?\206    \303!\211\203\304\202\304#\262\203#\211\202\345\203+\305\202,\306\203>    @\307\310O    A\307\310OB\202?\311\203H\211A\202J\211@    \n#\266\202\312\211;\203c\313\314#\202i\315A@\"\266\202\316    \211;\203{\313\314#\202\201\315A@\"\266\202\317\n\211;\203\223\313\314#\202\231\315A@\"\266\202\320\267\202\255\321\202\256\322\202\256\323\202\256\324\205\265\325!\326\267\202\317\327\202\320\330\202\320\331\202\320\332\202\320\333\202\320\324Q\266\203\334\335$\336\230?\205\341\337Q\266\203\207" [org-display-custom-times org-time-stamp-custom-formats #[1026 "\203 \300$\207\301\302#\207" [org-timestamp-format format-time-string nil] 9 "\n\n(fn TIMESTAMP FORMAT &optional END UTC)"] org-timestamp-has-time-p "%Y-%m-%dT%H:%M:%S" "OrgDate2" "OrgDate1" 1 -1 ("%Y-%m-%d %a" . "%Y-%m-%d %a %H:%M") :repeater-type get-text-property 0 plist-get :repeater-value :repeater-unit #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (catchup 161 restart 165 cumulate 169)) "++" ".+" "+" nil number-to-string #s(hash-table size 5 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hour 187 day 191 week 195 month 199 year 203)) "h" "d" "w" "m" "y" format "<text:date text:date-value=\"%s\" style:data-style-name=\"%s\" text:fixed=\"true\">%s</text:date>" "" " "] 16 (#$ . 31480)])
76bbd0 139 #@81 
C 140
141 (fn TEXT WIDTH HEIGHT STYLE &optional EXTRA ANCHOR-TYPE &rest TITLE-AND-DESC)
e75a20 142 (defalias 'org-odt--frame #[1668 "\203\f\300\301\"\202 \302\203\300\303\"\202\302\300\304\206#\305\"\300\306\307\310!@\"\260\300\311 @A@\205F\300\312\313\314\"\"\205Q\300\315\313\314\"\"P\266\202P$\207" [format " svg:width=\"%0.2fcm\"" "" " svg:height=\"%0.2fcm\"" " text:anchor-type=\"%s\"" "paragraph" " draw:name=\"%s\"" org-odt-add-automatic-style "Frame" "\n<draw:frame draw:style-name=\"%s\"%s>\n%s\n</draw:frame>" "<svg:title>%s</svg:title>" org-odt--encode-plain-text t "<svg:desc>%s</svg:desc>"] 21 (#$ . 32966)])
76bbd0 143 #@31 
C 144
145 (fn ARCHIVE MEMBERS TARGET)
e75a20 146 (defalias 'org-odt--zip-extract #[771 ":\204    C\262\301\302!\210\211\205_\211@\303\211!\304!\305\306\307\310\257\311\211\312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216\300\"\262\323 *\262\262\315U\204U\324!\210\325\326!\210)\266A\266\202\202\207" [archive-zip-extract require arc-mode #[257 "\302>\203\303\301!\203    \204\304!\207\207" [system-type w32-quote-process-args (windows-nt ms-dos) boundp shell-quote-argument] 3 "\n\n(fn NAME)"] expand-file-name "unzip" "-qq" "-o" "-d" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 buffer-string message error "Extraction failed"] 17 (#$ . 33606)])
76bbd0 147 #@16 
C 148
149 (fn TEXT ID)
e75a20 150 (defalias 'org-odt--target #[514 "\211\204\207\300\301\"\300\302\"\300\303\"R\207" [format "\n<text:bookmark-start text:name=\"OrgXref.%s\"/>" "\n<text:bookmark text:name=\"%s\"/>" "\n<text:bookmark-end text:name=\"OrgXref.%s\"/>"] 8 (#$ . 34354)])
76bbd0 151 #@60 
C 152
153 (fn TEXT WIDTH HEIGHT STYLE &optional EXTRA ANCHOR-TYPE)
e75a20 154 (defalias 'org-odt--textbox #[1540 "\300\301\302\301\303\206 \304\"?\205\301\305\n\206\306\"P    #\307&\207" [org-odt--frame format "\n<draw:text-box %s>%s\n</draw:text-box>" " fo:min-height=\"%0.2fcm\"" 0.2 " fo:min-width=\"%0.2fcm\"" 0.2 nil] 13 (#$ . 34631)])
76bbd0 155 #@217 Return a table of contents.
C 156 TITLE is the title of the table, as a string, or nil.  ENTRIES is
157 the contents of the table, as a string.  DEPTH is an integer
158 specifying the depth of the table.
159
160 (fn TITLE ENTRIES DEPTH)
e75a20 161 (defalias 'org-odt--format-toc #[771 "\300\301\302\"\205\301\303\"\304\305\306\"\307\310\311#\262\312\205$\301\313    \"\314\260\207" ["\n<text:table-of-content text:style-name=\"OrgIndexSection\" text:protected=\"true\" text:name=\"Table of Contents\">\n" format "  <text:table-of-content-source text:outline-level=\"%d\">" "\n    <text:index-title-template text:style-name=\"Contents_20_Heading\">%s</text:index-title-template>\n" number-sequence 1 10 mapconcat #[257 "\300\301\211#\207" [format "\n      <text:table-of-content-entry-template text:outline-level=\"%d\" text:style-name=\"Contents_20_%d\">\n       <text:index-entry-link-start text:style-name=\"Internet_20_link\"/>\n       <text:index-entry-chapter/>\n       <text:index-entry-text/>\n       <text:index-entry-link-end/>\n      </text:table-of-content-entry-template>\n"] 5 "\n\n(fn LEVEL)"] "" "\n  </text:table-of-content-source>\n  <text:index-body>" "\n    <text:index-title text:style-name=\"Sect1\" text:name=\"Table of Contents1_Head\">\n      <text:p text:style-name=\"Contents_20_Heading\">%s</text:p>\n    </text:index-title>\n" "\n  </text:index-body>\n</text:table-of-content>"] 11 (#$ . 34977)])
76bbd0 162 #@101 
C 163
164 (fn TODO TODO-TYPE PRIORITY TEXT TAGS &key LEVEL SECTION-NUMBER HEADLINE-LABEL &allow-other-keys)
e75a20 165 (defalias 'org-odt-format-toc-headline #[1413 "\301\302\"A@\301\303\"A@\301\304\"A@\305\306\205\307P\f\2055\f\235\203,\310\202-\311\305\312#\262 \205K\305\313 \"\305\314\"\305\312#\266\202  \205^\305\315\316\317\320\321##\260\260#\207" [org-done-keywords plist-member :level :section-number :headline-label format "<text:a xlink:type=\"simple\" xlink:href=\"#%s\">%s</text:a>" ". " "OrgDone" "OrgTodo" "<text:span text:style-name=\"%s\">%s</text:span> " "OrgPriority-%s" "[#%c]" " <text:span text:style-name=\"%s\">[%s]</text:span>" "OrgTags" mapconcat #[257 "\300\301\302#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgTag"] 5 "\n\n(fn TAG)"] " : "] 23 (#$ . 36390)])
76bbd0 166 #@294 Build a table of contents.
C 167 DEPTH is an integer specifying the depth of the table.  INFO is
168 a plist containing current export properties.  Optional argument
169 SCOPE, when non-nil, defines the scope of the table.  Return the
170 table of contents as a string, or nil.
171
172 (fn DEPTH INFO &optional SCOPE)
e75a20 173 (defalias 'org-odt-toc #[770 "\301!\204\n\302\303!\210\304#\305\306\307\310\"!>\204&\311\312\313\307\310\"D\"\210\307\310\"\314H!\205S\315?\205=\316\317\320#\321\322\323\324\325\326     \"\327\"\330\331%\332##\207" [cl-struct-org-export-backend-tags wholenump cl--assertion-failed (wholenump depth) org-export-collect-headlines org-export-toc-entry-backend type-of plist-get :back-end signal wrong-type-argument org-export-backend 1 org-odt--format-toc org-export-translate "Table of Contents" :utf-8 mapconcat make-byte-code 257 "\302\301\300\303$\304\300\"\305\306\"\305\307#\207" vconcat vector [org-odt-format-headline--wrap org-odt-format-toc-headline org-export-get-relative-level format "Contents_20_%d" "\n<text:p text:style-name=\"%s\">%s</text:p>"] 8 "\n\n(fn HEADLINE)" "\n"] 15 (#$ . 37221)])
76bbd0 174 #@449 Create an automatic style of type OBJECT-TYPE with param OBJECT-PROPS.
C 175 OBJECT-PROPS is (typically) a plist created by passing
176 "#+ATTR_ODT: " option of the object in question to
177 `org-odt-parse-block-attributes'.
178
179 Use `org-odt-object-counters' to generate an automatic
180 OBJECT-NAME and STYLE-NAME.  If OBJECT-PROPS is non-nil, add a
181 new entry in `org-odt-automatic-styles'.  Return (OBJECT-NAME
182 . STYLE-NAME).
183
184 (fn OBJECT-TYPE &optional OBJECT-PROPS)
e75a20 185 (defalias 'org-odt-add-automatic-style #[513 ";\204    \302\303!\210\304!\211\305\"\206\306T\307\310#\311\312#\203?\307\313\"\262\312    \314\nDC\305     \"\"#B\207" [org-odt-object-counters org-odt-automatic-styles cl--assertion-failed (stringp object-type) intern plist-get 0 format "%s%d" nil plist-put "Org%s" append] 15 (#$ . 38350)])
76bbd0 186 #@56 Return check-box string associated to ITEM.
C 187
188 (fn ITEM)
e75a20 189 (defalias 'org-odt--checkbox #[257 "\300\211;\203\301\302#\202\303A@\"\266\202\211\204\304\2026\305\306\307\310\267\2024\311\2025\312\2025\313\2025\314#\207" [:checkbox get-text-property 0 plist-get "" format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode" #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (on 40 off 44 trans 48)) "[&#x2713;] " "[ ] " "[-] " nil] 7 (#$ . 39161)])
76bbd0 190 #@18 
C 191
192 (fn FMT STYLE)
e75a20 193 (defalias 'org-odt--build-date-styles #[514 "\205\237\211\205\237\301\302\303\304\305\306\"\307#\302\211\310\211\302\211\211\311\211\2034\211@\312@A\313\211%\262 A\266\202\202\210\314\f#\203~\315\310\f\"\262\316\n\"\262\310\225\262\310\224\262\n\310\225\262O\262\317\230?\205o\320\321\322!\"\262\211\323\323    \260\262\2025\n\302O\262\317\230\204\225\211\320\324\322!\"P\262\320\325 \326$)\266\211\207" [case-fold-search (("%A" . "<number:day-of-week number:style=\"long\"/>") ("%B" . "<number:month number:textual=\"true\" number:style=\"long\"/>") ("%H" . "<number:hours number:style=\"long\"/>") ("%M" . "<number:minutes number:style=\"long\"/>") ("%S" . "<number:seconds number:style=\"long\"/>") ("%V" . "<number:week-of-year/>") ("%Y" . "<number:year number:style=\"long\"/>") ("%a" . "<number:day-of-week number:style=\"short\"/>") ("%b" . "<number:month number:textual=\"true\" number:style=\"short\"/>") ("%d" . "<number:day number:style=\"long\"/>") ("%e" . "<number:day number:style=\"short\"/>") ("%h" . "<number:month number:textual=\"true\" number:style=\"short\"/>") ("%k" . "<number:hours number:style=\"short\"/>") ("%m" . "<number:month number:style=\"long\"/>") ("%p" . "<number:am-pm/>") ("%y" . "<number:year number:style=\"short\"/>")) nil mapconcat identity mapcar car "\\|" 0 (("\\(?:%[[:digit:]]*N\\)" . #1="") ("%C" . "Y") ("%D" . "%m/%d/%y") ("%G" . "Y") ("%I" . "%H") ("%R" . "%H:%M") ("%T" . "%H:%M:%S") ("%U\\|%W" . "%V") ("%Z" . #1#) ("%c" . "%Y-%M-%d %a %H:%M") ("%g" . "%y") ("%X" . "%x") ("%j" . #1#) ("%l" . "%k") ("%s" . #1#) ("%n" . "<text:line-break/>") ("%r" . "%I:%M:%S %p") ("%t" . "<text:tab/>") ("%u\\|%w" . #1#) ("%x" . "%Y-%M-%d %a") ("%z" . #1#)) replace-regexp-in-string t string-match match-string assoc-default #1# format "<number:text>%s</number:text>" org-odt--encode-plain-text "\n" "\n<number:text>%s</number:text>" "\n<number:date-style style:name=\"%s\" %s>%s\n</number:date-style>" " number:automatic-order=\"true\" number:format-source=\"fixed\""] 19 (#$ . 39670)])
76bbd0 194 #@199 Return complete document string after ODT conversion.
C 195 CONTENTS is the transcoded contents string.  RAW-DATA is the
196 original parsed data.  INFO is a plist holding export options.
197
198 (fn CONTENTS INFO)
e75a20 199 (defalias 'org-odt-template #[514 "\306\307\310\"\"\306\307\311\"\"\307\312\"\211\204\313\202\306\"\262\307\314\"\206(\313\307\315\"\2060\313\316\317\320\321\"\320\322\"\307\n\323\"\205\204\307\n\324\"\211A?\205p\211@\211:\204_\211;\205g\325\202g\211@9\205g\211@\262\326=\205p\211@\262\327\330\331#\320\332\"\320\333\"P\262\262\320\334\307 \335\"\"\320\336    \"\320\337    \"\320\340\"\341 !\205\247\320\342\"\343\344\345\260\f\330\346P#\210\347\350\346\"\266\307\351\"\341!\205\330\211\330\352\203\315\353\202\316\354\313\352\355\313##\266\202\211\206\346\356\357    \"\206\346\360\361!\211<\203\211@A@\362#\210\211\211\203\211@\363!\203\364!\320\365\n\"\347\"\210)\210A\266\202\202\367\266\202V\211;\203M\366!\203M\364!\211\367\230\203=\370\371P\372#\210\202I\211\373\235\203I\362\371#\210\210\202V\360\374\307\351\"\"\210\347\350\371\"\210r\375\371P\372\"q\210\376\372\211\"\210\377\201D \313#\211\203\221eb\210\201E\201F\330\372#\203\221\201G\224b\210\201H\343\261\210\210\201I\304!\210\372eb\210\201J\201K\201E\330\372#\203\336\307\201L\"\201M\201N\201O!!\201P!\203\315\211X\202\316\266\202\204\243\201Q\372\330#\210\202\243\266\201R\201G!\210)\266 \203@@\201S\201TO@A\201S\201TOB\202\n\201U\201V\201W!r\211q\210\201X\201G\201Y\201Z\201[!\201\\\"\201O$\216\201]\307\201^\"\206A\356\201_    \"!\210eb\210\201E\201`\330\372#\210\201G\224b\210\307A\201a\"\330\211\211:\203\226@\262\211A\262\242\262\211@\262\307\201b\"\206\201\201c\211\262\203\217\320B#c\210A\262\202`\266\307\201d\"\203\266\201e@\201f\"\201eA\201g\"\261\210eb\210\201E\201h\330\372#\203\324\201G\224\201E\201i\330\211#|\210\320\201j\377\201X\201k\201l\201Z\201[\n!\201m\"\201n\201o%C\343#\"c\210eb\210\201E\201p\330\211#\210\201G\224b\210\307\201q\"\205 \306\307\310\"\"\211\205+\306\307\311\"\"\307\201r\"\205C\307\312\"\211\205A\306\"\262\307\201s\"\307\201r\"\205Y\206Y\211\307\201t\"\205d\341!\205\227\320\201u\201v\320\201w\n\"#\201x\341!\205\226\320\201y\201z    \201{Q\"\201|PQ\203\265\204\265\320\201}\201~\320\201\"#\201\200P\202\333\205\333\205\333\320\201}\201~\320\201\201\201\202P\320\201\n\"##\201\200P\307 \323\"\205;\307 \324\"\211A?\205\211@\211:\204\376\211;\205\325\202\211@9\205\211@\262\326=\205\211@\2059\320\201}\201~\307\201d\"\203/\203/\327@!\2024\306\"#\201\203P\266\202Q\266\206c\210\307\201\204\"\211\205\\\201P!\203V\211\202\\\307\201\205\"\211\203m\201\206\"\206k\313c\210\266c\210\201\207ed\"*\262\207" [org-odt-zip-dir org-odt-styles-dir image-type hfy-user-sheet-assoc backup-inhibited org-display-custom-times org-export-data plist-get :title :subtitle :author "" :keywords :description write-region "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n     <office:document-meta\n         xmlns:office=\"urn:oasis:names:tc:opendocument:xmlns:office:1.0\"\n         xmlns:xlink=\"http://www.w3.org/1999/xlink\"\n         xmlns:dc=\"http://purl.org/dc/elements/1.1/\"\n         xmlns:meta=\"urn:oasis:names:tc:opendocument:xmlns:meta:1.0\"\n         xmlns:ooo=\"http://openoffice.org/2004/office\"\n         office:version=\"1.2\">\n       <office:meta>\n" format "<dc:creator>%s</dc:creator>\n" "<meta:initial-creator>%s</meta:initial-creator>\n" :with-date :date plain-text timestamp org-odt--format-timestamp nil iso-date "<dc:date>%s</dc:date>\n" "<meta:creation-date>%s</meta:creation-date>\n" "<meta:generator>%s</meta:generator>\n" :creator "<meta:keyword>%s</meta:keyword>\n" "<dc:subject>%s</dc:subject>\n" "<dc:title>%s</dc:title>\n" org-string-nw-p "<meta:user-defined meta:name=\"subtitle\">%s</meta:user-defined>\n" "\n" "  </office:meta>\n" "</office:document-meta>" "meta.xml" org-odt-create-manifest-file-entry "text/xml" :odt-styles-file replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "[     \n ]+\\'" expand-file-name "OrgOdtStyles.xml" error "org-odt: Missing styles file?" org-odt--zip-extract org-file-image-p file-name-extension "image/%s" file-exists-p "xml" copy-file "styles.xml" t ("odt" "ott") "Invalid specification of styles.xml file: %S" find-file-noselect revert-buffer mapconcat org-time-stamp-custom-formats org-odt-automatic-styles org-odt-table-style-format org-odt-category-map-alist #[257 "\300\301AA\"\207" [format " %s\n"] 4 "\n\n(fn STYLE)"] re-search-forward "</office:styles>" 0 "\n<!-- Org Htmlfontify Styles -->\n" make-local-variable "<text:outline-level-style\\([^>]*\\)text:level=\"\\([^\"]*\\)\"\\([^>]*\\)>" "<text:outline-level-style\\1text:level=\"\\2\" style:num-format=\"\">" :section-numbers string-to-number match-string 2 wholenump replace-match save-buffer 1 -1 ("%Y-%M-%d %a" . "%Y-%M-%d %a %H:%M") generate-new-buffer " *temp*" make-byte-code "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] insert-file-contents :odt-content-template-file "OrgOdtContentTemplate.xml" "  </office:automatic-styles>" Table :rel-width "96" :odt-use-date-fields org-odt--build-date-styles "OrgDate1" "OrgDate2" "<text:sequence-decls" "</text:sequence-decls>" "\n<text:sequence-decls>\n%s\n</text:sequence-decls>" 257 "\301\302\303\300\304\"A@#\207" [format "<text:sequence-decl text:display-outline-level=\"%d\" text:name=\"%s\"/>" plist-get :odt-display-outline-level] 6 "\n\n(fn X)" "</office:text>" :with-title :with-author :email :with-email "\n<text:p text:style-name=\"%s\">%s</text:p>\n" "OrgTitle" "\n<text:title>%s</text:title>" "\n<text:p text:style-name=\"OrgTitle\"/>\n" "<text:p text:style-name=\"OrgSubtitle\">\n%s\n</text:p>\n" "<text:user-defined style:data-style-name=\"N0\" text:name=\"subtitle\">\n" "</text:user-defined>\n" "<text:p text:style-name=\"OrgSubtitle\"/>\n" "\n<text:p text:style-name=\"%s\">%s</text:p>" "OrgSubtitle" "<text:initial-creator>%s</text:initial-creator>" "\n<text:p text:style-name=\"OrgSubtitle\"/>" "<text:a xlink:type=\"simple\" xlink:href=\"%s\">%s</text:a>" "mailto:" "<text:p text:style-name=\"OrgSubtitle\"/>" :with-toc :headline-levels org-odt-toc buffer-substring-no-properties] 20 (#$ . 41765)])
76bbd0 200 #@146 Transcode BOLD from Org to ODT.
C 201 CONTENTS is the text with bold markup.  INFO is a plist holding
202 contextual information.
203
204 (fn BOLD CONTENTS INFO)
e75a20 205 (defalias 'org-odt-bold #[771 "\300\301\302#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "Bold"] 7 (#$ . 48207)])
76bbd0 206 #@182 Transcode a CENTER-BLOCK element from Org to ODT.
C 207 CONTENTS holds the contents of the center block.  INFO is a plist
208 holding contextual information.
209
210 (fn CENTER-BLOCK CONTENTS INFO)
e75a20 211 (defalias 'org-odt-center-block #[771 "\207" [] 4 (#$ . 48494)])
76bbd0 212 #@137 Transcode a CLOCK element from Org to ODT.
C 213 CONTENTS is nil.  INFO is a plist used as a communication
214 channel.
215
216 (fn CLOCK CONTENTS INFO)
e75a20 217 (defalias 'org-odt-clock #[771 "\301\211;\203\302\303#\202\304A@\"\266\202\305\211;\203&\302\303#\202,\304A@\"\266\202\306\307\310\"\211:\204D\211;\205L\311\202L\211@9\205L\211@\262\312=\203W\313\202X\314\306\315\316#\317        #\205n\306\320\"Q#\207" [org-clock-string :value get-text-property 0 plist-get :duration format "\n<text:p text:style-name=\"%s\">%s</text:p>" org-export-get-next-element plain-text clock "OrgClock" "OrgClockLastLine" "<text:span text:style-name=\"%s\">%s</text:span>" "OrgClockKeyword" org-odt-timestamp " (%s)"] 13 (#$ . 48748)])
76bbd0 218 #@134 Transcode a CODE object from Org to ODT.
C 219 CONTENTS is nil.  INFO is a plist used as a communication
220 channel.
221
222 (fn CODE CONTENTS INFO)
e75a20 223 (defalias 'org-odt-code #[771 "\300\301\302\303\304\211;\203\305\306#\202\307A@\"\266\202!#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode" org-odt--encode-plain-text :value get-text-property 0 plist-get] 13 (#$ . 49482)])
76bbd0 224 #@163 Transcode a DRAWER element from Org to ODT.
C 225 CONTENTS holds the contents of the block.  INFO is a plist
226 holding contextual information.
227
228 (fn DRAWER CONTENTS INFO)
e75a20 229 (defalias 'org-odt-drawer #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\303\304\"\"\207" [:drawer-name get-text-property 0 plist-get :odt-format-drawer-function] 9 (#$ . 49881)])
76bbd0 230 #@201 Transcode a DYNAMIC-BLOCK element from Org to ODT.
C 231 CONTENTS holds the contents of the block.  INFO is a plist
232 holding contextual information.  See `org-export-data'.
233
234 (fn DYNAMIC-BLOCK CONTENTS INFO)
e75a20 235 (defalias 'org-odt-dynamic-block #[771 "\207" [] 4 (#$ . 50245)])
76bbd0 236 #@157 Transcode an ENTITY object from Org to ODT.
C 237 CONTENTS are the definition itself.  INFO is a plist holding
238 contextual information.
239
240 (fn ENTITY CONTENTS INFO)
e75a20 241 (defalias 'org-odt-entity #[771 "\300\211;\203\301\302#\202\303A@\"\207" [:utf-8 get-text-property 0 plist-get] 9 (#$ . 50519)])
76bbd0 242 #@152 Transcode a EXAMPLE-BLOCK element from Org to ODT.
C 243 CONTENTS is nil.  INFO is a plist holding contextual information.
244
245 (fn EXAMPLE-BLOCK CONTENTS INFO)
e75a20 246 (defalias 'org-odt-example-block #[771 "\300\"\207" [org-odt-format-code] 6 (#$ . 50820)])
76bbd0 247 #@153 Transcode a EXPORT-SNIPPET object from Org to ODT.
C 248 CONTENTS is nil.  INFO is a plist holding contextual information.
249
250 (fn EXPORT-SNIPPET CONTENTS INFO)
e75a20 251 (defalias 'org-odt-export-snippet #[771 "\300!\301=\205\302\211;\203\303\304#\202\305A@\"\266\202\207" [org-export-snippet-backend odt :value get-text-property 0 plist-get] 9 (#$ . 51071)])
76bbd0 252 #@150 Transcode a EXPORT-BLOCK element from Org to ODT.
C 253 CONTENTS is nil.  INFO is a plist holding contextual information.
254
255 (fn EXPORT-BLOCK CONTENTS INFO)
e75a20 256 (defalias 'org-odt-export-block #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\304\230\2055\305\306\211;\203,\301\302#\2022\303A@\"\266\202!\207" [:type get-text-property 0 plist-get "ODT" org-remove-indentation :value] 10 (#$ . 51432)])
76bbd0 257 #@148 Transcode a FIXED-WIDTH element from Org to ODT.
C 258 CONTENTS is nil.  INFO is a plist holding contextual information.
259
260 (fn FIXED-WIDTH CONTENTS INFO)
e75a20 261 (defalias 'org-odt-fixed-width #[771 "\300\301\211;\203\302\303#\202\304A@\"\266\202\"\207" [org-odt-do-format-code :value get-text-property 0 plist-get] 10 (#$ . 51846)])
76bbd0 262 #@162 Transcode a FOOTNOTE-REFERENCE element from Org to ODT.
C 263 CONTENTS is nil.  INFO is a plist holding contextual information.
264
265 (fn FOOTNOTE-REFERENCE CONTENTS INFO)
e75a20 266 (defalias 'org-odt-footnote-reference #[771 "\303\304\305\"\211\211:\204\211;\205\306\202\211@9\205\211@\262\307=\205)\310\311\312\313#\262\314\315\316$\317\315\316$\204C!\202F\320\"\321\322\323\315\324\325\315\211\211\211&#\315\326\203c\327\202d\330\331\326\332\331##\266\202\211:\204x\315\202\205\211@9\203\204\211AA\202\205\211\262@\315\211:\204\230\211;\205\240\306\202\240\211@9\205\240\211@\262\206\275\333\211;\203\265\334\335#\202\273\336A@\"\266\202>\203\307\337\202-    >\203\321\340\202-\341=\203\333\340\202-\306=\203\345\337\202-\204\355\337\202-\211\204\365\340\202-\211\211:\204\211;\205\f\306\202\f\211@9\205\f\211@\262\211\204\337\202+\211\n>\203 \337\202+\342!\203*\337\202+\340\262\266\202\266\202\340=\203:\211\202>\310\343\"\262\"\266\202\262P\207" [org-element-all-objects org-element-all-elements org-element-object-containers #[514 "\300\301\"\262\302P\303\300\304\300\305    \"\300\306    \"P$\207" [format "%d" "fn" "footnote" "<text:note text:id=\"%s\" text:note-class=\"%s\">%s</text:note>" "<text:note-citation>%s</text:note-citation>" "<text:note-body>%s</text:note-body>"] 12 "\n\n(fn N DEF)"] #[257 "\300\301\"\262\302\303\304P\300\305\306\300\307 %#\207" [format "%d" "footnote" "text" "fn" "<text:span text:style-name=\"%s\">%s</text:span>" "OrgSuperscript" "<text:note-ref text:note-class=\"%s\" text:reference-format=\"%s\" text:ref-name=\"%s\">%s</text:note-ref>"] 13 "\n\n(fn N)"] org-export-get-previous-element plain-text footnote-reference format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgSuperscript" "," org-export-get-footnote-number nil t org-export-footnote-first-reference-p org-export-get-footnote-definition org-export-data-with-backend record org-export-backend odt ((paragraph lambda (p c i) (org-odt--format-paragraph p c i "Footnote" "OrgFootnoteCenter" "OrgFootnoteQuotations"))) replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" :parent get-text-property 0 plist-get object element org-data org-element-secondary-p "\n<text:p text:style-name=\"Footnote\">%s</text:p>"] 19 (#$ . 52182)])
76bbd0 267 #@164 Transcode a HEADLINE element using BACKEND.
C 268 INFO is a plist holding contextual information.
269
270 (fn HEADLINE BACKEND INFO &optional FORMAT-FUNCTION &rest EXTRA-KEYS)
e75a20 271 (defalias 'org-odt-format-headline--wrap #[1155 "\206\300\301\"\262\302\"\303\\\304\"\305\"\205#\306\307\310#\300\311\"\205P\312\211;\203;\313\303#\202A\300A@\"\266\202\211\205N\314        #\262\211\205l\315    \211;\203d\313\303#\202j\300A@\"\266\202\300\316\"\205\214\317\n\211;\203\204\313\303#\202\212\300A@\"\266\202\314\320\f\211;\203\235\313\303#\202\243\300A@\"\266\202  #\300\n\321\"\205\270\322\f \"\323 \f\"\324 !\203\312\n\202\327\325\326\327\330\331!\332\"\333\334%\335\336    \337\340& \207" [plist-get :back-end org-export-get-relative-level 0 org-export-get-headline-number org-export-numbered-headline-p mapconcat number-to-string "." :with-todo-keywords :todo-keyword get-text-property org-export-data-with-backend :todo-type :with-priority :priority :title :with-tags org-export-get-tags org-export-get-reference functionp make-byte-code 1413 "\301\302\"A@\301\303\"A@\301\304\"A@\305\300\306\"                    %\207" vconcat vector [plist-member :level :section-number :headline-label plist-get :odt-format-headline-function] 15 "\n\n(fn TODO TODO-TYPE PRIORITY TEXT TAGS &key LEVEL SECTION-NUMBER HEADLINE-LABEL &allow-other-keys)" apply :headline-label :level :section-number] 29 (#$ . 54538)])
76bbd0 272 #@170 Transcode a HEADLINE element from Org to ODT.
C 273 CONTENTS holds the contents of the headline.  INFO is a plist
274 holding contextual information.
275
276 (fn HEADLINE CONTENTS INFO)
e75a20 277 (defalias 'org-odt-headline #[771 "\300\211;\203\301\302#\202\303A@\"\266\202?\205\304\305#\306\"\307\"\310\"\311\211;\203=\301\302#\202C\303A@\"\266\202\211\203R\312\313\314P\"\202S\313\262\312\"\315    \"\203\366\316    \"\205\221\317\320\203u\321\202v\322\317\323\324!\211\203\214\315\"\203\214\325\202\215\326\262\"#\327\n\211:\204\235\305\202\252\211@9\203\251\211AA\202\252\211\262\236\330\205\313\211:\204\274\305\202\311\211@9\203\310\211AA\202\311\211\262\236\262\317\331\317\332\333P#\fP\203\344\334\202\345\335#\262\336 \n\"\205\362\337Q\202\317\340\317\341\203\313\202\342#\203\326\202\325P%P\266\206\207" [:footnote-section-p get-text-property 0 plist-get org-odt-format-headline--wrap nil org-export-get-relative-level org-export-numbered-headline-p org-export-get-reference :ID org-odt--target "" "ID-" org-export-low-level-p org-export-first-sibling-p format "\n<text:list text:style-name=\"%s\" %s>" "OrgNumberedList" "OrgBulletedList" "text:continue-numbering=\"%s\"" org-export-get-parent-headline "true" "false" section table "\n<text:list-item>\n%s\n%s" "\n<text:p text:style-name=\"%s\">%s</text:p>" "Text_20_body" "</text:list-header>" "</text:list-item>" org-export-last-sibling-p "</text:list>" "\n<text:h text:style-name=\"%s\" text:outline-level=\"%s\" text:is-list-header=\"%s\">%s</text:h>" "Heading_20_%s%s" "_unnumbered"] 18 (#$ . 55998)])
76bbd0 278 #@133 Default format function for a headline.
C 279 See `org-odt-format-headline-function' for details.
280
281 (fn TODO TODO-TYPE PRIORITY TEXT TAGS)
e75a20 282 (defalias 'org-odt-format-headline-default-function #[1285 "\205\300=\203\301\202\302\303\304#\262\205+\303\305\"\303\306\"\303\304#\266\202\205<\307\303\310\311\312\313    \314##PR\207" [done "OrgDone" "OrgTodo" format "<text:span text:style-name=\"%s\">%s</text:span> " "OrgPriority-%c" "[#%c]" "<text:tab/>" "<text:span text:style-name=\"%s\">[%s]</text:span>" "OrgTags" mapconcat #[257 "\300\301\302#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgTag"] 5 "\n\n(fn TAG)"] " : "] 16 (#$ . 57644)])
76bbd0 283 #@157 Transcode an HORIZONTAL-RULE  object from Org to ODT.
C 284 CONTENTS is nil.  INFO is a plist holding contextual information.
285
286 (fn HORIZONTAL-RULE CONTENTS INFO)
e75a20 287 (defalias 'org-odt-horizontal-rule #[771 "\300\301\302\303#\207" [format "\n<text:p text:style-name=\"%s\">%s</text:p>" "Horizontal_20_Line" ""] 7 (#$ . 58326)])
76bbd0 288 #@112 Return a character not used in string S.
C 289 This is used to choose a separator for constructs like \verb.
290
291 (fn S)
e75a20 292 (defalias 'org-odt--find-verb-separator #[257 "\300\211\301\302\303\302T\211\262GW\2032H\262\304\305\306!!\"\204.\306!\262\302\211\262\202/\303\204\266\204\207" ["~,./?;':\"|!@#%^&-_=+abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ<>()[]{}" -1 nil t string-match regexp-quote char-to-string] 11 (#$ . 58651)])
76bbd0 293 #@183 Transcode an INLINE-SRC-BLOCK element from Org to ODT.
C 294 CONTENTS holds the contents of the item.  INFO is a plist holding
295 contextual information.
296
297 (fn INLINE-SRC-BLOCK CONTENTS INFO)
e75a20 298 (defalias 'org-odt-inline-src-block #[771 "\300\301!\207" [error "FIXME"] 5 (#$ . 59101)])
76bbd0 299 #@172 Transcode an INLINETASK element from Org to ODT.
C 300 CONTENTS holds the contents of the block.  INFO is a plist
301 holding contextual information.
302
303 (fn INLINETASK CONTENTS INFO)
e75a20 304 (defalias 'org-odt-inlinetask #[771 "\300\301\"\205(\302\211;\203\303\304#\202\300A@\"\266\202\211\205&\305\"\262\211\205C\306\211;\203;\303\304#\202A\300A@\"\266\202\300\307\"\205a\310\211;\203Y\303\304#\202_\300A@\"\266\202\305\311\211;\203r\303\304#\202x\300A@\"\266\202\"\300\312\"\205\211\313\"\300\314\"\f&\207" [plist-get :with-todo-keywords :todo-keyword get-text-property 0 org-export-data :todo-type :with-priority :priority :title :with-tags org-export-get-tags :odt-format-inlinetask-function] 15 (#$ . 59381)])
76bbd0 305 #@145 Default format function for inlinetasks.
C 306 See `org-odt-format-inlinetask-function' for details.
307
308 (fn TODO TODO-TYPE PRIORITY NAME TAGS CONTENTS)
e75a20 309 (defalias 'org-odt-format-inlinetask-default-function #[1542 "\300\301\302\303\300\301\304\305     %#P\306\211\307\310%#\207" [format "\n<text:p text:style-name=\"%s\">%s</text:p>" "Text_20_body" org-odt--textbox "OrgInlineTaskHeading" org-odt-format-headline-default-function nil "OrgInlineTaskFrame" " style:rel-width=\"100%\""] 19 (#$ . 60139)])
76bbd0 310 #@152 Transcode ITALIC from Org to ODT.
C 311 CONTENTS is the text with italic markup.  INFO is a plist holding
312 contextual information.
313
314 (fn ITALIC CONTENTS INFO)
e75a20 315 (defalias 'org-odt-italic #[771 "\300\301\302#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "Emphasis"] 7 (#$ . 60645)])
76bbd0 316 #@159 Transcode an ITEM element from Org to ODT.
C 317 CONTENTS holds the contents of the item.  INFO is a plist holding
318 contextual information.
319
320 (fn ITEM CONTENTS INFO)
e75a20 321 (defalias 'org-odt-item #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\262\304\211;\203)\301\302#\202/\303A@\"\266\202\211\305>\204<\306\307\"\210\310\311\312\313\314    \315%\203O\316\202P\317#\207" [:parent get-text-property 0 plist-get :type (ordered unordered descriptive-1 descriptive-2) error "Unknown list type: %S" format "\n<text:list-item>\n%s\n%s" org-element-map table identity first-match "</text:list-header>" "</text:list-item>"] 14 (#$ . 60944)])
76bbd0 322 #@140 Transcode a KEYWORD element from Org to ODT.
C 323 CONTENTS is nil.  INFO is a plist holding contextual
324 information.
325
326 (fn KEYWORD CONTENTS INFO)
e75a20 327 (defalias 'org-odt-keyword #[771 "\302\211;\203\303\304#\202\305A@\"\266\202\306\211;\203&\303\304#\202,\305A@\"\266\202\307\230\2038\211\202\235\310\230\203B\311\202\235\312\230\205\235\313\314\311\313\315#)\266\203\203\213\315\316\"\203j\317\320\304\"!\206n\305\321\"\322\311\313\315#)\266\203\323\205\205    #\266\202\202\234\324\311\313\315#)\266\203\205\234\311)\207" [case-fold-search inhibit-changing-match-data :key get-text-property 0 plist-get :value "ODT" "INDEX" nil "TOC" t "\\<headlines\\>" string-match "\\<[0-9]+\\>" string-to-number match-string :headline-levels "\\<local\\>" org-odt-toc "tables\\|figures\\|listings"] 13 (#$ . 61598)])
76bbd0 328 #@160 Transcode a LATEX-ENVIRONMENT element from Org to ODT.
C 329 CONTENTS is nil.  INFO is a plist holding contextual information.
330
331 (fn LATEX-ENVIRONMENT CONTENTS INFO)
e75a20 332 (defalias 'org-odt-latex-environment #[771 "\300\301\211;\203\302\303#\202\304A@\"\266\202!\305\"\207" [org-remove-indentation :value get-text-property 0 plist-get org-odt-do-format-code] 10 (#$ . 62450)])
76bbd0 333 #@153 Transcode a LATEX-FRAGMENT object from Org to ODT.
C 334 CONTENTS is nil.  INFO is a plist holding contextual information.
335
336 (fn LATEX-FRAGMENT CONTENTS INFO)
e75a20 337 (defalias 'org-odt-latex-fragment #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\304\305\306\307\310\"#\207" [:value get-text-property 0 plist-get format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode" org-odt--encode-plain-text t] 10 (#$ . 62833)])
76bbd0 338 #@145 Transcode a LINE-BREAK object from Org to ODT.
C 339 CONTENTS is nil.  INFO is a plist holding contextual information.
340
341 (fn LINE-BREAK CONTENTS INFO)
e75a20 342 (defalias 'org-odt-line-break #[771 "\300\207" ["<text:line-break/>"] 4 (#$ . 63268)])
76bbd0 343 #@43 
C 344
345 (fn ELEMENT INFO &optional PREDICATE N)
e75a20 346 (defalias 'org-odt--enumerate #[1026 "\203\"\204\300\301!\210\302\303\206\304\305\"#$\2056\306\307\310\n\"\311#\205;\311\307!Q\207" [cl--assertion-failed (funcall predicate element info) #[771 "\300!\301\302\301:\203R@\262\211:\204\211;\205&\303\202&\211@9\205&\211@\262\304=\205A\305\"X\205A\306\"\205A\211\262?\211\262\203RA\262\202\207" [org-element-lineage nil t plain-text headline org-export-get-relative-level org-export-numbered-headline-p] 10 "\n\n(fn ELEMENT N INFO)"] #[1027 "\300C\301\206 \302\303\"\211:\204\211;\205#\304\202#\211@9\205#\211@\262\305\306\307\310\311\f   $\312\"\313\314%\315%\207" [0 org-element-map plist-get :parse-tree plain-text make-byte-code 257 "\302\203 \302\301\"\205\303\211\242T\240\205\300=\205\303\242\207" vconcat vector [] 4 "\n\n(fn EL)" first-match] 17 "\n\n(fn ELEMENT SCOPE INFO &optional PREDICATE)"] plist-get :odt-display-outline-level mapconcat number-to-string org-export-get-headline-number "."] 13 (#$ . 63505)])
76bbd0 347 #@410 Return a label for ELEMENT.
C 348
349 ELEMENT is a `link', `table', `src-block' or `paragraph' type
350 element.  INFO is a plist used as a communication channel.  OP is
351 either `definition' or `reference', depending on the purpose of
352 the generated string.
353
354 Return value is a string if OP is set to `reference' or a cons
355 cell like CAPTION . SHORT-CAPTION) where CAPTION and
356 SHORT-CAPTION are strings.
357
358 (fn ELEMENT INFO OP)
e75a20 359 (defalias 'org-odt-format-label #[771 "\211:\204\211;\205\302\202\211@9\205\211@\262\303>\204\"\304\305!\210\211:\2041\211;\2059\302\2029\211@9\2059\211@\262\211\306\267\202G\307!\202H\262\310\211;\203Y\311\312#\202_\313A@\"\266\202\204~\310\211;\203s\311\312#\202y\313A@\"\266\202\205\202\314\"\315!\211\205\216\316\"\262\317\204\231\205\273\211:\204\251\211;\205\261\302\202\261\211@9\205\261\211@\262\320\321\"\203\276\322\202\320\323\"\203\311\324\202\325\326\"\203\377\327\"\203\335\330\202\331\"\203\352\332\202\333\"\203\367\334\202\335\336    \"\202\335\337    \211:\204\211;\205\302\202\211@9\205\211@\262\"\262\317\204'\304\340!\210\341\"\211@A\211@A\211@A\211@A\n\342#\262\343\344#\262\345\267\202\260\346\347\"\350\343\351    \352#A@\344#\353B\354\346\355\211%B\356\206\203\357BE\"PB\202\265\351    \352#AA\211@A@\346\360\350\353\fB\354BD\"$\266\203\202\265\335\361\"\266\204\266\211\266\202\207" [org-odt-category-map-alist org-odt-label-styles plain-text #1=(link table src-block paragraph) cl--assertion-failed (memq (org-element-type element) '#1#) #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (link 65)) org-export-get-parent-element :name get-text-property 0 plist-get org-export-get-reference org-export-get-caption org-export-data nil eql table "__Table__" src-block "__Listing__" memql (link paragraph) org-odt--enumerable-latex-image-p "__DvipngImage__" org-odt--enumerable-image-p "__Figure__" org-odt--enumerable-formula-p "__MathFormula__" error "Don't know how to format label for link: %S" "Don't know how to format label for element type: %s" default-category assoc-default org-odt--enumerate org-export-translate :utf-8 #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (definition 346 reference 397)) format "\n<text:bookmark text:name=\"%s\"/>" format-spec assoc-string t 101 110 "<text:sequence text:ref-name=\"%s\" text:name=\"%s\" text:formula=\"ooow:%s+1\" style:num-format=\"1\">%s</text:sequence>" 99 "" "<text:sequence-ref text:reference-format=\"%s\" text:ref-name=\"%s\">%s</text:sequence-ref>" "Unknown %S on label"] 34 (#$ . 64613)])
76bbd0 360 #@50 Returns the internal name of the file
C 361
362 (fn PATH)
e75a20 363 (defalias 'org-odt--copy-image-file #[257 "\303!\304\305\"\306\304\307    T\211$\310\311\312!#\210    \313U\203,\314\nP!\210\315\316\"\210\317\nP\320#\210\315\"\210)\207" [image-type org-odt-embedded-images-count org-odt-zip-dir file-name-extension format "image/%s" "Images/" "%s%04d.%s" message "Embedding %s as %s..." substring-no-properties 1 make-directory org-odt-create-manifest-file-entry "" copy-file overwrite] 8 (#$ . 67329)])
76bbd0 364 #@70 
C 365
366 (fn FILE INFO &optional USER-WIDTH USER-HEIGHT SCALE DPI EMBED-AS)
e75a20 367 (defalias 'org-odt--image-size #[1794 "\302\303\206 \304\305\"\206\306?\205?\205 \211\205%?\205\203\307\310!\203X\311\312\313\"!\314\315\"\205J\316\317\320\"!\316\317\321\"!B\262#\262\206\203\3221j\323 \210\324\325!\326\"0\202l\210\327#\262\206\203\330\"A\206\203\331\332!\211@A \203\233\f_\262\211\f_\262\202\313\203\254\203\254\262\262\202\313\203\275\245_\262\262\202\313\203\313\245_\262\262    @    AV\204\333V\203\362\245\245^\211_\262\211_\262\266\266B\207" [org-odt-default-image-sizes-alist org-odt-max-image-size #[514 "\300\245_\207" [2.54] 6 "\n\n(fn PIXELS DPI)"] #[771 "\205@\"A\"B\207" [] 7 "\n\n(fn --PIXELS-TO-CMS SIZE-IN-PIXELS DPI)"] plist-get :odt-pixels-per-inch "paragraph" executable-find "identify" shell-command-to-string format "identify -format \"%%w:%%h\" \"%s\"" string-match "\\([0-9]+\\):\\([0-9]+\\)" string-to-number match-string 1 2 (error) clear-image-cache image-size create-image pixels nil assoc-string error "Cannot determine image size, aborting"] 23 (#$ . 67832)])
76bbd0 368 #@154 Return ODT code for an inline image.
C 369 LINK is the link pointing to the inline image.  INFO is a plist
370 used as a communication channel.
371
372 (fn ELEMENT INFO)
e75a20 373 (defalias 'org-odt-link--inline-image #[514 "\211:\204\211;\205\300\202\211@9\205\211@\262\301=\204\"\302\303!\210\304\211;\2031\305\306#\2027\307A@\"\266\202\310\211;\203H\305\306#\202N\307A@\"\266\202\311\235\203]\312Q\202j\313!\203i\314!\202j\211\266\202\313!\203v\211\202\314\315\307\316\"!\"\317\320\321!\"\211:\204\224\211;\205\234\300\202\234\211@9\205\234\211@\262\211\322\267\202\253\323!\202\254\262\324\325\"\326\307\327\"\330\331#@\211\205\303\307\332\"\205\313\307\333\"E\334 \307\335\"\211\205\340\336!\262\307    \337\"\211\205\356\336!\262\307\n\340\"\211\205\374\336!\262\341\342&\211@A\343\"\211\203\342\202\344\345\346#\211@\211\205#\347\350Q\351\2040\2024\323!\211;\203A\305\306#\202G\307A@\"\266\202\211\205j\352\353\211:\204^\211;\205f\300\202f\211@9\205f\211@\262!!\205\205\354\211;\203}\305\306#\202\203\307A@\"\266\202\355\f\f\n&\207" [plain-text link cl--assertion-failed (eq (org-element-type element) 'link) :type get-text-property 0 plist-get :path ("http" "https") ":" file-name-absolute-p expand-file-name file-name-directory :input-file format "\n<draw:image xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" org-odt--copy-image-file #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (link 164)) org-export-get-parent-element org-export-read-attribute :attr_odt assoc-string :anchor (("as-char") ("paragraph") ("page")) t :style :attributes org-odt--image-size :width read :length :scale nil "paragraph" org-odt--standalone-link-p "as-char" org-odt-format-label definition "Captioned" "Image" :replaces capitalize symbol-name :value org-odt--render-image/formula] 31 (#$ . 69030)])
76bbd0 374 #@21 
C 375
376 (fn ELEMENT INFO)
e75a20 377 (defalias 'org-odt-link--inline-formula #[514 "\301\211;\203\302\303#\202\304A@\"\266\202\305!\203#\306!\202$\211\262\305!\2030\211\2029\306\307\304\310\"!\"\311\312\313\307\314!!#\315\"\211\203N\316\202O\317\320\321#\322\204`\202d\323    !\211;\203q\302\303#\202w\304A@\"\266\202\211\205\232\324\325\211:\204\216\211;\205\226\326\202\226\211@9\205\226\211@\262!!\205\265\327\211;\203\255\302\303#\202\263\304A@\"\266\202\330\211\331\267\202\317\332\333\n\330\211\n\n&\202\357\332\334\n\n\330\n\n&\335\320\321#@)\336Q\266\202\207" [org-odt-category-map-alist :path get-text-property 0 plist-get file-name-absolute-p expand-file-name file-name-directory :input-file format "\n<draw:object %s xlink:href=\"%s\" xlink:type=\"simple\"/>" " xlink:show=\"embed\" xlink:actuate=\"onLoad\"" org-odt--copy-formula-file org-odt--standalone-link-p paragraph character org-odt-format-label definition :replaces org-export-get-parent-element capitalize symbol-name plain-text :value nil #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (character 190)) org-odt--render-image/formula "InlineFormula" "CaptionedDisplayFormula" (("__MathFormula__" "Text" "math-label" "Equation" org-odt--enumerable-formula-p)) "<text:tab/>"] 22 (#$ . 71012)])
76bbd0 378 #@54 Returns the internal name of the file
C 379
380 (fn SRC-FILE)
e75a20 381 (defalias 'org-odt--copy-formula-file #[257 "\302\303T\211\"\211\304P\305    P!\210\306\307\310#\210\311\312#\210\313!\211\314\235\2030\315    P\316#\210\202G\211\317\230\203B\320\304    P#\210\202G\321\322\"\210\210\306\323\"\210\207" [org-odt-embedded-formulas-count org-odt-zip-dir format "Formula-%04d/" "content.xml" make-directory org-odt-create-manifest-file-entry "application/vnd.oasis.opendocument.formula" "1.2" message "Embedding %s as %s..." file-name-extension ("mathml" "mml") copy-file overwrite "odf" org-odt--zip-extract error "%s is not a formula file" "text/xml"] 9 (#$ . 72379)])
76bbd0 382 #@92 
C 383
384 (fn CFG-KEY HREF WIDTH HEIGHT &optional CAPTIONS USER-FRAME-PARAMS &rest TITLE-AND-DESC)
e75a20 385 (defalias 'org-odt--render-image/formula #[1668 "\300@A\301\n\302#\211A@\3038\304\2041\211\"\262\305\306\307    \"%\202p\211\"\262\310!\211AA@\205I\311\312\n\"P\240\210\211\262\262\305\313\311\314\315\305\306\307\"%\fP#%\207" [(("As-CharImage" ("OrgInlineImage" nil "as-char")) ("ParagraphImage" ("OrgDisplayImage" nil "paragraph")) ("PageImage" ("OrgPageImage" nil "page")) ("CaptionedAs-CharImage" ("OrgCaptionedImage" " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph") ("OrgInlineImage" nil "as-char")) ("CaptionedParagraphImage" ("OrgCaptionedImage" " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph") ("OrgImageCaptionFrame" nil "paragraph")) ("CaptionedPageImage" ("OrgCaptionedImage" " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph") ("OrgPageImageCaptionFrame" nil "page")) ("InlineFormula" ("OrgInlineFormula" nil "as-char")) ("DisplayFormula" ("OrgDisplayFormula" nil "as-char")) ("CaptionedDisplayFormula" ("OrgCaptionedFormula" nil "paragraph") ("OrgFormulaCaptionFrame" nil "paragraph"))) assoc-string t 2 #[514 "\211\204\207G\300U\204\301\302!\210\211G\300U\204\301\303!\210\211\304\304\211:\203G@\262:\203G@\262\2068B\262A\262A\262\202!\211\237\207" [3 cl--assertion-failed (= (length default) 3) (= (length user) 3) nil] 9 "Merge default and user frame params.\n\n(fn DEFAULT USER)"] apply org-odt--frame append copy-sequence format " draw:name=\"%s\" " org-odt--textbox "\n<text:p text:style-name=\"%s\">%s</text:p>" "Illustration"] 28 (#$ . 73048)])
76bbd0 386 #@21 
C 387
388 (fn ELEMENT INFO)
e75a20 389 (defalias 'org-odt--enumerable-p #[514 "\300\211;\203\301\302#\202\303A@\"\266\202\2061\304\211;\203)\301\302#\202/\303A@\"\266\202\207" [:caption get-text-property 0 plist-get :name] 8 (#$ . 74739)])
76bbd0 390 #@21 
C 391
392 (fn ELEMENT INFO)
e75a20 393 (defalias 'org-odt--enumerable-image-p #[514 "\300\301\302\303\304\305\306    !\307\"\310\311%$\207" [org-odt--standalone-link-p #[257 "\300\211;\203\301\302#\202\303A@\"\266\202?\205L\304\211;\203*\301\302#\2020\303A@\"\266\202\206L\305\211;\203D\301\302#\202J\303A@\"\266\202\207" [:replaces get-text-property 0 plist-get :caption :name] 7 "\n\n(fn P)"] make-byte-code 257 "\211\211:\204\211;\205\301\202\211@9\205\211@\262\302=\204\"\303\304!\210\305\306\300\307\"\"\207" vconcat vector [plain-text link cl--assertion-failed (eq (org-element-type l) 'link) org-export-inline-image-p plist-get :odt-inline-image-rules] 6 "\n\n(fn L)"] 12 (#$ . 74983)])
76bbd0 394 #@21 
C 395
396 (fn ELEMENT INFO)
e75a20 397 (defalias 'org-odt--enumerable-latex-image-p #[514 "\300\301\302\303\304\305\306    !\307\"\310\311%$\207" [org-odt--standalone-link-p #[257 "\300\211;\203\301\302#\202\303A@\"\266\202\205K\304\211;\203)\301\302#\202/\303A@\"\266\202\206K\305\211;\203C\301\302#\202I\303A@\"\266\202\207" [:replaces get-text-property 0 plist-get :caption :name] 7 "\n\n(fn P)"] make-byte-code 257 "\211\211:\204\211;\205\301\202\211@9\205\211@\262\302=\204\"\303\304!\210\305\306\300\307\"\"\207" vconcat vector [plain-text link cl--assertion-failed (eq (org-element-type l) 'link) org-export-inline-image-p plist-get :odt-inline-image-rules] 6 "\n\n(fn L)"] 12 (#$ . 75700)])
76bbd0 398 #@21 
C 399
400 (fn ELEMENT INFO)
e75a20 401 (defalias 'org-odt--enumerable-formula-p #[514 "\300\301\302\303\304\305\306    !\307\"\310\311%$\207" [org-odt--standalone-link-p #[257 "\300\211;\203\301\302#\202\303A@\"\266\202\2061\304\211;\203)\301\302#\202/\303A@\"\266\202\207" [:caption get-text-property 0 plist-get :name] 7 "\n\n(fn P)"] make-byte-code 257 "\211\211:\204\211;\205\301\202\211@9\205\211@\262\302=\204\"\303\304!\210\305\306\300\307\"\"\207" vconcat vector [plain-text link cl--assertion-failed (eq (org-element-type l) 'link) org-export-inline-image-p plist-get :odt-inline-formula-rules] 6 "\n\n(fn L)"] 12 (#$ . 76422)])
76bbd0 402 #@578 Test if ELEMENT is a standalone link for the purpose ODT export.
C 403 INFO is a plist holding contextual information.
404
405 Return non-nil, if ELEMENT is of type paragraph satisfying
406 PARAGRAPH-PREDICATE and its sole content, save for whitespaces,
407 is a link that satisfies LINK-PREDICATE.
408
409 Return non-nil, if ELEMENT is of type link satisfying
410 LINK-PREDICATE and its containing paragraph satisfies
411 PARAGRAPH-PREDICATE in addition to having no other content save for
412 leading and trailing whitespaces.
413
414 Return nil, otherwise.
415
416 (fn ELEMENT INFO &optional PARAGRAPH-PREDICATE LINK-PREDICATE)
e75a20 417 (defalias 'org-odt--standalone-link-p #[1026 "\211:\204\211;\205\300\202\211@9\205\211@\262\211\301\267\202J\202K\203-!\205K\302\211;\203=\303\304#\202C\305A@\"\266\202\262\202K\306\262\211\205\364\211\211:\204`\211;\205h\300\202h\211@9\205h\211@\262\307=\205\364\203y!\205\364\211\211:\204\203\306\202\220\211@9\203\217\211AA\202\220\211\262\211\306\304\310:\203\353@\262\211:\204\256\211;\205\266\300\202\266\211@9\205\266\211@\262\211\311\267\202\333\312!?\202\334\203\321!\205\334T\211\262\313U\202\334\306\262\211\262\203\353A\262\202\226\211\205\360\310\266\204\262\207" [plain-text #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (paragraph 31 link 35)) :parent get-text-property 0 plist-get nil paragraph t #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plain-text 190 link 197)) org-string-nw-p 1] 13 (#$ . 77076)])
76bbd0 418 #@25 
C 419
420 (fn DESTINATION INFO)
e75a20 421 (defalias 'org-odt-link--infer-description #[514 "\300!\301!\211:\204\211;\205\302\202\211@9\205\211@\262\211\303>\203,\304\"\2021\305\306\"\262\307\310:\203o@\211:\204K\211;\205S\302\202S\211@9\205S\211@\262\311=\203d\262\310\211\262\202e\307\203oA\262\2026\266\202\211\310\211\211\211:\203\334\262\211A\262\242\262\211A\262\242\262\211:\204\235\211;\205\245\302\202\245\211@9\205\245\211@\262\311=\203\334\312\211;\203\273\313\314#\202\301\315A@\"\266\202\316=\205\320\317 \307#GTB\262AA\262\202v\211\237\266\205\307\310:\203%@\211:\204\370\211;\205\302\202\211@9\205\211@\262\320=\203\321@\n\"\203\262\310\211\262\202\307\203%A\262\202\343\266\202\211\310\211:\203l@\262\211:\204B\211;\205J\302\202J\211@9\205J\211@\262\320=\203e\322 \"\205a\317 \307#GTB\262A\262\202*\211\237\266\203\323\"\211\205\211\310>?\205\211\324\325\326\327\330##\262\266\204\206|\322\"\205\353B\310\307\310:\203\351@\262\211:\204\265\211;\205\275\302\202\275\211@9\205\275\211@\262\320=\203\336\321    \"\204\336\322    \"\203\336\262\310\211\262\202\337\307\203\351A\262\202\235\266\203\211\205\375\324\331\326\332\333 \"\334##\262\206|B\310\307\310:\203L@\262\211:\204 \211;\205(\302\202(\211@9\205(\211@\262\320=\203A\321    \"\204A\262\310\211\262\202B\307\203LA\262\202\266\203\211\205t\324\335\336\211;\203d\313\314#\202j\315A@\"\266\202\337\n\"\262#\262\206|\305\340!\207" [org-element-lineage reverse plain-text (headline target) org-export-get-reference error "FIXME: Unable to resolve %S" t nil plain-list :type get-text-property 0 plist-get ordered org-export-get-previous-element headline org-export-low-level-p org-export-numbered-headline-p append format "<text:bookmark-ref text:reference-format=\"number-all-superior\" text:ref-name=\"%s\">%s</text:bookmark-ref>" mapconcat #[257 "\211\204\300\207\301!\302P\207" [" " number-to-string "."] 3 "\n\n(fn N)"] "" "<text:bookmark-ref text:reference-format=\"chapter\" text:ref-name=\"OrgXref.%s\">%s</text:bookmark-ref>" number-to-string org-export-get-headline-number "." "<text:bookmark-ref text:reference-format=\"text\" text:ref-name=\"OrgXref.%s\">%s</text:bookmark-ref>" :title org-export-data "FIXME?"] 17 (#$ . 78639)])
76bbd0 422 #@199 Transcode a LINK object from Org to ODT.
C 423
424 DESC is the description part of the link, or the empty string.
425 INFO is a plist holding contextual information.  See
426 `org-export-data'.
427
428 (fn LINK DESC INFO)
e75a20 429 (defalias 'org-odt-link #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\304\211;\203&\301\302#\202,\303A@\"\266\202\305\230?\2056\306\303\307\"\"\310\235\203L\311Q\202Y\312\230\203X\313!\202Y\314\315\316#\317    \320#\206\204x\203x\321    \"\202\204\221\306    \303    \322\"\"\203\221\323    \"\202\324\230\203\264\325    \"\211\204\245\202\257\326\327\330 \"#\262\202\331\235\203x\332\230\203\311\333    \"\202\317\334    \"\211\211:\204\336\211;\205\346\335\202\346\211@9\205\346\211@\262\211\336\267\202@\204\372\337\n\"\202q\340\230\203\341\211;\203\301\302#\202\303A@\"\266\202\206 \330\n\"\326\342    #\262\202q\326\342\330\f\"\206<\343 \"#\202q\3441N\345\n\346#0\202P\210\347\211\204\\\337 \"\202o\204e\211\202o\326\342\330 \"    #\262\262\262\202\350\230\203\233\326\351\352\n\"\"\353P\326\354\"\326\355#\"\266\202\202\211\203\203\211:\204\256\347\202\273\211@9\203\272\211AA\202\273\211\262\211A\204\370\211@\211\211:\204\323\211;\205\333\335\202\333\211@9\205\333\211@\262\356=\205\352\306\303 \307\"\"\262\203\370\326\357#\202\376\326\360#\262\202\211\203\326\360\211#\202\326\361\362#\207" [:type get-text-property 0 plist-get :path "" org-export-inline-image-p :odt-inline-image-rules ("http" "https" "ftp" "mailto") ":" "file" org-export-file-uri replace-regexp-in-string "&" "&amp;" org-export-custom-protocol-maybe odt org-odt-link--inline-image :odt-inline-formula-rules org-odt-link--inline-formula "radio" org-export-resolve-radio-link format "<text:bookmark-ref text:reference-format=\"text\" text:ref-name=\"OrgXref.%s\">%s</text:bookmark-ref>" org-export-get-reference ("custom-id" "fuzzy" "id") "fuzzy" org-export-resolve-fuzzy-link org-export-resolve-id-link plain-text #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (headline 238 target 299)) org-odt-link--infer-description "custom-id" :CUSTOM_ID "<text:a xlink:type=\"simple\" xlink:href=\"#%s\">%s</text:a>" org-export-get-ordinal (error) org-odt-format-label reference nil "coderef" "%d" org-export-resolve-coderef "coderef-" org-export-get-coderef-format "<text:bookmark-ref text:reference-format=\"number\" text:ref-name=\"OrgXref.%s\">%s</text:bookmark-ref>" link "\n<draw:a xlink:type=\"simple\" xlink:href=\"%s\">\n%s\n</draw:a>" "<text:a xlink:type=\"simple\" xlink:href=\"%s\">%s</text:a>" "<text:span text:style-name=\"%s\">%s</text:span>" "Emphasis"] 17 (#$ . 81035)])
76bbd0 430 #@152 Transcode a NODE-PROPERTY element from Org to ODT.
C 431 CONTENTS is nil.  INFO is a plist holding contextual
432 information.
433
434 (fn NODE-PROPERTY CONTENTS INFO)
e75a20 435 (defalias 'org-odt-node-property #[771 "\300\301\302\303\211;\203\304\305#\202\306A@\"\266\202\307\211;\203+\304\305#\2021\306A@\"\266\202\211\203=\310P\202>\311\262#!\207" [org-odt--encode-plain-text format "%s:%s" :key get-text-property 0 plist-get :value " " ""] 13 (#$ . 83804)])
76bbd0 436 #@98 Return style of PARAGRAPH.
C 437 Style is a symbol among `quoted', `centered' and nil.
438
439 (fn PARAGRAPH)
e75a20 440 (defalias 'org-odt--paragraph-style #[257 "\211\300\211;\203\301\302#\202\303A@\"\266\202\211\262\203<\211\211:\204-\211;\2055\304\2025\211@9\2055\211@\262\305>\203\211\211:\204K\211;\205S\304\202S\211@9\205S\211@\262\211\306\267\202c\307\202d\310\202d\311\262\207" [:parent get-text-property 0 plist-get plain-text (center-block quote-block section) #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (center-block 91 quote-block 95)) centered quoted nil] 8 (#$ . 84267)])
76bbd0 441 #@397 Format paragraph according to given styles.
C 442 PARAGRAPH is a paragraph type element.  CONTENTS is the
443 transcoded contents of that paragraph, as a string.  INFO is
444 a plist used as a communication channel.  DEFAULT, CENTER and
445 QUOTE are, respectively, style to use when paragraph belongs to
446 no special environment, a center block, or a quote block.
447
448 (fn PARAGRAPH CONTENTS INFO DEFAULT CENTER QUOTE)
e75a20 449 (defalias 'org-odt--format-paragraph #[1542 "\300\301\302!\211\303\267\202\202\202\262\304    \211;\203'\305\306#\202-\307A@\"\266\202\211\211:\204>\211;\205F\310\202F\211@9\205F\211@\262\311=\205Z\312\n    \"?\205Z\313!\262P#\207" [format "\n<text:p text:style-name=\"%s\">%s</text:p>" org-odt--paragraph-style #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quoted 12 centered 16)) :parent get-text-property 0 plist-get plain-text item org-export-get-previous-element org-odt--checkbox] 15 (#$ . 84907)])
76bbd0 450 #@186 Transcode a PARAGRAPH element from Org to ODT.
C 451 CONTENTS is the contents of the paragraph, as a string.  INFO is
452 the plist used as a communication channel.
453
454 (fn PARAGRAPH CONTENTS INFO)
e75a20 455 (defalias 'org-odt-paragraph #[771 "\300\301\211;\203\302\303#\202\304A@\"\266\202\206 \305\306\307&\207" [org-odt--format-paragraph :style get-text-property 0 plist-get "Text_20_body" "OrgCenter" "Quotations"] 13 (#$ . 85882)])
76bbd0 456 #@167 Transcode a PLAIN-LIST element from Org to ODT.
C 457 CONTENTS is the contents of the list.  INFO is a plist holding
458 contextual information.
459
460 (fn PLAIN-LIST CONTENTS INFO)
e75a20 461 (defalias 'org-odt-plain-list #[771 "\300\301\302\211;\203\303\304#\202\305A@\"\266\202\211\306\267\202/\307\2020\310\2020\311\2020\311\2020\312\262\300\313\314\211;\203E\303\304#\202K\305A@\"\266\202\262\211\203u\211\211:\204b\211;\205j\315\202j\211@9\205j\211@\262\316=\203u\317\202v\320\262\"$\207" [format "\n<text:list text:style-name=\"%s\" %s>\n%s</text:list>" :type get-text-property 0 plist-get #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ordered 31 unordered 35 descriptive-1 39 descriptive-2 43)) "OrgNumberedList" "OrgBulletedList" "OrgDescriptionList" nil "text:continue-numbering=\"%s\"" :parent plain-text item "true" "false"] 15 (#$ . 86318)])
76bbd0 462 #@13 
C 463
464 (fn LINE)
e75a20 465 (defalias 'org-odt--encode-tabs-and-spaces #[257 "\300\301\302#\207" [replace-regexp-in-string "\\(    \\| \\{2,\\}\\)" #[257 "\211\300\230\203\301\207\302\303GS\"\207" ["    " "<text:tab/>" format " <text:s text:c=\"%d\"/>"] 4 "\n\n(fn S)"]] 5 (#$ . 87228)])
76bbd0 466 #@45 
C 467
468 (fn TEXT &optional NO-WHITESPACE-FILLING)
e75a20 469 (defalias 'org-odt--encode-plain-text #[513 "\300\211\203\211@\301@A\302\211%\262A\266\202\202\210\211\203!\207\303!\207" [(("&" . "&amp;") ("<" . "&lt;") (">" . "&gt;")) replace-regexp-in-string t org-odt--encode-tabs-and-spaces] 10 (#$ . 87504)])
76bbd0 470 #@140 Transcode a TEXT string from Org to ODT.
C 471 TEXT is the string to transcode.  INFO is a plist holding
472 contextual information.
473
474 (fn TEXT INFO)
e75a20 475 (defalias 'org-odt-plain-text #[514 "\301\302\"\262\303\304\"\203\305\306$\262\303\307\"\2038\211\2037\211@\310@A\302\311%\262A\266\202\202\210\303\312\"\203G\310\313\314\302$\262\211\207" [org-odt-special-string-regexps org-odt--encode-plain-text t plist-get :with-smart-quotes org-export-activate-smart-quotes :utf-8 :with-special-strings replace-regexp-in-string nil :preserve-breaks "\\(\\\\\\\\\\)?[     ]*\n" "<text:line-break/>"] 11 (#$ . 87817)])
76bbd0 476 #@143 Transcode a PLANNING element from Org to ODT.
C 477 CONTENTS is nil.  INFO is a plist used as a communication
478 channel.
479
480 (fn PLANNING CONTENTS INFO)
e75a20 481 (defalias 'org-odt-planning #[771 "\302\303\304\305\211;\203\306\307#\202\310A@\"\266\202\211\205,\302\311\312#\313#P\262\314\211;\203>\306\307#\202D\310A@\"\266\202\211\205W\302\311\315    #\313        #P\262\316\211;\203i\306\307#\202o\310A@\"\266\202\211\205\202\302\311\317    #\313\n\n#P\262Q#\207" [org-closed-string org-deadline-string format "\n<text:p text:style-name=\"%s\">%s</text:p>" "OrgPlanning" :closed get-text-property 0 plist-get "<text:span text:style-name=\"%s\">%s</text:span>" "OrgClosedKeyword" org-odt-timestamp :deadline "OrgDeadlineKeyword" :scheduled "OrgScheduledKeyword"] 14 (#$ . 88441)])
76bbd0 482 #@182 Transcode a PROPERTY-DRAWER element from Org to ODT.
C 483 CONTENTS holds the contents of the drawer.  INFO is a plist
484 holding contextual information.
485
486 (fn PROPERTY-DRAWER CONTENTS INFO)
e75a20 487 (defalias 'org-odt-property-drawer #[771 "\300!\205\n\301\302\"\207" [org-string-nw-p format "<text:p text:style-name=\"OrgFixedWidthBlock\">%s</text:p>"] 6 (#$ . 89242)])
76bbd0 488 #@173 Transcode a QUOTE-BLOCK element from Org to ODT.
C 489 CONTENTS holds the contents of the block.  INFO is a plist
490 holding contextual information.
491
492 (fn QUOTE-BLOCK CONTENTS INFO)
e75a20 493 (defalias 'org-odt-quote-block #[771 "\207" [] 4 (#$ . 89605)])
76bbd0 494 #@34 
C 495
496 (fn TEXT STYLE &optional NAME)
e75a20 497 (defalias 'org-odt-format-section #[770 "\300\301!@\302\303\302\304\206\"$\207" [org-odt-add-automatic-style "Section" format "\n<text:section text:style-name=\"%s\" %s>\n%s\n</text:section>" "text:name=\"%s\""] 10 (#$ . 89848)])
76bbd0 498 #@167 Transcode a SECTION element from Org to ODT.
C 499 CONTENTS holds the contents of the section.  INFO is a plist
500 holding contextual information.
501
502 (fn SECTION CONTENTS INFO)
e75a20 503 (defalias 'org-odt-section #[771 "\207" [] 4 (#$ . 90126)])
76bbd0 504 #@160 Transcode a RADIO-TARGET object from Org to ODT.
C 505 TEXT is the text of the target.  INFO is a plist holding
506 contextual information.
507
508 (fn RADIO-TARGET TEXT INFO)
e75a20 509 (defalias 'org-odt-radio-target #[771 "\300\301\"\"\207" [org-odt--target org-export-get-reference] 8 (#$ . 90360)])
76bbd0 510 #@177 Transcode a SPECIAL-BLOCK element from Org to ODT.
C 511 CONTENTS holds the contents of the block.  INFO is a plist
512 holding contextual information.
513
514 (fn SPECIAL-BLOCK CONTENTS INFO)
e75a20 515 (defalias 'org-odt-special-block #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\304\305\"\306\230\203f\303\307\"\2066\303\307\"\211\2054\310\"\262\303\311\"\206B\303\311\"@\312\313\312\314\205O\312\315\"\205\\\312\316\317\320\321#\" Q\"\"\266\202\202\231\322\230\203\230\303\323\"\303\324\"\303\325\"\303\326\"\303\327\"\312\330\331\332\f                    &#\266\205\202\231\207" [:type get-text-property 0 plist-get org-export-read-attribute :attr_odt "annotation" :author org-export-data :date format "\n<text:p>%s</text:p>" "<office:annotation>\n%s\n</office:annotation>" "<dc:creator>%s</dc:creator>" "<dc:date>%s</dc:date>" org-odt--format-timestamp nil iso-date "textbox" :width :height :style :extra :anchor "\n<text:p text:style-name=\"%s\">%s</text:p>" "Text_20_body" org-odt--textbox] 20 (#$ . 90646)])
76bbd0 516 #@563 Create custom style for face FN.
C 517 When FN is the default face, use its foreground and background
518 properties to create "OrgSrcBlock" paragraph style.  Otherwise
519 use its color attribute to create a character style whose name
520 is obtained from FN.  Currently all attributes of FN other than
521 color are ignored.
522
523 The style name for a face FN is derived using the following
524 operations on the face name in that order - de-dash, CamelCase
525 and prefix with "OrgSrc".  For example,
526 `font-lock-function-name-face' is associated with
527 "OrgSrcFontLockFunctionNameFace".
528
529 (fn FN)
e75a20 530 (defalias 'org-odt-hfy-face-to-css #[257 "\302!\303\304\305\306\307!\310\"\311#P\312\313\"A\312\314\"A\2051\315\267\202,\316    #\2021\316    #B\207" [org-odt-create-custom-styles-for-srcblocks org-odt-src-block-paragraph-format hfy-face-to-style "OrgSrc" mapconcat capitalize split-string hfy-face-or-def-to-name "-" "" assoc "color" "background" #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 36)) format] 9 (#$ . 91680)])
76bbd0 531 #@13 
C 532
533 (fn LINE)
e75a20 534 (defalias 'org-odt-htmlfontify-string #[257 "\306\307\310\311 !\312\313\"\203\211\202\313B\211\262\314\315\316!.\207" [hfy-html-quote-regex hfy-html-quote-map hfy-face-to-css hfy-optimizations hfy-begin-span-handler hfy-end-span-handler "\\([<\"&>     ]\\)" (("\"" "&quot;") ("<" "&lt;") ("&" "&amp;") (">" "&gt;") (" " "<text:s/>") ("    " "<text:tab/>")) org-odt-hfy-face-to-css copy-sequence memql body-text-only #[1028 "\300\301\"c\207" [format "<text:span text:style-name=\"%s\">"] 7 "\n\n(fn STYLE TEXT-BLOCK TEXT-ID TEXT-BEGINS-BLOCK-P)"] #[0 "\300c\207" ["</text:span>"] 1] htmlfontify-string] 5 (#$ . 92730)])
76bbd0 535 #@62 
C 536
537 (fn CODE INFO &optional LANG REFS RETAIN-LABELS NUM-START)
e75a20 538 (defalias 'org-odt-do-format-code #[1538 "\301\"\206\211\205\302\303\304\"!\305\306\"\211G\307!\2052\310    \311\"\2052\312\313\314\315#\2052\316\317!\211\204;\n\202]\320\321!r\211q\210\322\323\324\325\326!\327\"\330$\216 c\210 \210\331 \210\332 *\262\203e\333\202f\334\203n\335\202o\336C\323C\305\306\"GU\204\200\337\340!\210\341\322\342\343\325\326    %\344\"\345\346%\f$\262    \204\247\202\275    \323U\203\267\303\347\350#\202\275\303\347\351#\207" [org-src-lang-modes assoc-default intern format "%s-mode" org-split-string "\n" functionp plist-get :odt-fontify-srcblocks require htmlfontify nil t fboundp htmlfontify-string generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-font-lock-ensure buffer-string org-odt-htmlfontify-string org-odt--encode-plain-text "OrgSrcBlock" "OrgFixedWidthBlock" cl--assertion-failed (= code-length (length (org-split-string code "\n"))) org-export-format-code 771 "\303\211\242\304\211\242T\240\301U\205\305P\240\210\205\300\205\306\307\"P\262\302!\262\211\2032\310\311P\"\262\303\242\204;\312\313!\210\306\314\303\242#\262\204I\207\306\315\"\207" ["LastLine" format " (%s)" org-odt--target "coderef-" cl--assertion-failed par-style "\n<text:p text:style-name=\"%s\">%s</text:p>" "\n<text:list-item>%s\n</text:list-item>"] 7 "\n\n(fn LOC LINE-NUM REF)" "\n<text:list text:style-name=\"OrgSrcBlockNumberedLine\"%s>%s</text:list>" " text:continue-numbering=\"false\"" " text:continue-numbering=\"true\""] 27 (#$ . 93377)])
76bbd0 539 #@21 
C 540
541 (fn ELEMENT INFO)
e75a20 542 (defalias 'org-odt-format-code #[514 "\300\211;\203\301\302#\202\303A@\"\266\202\304!\211@A\305\211;\203.\301\302#\2024\303A@\"\266\202\306\"\307&\207" [:language get-text-property 0 plist-get org-export-unravel-code :retain-labels org-export-get-loc org-odt-do-format-code] 15 (#$ . 95045)])
76bbd0 543 #@168 Transcode a SRC-BLOCK element from Org to ODT.
C 544 CONTENTS holds the contents of the item.  INFO is a plist holding
545 contextual information.
546
547 (fn SRC-BLOCK CONTENTS INFO)
e75a20 548 (defalias 'org-odt-src-block #[771 "\300\301\"\302\303#@\211\205\304\305\306#\307\"\310\311\"\204#\211\202-\304\305\312\313\314\211\211$#\262P\207" [org-export-read-attribute :attr_odt org-odt-format-label definition format "\n<text:p text:style-name=\"%s\">%s</text:p>" "Listing" org-odt-format-code plist-get :textbox "Text_20_body" org-odt--textbox nil] 15 (#$ . 95400)])
76bbd0 549 #@159 Transcode a STATISTICS-COOKIE object from Org to ODT.
C 550 CONTENTS is nil.  INFO is a plist holding contextual information.
551
552 (fn STATISTICS-COOKIE CONTENTS INFO)
e75a20 553 (defalias 'org-odt-statistics-cookie #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\304\305\306#\207" [:value get-text-property 0 plist-get format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode"] 9 (#$ . 95963)])
76bbd0 554 #@176 Transcode STRIKE-THROUGH from Org to ODT.
C 555 CONTENTS is the text with strike-through markup.  INFO is a plist
556 holding contextual information.
557
558 (fn STRIKE-THROUGH CONTENTS INFO)
e75a20 559 (defalias 'org-odt-strike-through #[771 "\300\301\302#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "Strikethrough"] 7 (#$ . 96367)])
76bbd0 560 #@166 Transcode a SUBSCRIPT object from Org to ODT.
C 561 CONTENTS is the contents of the object.  INFO is a plist holding
562 contextual information.
563
564 (fn SUBSCRIPT CONTENTS INFO)
e75a20 565 (defalias 'org-odt-subscript #[771 "\300\301\302#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgSubscript"] 7 (#$ . 96703)])
76bbd0 566 #@170 Transcode a SUPERSCRIPT object from Org to ODT.
C 567 CONTENTS is the contents of the object.  INFO is a plist holding
568 contextual information.
569
570 (fn SUPERSCRIPT CONTENTS INFO)
e75a20 571 (defalias 'org-odt-superscript #[771 "\300\301\302#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgSuperscript"] 7 (#$ . 97023)])
76bbd0 572 #@21 
C 573
574 (fn ELEMENT INFO)
e75a20 575 (defalias 'org-odt-table-style-spec #[514 "\300!\301\302\"\303\304\"\305\303\306\"\"\207" [org-export-get-parent-table org-export-read-attribute :attr_odt plist-get :style assoc :odt-table-styles] 10 (#$ . 97350)])
76bbd0 576 #@724 Retrieve styles applicable to a table cell.
C 577 R and C are (zero-based) row and column numbers of the table
578 cell.  STYLE-SPEC is an entry in `org-odt-table-styles'
579 applicable to the current table.  It is nil if the table is not
580 associated with any style attributes.
581
582 Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME).
583
584 When STYLE-SPEC is nil, style the table cell the conventional way
585 - choose cell borders based on row and column groupings and
586 choose paragraph alignment based on `org-col-cookies' text
587 property.  See also
588 `org-odt-get-paragraph-style-cookie-for-table-cell'.
589
590 When STYLE-SPEC is non-nil, ignore the above cookie and return
591 styles congruent with the ODF-1.2 specification.
592
593 (fn TABLE-CELL INFO)
e75a20 594 (defalias 'org-odt-get-table-cell-styles #[514 "\300\"\211@A\301\"\302\303!\"\205\270A@\3048\305\236A\203/\306U\203/\307\202\263\310\236A\203BTAU\203B\311\202\263\312\236A\203S\306U\203S\313\202\263\314\236A\203fT@U\203f\315\202\263\316\236A\203y\304\246\317U\203y\320\202\263\316\236A\203\214\304\246\306U\203\214\321\202\263\322\236A\203\237\304\246\317U\203\237\323\202\263\322\236A\203\262\304\246\306U\203\262\324\202\263\325P\266\203\207" [org-export-table-cell-address org-odt-table-style-spec org-export-table-dimensions org-export-get-parent-table 2 use-first-column-styles 0 "FirstColumn" use-last-column-styles "LastColumn" use-first-row-styles "FirstRow" use-last-row-styles "LastRow" use-banding-rows-styles 1 "EvenRow" "OddRow" use-banding-columns-styles "EvenColumn" "OddColumn" ""] 12 (#$ . 97598)])
76bbd0 595 #@147 Transcode a TABLE-CELL element from Org to ODT.
C 596 CONTENTS is nil.  INFO is a plist used as a communication
597 channel.
598
599 (fn TABLE-CELL CONTENTS INFO)
e75a20 600 (defalias 'org-odt-table-cell #[771 "\303\"\211@A\304\"\206\305\306\211;\203\"\307\305#\202(\310A@\"\266\202\262\311\"\211\203=\312\313\"\206\226\314\"\315U\203U\316\317!\"\203U\320\202\213\317    !\321\322\"\310\323\"\211\205h\324!\262\325!\203wS\202\200\203\305\202\200\326X\266\203\203\212\320\202\213\327\330\331\332\f \"!!P\203\241\312\333\"\206\316\334\335\n\"\204\261\305U\205\262\336\337 \"\205\273\340\341 \f\"\205\315\305U?\205\315\342R\312\343\"\305V\205\336\312\344T\"P\n\204\347\345\262 \204\357\346\347!\210\350\312\351\211:\204\376\350\202 \211@9\203\n\211AA\202 \211\262\211@\350\211:\204\211;\205'\352\202'\211@9\205'\211@\262\206D\306\211;\203<\307\305#\202B\310A@\"\266\202>\203N\353\202\264    >\203X\354\202\264\355=\203b\354\202\264\352=\203l\353\202\264\204t\353\202\264\211\204|\354\202\264\211\211:\204\213\211;\205\223\352\202\223\211@9\205\223\211@\262\211\204\235\353\202\262\211\n>\203\247\353\202\262\356!\203\261\353\202\262\354\262\266\202\266\202\354=\203\302\202\311\312\357    #\262#\350\305\211W\203\344\211\360P\262\210\211T\262\202\320\211\262\266\202\262\361R\207" [org-element-all-objects org-element-all-elements org-element-object-containers org-export-table-cell-address org-export-table-cell-width 0 :parent get-text-property plist-get org-odt-get-table-cell-styles format "%sTableParagraph" org-export-table-row-group 1 org-export-table-has-header-p org-export-get-parent-table "OrgTableHeading" org-export-read-attribute :attr_odt :header-columns read wholenump -1 "OrgTableContents" capitalize symbol-name org-export-table-cell-alignment "%sTableCell" "OrgTblCell" org-export-table-row-starts-rowgroup-p "T" org-export-table-row-ends-rowgroup-p "B" org-export-table-cell-starts-colgroup-p "L" " table:style-name=\"%s\"" " table:number-columns-spanned=\"%d\"" "" cl--assertion-failed paragraph-style nil "\n<table:table-cell%s>\n%s\n</table:table-cell>" plain-text object element org-data org-element-secondary-p "\n<text:p text:style-name=\"%s\">%s</text:p>" "\n<table:covered-table-cell/>" "\n"] 26 (#$ . 99201)])
76bbd0 601 #@165 Transcode a TABLE-ROW element from Org to ODT.
C 602 CONTENTS is the contents of the row.  INFO is a plist used as a
603 communication channel.
604
605 (fn TABLE-ROW CONTENTS INFO)
e75a20 606 (defalias 'org-odt-table-row #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\304=\205M\305\"\306U\2032\307\310!\"\2032\311\2023\312\313\"\205<\211@\314\315\"\316\"\205JAQ\262\207" [:type get-text-property 0 plist-get standard org-export-table-row-group 1 org-export-table-has-header-p org-export-get-parent-table ("\n<table:table-header-rows>" . "\n</table:table-header-rows>") ("\n<table:table-rows>" . "\n</table:table-rows>") org-export-table-row-starts-rowgroup-p format "\n<table:table-row>\n%s\n</table:table-row>" org-export-table-row-ends-rowgroup-p] 9 (#$ . 101563)])
76bbd0 607 #@19 
C 608
609 (fn TABLE INFO)
e75a20 610 (defalias 'org-odt-table-first-row-data-cells #[514 "\300\301\302\303%\304!\211\204*\211:\204\305\202%\211@9\203$\211AA\202%\211\262\202D\211:\2044\305\202A\211@9\203@\211AA\202A\211\262A\207" [org-element-map table-row #[257 "\300\211;\203\301\302#\202\303A@\"\266\202\304=?\205\211\207" [:type get-text-property 0 plist-get rule] 7 "\n\n(fn ROW)"] first-match org-export-table-has-special-column-p nil] 8 (#$ . 102339)])
76bbd0 611 #@158 Transcode a TABLE element from Org to ODT.
C 612 CONTENTS is the contents of the table.  INFO is a plist holding
613 contextual information.
614
615 (fn TABLE CONTENTS INFO)
e75a20 616 (defalias 'org-odt--table #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\211\304\267\202%\305\306\307!\210\202t\310\311#\211@A\312\313\"\314\"A@\315\205F\316\317\320#\321\320\"\316\322\206VA\206V\323\205`\316\324\n\"\260#\262 \f#\325\f\326\260\266\206\207" [:type get-text-property 0 plist-get #s(hash-table size 1 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (table\.el 29)) nil message "(ox-odt): Found table.el-type table in the source Org file.  table.el doesn't support export to ODT format.  Stripping the table from export." org-odt-format-label definition org-export-read-attribute :attr_odt org-odt-table-style-spec #[771 "\206\300\301\302\"\303\304\305\306\307\310\"\311\"\312\313%\314\"\315#\207" ["OrgTable" format "%sColumn" mapconcat make-byte-code 257 "\302\300\"\206\303T\304\305\301\"\306\303\211W\203$\211P\262\210\211T\262\202\211\262\266\202\207" vconcat vector [org-export-table-cell-width 0 format "\n<table:table-column table:style-name=\"%s\"/>" nil] 9 "\n\n(fn TABLE-CELL)" org-odt-table-first-row-data-cells "\n"] 13 "\n\n(fn CUSTOM-TABLE-STYLE TABLE INFO)"] format "\n<text:p text:style-name=\"%s\">%s</text:p>" "Table" org-odt-add-automatic-style "\n<table:table table:style-name=\"%s\"%s>" "OrgTable" " table:name=\"%s\"" "\n" "</table:table>"] 18 (#$ . 102816)])
76bbd0 617 #@250 Transcode a TABLE element from Org to ODT.
C 618 CONTENTS is the contents of the table.  INFO is a plist holding
619 contextual information.
620
621 Use `org-odt--table' to typeset the table.  Handle details
622 pertaining to indentation here.
623
624 (fn TABLE CONTENTS INFO)
e75a20 625 (defalias 'org-odt-table #[771 "\300\301\211#\302\303\304\302#\305#\306\304\"G\307\245\310\311\"\205)\312\"\266\203\303\313\237\302#R\207" [#[514 "\300\301#\302\301\302:\203=@\262\211:\204 \211;\205(\303\202(\211@9\205(\211@\262\304=\211\262?\211\262\203=A\262\202\207" [org-export-get-previous-element t nil plain-text table] 8 "\n\n(fn ELEMENT INFO)"] #[771 "\300!\211@\211:\204\211;\205\301\202\211@9\205\211@\262\302=\205\\\211\303\211:\203X@\262\211:\204=\211;\205E\301\202E\211@9\205E\211@\262\304>\203QB\262A\262\202%\211\237\266\203\305\306\303\211:\203\321@\262\211:\204y\211;\205\201\301\202\201\211@9\205\201\211@\262\307=\203\312\310    \"\203\312\307\311\211;\203\242\312\313#\202\250\314A@\"\266\202\262\211:\204\265\303\202\302\211@9\203\301\211AA\202\302\211\262\236DB\262A\262\202a\211\237\266\203\"\303\303\211:\203t@\262\211:\204\362\211;\205\372\301\202\372\211@9\205\372\211@\262\211\315\267\202f\262\316\317\320\321\211;\203\312\313#\202\314A@\"\266\202\211\322\267\2026\323\2027\324\2027\325\2027\325\2027\303\262\326#B\202g\204U\n\n\n\"\203Q\327\202g\330\202g\n\n\"\203b\331\202g\332\202g\303\262B\262A\262\202\332\211\237\266\203\303\302\303:\203@\262\333\267\202\302\262\262\316\317\320\334\"\203\241\323\202\242\324\326#B\202\335\262\204\301   \"\203\275\336\202\337\202\340 \"\211\205\211\211:\204\332\211;\205\342\301\202\342\211@9\205\342\211@\262\341=\205\342\211:\204\364\303\202\211@9\203\211AA\202\211\262\236\262\203 \343\202\344\202\303B\262A\262\202|\211\237\266\204\244\207" [org-element-lineage plain-text item nil (item plain-list) apply nconc headline org-export-low-level-p :parent get-text-property 0 plist-get #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plain-list 258 item 319)) "</text:list>" format "\n<text:list text:style-name=\"%s\" %s>" :type #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ordered 294 unordered 298 descriptive-1 302 descriptive-2 306)) "OrgNumberedList" "OrgBulletedList" "OrgDescriptionList" "text:continue-numbering=\"true\"" ("</text:list-header>" . "<text:list-header>") ("</text:list-item>" . "<text:list-header>") ("</text:list-header>" . "<text:list-header>") ("</text:list-item>" . "<text:list-item>") #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plain-list 395 item 424)) org-export-numbered-headline-p plain-list ("</text:list-header>" . "<text:list-header>") ("</text:list-item>" . "<text:list-header>") org-export-get-previous-element section table ("</text:list-header>" . "<text:list-header>") ("</text:list-item>" . "<text:list-item>")] 20 "\n\n(fn --ELEMENT-PRECEDED-BY-TABLE-P TABLE INFO)"] "\n" mapconcat car org-odt--table mapcar 2 format "OrgIndentedSection-Level-%d" org-odt-format-section cdr] 14 (#$ . 104363)])
76bbd0 626 #@137 Transcode a TARGET object from Org to ODT.
C 627 CONTENTS is nil.  INFO is a plist holding contextual
628 information.
629
630 (fn TARGET CONTENTS INFO)
e75a20 631 (defalias 'org-odt-target #[771 "\300\301\302\"\"\207" [org-odt--target "" org-export-get-reference] 8 (#$ . 107659)])
76bbd0 632 #@144 Transcode a TIMESTAMP object from Org to ODT.
C 633 CONTENTS is nil.  INFO is a plist used as a communication
634 channel.
635
636 (fn TIMESTAMP CONTENTS INFO)
e75a20 637 (defalias 'org-odt-timestamp #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\303\304\"\204a\305\306!\"\300\211;\2033\301\302#\2029\303A@\"\266\202\307\310\"\203J\311\312\313#\202Z\307\314\"\203Y\311\312\315#\202Z\262\262\202\265\211\316\267\202\251\311\312\313\311\317\320    !\"#\202\265\311\312\315\311\321\320    !\"#\202\265\311\312\313\311\322\320    !\320\n\323\"##\202\265\311\312\315\311\324\320    !\320\n\323\"##\202\265\311\312\325\305\306!\"#\207" [:type get-text-property 0 plist-get :odt-use-date-fields org-odt-plain-text org-timestamp-translate memql (active active-range) format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgActiveTimestamp" (inactive inactive-range) "OrgInactiveTimestamp" #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (active 103 inactive 117 active-range 131 inactive-range 150)) "&lt;%s&gt;" org-odt--format-timestamp "[%s]" "&lt;%s&gt;&#x2013;&lt;%s&gt;" end "[%s]&#x2013;[%s]" "OrgDiaryTimestamp"] 13 (#$ . 107923)])
76bbd0 638 #@161 Transcode UNDERLINE from Org to ODT.
C 639 CONTENTS is the text with underline markup.  INFO is a plist
640 holding contextual information.
641
642 (fn UNDERLINE CONTENTS INFO)
e75a20 643 (defalias 'org-odt-underline #[771 "\300\301\302#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "Underline"] 7 (#$ . 109116)])
76bbd0 644 #@142 Transcode a VERBATIM object from Org to ODT.
C 645 CONTENTS is nil.  INFO is a plist used as a communication
646 channel.
647
648 (fn VERBATIM CONTENTS INFO)
e75a20 649 (defalias 'org-odt-verbatim #[771 "\300\301\302\303\304\211;\203\305\306#\202\307A@\"\266\202!#\207" [format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode" org-odt--encode-plain-text :value get-text-property 0 plist-get] 13 (#$ . 109429)])
76bbd0 650 #@165 Transcode a VERSE-BLOCK element from Org to ODT.
C 651 CONTENTS is verse block contents.  INFO is a plist holding
652 contextual information.
653
654 (fn VERSE-BLOCK CONTENTS INFO)
e75a20 655 (defalias 'org-odt-verse-block #[771 "\300\301\302\303\304\302\305\306    ##\"\207" [format "\n<text:p text:style-name=\"OrgVerse\">%s</text:p>" replace-regexp-in-string "^[     ]+" org-odt--encode-tabs-and-spaces "\\(<text:line-break/>\\)?[     ]*$" "<text:line-break/>"] 12 (#$ . 109841)])
76bbd0 656 #@26 
C 657
658 (fn DATA BACKEND INFO)
e75a20 659 (defalias 'org-odt--translate-image-links #[771 "\301#\207" [org-odt-inline-image-rules org-export-insert-image-links] 7 (#$ . 110295)])
76bbd0 660 #@26 
C 661
662 (fn TREE BACKEND INFO)
e75a20 663 (defalias 'org-odt--translate-latex-fragments #[771 "\300\301\"C\302C\303\242\304\"\203,\305\306!\203!\306 \203!\307\240\210\202\232\310\311!\210\312\240\210\202\232\303\242\313\"\203\222\314\315\316\317!\206S\211?\205S\320\321\203Q\322\323\"\202R\315#\266\203\203\207\242\324=\203c\325\202d\326\315\316\317!\206\202\211?\205\202\320\321\203\200\322\323\"\202\201\315#\266\203\204\232\310\327!\210\312\240\210\202\232\310\330!\210\312\240\210\300\301\"\203\250\331\301\242#\210\310\332\242\"\210\242\333>\203\321\334\335\336\337\340\341\342\n\n\n#\343\"\344\345%\346\211\316&\210\266\207" [plist-get :with-latex 0 memql (t mathml) fboundp org-format-latex-mathml-available-p mathml message "LaTeX to MathML converter not available." verbatim (dvipng imagemagick) "latex" "" t executable-find error "Can't find `%s'%s" format " (%s)" dvipng "dvipng" "convert" "LaTeX to PNG converter not available." "Unknown LaTeX option.  Forcing verbatim." plist-put "Formatting LaTeX using %s" (mathml dvipng imagemagick) org-element-map (latex-fragment latex-environment) make-byte-code 257 "\302\211\242T\240\210\303\211;\203\304\305#\202\306A@\"\266\202\306\300\307\"\310!\311\301\242\312\"\2030\313\2029\314\301\242\315\"\2059\316\317\320!!P\311\301\242\321\"\203O\322\323\302\242\"\202\\\314\301\242\315\"\205\\\322\324\302\242\"\325\326!r\211q\210\327\305\330\331\332!\333\"\334$\216c\210\301\242\315=\204\213\306\300\335\"\211\203\212\336\337\340\341#\261\210\210\342\343\211\343\343\301\242&\210eb\210\344\343w\210\345 *\262\211\211:\204\265\211;\205\275\346\202\275\211@9\205\275\211@\262\347=\204\312\350\351!\202 \211:\204\332\211;\205\342\346\202\342\211@9\205\342\211@\262\211\352\267\202\220\353\354\355\356\211\f\211;\203\376\304\305#\202\306A@\"\266\202\357\211\211;\203\304\305#\202\306A@\"\266\202\257DC\211\204,\202\207\211\211\203]\211@\211\360\206:;\203I\361\343$\210\202TA\362A@#\240\210\266A\266\202\202-\210\203\202\363\364\211\211:\204o\343\202|\211@9\203{\211AA\202|\211\262\244#\210\206\207\211\266\202\202\221\202\221\343\262\211\365    \211:\204\245\211;\205\255\346\202\255\211@9\205\255\211@\262\303\nDD;\203\303\361\343$\210\202\316A\362A@#\240\210\266\211\366\211\n\211;\203\342\304\305#\202\350\306A@\"\266\202;\203\371\361\343$\210\202A\362A@#\240\210\266\367\"\262\207" vconcat vector [:value get-text-property 0 plist-get :input-file file-name-directory memql (dvipng imagemagick) "ltxpng/" eql mathml "ltxmathml/" file-name-sans-extension file-name-nondirectory (dvipng imagemagick) format "Creating LaTeX Image %d..." "Creating MathML snippet %d..." generate-new-buffer " *temp*" make-byte-code "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 :latex-header "\n" replace-regexp-in-string "^" "#+LATEX_HEADER: " org-format-latex nil "     \n" org-element-link-parser plain-text link message "LaTeX Conversion failed." #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (latex-environment 234 latex-fragment 396)) paragraph :style "OrgFormula" :name :caption :parent org-add-props plist-put apply org-element-set-contents :replaces :post-blank org-element-set-element] 20 "\n\n(fn LATEX-*)" nil] 16 (#$ . 110466)])
76bbd0 664 #@26 
C 665
666 (fn TREE BACKEND INFO)
e75a20 667 (defalias 'org-odt--translate-description-lists #[771 "\300\301\302$\210\207" [org-element-map plain-list #[257 "\300\211;\203\301\302#\202\303A@\"\266\202\304=\203E\305\306\307\310\300\311DD\312\313\211:\2042\314\202?\211@9\203>\211AA\202?\211\262\"#\"\210\314\207" [:type get-text-property 0 plist-get descriptive org-element-set-element apply org-element-adopt-elements plain-list descriptive-1 mapcar #[257 "\300\301\211\211;\203\302\303#\202\304A@\"\266\202DD\305\306\307D\310\211;\203.\302\303#\2024\304A@\"\266\202\206:\311E\312\313\314DD\315\316\300\317D\211:\204P\317\202]\211@9\203\\\211AA\202]\211\262#C\211\204i\202\304\211\211\203\232\211@\211\320\206w;\203\206\321\317$\210\202\221A\322A@#\240\210\266A\266\202\202j\210\203\277\315\323\211\211:\204\254\317\202\271\211@9\203\270\211AA\202\271\211\262\244#\210\206\304\211\266\202D\211\204\317\202*\211\211\203\211@\211\320\206\335;\203\354\321\317$\210\202\367A\322A@#\240\210\266A\266\202\202\320\210\203%\315\323\211\211:\204\317\202\211@9\203\211AA\202\211\262\244#\210\206*\211\207" [item :checkbox get-text-property 0 plist-get paragraph :style "Text_20_body_20_bold" :tag "(no term)" plain-list :type descriptive-2 apply org-element-adopt-elements nil :parent org-add-props plist-put org-element-set-contents] 15 "\n\n(fn ITEM)"] nil] 10 "\n\n(fn EL)"]] 8 (#$ . 113883)])
76bbd0 668 #@26 
C 669
670 (fn TREE BACKEND INFO)
e75a20 671 (defalias 'org-odt--translate-list-tables #[771 "\300\301\302\303\304\305\306!\307\"\310\311%$\210\207" [org-element-map plain-list make-byte-code 257 "\301\302\303#\203'\304\305\306\307\310D\311\312\313\314\315\316\317\300!\320\"\321\322%\300\323\312&#\"\210\323\207" vconcat vector [org-export-read-attribute :attr_odt :list-table org-element-set-element apply org-element-adopt-elements table (:type org :attr_odt (":style \"GriddedTable\"")) org-element-map item make-byte-code 257 "\211\211:\204\n\301\202\211@9\203\211AA\202\211\262\301\211\301\203J@\211:\2041\211;\2059\302\2029\211@9\2059\211@\262\303=\204J\262A\262\202\211\203V\211\301\241\210@\262\262\266\304\305\306\307\310DD\304\305\311\301D#\312\313\314\300\301\313&$\207" vconcat vector [nil plain-text plain-list apply org-element-adopt-elements table-row :type standard table-cell org-element-map item #[257 "\300\301\302\303D\211:\204\303\202\211@9\203\211AA\202\211\262#\207" [apply org-element-adopt-elements table-cell nil] 6 "\n\n(fn L2-ITEM)"]] 15 "\n\n(fn L1-ITEM)" nil] 15 "\n\n(fn L1-LIST)"] 12 (#$ . 115368)])
76bbd0 672 #@19 
C 673
674 (fn &rest ARGS)
e75a20 675 (defalias 'org-odt-create-manifest-file-entry #[128 "\211B\211\207" [org-odt-manifest-file-entries] 3 (#$ . 116542)])
76bbd0 676 (defalias 'org-odt-write-manifest-file #[0 "\304\305P!\210\306Pr\307\310\311\")q\210\312c\210\n\211\203?\211@\3138\211\204(\314\202,\315\316\"\315 @A@$c\266A\266\202\202\210\317c)\207" [org-odt-zip-dir nxml-auto-insert-xml-declaration-flag org-odt-manifest-file-entries org-odt-manifest-file-entry-tag make-directory "META-INF" "META-INF/manifest.xml" nil find-file-noselect t "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n     <manifest:manifest xmlns:manifest=\"urn:oasis:names:tc:opendocument:xmlns:manifest:1.0\" manifest:version=\"1.2\">\n" 2 "" format " manifest:version=\"%s\"" "\n</manifest:manifest>"] 10])
C 677 #@28 
678
679 (fn OUT-FILE &rest BODY)
e75a20 680 (defalias 'org-odt--export-wrap '(macro . #[385 "\300\301D\302B\303\304\305\306\305B\307BBB\310BBBE\207" [let* --out-file ((out-file-type (file-name-extension --out-file)) (org-odt-xml-files '("META-INF/manifest.xml" "content.xml" "meta.xml" "styles.xml")) (org-odt-zip-dir (file-name-as-directory (make-temp-file (format "%s-" out-file-type) t))) (org-odt-manifest-file-entries nil) (--cleanup-xml-buffers (lambda nil (dolist (file org-odt-xml-files) (let ((buf (find-buffer-visiting (concat org-odt-zip-dir file)))) (when buf (with-current-buffer buf (set-buffer-modified-p nil) (kill-buffer buf))))) (delete-directory org-odt-zip-dir t)))) condition-case err progn (unless (executable-find "zip") (error "Executable \"zip\" needed for creating OpenDocument files")) ((org-odt-create-manifest-file-entry "text/xml" "content.xml") (let* ((mimetypes '(("odt" . "application/vnd.oasis.opendocument.text") ("odf" . "application/vnd.oasis.opendocument.formula"))) (mimetype (cdr (assoc-string out-file-type mimetypes t)))) (unless mimetype (error "Unknown OpenDocument backend %S" out-file-type)) (write-region mimetype nil (concat org-odt-zip-dir "mimetype")) (org-odt-create-manifest-file-entry mimetype "/" "1.2")) (org-odt-write-manifest-file) (dolist (file org-odt-xml-files) (let ((buf (find-buffer-visiting (concat org-odt-zip-dir file)))) (when buf (with-current-buffer buf (when org-odt-prettify-xml (indent-region (point-min) (point-max))) (save-buffer 0))))) (let* ((target --out-file) (target-name (file-name-nondirectory target)) (cmds `(("zip" "-mX0" ,target-name "mimetype") ("zip" "-rmTq" ,target-name ".")))) (when (file-exists-p target) (delete-file target)) (let ((coding-system-for-write 'no-conversion) exitcode err-string) (message "Creating ODT file...") (with-current-buffer (find-file-noselect (concat org-odt-zip-dir "content.xml") t) (dolist (cmd cmds) (message "Running %s" (mapconcat 'identity cmd " ")) (setq err-string (with-output-to-string (setq exitcode (apply 'call-process (car cmd) nil standard-output nil (cdr cmd))))) (or (zerop exitcode) (error (concat "Unable to create OpenDocument file." "  Zip failed with error (%s)") err-string))))) (rename-file (concat org-odt-zip-dir target-name) target) (message "Created %s" (expand-file-name target)) (funcall --cleanup-xml-buffers) (find-file-noselect target t) (cond (org-odt-preferred-output-format (or (org-odt-convert target org-odt-preferred-output-format) target)) (t target)))) ((error (funcall --cleanup-xml-buffers) (message "OpenDocument export failed: %s" (error-message-string err))))] 10 (#$ . 117317)]))
76bbd0 681 #@418 Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
C 682 Use `org-create-math-formula' to convert LATEX-FRAG first to
683 MathML.  When invoked as an interactive command, use
684 `org-latex-regexps' to infer LATEX-FRAG from currently active
685 region.  If no LaTeX fragments are found, prompt for it.  Push
686 MathML source to kill ring depending on the value of
687 `org-export-copy-to-kill-ring'.
688
689 (fn LATEX-FRAG &optional ODF-FILE)
e75a20 690 (defalias 'org-odt-export-as-odf #[513 "\211\206\306\307\310!!\311\312Q\313!\"\211\314!\315\316\317\320\321\"\322\"!\323\324\3251x\326\327!\2041\330\331!\210\332\333!\210\323\334    \335P\322\")\336\211\211q\210\337\f!\210\340!\211\204U\330\341!\210\211c\210\342 \203b\343\344 !\210\210*\210\345\346\335\"\210\347\350\322#A\211\204{\330\351\"\210\352\323    \353P#\210\345\354\355#\266\356 \210\211\203\270\211@\357    P!\211\203\260r\211q\210@\203\253\360ed\"\210\361\362!\210)\210A\266\202\202\216\210\310!\327\363\364BBB\327\365\366BBBD\367!\203\326\370!\210\371\323\211\372\373!\210r\334    \335P\322\"q\210\211\203?\211@\372\374\375\376\377#\"\210\201C\201D\201E!!A\201F\216AA\201G\201H@\323A\323A&\262)rAq\210\344 +\262\362U\2048\330\201I\"\210A\266\202\202\351\210*\266\201J    P\"\210\372\201K\306!\"\210!\210\334\322\"\210B\203q\201LB\"\206r\202r\266\2030\202\210!\210\372\201M\201N!\"\262*\266\204\207" [buffer-file-name org-odt-zip-dir org-odt-manifest-file-entries nxml-auto-insert-xml-declaration-flag coding-system-for-write save-buffer-coding-system expand-file-name file-name-sans-extension file-name-nondirectory "." "odf" file-name-directory file-name-extension ("META-INF/manifest.xml" "content.xml" "meta.xml" "styles.xml") file-name-as-directory make-temp-file format "%s-" t nil #[257 "\211\211\203%\211@\301P!\211\203r\211q\210\302\303!\210\304!\210)\210A\266\202\202\210\305\306\"\207" [org-odt-zip-dir find-buffer-visiting set-buffer-modified-p nil kill-buffer delete-directory t] 6 "\n\n(fn ORG-ODT-XML-FILES)"] (error) executable-find "zip" error "Executable \"zip\" needed for creating OpenDocument files" require nxml-mode find-file-noselect "content.xml" utf-8 set-buffer-file-coding-system org-create-math-formula "No Math formula created" org-export--copy-to-kill-ring-p org-kill-new buffer-string org-odt-create-manifest-file-entry "text/xml" (("odt" . "application/vnd.oasis.opendocument.text") ("odf" . "application/vnd.oasis.opendocument.formula")) assoc-string "Unknown OpenDocument backend %S" write-region "mimetype" "/" "1.2" org-odt-write-manifest-file find-buffer-visiting indent-region save-buffer 0 "-mX0" ("mimetype") "-rmTq" (".") file-exists-p delete-file no-conversion message "Creating ODT file..." "Running %s" mapconcat identity " " org-odt-prettify-xml standard-output org-odt-preferred-output-format get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] apply call-process "Unable to create OpenDocument file.  Zip failed with error (%s)" rename-file "Created %s" org-odt-convert "OpenDocument export failed: %s" error-message-string] 23 (#$ . 119955) (byte-code "\302\303 \205 \304 \305 {\211\262\205B\302\306\302:\203@@\262\307A@\"\205/\310\3118\"\211\262?\211\262\203@A\262\202\266\203\262\312\313\302$\262\314\315\316    !!\317\320Q\321    !\"\322\323\302\302\316!%\262D\207" [org-latex-regexps buffer-file-name nil region-active-p region-beginning region-end t string-match match-string 2 read-string "LaTeX Fragment: " expand-file-name file-name-sans-extension file-name-nondirectory "." "odf" file-name-directory read-file-name "ODF filename: "] 9)])
76bbd0 691 #@154 Export LaTeX fragment as OpenDocument formula and immediately open it.
C 692 Use `org-odt-export-as-odf' to read LaTeX fragment and OpenDocument
693 formula file.
e75a20 694 (defalias 'org-odt-export-as-odf-and-open #[0 "\300\301\302!\303\"\207" [org-open-file call-interactively org-odt-export-as-odf system] 3 (#$ . 123660) nil])
76bbd0 695 #@780 Export current buffer to a ODT file.
C 696
697 If narrowing is active in the current buffer, only export its
698 narrowed part.
699
700 If a region is active, export that region.
701
702 A non-nil optional argument ASYNC means the process should happen
703 asynchronously.  The resulting file should be accessible through
704 the `org-export-stack' interface.
705
706 When optional argument SUBTREEP is non-nil, export the sub-tree
707 at point, extracting information from the headline properties
708 first.
709
710 When optional argument VISIBLE-ONLY is non-nil, don't export
711 contents of hidden elements.
712
713 EXT-PLIST, when provided, is a property list with external
714 parameters overriding Org default settings, but still inferior to
715 file-local settings.
716
717 Return output file's name.
718
719 (fn &optional ASYNC SUBTREEP VISIBLE-ONLY EXT-PLIST)
e75a20 720 (defalias 'org-odt-export-to-odt #[1024 "\306\307\"\203\310\311C\312\313\314\315\316\"\317\"\320$\216\203(\211\321 \240\210\322\323\"\210\324p!\325\326!\327\330\331!!\312\313\332\315\316!\333\"\334$\216r\211q\210\335\336\337\340\341\342\343\fD\344\345\346\347\350\351\352\353\354\355\356\357\311 \257DD\360BBEEDDD\257#c\210)r\211q\210\361\311\211\311\313%\210*\266\311\330\362!\363\364\365\326\347\n \"\366F\f\203\241\367\370\fE\202\244\370 D\370D#\"\371\372!\311#\210\373\374\375\376\353\377\201L\201M\201N\201O\201P\201N\353\201Q\343\201RBBE\201SBB\201TBBB\201U\201V\201WDEEEEE\"\262)\266\202\266\203)\266\202\202\357\211\201X!\201Y\201Z\325\335\201[\"\201\\\"!@\311A\201]\201^1\334\201_\201`!\204:\201a\201b!\210\313\211BC\311\211DE\311F\356\201c        \311\n%\201d\201e!\210\311G\201f@\201gP\201\\\")r\211q\210\201h \210c\210)\266-\201i\201j\201g\"\210\201k\201l\201\\#A\211\204\244\201a\201m\"\210\361\311@\201nP#\210\201i\201o\201p#\266\201q \210\211\203\363\211@\201r@P!\211\203\353r\211q\210H\203\344\201sed\"\210\201t\313!\210)\210A\266\202\202\302\210\201u!\201`\201v\201wBBB\201`\201x\201yBBBD\201z!\203#\201W!\210\201{\311\211I\322\201|!\210r\201f@\201gP\201\\\"q\210\211\203\236\211@\322\201}\201~\201\201\200#\"\210\327\330\201\201!!J\201\202\216JJ\363\201\203@\311J\311A&\262)rJq\210\201\204 +\262\313U\204\227\201a\201\205\"\210A\266\202\202B\210*\266\201\206@P\"\210\322\201\207\347!\"\210!\210\201f\201\\\"\210K\203\325\201\210K\"\206\326\202\326\266\2030\202\354!\210\322\201\211\201\212!\"\262*\266\204\207" [buffer-file-coding-system process-connection-type invocation-name invocation-directory org-export-async-init-file user-init-file org-export-output-file-name ".odt" "Initializing asynchronous export process" nil make-byte-code 0 "\300\205\301\242\203\302\303\301\242\"\207\302\304!\207" vconcat vector [message #1="%s" nil] 3 current-message message #1# org-export--generate-copy-script make-temp-file "org-export-process" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] 2 format ";; -*- coding: %s; -*-\n%S" with-temp-buffer (when org-export-async-debug '(setq debug-on-error t)) (setq kill-emacs-hook nil org-babel-confirm-evaluate-answer-no t) (require 'ox) funcall (restore-buffer-modified-p nil) print progn expand-file-name org-odt--export-wrap let* ((org-odt-embedded-images-count 0) (org-odt-embedded-formulas-count 0) (org-odt-automatic-styles nil) (org-odt-object-counters nil) (hfy-user-sheet-assoc nil)) let (out-buf (progn (require 'nxml-mode) (let ((nxml-auto-insert-xml-declaration-flag nil)) (find-file-noselect (concat org-odt-zip-dir "content.xml") t)))) output org-export-as 'odt ((with-current-buffer out-buf (erase-buffer) (insert output))) write-region "*Org Export Process*" apply start-process append "--batch" "-Q" "-l" org-export-add-to-stack get-buffer #[257 "\300\301\"\207" [org-export-add-to-stack odt] 4 "\n\n(fn F)"] set-process-sentinel lambda (p status) ((proc-buffer (process-buffer p))) org-odt-zip-dir org-odt-manifest-file-entries org-odt-embedded-images-count org-odt-embedded-formulas-count org-odt-automatic-styles org-odt-object-counters hfy-user-sheet-assoc nxml-auto-insert-xml-declaration-flag org-odt-prettify-xml coding-system-for-write standard-output org-odt-preferred-output-format when (eq (process-status p) 'exit) unwind-protect if (zerop (process-exit-status p)) ((results (with-current-buffer proc-buffer (goto-char (point-max)) (backward-sexp) (read (current-buffer))))) (results) ((unless org-export-async-debug (and (get-buffer proc-buffer) (kill-buffer proc-buffer)))) ((org-export-add-to-stack proc-buffer nil p) (ding) (message "Process `%s' exited abnormally" p)) unless org-export-async-debug delete-file file-name-extension ("META-INF/manifest.xml" "content.xml" "meta.xml" "styles.xml") file-name-as-directory "%s-" t #[257 "\211\211\203%\211@\301P!\211\203r\211q\210\302\303!\210\304!\210)\210A\266\202\202\210\305\306\"\207" [org-odt-zip-dir find-buffer-visiting set-buffer-modified-p nil kill-buffer delete-directory t] 6 "\n\n(fn ORG-ODT-XML-FILES)"] (error) executable-find "zip" error "Executable \"zip\" needed for creating OpenDocument files" odt require nxml-mode find-file-noselect "content.xml" erase-buffer org-odt-create-manifest-file-entry "text/xml" (("odt" . "application/vnd.oasis.opendocument.text") ("odf" . "application/vnd.oasis.opendocument.formula")) assoc-string "Unknown OpenDocument backend %S" "mimetype" "/" "1.2" org-odt-write-manifest-file find-buffer-visiting indent-region save-buffer file-name-nondirectory "-mX0" ("mimetype") "-rmTq" (".") file-exists-p no-conversion "Creating ODT file..." "Running %s" mapconcat identity " " " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] call-process buffer-string "Unable to create OpenDocument file.  Zip failed with error (%s)" rename-file "Created %s" org-odt-convert "OpenDocument export failed: %s" error-message-string] 38 (#$ . 123978) nil])
76bbd0 721 #@76 Return non-nil if IN-FMT can be converted to OUT-FMT.
C 722
723 (fn IN-FMT OUT-FMT)
e75a20 724 (defalias 'org-odt-reachable-p #[514 "\3002,\301!\211\211\205'\211@\302A\"\211\203\303\300@B\"\210\210A\266\202\202\262\2620\207" [done org-odt-do-reachable-formats assoc throw] 10 (#$ . 129982)])
76bbd0 725 #@79 Workhorse routine for `org-odt-convert'.
C 726
727 (fn IN-FILE OUT-FMT &optional OPEN)
e75a20 728 (defalias 'org-odt-do-convert #[770 "\301\302!\210\303\206\n!\304!\203\211\202\305\306\"\262\307!\206%\305\310!\311\"\2061\305\312#\211@\313!\314A\206=A@Q\315A8\206H\316\317!\320\321\322 !B\323\324\f!B\325\nB\326B\327\324\n!B\330\322    !B\331\324\n!B\332 B\257\"\333!\203\205\334!\210\335\336\"\210\337!\335\340\"\266\333!\203\261\335\341\"\210    \203\255\335\342\"\210\343\344\"\210\202\267\335\345\"\210\346\207" [buffer-file-name require browse-url expand-file-name file-readable-p error "Cannot read %s" file-name-extension "Output format unspecified" org-odt-reachable-p "Cannot convert from %s format to %s format?" file-name-sans-extension "." 2 "" file-name-directory format-spec 105 shell-quote-argument 73 browse-url-file-url 102 111 79 100 68 120 file-exists-p delete-file message "Executing %s" shell-command-to-string "%s" "Exported to %s" "Opening %s..." org-open-file system "Export to %s failed" nil] 22 (#$ . 130274)])
76bbd0 729 #@286 Return verbose info about formats to which IN-FMT can be converted.
C 730 Return a list where each element is of the
731 form (CONVERTER-PROCESS . OUTPUT-FMT-ALIST).  See
732 `org-odt-convert-processes' for CONVERTER-PROCESS and see
733 `org-odt-convert-capabilities' for OUTPUT-FMT-ALIST.
734
735 (fn IN-FMT)
e75a20 736 (defalias 'org-odt-do-reachable-formats #[257 "\205 \303    \304#A@\205\303    \304#A@\205\n\305\203?\211\203>\211@A@\235\2037\3068BB\262A\266\202\202 \210\207" [org-odt-convert-process org-odt-convert-processes org-odt-convert-capabilities assoc-string t nil 2] 9 (#$ . 131345)])
76bbd0 737 #@125 Return list of formats to which IN-FMT can be converted.
C 738 The list of the form (OUTPUT-FMT-1 OUTPUT-FMT-2 ...).
739
740 (fn IN-FMT)
e75a20 741 (defalias 'org-odt-reachable-formats #[257 "\300\301\302\303\304\305!\"\"!\207" [copy-sequence apply append mapcar #[257 "\300\301A\"\207" [mapcar car] 4 "\n\n(fn E)"] org-odt-do-reachable-formats] 8 (#$ . 131934)])
76bbd0 742 #@107 Return IN-FILE and OUT-FMT params for `org-odt-do-convert'.
C 743 This is a helper routine for interactive use.
e75a20 744 (defalias 'org-odt-convert-read-params #[0 "\301\302!\203\n\303\202 \304\305\306\307\310$\311!\312!\211\203%\313\307\211\211%\206)\314\315\"D\207" [buffer-file-name featurep ido ido-completing-read completing-read read-file-name "File to be converted: " nil t file-name-extension org-odt-reachable-formats "Output format: " error "No known converter or no known output formats for %s files"] 10 (#$ . 132284)])
76bbd0 745 #@373 Convert IN-FILE to format OUT-FMT using a command line converter.
C 746 IN-FILE is the file to be converted.  If unspecified, it defaults
747 to variable `buffer-file-name'.  OUT-FMT is the desired output
748 format.  Use `org-odt-convert-process' as the converter.  If OPEN
749 is non-nil then the newly converted file is opened using
750 `org-open-file'.
751
752 (fn &optional IN-FILE OUT-FMT OPEN)
e75a20 753 (defalias 'org-odt-convert #[768 "\300#\207" [org-odt-do-convert] 7 (#$ . 132820) (byte-code "\301\302 \"\207" [current-prefix-arg append org-odt-convert-read-params] 3)])
76bbd0 754 (byte-code "\211\203\211@\301\302\303@\304Q\305B\"\210A\266\202\202\210\306\307!\207" [org-odt-file-extensions add-to-list auto-mode-alist "\\." "\\'" archive-mode provide ox-odt] 7)