ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ox-odt.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\314\315\316&\n\207" [require format-spec ox org-compat 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) (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) (quote-section . org-odt-quote-section) (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)) :export-block "ODT" :filters-alist ((:filter-parse-tree org-odt--translate-latex-fragments org-odt--translate-description-lists org-odt--translate-list-tables)) :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) (:with-latex nil "tex" org-odt-with-latex))] 11)
#@102 Location of ODT exporter.
Use this to infer values of `org-odt-styles-dir' and
`org-odt-schema-dir'.
(defconst org-odt-lib-dir (file-name-directory load-file-name) (#$ . 2727))
#@109 Data directory for ODT exporter.
Use this to infer values of `org-odt-styles-dir' and
`org-odt-schema-dir'.
(defvar org-odt-data-dir (expand-file-name "../../etc/" org-odt-lib-dir) (#$ . 2911))
#@52 Regular expressions for special string conversion.
(defconst org-odt-special-string-regexps '(("\\\\-" . "­\\1") ("---\\([^-]\\)" . "—\\1") ("--\\([^-]\\)" . "–\\1") ("\\.\\.\\." . "…")) (#$ . 3111))
#@245 List of directories to search for OpenDocument schema files.
Use this list to set the default value of
`org-odt-schema-dir'. The entries in this list are
populated heuristically based on the values of `org-odt-lib-dir'
and `org-odt-data-dir'.
(defconst org-odt-schema-dir-list (byte-code "\205 \301\302\"\303D\207" [org-odt-data-dir expand-file-name "./schema/" nil] 3) (#$ . 3346))
#@207 List of directories to search for OpenDocument styles files.
See `org-odt-styles-dir'. The entries in this list are populated
heuristically based on the values of `org-odt-lib-dir' and
`org-odt-data-dir'.
(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/" nil "../../etc/styles/" "./etc/styles/" "./org/"] 7) (#$ . 3740))
#@536 Directory that holds auxiliary XML files used by the ODT exporter.
This directory contains the following XML files -
"OrgOdtStyles.xml" and "OrgOdtContentTemplate.xml". These
XML files are used as the default values of
`org-odt-styles-file' and
`org-odt-content-template-file'.
The default value of this variable varies depending on the
version of org in use and is initialized from
`org-odt-styles-dir-list'. Note that the user could be using org
from one of: org's own private git repository, GNU ELPA tar or
standard Emacs.
(defconst org-odt-styles-dir (byte-code "\3012 \302\303!\210\304\305\"\210\3060\211\204 \307\310!\210 )\207" [org-odt-styles-dir-list styles-dir message "Debug (ox-odt): Searching for OpenDocument styles files..." mapc #[(styles-dir) "\205$ \301\302\"\210\303\304\305\"!\205$ \303\304\306\"!\205$ \301\307\"\210\310\300\"\207" [styles-dir message "Debug (ox-odt): Trying %s..." file-readable-p expand-file-name "OrgOdtContentTemplate.xml" "OrgOdtStyles.xml" "Debug (ox-odt): Using styles under %s" throw] 4] nil error "Error (ox-odt): Cannot find factory styles files, aborting"] 4) (#$ . 4210))
(defconst org-odt-bookmark-prefix "OrgXref.")
(defconst org-odt-manifest-file-entry-tag "\n<manifest:file-entry manifest:media-type=\"%s\" manifest:full-path=\"%s\"%s/>")
(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")))
#@43 Template for auto-generated Table styles.
(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" (#$ . 6025))
#@539 Registry of automatic styles for various OBJECT-TYPEs.
The variable has the following form:
((OBJECT-TYPE-A
((OBJECT-NAME-A.1 OBJECT-PROPS-A.1)
(OBJECT-NAME-A.2 OBJECT-PROPS-A.2) ...))
(OBJECT-TYPE-B
((OBJECT-NAME-B.1 OBJECT-PROPS-B.1)
(OBJECT-NAME-B.2 OBJECT-PROPS-B.2) ...))
...).
OBJECT-TYPEs could be "Section", "Table", "Figure" etc.
OBJECT-PROPS is (typically) a plist created by passing
"#+ATTR_ODT: " option to `org-odt-parse-block-attributes'.
Use `org-odt-add-automatic-style' to add update this variable.'
(defvar org-odt-automatic-styles nil (#$ . 6328))
#@133 Running counters for various OBJECT-TYPEs.
Use this to generate automatic names and style-names. See
`org-odt-add-automatic-style'.
(defvar org-odt-object-counters nil (#$ . 6923))
#@245 Custom paragraph style for colorized source and example blocks.
This style is much the same as that of "OrgFixedWidthBlock"
except that the foreground and background colors are set
according to the default face identified by the `htmlfontify'.
(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>" (#$ . 7111))
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\207" [prop --dolist-tail-- defvaralias hfy-optimisations hfy-optimizations nil (saved-value saved-variable-comment) put make-obsolete-variable "25.1"] 6)
(defvar org-odt-embedded-formulas-count 0)
(defvar org-odt-embedded-images-count 0)
#@54 Ordered list of methods for determining image sizes.
(defvar org-odt-image-size-probe-method (byte-code "\300\301\302!\205 \303\304\"\207" [append executable-find "identify" (imagemagick) (emacs fixed)] 3) (#$ . 8174))
#@66 Hardcoded image dimensions one for each of the anchor
methods.
(defvar org-odt-default-image-sizes-alist '(("as-char" 5 . 0.4) ("paragraph" 5 . 5)) (#$ . 8400))
#@44 Limiting dimensions for an embedded image.
(defvar org-odt-max-image-size '(17.0 . 20.0) (#$ . 8569))
#@771 Specify how labels are applied and referenced.
This is an alist where each element is of the form:
(STYLE-NAME ATTACH-FMT REF-MODE REF-FMT)
ATTACH-FMT controls how labels and captions are attached to an
entity. It may contain following specifiers - %e and %c. %e is
replaced with the CATEGORY-NAME. %n is replaced with
"<text:sequence ...> SEQNO </text:sequence>". %c is replaced
with CAPTION.
REF-MODE and REF-FMT controls how label references are generated.
The following XML is generated for a label reference -
"<text:sequence-ref text:reference-format="REF-MODE" ...>
REF-FMT </text:sequence-ref>". REF-FMT may contain following
specifiers - %e and %n. %e is replaced with the CATEGORY-NAME.
%n is replaced with SEQNO.
See also `org-odt-format-label'.
(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")) (#$ . 8678))
#@734 Map a CATEGORY-HANDLE to OD-VARIABLE and LABEL-STYLE.
This is a list where each entry is of the form:
(CATEGORY-HANDLE OD-VARIABLE LABEL-STYLE CATEGORY-NAME ENUMERATOR-PREDICATE)
CATEGORY_HANDLE identifies the captionable entity in question.
OD-VARIABLE is the OpenDocument sequence counter associated with
the entity. These counters are declared within
"<text:sequence-decls>...</text:sequence-decls>" block of
`org-odt-content-template-file'.
LABEL-STYLE is a key into `org-odt-label-styles' and specifies
how a given entity should be captioned and referenced.
CATEGORY-NAME is used for qualifying captions on export.
ENUMERATOR-PREDICATE is used for assigning a sequence number to
the entity. See `org-odt--enumerate'.
(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)) (#$ . 9673))
(defvar org-odt-manifest-file-entries nil)
#@53 Temporary work directory for OpenDocument exporter.
(defvar org-odt-zip-dir nil (#$ . 10874))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\302\312\306\301\313\314\315\316& \210\317\320!\210\310\321\322\323\315\324\306\301\313\314\325\326& \210\310\327\302\330\315\331\306\301\313\332& \210\310\333\302\334\306\301\313\314\315\335& \210\310\336\337\340\306\301\313\341\342\343\315\344& \210\310\345\346\347\306\301\313\314\315\350& \210\310\351\352\353\306\301\313\314\315\354& \210\310\355\356\357\306\301\313\314\315\360& \210\310\361\302\362\306\301\313\314\315\363& \210\364\361\365\366#\210\310\367\370\371\306\301\313\341\342\372\315\373& \210\310\374\375\376\306\301\313\341\342\377\315\373& \210\310\201@ \201A \201B \306\301\313\341\342\201C \315\373& \210\310\201D \201E \201F \306\301\313\341\342\201G \315\201H & \210\310\201I \201J \201K \306\301\313\341\342\201L \315\201M & \210\310\201N \201O \201P \306\301\313\341\342\201Q \315\201R & \210\310\201S \201T \201U \315\201V \306\301\313\341\342\201W & \210\310\201X \201Y \201Z \306\301\313\314\315\316& \210\310\201[ \201Y \201\\ \315\316\306\301\313\314& \210\310\201] \201^ \201_ \306\301\313\314\315\201` & \210\310\201a \302\201b \306\301\313\341\342\201c \315\316& \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 "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 (let* ((schema-dir (catch 'schema-dir (message "Debug (ox-odt): Searching for OpenDocument schema files...") (mapc (lambda (schema-dir) (when schema-dir (message "Debug (ox-odt): Trying %s..." schema-dir) (when (and (file-expand-wildcards (expand-file-name "od-manifest-schema*.rnc" schema-dir)) (file-expand-wildcards (expand-file-name "od-schema*.rnc" schema-dir)) (file-readable-p (expand-file-name "schemas.xml" schema-dir))) (message "Debug (ox-odt): Using schema files under %s" schema-dir) (throw 'schema-dir schema-dir)))) org-odt-schema-dir-list) (message "Debug (ox-odt): No OpenDocument schema files installed") nil))) schema-dir) "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 #[(var value) "\n\304\305\306 \"!\203\" \304\305\307 \"!\203\" \310\305\311 \"!\203\" \202, \203+ \312\313\"\210\314L\210) \2057 \315\316\317\"\207" [value schema-dir var 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 #[nil "\301\302\303\304\"\"\207" [org-odt-schema-dir add-to-list rng-schema-locating-files expand-file-name "schemas.xml"] 5]] 5 "Set `org-odt-schema-dir'.\nAlso add it to `rng-schema-locating-files'."] org-odt-content-template-file "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 "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 2 "Outline levels considered for enumerating captioned entities." "24.4" :package-version (Org . "8.0") integer org-odt-convert-processes '(("LibreOffice" "soffice --headless --convert-to %f%x --outdir %d %i") ("unoconv" "unoconv -f %f -o %d %i")) "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 "LibreOffice" "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 '(("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")))) "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 an typical\nconfiguration." (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 "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 (lambda (name contents) contents) "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." (Org . "8.3") function org-odt-format-headline-function 'ignore "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.0") org-odt-format-inlinetask-function 'ignore "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.0") org-odt-with-latex org-export-with-latex "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.\nt Synonym for `mathjax'." (Org . "8.0") (choice (const :tag "Do not process math in any way" nil) (const :tag "Use dvipng to make images" dvipng) (const :tag "Use imagemagick to make images" imagemagick) (const :tag "Use MathJax to display math" mathjax) (const :tag "Leave math verbatim" verbatim)) org-odt-inline-formula-rules '(("file" . "\\.\\(mathml\\|mml\\|odf\\)\\'")) "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 '(("file" . "\\.\\(jpeg\\|jpg\\|png\\|gif\\)\\'")) "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.0") (alist :key-type (string :tag "Type") :value-type (regexp :tag "Path")) org-odt-pixels-per-inch 96.0 "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 t "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\n`org-odt-fontify-srcblocks' is turned on." org-odt-fontify-srcblocks "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 '(("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)) "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\n`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 "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)
(defalias 'org-odt--format-timestamp #[(timestamp &optional end iso-date-p) "\306 ?\206\n \307 !\211\203 \310\202 \310 \f#) )\203%
\202=\n\203- \311\202. \312 *+\203E ,@\313\314O,A\313\314OB\202F \315 -\n\203R -A\202U -@ \f#* .\316 / 0/;\203t \317\3200/#\202| \321/A@0\"*\322 / 0/;\203\223 \317\3200/#\202\233 \321/A@0\"*\323 / 0/;\203\262 \317\3200/#\202\272 \321/A@0\"* 1 2 3\3243\325\"\203\315 \326\202\342 \3243\327\"\203\331 \330\202\342 \3243\331\"\205\342 \3322\205\353 \3332!\3241\334\"\203\367 \335\202$\3241\336\"\203\337\202$\3241\340\"\203\341\202$\3241\342\"\203\343\202$\3241\344\"\205$\345Q+ 4\303\346
*.$4\347\230?\2059\3504Q++\207" [format-timestamp timestamp has-time-p format end iso-date #[(timestamp format &optional end utc) "\203 \304 \n $\207\305 \306 #\207" [timestamp format end utc org-timestamp-format format-time-string nil] 5] 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 eql catchup "++" restart ".+" cumulate "+" number-to-string hour "h" day "d" week "w" month "m" year "y" "<text:date text:date-value=\"%s\" style:data-style-name=\"%s\" text:fixed=\"true\">%s</text:date>" "" " " iso-date-p style org-display-custom-times org-time-stamp-custom-formats formats date element property repeater-unit repeater-value repeater-type repeater] 7])
(defalias 'org-odt--frame #[(text width height style &optional extra anchor-type &rest title-and-desc) "\203 \306\307\"\202\f \310 \203 \306\311 \"\202 \310\n\306\312 \206 \313\"\306\314\315\316!@\"\260 \306\317
\f@A@ \211 \205H \306\320\321\322\"\"\205U \306\323\321\322\"\"P*P$)\207" [width height extra anchor-type frame-attrs style 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>" text title-and-desc desc title] 12])
(defalias 'org-odt--zip-extract #[(archive members target) ":\204 C\301\302\"\207" [members mapc #[(member) "\306\307!\210\310\211 !\311\n!\312\313\314\315 \257\316\211 \317\320! rq\210\321\216\303\n\"\322 +\f\323U?\205> \324
!\210\325\326!.\207" [--quote-file-name target archive archive-zip-extract exit-code command-output require arc-mode #[(name) "\303>\203 \304\301!\203 \204 \305\n!\207\n\207" [system-type w32-quote-process-args name (windows-nt ms-dos) boundp shell-quote-argument] 2] expand-file-name "unzip" "-qq" "-o" "-d" nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] buffer-string 0 message error "Extraction failed" #1# member] 6]] 3])
(defalias 'org-odt--target #[(text id) "\204 \207\302\303\"\302\304\" \302\305\"R\207" [id text format "\n<text:bookmark-start text:name=\"OrgXref.%s\"/>" "\n<text:bookmark text:name=\"%s\"/>" "\n<text:bookmark-end text:name=\"OrgXref.%s\"/>"] 6])
(defalias 'org-odt--textbox #[(text width height style &optional extra anchor-type) "\306\307\310\307\311\206\n \312\" ?\205 \307\313 \206 \314\"P\n# \315 \f
&\207" [height width text style extra anchor-type 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] 7])
(defalias 'org-odt-begin-toc #[(index-title depth) "\303\304 #\305\306\307\"\310\311\n\312#)\303\313 \"Q\207" [depth index-title levels format "\n <text:table-of-content text:style-name=\"OrgIndexSection\" text:protected=\"true\" text:name=\"Table of Contents\">\n <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 #[(level) "\301\302\211#\207" [level 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"] 4] "" "\n </text:table-of-content-source>\n\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 "] 5])
(defalias 'org-odt-end-toc #[nil "\300\301!\207" [format "\n </text:index-body>\n </text:table-of-content>\n"] 2])
#@101
(fn TODO TODO-TYPE PRIORITY TEXT TAGS &key LEVEL SECTION-NUMBER HEADLINE-LABEL &allow-other-keys)
(defalias 'org-odt-format-toc-headline #[(todo todo-type priority text tags &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\n\205 \n\312P\f\2054 \f
\235\203* \313\202+ \314 \315\316\f#)\205O \315\317\" \315\320\" \315\316#*\205b \315\321\322\323\324\325##\260\260\315\326 #+\207" [#1# level section-number headline-label todo org-done-keywords plist-member :level :section-number :headline-label ". " "OrgDone" "OrgTodo" format "<text:span text:style-name=\"%s\">%s</text:span> " "OrgPriority-%s" "[#%c]" " <text:span text:style-name=\"%s\">[%s]</text:span>" "OrgTags" mapconcat #[(tag) "\301\302\303#\207" [tag format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgTag"] 4] " : " "<text:a xlink:type=\"simple\" xlink:href=\"#%s\">%s</text:a>" style priority text tags] 11 (#$ . 35339)])
(defalias 'org-odt-toc #[(depth info) "\306!\204\n \307\310!\210\311\312\313 #\314 \306!\205 \"\315\316\317 \320\"\321H\f>\2042 \322\323\324\317 \320\"D\"\210\317 \320\"\325H\326\327\330\331C\"$ \205P \332\n\"\333\334 \335#\336 Q+\207" [depth info title headlines cl-struct-org-export-backend-tags backend wholenump cl--assertion-failed (wholenump depth) org-export-translate "Table of Contents" :utf-8 org-export-collect-headlines org-export-create-backend :parent plist-get :back-end 0 signal wrong-type-argument org-export-backend 1 :transcoders mapcar #[(type) "\301B\207" [type #[(d c i) "\207" [c] 1]] 2] radio-target org-odt-begin-toc mapconcat #[(headline) "\306 \n\307$\310\n\" \311\312\f\" \311\313
#+\207" [headline backend info entry level style 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>"] 5] "\n" org-odt-end-toc] 8])
#@408 Create an automatic style of type OBJECT-TYPE with param OBJECT-PROPS.
OBJECT-PROPS is (typically) a plist created by passing
"#+ATTR_ODT: " option of the object in question to
`org-odt-parse-block-attributes'.
Use `org-odt-object-counters' to generate an automatic
OBJECT-NAME and STYLE-NAME. If OBJECT-PROPS is non-nil, add a
new entry in `org-odt-automatic-styles'. Return (OBJECT-NAME
. STYLE-NAME).
(defalias 'org-odt-add-automatic-style #[(object-type &optional object-props) ";\204 \306\307!\210\310!\211\311 \n\"\206 \312T \313\314\f# \315 \316 \n\f#\203G \313\317
\"\316 \320DC\311 \"\"#
-B\207" [object-type object seqvar org-odt-object-counters seqno object-name cl--assertion-failed (stringp object-type) intern plist-get 0 format "%s%d" nil plist-put "Org%s" append style-name object-props org-odt-automatic-styles] 9 (#$ . 37252)])
#@45 Return check-box string associated to ITEM.
(defalias 'org-odt--checkbox #[(item) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\211\204! \310\202C \311\312\313\314 \315\"\203/ \316\202B \314 \317\"\203: \320\202B \314 \321\"\205B \322#)\207" [item element property checkbox :checkbox get-text-property 0 plist-get "" format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode" eql on "[✓] " off "[ ] " trans "[-] "] 7 (#$ . 38132)])
(defalias 'org-odt--build-date-styles #[(fmt style) "\205\227 \205\227 \306\307\310\311\312\313\n\"\314# \307\211 \315\211 \307\211 \307 !\316\317\320\"\210\321\f #\203u \322\315\"\323
\n\" \315\225 \315\224 \315\225 O\211 \324\230?\205d \325\326\327 !\" !\330 \330 \260!\202. \307O\211 \324\230\204\216 !\325\331\327 !\"P!\325\332 \333!$.\n\207" [fmt style fmt-alist case-fold-search re match (("%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 mapc #[(pair) "\302@A \303\211%\211\207" [pair fmt replace-regexp-in-string t] 6] (("\\(?:%[[: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#)) 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\"" rpl start filler-beg filler-end filler output] 6])
#@179 Return complete document string after ODT conversion.
CONTENTS is the transcoded contents string. RAW-DATA is the
original parsed data. INFO is a plist holding export options.
(defalias 'org-odt-template #[(contents info) "\306\307\310\"\"\307\311\"\211\204 \312\202 \306 \")\307\313\"\307\314\"\307\315\" \316\317\320\321 \"\320\322 \"\307\323\"\205\205 \307\324\"\211 @A?\205n @@\211 A:\204[ A;\205e \325\202e A@9\205e A@)\326=\205n @@) @\327@\330\331# \320\332\"\320\333\"P*\320\334\307\335\"\211 B\203\230 B\336=\203\234 \312\202\240 \307\337\")\"\320\340 \"\320\341\n\"\320\342
\"\343\344\345\260 \330C\346P#\210\347\350\346\"\210-\307\351\"\211 D\205\320 \352\353D!!\211 D\206\346 E\206\346 \354\355F\"\206\346 \356\357!\211 D<\203 D@DA@ G H\360HGC#\210\361\362G\"\210*\202JD;\203D\363D!\203D\364D!\211 I\365\230\2031\366DC\367P\370#\210\202@I\371\235\203@\360D\367C#\210)\202J\356\372E\"\210\347\350\367\"\210r\373C\367P\370\"q\210\374\370\211\"\210\375\376J\312#\211 K\203\206eb\210\377\201b \330\370#\203\206\201c \224b\210\201d K\343\261\210)\201e \201L !\210\370Leb\210\201f \201g M N\377N\330\370#\203\340\307\201h \"\201i \201j \201k !! O P\201l P!\203\316OPX\202\320P*\204\237\201m M\370\330#\210\202\237*\201n \201c !\210,Q\203R@\201o \201p ORA\201o \201p OB\202\n\201q S\201r \201s ! TrTq\210\201t \216\201u U\206-\354\201v F\"!\210eb\210\377\201w \330\370#\210\201c \224b\210\307V\201x \" W\330\211 X Y\330 ZW:\203\220W@\211Z\211AZ\242XZ@Y\307Y\201y \"\206w\201z \211Y\203\207\320[XY#c\210WA\211W\202T,\\\203\255\201{ S@\201| \"\201{ SA\201} \"\261\210eb\210\377\201~ \330\370#\203\307\201c \224\377\201 \330\211#|\210\320\201\200 \375\201\201 ]\343#\"c\210eb\210\377\201\202 \330\211#\210\201c \224b\210\306\307\310\"\" \307\201\203 \"\205\307\311\"\211 ^\205\306^\")\307\313\" \307\201\203 \"\205 \206 \f\307\201\204 \"\205'\f \201\205
!\205B\320\201\206 \201\207 \320\201\210
\"#\201\211 P \203_\f\204_\320\201\206 \201\212 \320\201\213 \"#\201\214 P\202\203 \205\203\f\205\203\320\201\206 \201\212 \320\201\215 \201\216 \fP\320\201\213 \"##\201\214 P\307\323\"\205\345\307\324\"\211 @A?\205\275@@\211 A:\204\252A;\205\264\325\202\264A@9\205\264A@)\326=\205\275@@ \320\201\206 \201\212 \\\203\330\203\330\327@@!\202\337\306\307\324\"\"#\201\217 P*Q-c\210\307\201\220 \"\211 _\205 \201l _!\203_\202 \307\201\221 \"\211 `\203 \201\222 `\"\206\312c\210*ac\210\201\223 ed\",\207" [info author description keywords email title org-export-data plist-get :title :author "" :email :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" :with-creator comment :creator "<meta:keyword>%s</meta:keyword>\n" "<dc:subject>%s</dc:subject>\n" "<dc:title>%s</dc:title>\n" "\n" " </office:meta>\n" "</office:document-meta>" "meta.xml" org-odt-create-manifest-file-entry "text/xml" :odt-styles-file read org-trim expand-file-name "OrgOdtStyles.xml" error "org-odt: Missing styles file?" org-odt--zip-extract mapc #[(member) "\303!\205 \304!\305\306 \"\307\n\"*\207" [member image-type media-type org-file-image-p file-name-extension format "image/%s" org-odt-create-manifest-file-entry] 3] file-exists-p file-name-extension "xml" copy-file "styles.xml" t ("odt" "ott") "Invalid specification of styles.xml file: %S" find-file-noselect revert-buffer mapconcat #[(style) "\301\302AA\"\207" [style format " %s\n"] 3] re-search-forward date element creator-info org-odt-zip-dir styles-file org-odt-styles-file org-odt-styles-dir members archive styles-file-type hfy-user-sheet-assoc styles backup-inhibited replacement regex level sec-num org-display-custom-times org-time-stamp-custom-formats custom-time-fmts #1=#:temp-buffer org-odt-content-template-file org-odt-automatic-styles #2=#:--cl-var-- style-name props #3=#:--cl-var-- org-odt-table-style-format org-odt-use-date-fields org-odt-category-map-alist auth with-toc depth contents "</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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents "OrgOdtContentTemplate.xml" " </office:automatic-styles>" Table :rel-width "96" org-odt--build-date-styles "OrgDate1" "OrgDate2" "<text:sequence-decls" "</text:sequence-decls>" "\n<text:sequence-decls>\n%s\n</text:sequence-decls>" #[(x) "\302\303 A@#\207" [org-odt-display-outline-level x format "<text:sequence-decl text:display-outline-level=\"%d\" text:name=\"%s\"/>"] 4] "</office:text>" :with-author :with-email org-string-nw-p "\n<text:p text:style-name=\"%s\">%s</text:p>" "OrgTitle" "\n<text:title>%s</text:title>" "\n<text:p text:style-name=\"OrgTitle\"/>" "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] 13 (#$ . 40716)])
#@121 Transcode BOLD from Org to ODT.
CONTENTS is the text with bold markup. INFO is a plist holding
contextual information.
(defalias 'org-odt-bold #[(bold contents info) "\301\302\303#\207" [contents format "<text:span text:style-name=\"%s\">%s</text:span>" "Bold"] 4 (#$ . 46818)])
#@149 Transcode a CENTER-BLOCK element from Org to ODT.
CONTENTS holds the contents of the center block. INFO is a plist
holding contextual information.
(defalias 'org-odt-center-block #[(center-block contents info) "\207" [contents] 1 (#$ . 47106)])
#@111 Transcode a CLOCK element from Org to ODT.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-odt-clock #[(clock contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"* \313\314\315
\"\211:\204G ;\205O \316\202O @9\205O @)\300=\203Y \317\202Z \320\313\321\322#\323\f
# \205n \313\324 \"Q#*\207" [clock element property duration timestamp info :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 "OrgClock" "OrgClockLastLine" "<text:span text:style-name=\"%s\">%s</text:span>" "OrgClockKeyword" org-odt-timestamp " (%s)" org-clock-string contents] 9 (#$ . 47360)])
#@109 Transcode a CODE object from Org to ODT.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-odt-code #[(code contents info) "\303\304\305\306\307 ;\203 \310\311\n #\202 \312 A@\n\"*!#\207" [code element property format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode" org-odt--encode-plain-text :value get-text-property 0 plist-get] 8 (#$ . 48111)])
#@136 Transcode a DRAWER element from Org to ODT.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-odt-drawer #[(drawer contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\f
\")\207" [drawer element property name org-odt-format-drawer-function contents :drawer-name get-text-property 0 plist-get] 5 (#$ . 48516)])
#@167 Transcode a DYNAMIC-BLOCK element from Org to ODT.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information. See `org-export-data'.
(defalias 'org-odt-dynamic-block #[(dynamic-block contents info) "\207" [contents] 1 (#$ . 48900)])
#@130 Transcode an ENTITY object from Org to ODT.
CONTENTS are the definition itself. INFO is a plist holding
contextual information.
(defalias 'org-odt-entity #[(entity contents info) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [entity element property :utf-8 get-text-property 0 plist-get] 4 (#$ . 49174)])
#@118 Transcode a EXAMPLE-BLOCK element from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-example-block #[(example-block contents info) "\302 \"\207" [example-block info org-odt-format-code] 3 (#$ . 49493)])
#@118 Transcode a EXPORT-SNIPPET object from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-export-snippet #[(export-snippet contents info) "\303!\304=\205 \305 ;\203 \306\307\n #\202 \310 A@\n\"*\207" [export-snippet element property org-export-snippet-backend odt :value get-text-property 0 plist-get] 4 (#$ . 49755)])
#@117 Transcode a EXPORT-BLOCK element from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-export-block #[(export-block contents info) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\307\230\2057 \310\311 ;\203/ \304\305\n #\2025 \306 A@\n\"*!\207" [export-block element property :type get-text-property 0 plist-get "ODT" org-remove-indentation :value] 5 (#$ . 50134)])
#@116 Transcode a FIXED-WIDTH element from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-fixed-width #[(fixed-width contents info) "\303\304 ;\203 \305\306\n #\202 \307 A@\n\"*!\207" [fixed-width element property org-odt-do-format-code :value get-text-property 0 plist-get] 5 (#$ . 50557)])
#@123 Transcode a FOOTNOTE-REFERENCE element from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-footnote-reference #[(footnote-reference contents info) "\306\307\310\n \"\211 \211 :\204
;\205! \311\202!
@9\205!
@)\302=\205, \312\313\314\315#)\316\n \" \317\n \"\204A !\202\217 \320\n \" \321\322 \323\324\325\326\327\325\211\211\211& #! \211 :\204l
;\205t \311\202t
@9\205t
@)\330=\203 \202\205 \312\331\332 #) \"*)P*\207" [--format-footnote-reference --format-footnote-definition footnote-reference info prev element #[(n def) "\305\306\"\307P\310\311\305\312 \n\305\313\"\305\314\f\"P$+\207" [n par-style note-class id def format "%d" "fn" "footnote" "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>"] 8] #[(n) "\304\305\"\306\307\310P\304\311\312\304\313 \n %#+\207" [n ref-name ref-format note-class 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>"] 9] org-export-get-previous-element plain-text format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgSuperscript" "," org-export-get-footnote-number org-export-footnote-first-reference-p org-export-get-footnote-definition org-trim org-export-data-with-backend vector cl-struct-org-export-backend nil odt ((paragraph lambda (p c i) (org-odt--format-paragraph p c i "Footnote" "OrgFootnoteCenter" "OrgFootnoteQuotations"))) org-data "\n<text:p text:style-name=\"%s\">%s</text:p>" "Footnote" n raw def] 14 (#$ . 50905)])
#@101
(fn TODO TODO-TYPE PRIORITY TEXT TAGS &key LEVEL SECTION-NUMBER HEADLINE-LABEL &allow-other-keys)
(defalias 'org-odt-format-headline #[(todo todo-type priority text tags &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\f\205- \f
\235\203# \312\202$ \313 \314\315\f#)\205H \314\316\" \314\317\" \314\315#*\205[ \320\314\321\322\323\324\325##PR+\207" [#1# level section-number headline-label todo org-done-keywords plist-member :level :section-number :headline-label "OrgDone" "OrgTodo" format "<text:span text:style-name=\"%s\">%s</text:span> " "OrgPriority-%s" "[#%c]" "<text:tab/>" "<text:span text:style-name=\"%s\">[%s]</text:span>" "OrgTags" mapconcat #[(tag) "\301\302\303#\207" [tag format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgTag"] 4] " : " style priority text tags] 11 (#$ . 52653)])
#@93 Transcode a HEADLINE element using BACKEND.
INFO is a plist holding contextual information.
(defalias 'org-odt-format-headline--wrap #[(headline backend info &optional format-function &rest extra-keys) "\206 \306 \307\"\310\n \"\311\\\312\n \" \313\n \"\205! \314\315\f\316# \306 \317\"\205U \320\n # $#;\203? \321\311$##\202G \306#A@$\"*\211 %\205T \322% #)\211 %\205z \323\n # $#;\203q \321\311$##\202y \306#A@$\"* &\306 \324\"\205\242 \325\n # $#;\203\231 \321\311$##\202\241 \306#A@$\"* '\322\326\n # $#;\203\273 \321\311$##\202\303 \306#A@$\"* # (\306 \327\"\205\324 \330\n \" )\331\314\315\f\332#P *\333+!\203\353 +\202\367 ,\334=\204\366 \335\202\367 \336 +\337+%&'()\340*\341 \342
-&
.\n\207" [backend info headline level headline-number section-number 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 "sec-" "-" functionp ignore #[(todo todo-type priority text tags &allow-other-keys) " \n \f
%\207" [org-odt-format-headline-function todo todo-type priority text tags] 6] org-odt-format-headline apply :headline-label :level :section-number element property todo todo-type priority text tags headline-label format-function org-odt-format-headline-function extra-keys] 15 (#$ . 53512)])
#@141 Transcode a HEADLINE element from Org to ODT.
CONTENTS holds the contents of the headline. INFO is a plist
holding contextual information.
(defalias 'org-odt-headline #[(headline contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*?\205D\312\313 ;\203. \307\310\n #\2024 \311 A@\n\"* \" \314\315 # \316 \" /\317\320\321\322 \"\323#P 0\324 ;\203a \307\310\n #\202g \311 A@\n\"*\325 ;\203y \307\310\n #\202 \311 A@\n\"*D 1\320\3261\327# 2\330
0\" 3\331 \"\2030\332 \"\205\311 \333\334\335 \"\203\255 \336\202\256 \337\333\340\341!\211 4\203\305 \3314 \"\203\305 \342\202\306 \343)\"#\344\211:\204\325 \315\202\342 @9\203\341 AA\202\342 )\236 $\345$\205$\211:\204\370 \315\202 @9\203 AA\202 )\236) 5\333\346\333\347\35023P#6P5\203!\351\202\"\352#)\353 \"\205,\354Q\202B\333\355\333\356/\"/23P$6P.\207" [headline element property info text full-text :footnote-section-p get-text-property 0 plist-get org-export-data :title org-odt-format-headline--wrap nil org-export-get-relative-level "sec-" mapconcat number-to-string org-export-get-headline-number "-" :CUSTOM_ID :ID #[(x) "\205 \301!\203 \302P\202 \303\304\305!\")\207" [x org-uuidgen-p "ID-" org-odt--target #1="" org-export-solidify-link-text] 4] #1# org-odt--target org-export-low-level-p org-export-first-sibling-p format "\n<text:list text:style-name=\"%s\" %s>" org-export-numbered-headline-p "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\">%s</text:h>" "Heading_20_%s" level id extra-ids extra-targets anchored-title parent headline-has-table-p contents] 9 (#$ . 55004)])
#@121 Transcode an HORIZONTAL-RULE object from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-horizontal-rule #[(horizontal-rule contents info) "\300\301\302\303#\207" [format "\n<text:p text:style-name=\"%s\">%s</text:p>" "Horizontal_20_Line" ""] 4 (#$ . 56928)])
#@104 Return a character not used in string S.
This is used to choose a separator for constructs like \verb.
(defalias 'org-odt--find-verb-separator #[(s) "\306\211\307\310\311 \310 \nT\211 GW\2034 \nH\312\313\314 !!
\"\2040 \314 !\310\211\2021 \311\204\f
.\207" [ll #1=#:--cl-vec-- #2=#:--cl-idx-- c #3=#:--cl-var-- #4=#:--cl-var-- "~,./?;':\"|!@#%^&-_=+abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ<>()[]{}" -1 nil t string-match regexp-quote char-to-string s] 5 (#$ . 57245)])
#@146 Transcode an INLINE-SRC-BLOCK element from Org to ODT.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-odt-inline-src-block #[(inline-src-block contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203* \307\310\n #\2020 \311 A@\n\"* \313\f! \314\315!+\207" [inline-src-block element property org-lang code separator :language get-text-property 0 plist-get :value org-odt--find-verb-separator error "FIXME"] 4 (#$ . 57745)])
#@141 Transcode an INLINETASK element from Org to ODT.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-odt-inlinetask #[(inlinetask contents info) "\305=\204 \306\307\n\310 \311\f&)\207\312\313\314\315\312\313\316\307\n\310 ##\fP\310\211\317\320%#\207" [org-odt-format-inlinetask-function format-function inlinetask info contents ignore #[(todo todo-type priority text tags &rest #1=#:--cl-rest--) "\306\307\"A@\n \f
&)\207" [#1# contents org-odt-format-inlinetask-function todo todo-type priority plist-member :contents text tags] 7 "\n\n(fn TODO TODO-TYPE PRIORITY TEXT TAGS &key CONTENTS &allow-other-keys)"] org-odt-format-headline--wrap nil :contents format "\n<text:p text:style-name=\"%s\">%s</text:p>" "Text_20_body" org-odt--textbox "OrgInlineTaskHeading" "OrgInlineTaskFrame" " style:rel-width=\"100%\""] 11 (#$ . 58252)])
#@125 Transcode ITALIC from Org to ODT.
CONTENTS is the text with italic markup. INFO is a plist holding
contextual information.
(defalias 'org-odt-italic #[(italic contents info) "\301\302\303#\207" [contents format "<text:span text:style-name=\"%s\">%s</text:span>" "Emphasis"] 4 (#$ . 59157)])
#@134 Transcode an ITEM element from Org to ODT.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-odt-item #[(item contents info) "\306 \n;\203 \307\310 \n#\202 \311\nA@ \"+ \312\f\n;\203, \307\310 \n#\2022 \311\nA@ \"* \313\n;\203E \307\310 \n#\202K \311\nA@ \"* \314\n;\203_ \307\310 \n#\202e \311\nA@ \"*\211 \205v \315!\316\"P) \317
\320\"\203\231 \321\322\323\211 \"\203\223 \324\202\224 \325)#\202\235 \326\327
\",\207" [item blob element property plain-list type :parent get-text-property 0 plist-get :type :counter :tag org-odt--checkbox org-export-data memql (ordered unordered descriptive-1 descriptive-2) format "\n<text:list-item>\n%s\n%s" #[(element info) "\211:\204 \305\202 @9\203 AA\202 )\305\306\305 :\203R @\211\211:\2048 ;\205@ \307\202@ @9\205@ @)\310=\211?\211\203R A\211\202! \f,\207" [element #1=#:--cl-var-- el #2=#:--cl-flag-- #3=#:--cl-var-- nil t plain-text table] 3] "</text:list-header>" "</text:list-item>" error "Unknown list type: %S" counter tag info contents --element-has-a-table-p] 7 (#$ . 59457)])
#@112 Transcode a KEYWORD element from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-keyword #[(keyword contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"*\211 \313\230\203< \202\204 \f\314\230\203F \315\202\204 \f\316\230\205\204 \227\317\320 \"\203| \317\321 \"\203f \322\323\310 \"!\206j \311
\324\" \325!\205x \326
\")\202\203 \327\235\205\203 \315)*\207" [keyword element property value key info :key get-text-property 0 plist-get :value "ODT" "INDEX" nil "TOC" string-match "\\<headlines\\>" "[0-9]+" string-to-number match-string :with-toc wholenump org-odt-toc ("tables" "figures" "listings") depth] 6 (#$ . 60600)])
#@122 Transcode a LATEX-ENVIRONMENT element from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-latex-environment #[(latex-environment contents info) "\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*!\311 !)\207" [latex-environment element property latex-frag org-remove-indentation :value get-text-property 0 plist-get org-odt-do-format-code] 5 (#$ . 61342)])
#@118 Transcode a LATEX-FRAGMENT object from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-latex-fragment #[(latex-fragment contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\311\f\312\" \313\314\315\316 \317\"#*\207" [latex-fragment element property latex-frag info processing-type :value get-text-property 0 plist-get :with-latex format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode" org-odt--encode-plain-text t] 6 (#$ . 61756)])
#@114 Transcode a LINE-BREAK object from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-line-break #[(line-break contents info) "\300\207" ["<text:line-break/>"] 1 (#$ . 62267)])
(defalias 'org-odt--enumerate #[(element info &optional predicate n) "\203 \n\"\204 \306\307!\210\310\311
\206 \n# \f \n$ \2056 \312\313\314\n\"\315#\205< \315\313!Q,\207" [predicate element info --numbered-parent-headline-at-<=-n --enumerate n cl--assertion-failed (funcall predicate element info) #[(element n info) "\306!\307\310\307 :\203Q @\211\211:\204\" ;\205* \311\202* @9\205* @)\312=\205B \313\n
\"
X\205B \314\n
\"\205B \n\211?\211\203Q A\211\202 \f,\207" [element #1=#:--cl-var-- x #2=#:--cl-flag-- #3=#:--cl-var-- info org-export-get-genealogy nil t plain-text headline org-export-get-relative-level org-export-numbered-headline-p n] 4] #[(element scope info &optional predicate) "\304\305 \206 \306\n\307\" \211:\204 ;\205# \310\202# @9\205# @)\311\n\312%)\207" [counter scope info element 0 org-element-map plist-get :parse-tree plain-text #[(el) "\203 \n\"\205 T\211\205 \f =\205 \207" [predicate el info counter element] 3] first-match] 7] mapconcat number-to-string org-export-get-headline-number "." org-odt-display-outline-level scope ordinal] 6])
#@388 Return a label for ELEMENT.
ELEMENT is a `link', `table', `src-block' or `paragraph' type
element. INFO is a plist used as a communication channel. OP is
either `definition' or `reference', depending on the purpose of
the generated string.
Return value is a string if OP is set to `reference' or a cons
cell like CAPTION . SHORT-CAPTION) where CAPTION and
SHORT-CAPTION are strings.
(defalias 'org-odt-format-label #[(element info op) "\211:\204 ;\205 \306\202 @9\205 @)\307>\204\" \310\311!\210\211:\2042 ;\205: \306\202: @9\205: @)\312 \313\"\203I \314!\202J )\315\n;\203] \316\317 #\202c \320A@ \"* \321\n!\211 \205r \322
;\" \323 <\f\204~
\205\352\211:\204\216 ;\205\226 \306\202\226 @9\205\226 @) =\312=\324\"\203\245 \325\202 \312=\326\"\203\261 \327\202 \330=\331\"\203\344 \332;\"\203\305 \333\202 \334;\"\203\321 \335\202 \336;\"\203\335 \337\202 \340\341\"\202 \340\342\211:\204\366 ;\205\376 \306\202\376 @9\205\376 @)\") #\323 >#\204\310\343!\210\344#?\"\211 @G\345U\203(@\211A@\242\2020\346\347\323@GD\" A@\211A@\242 B@\211A@\242 C@@ D\350;D#>\351C\352;#C\312E\353\"\203\243\354\f\206o\355\356#>#!\355\357\f\"\360\351\361BF\362#A@\352;#\363CB\364\355\365\fA\211>%B\366
\206\231\367BE\"P<B\202\350\312E\370\"\203\343\f\204\263\310\304!\210\354\f!\361BF\362#AA\211 G@ HGA@ I\355\371H\f\360I\363CB\364>BD\"$+\202\350\340\372E\".-\207" [element #1=#:temp caption-from property label caption plain-text #2=(link table src-block paragraph) cl--assertion-failed (memq (org-element-type element) '#2#) eql link org-export-get-parent-element :name get-text-property 0 plist-get org-export-get-caption org-export-data nil 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 4 signal wrong-number-of-arguments org-odt--enumerate org-export-translate :utf-8 definition org-export-solidify-link-text format "%s-%s" "\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 "" reference "<text:sequence-ref text:reference-format=\"%s\" text:ref-name=\"%s\">%s</text:sequence-ref>" "Unknown %S on label" info short-caption #3=#:temp seqno org-odt-category-map-alist #4=#:--cl-rest-- counter label-style category predicate op org-odt-label-styles fmt fmt1 fmt2] 12 (#$ . 63624)])
#@39 Returns the internal name of the file
(defalias 'org-odt--copy-image-file #[(path) "\306!\307\310 \"\311\307\312 \fT\211 $ \313\314\315!
#\210\f\316U\203/ \317 P!\210\320\321 \"\210\322
P\323#\210\320\n
\"\210
,\207" [path image-type media-type target-dir org-odt-embedded-images-count target-file 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 org-odt-zip-dir] 5 (#$ . 66347)])
(defalias 'org-odt--image-size #[(file &optional user-width user-height scale dpi embed-as) "\306\307\n\206 \f\206 \310 ?\205 ?\205\" \211 \205* ?\205\213 \311\312!\203` \313\314\315 \"! !\316\317!\"\205T \320\321\322!\"!\320\321\323!\"!B) \" \"\n\")\206\213 \3241r \325 \210\326\327 !\330\"0\202t \210\331 \" \"\n\")\206\213 \332
#\"A\206\213 \333\334!\211 $@ %$A & \203\254 % _%& _&\202\352 \203\301 \203\301 % &\202\352 \203\327 %&\245_% &\202\352 \203\352 &%\245_& %'@'A ( )%)V\204&(V\203')%\245 *(&\245 +*+^\211 %_% &_&+*%&. B\207" [--pixels-to-cms --size-in-cms dpi org-odt-pixels-per-inch embed-as anchor-type #[(pixels dpi) "\304 \245\211\n_*\207" [pixels dpi inches cms-per-inch 2.54] 4] #[(size-in-pixels dpi) "\205 @\n\" A\n\"B\207" [size-in-pixels --pixels-to-cms dpi] 4] "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" scale user-width user-height file dim size-in-pixels org-odt-default-image-sizes-alist size width height org-odt-max-image-size max-height max-width scale1 scale2] 6])
#@135 Return ODT code for an inline image.
LINK is the link pointing to the inline image. INFO is a plist
used as a communication channel.
(defalias 'org-odt-link--inline-image #[(element info) "\211:\204 ;\205 \306\202 @9\205 @)\307=\204\" \310\311!\210\312;\2033 \313\314 #\2029 \315A@ \"*\316;\203L \313\314 #\202R \315A@ \"*\n\317\235\203a \n\320 Q\202n \321 !\203m \322 !\202n * \321\f!\203z \f\202\203 \322\f\323\315
\324\"!\" 4\325\326\3274!\" 5\211:\204\236 ;\205\246 \306\202\246 @9\205\246 @) 6\3306\307\"\203\267 \331!\202\270 ) 7\332\3337\" 8\334\3158\335\"\336\337#@\211 9\205\327 \3158\340\" :9\205\343 \3158\341\" ;:;9E <\3424\3158\343\"\211 =\205 \344=!)\3158\345\"\211 >\205\344>!)\3158\346\"\211 ?\205 \344?!)\347\350&\211 @@ =@A A\351
\"\211 B\203>\350\202?\352 C\353
\354#\211 D@ EDA FE\205W\355C\356Q G\357B\204g\202j\331!;\203y\313\314 #\202\315A@ \"*\211 H\205\244\360\361H\211:\204\231;\205\241\306\202\241@9\205\241@)!! IH\205\304\362H;\203\275\313\314 #\202\303\315A@ \"* J\363G5=AD<IJ&.\207" [element property type raw-path src info 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 eql 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 src-expanded href #1=#:temp attr-from attr-plist user-frame-anchor user-frame-style user-frame-attrs user-frame-params width length scale size height standalone-link-p embed-as captions caption short-caption entity replaces title desc] 10 (#$ . 68237)])
(defalias 'org-odt-link--inline-formula #[(element info) "\306;\203 \307\310 #\202 \311A@ \"*\312;\203* \307\310 #\2020 \311A@ \"*\313 !\203> \314 !\202? * \313\f!\203K \f\202T \314\f\315\311
\316\"!\" $\317\320\321\315\322$!!# %\323
\"\211 &\203p \324\202q \325 '\326
\327#\211 (@ )(A *\330&\204\215 \202\220 \331!;\203\237 \307\310 #\202\245 \311A@ \"*\211 +\205\312 \332\333+\211:\204\277 ;\205\307 \334\202\307 @9\205\307 @)!! ,+\205\352 \335+;\203\343 \307\310 #\202\351 \311A@ \"* -\336\211 . /'\325=\203\f\337\340%./\336\211,-&\2022\337\341%./(\336,-& 0\342 1\326
\327#@) 20\3432Q*.
\207" [element property type raw-path src info :type get-text-property 0 plist-get :path 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 org-odt--render-image/formula "InlineFormula" "CaptionedDisplayFormula" (("__MathFormula__" "Text" "math-label" "Equation" org-odt--enumerable-formula-p)) "<text:tab/>" src-expanded href standalone-link-p embed-as captions caption short-caption replaces title desc width height equation org-odt-category-map-alist label] 10])
#@39 Returns the internal name of the file
(defalias 'org-odt--copy-formula-file #[(src-file) "\306\307T\211\"\211\310P\311 P!\210\312\313 \314#\210\315\316\f\n#\210\317 \320\321\f\"\2032 \322\f \nP\323#\210\202I \320\324\f\"\203D \325\f\310 P#\210\202I \326\327\f\"\210)\312\330\n\"\210\n*\207" [org-odt-embedded-formulas-count target-dir target-file org-odt-zip-dir src-file case-fold-search 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..." nil string-match "\\.\\(mathml\\|mml\\)\\'" copy-file overwrite "\\.odf\\'" org-odt--zip-extract error "%s is not a formula file" "text/xml"] 6 (#$ . 71816)])
(defalias 'org-odt--render-image/formula #[(cfg-key href width height &optional captions user-frame-params &rest title-and-desc) "\306 @ A\307\f\310#\211 A@ \311
8 \312 \n\204> \"\313\314\315 \"%\202\201 \"\316!\211 A A@ \205[ \317\320 \"P\240\210 )\313\321\317\322\323\313\314\315 \"%\nP#%.\207" [frame-cfg-alist captions caption short-caption cfg-key frame-cfg (("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 #[(default user) "\204 \207 G\306U\204 \307\310!\210G\306U\204 \307\311!\210\312 \312\211 \n:\203J \n@\f:\203J \f@ \206<
B \nA\fA\202' \237-\207" [user default #1=#:--cl-var-- u #2=#:--cl-var-- d 3 cl--assertion-failed (= (length default) 3) (= (length user) 3) nil #3=#:--cl-var--] 3 "Merge default and user frame params."] 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" inner outer user-frame-params user --merge-frame-params href width height title-and-desc frame-params] 14])
(defalias 'org-odt--enumerable-p #[(element info) "\302;\203 \303\304 #\202 \305A@ \"*\2063 \306;\203, \303\304 #\2022 \305A@ \"*\207" [element property :caption get-text-property 0 plist-get :name] 4])
(defalias 'org-odt--enumerable-image-p #[(element info) "\302 \303\304$\207" [element info org-odt--standalone-link-p #[(p) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*?\205O \307 ;\203- \304\305\n #\2023 \306 A@\n\"*\206O \310 ;\203H \304\305\n #\202N \306 A@\n\"*\207" [p element property :replaces get-text-property 0 plist-get :caption :name] 4] #[(l) "\211:\204 ;\205 \303\202 @9\205 @)\304=\204\" \305\306!\210\307\n\"\207" [l element org-odt-inline-image-rules plain-text link cl--assertion-failed (eq (org-element-type l) 'link) org-export-inline-image-p] 4]] 5])
(defalias 'org-odt--enumerable-latex-image-p #[(element info) "\302 \303\304$\207" [element info org-odt--standalone-link-p #[(p) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\205N \307 ;\203, \304\305\n #\2022 \306 A@\n\"*\206N \310 ;\203G \304\305\n #\202M \306 A@\n\"*\207" [p element property :replaces get-text-property 0 plist-get :caption :name] 4] #[(l) "\211:\204 ;\205 \303\202 @9\205 @)\304=\204\" \305\306!\210\307\n\"\207" [l element org-odt-inline-image-rules plain-text link cl--assertion-failed (eq (org-element-type l) 'link) org-export-inline-image-p] 4]] 5])
(defalias 'org-odt--enumerable-formula-p #[(element info) "\302 \303\304$\207" [element info org-odt--standalone-link-p #[(p) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\2063 \307 ;\203, \304\305\n #\2022 \306 A@\n\"*\207" [p element property :caption get-text-property 0 plist-get :name] 4] #[(l) "\211:\204 ;\205 \303\202 @9\205 @)\304=\204\" \305\306!\210\307\n\"\207" [l element org-odt-inline-formula-rules plain-text link cl--assertion-failed (eq (org-element-type l) 'link) org-export-inline-image-p] 4]] 5])
#@514 Test if ELEMENT is a standalone link for the purpose ODT export.
INFO is a plist holding contextual information.
Return non-nil, if ELEMENT is of type paragraph satisfying
PARAGRAPH-PREDICATE and its sole content, save for whitespaces,
is a link that satisfies LINK-PREDICATE.
Return non-nil, if ELEMENT is of type link satisfying
LINK-PREDICATE and its containing paragraph satisfies
PARAGRAPH-PREDICATE in addition to having no other content save for
leading and trailing whitespaces.
Return nil, otherwise.
(defalias 'org-odt--standalone-link-p #[(element info &optional paragraph-predicate link-predicate) "\211:\204 ;\205 \306\202 @9\205 @)\307 \310\"\203% \202T \307 \311\"\203S \n\2036 \n!\205T \312 ;\203I \313\314\f#\202O \315A@\f\"+\202T \316)\211 \205
\211:\204j ;\205r \306\202r @9\205r @)\310=\205\203\204
!\205
\211:\204\217 \316\202\234 @9\203\233 AA\202\234 )\211 \316 \314 \317 :\203@\211\211:\204\306 ;\205\316 \306\202\316 @9\205\316 @) \307\306\"\203\341 \320!?\202 \307\311\"\203\377 \n\203\364 \n!\205 T\211\321U\202 \316)\211\203A\211\202\255 \205\317-)\207" [element #1=#:temp link-predicate blob property p plain-text eql paragraph link :parent get-text-property 0 plist-get nil t org-string-nw-p 1 paragraph-predicate contents #2=#:--cl-var-- x inline-image-count #3=#:--cl-flag-- #4=#:temp] 5 (#$ . 76353)])
(defalias 'org-odt-link--infer-description #[(destination info) "\306!\307 !\211:\204 ;\205 \310\202 @9\205 @) \311\f\312\"\2037 \313\314\315\316\317
\"\320#\"\202` \311\f\321\"\203\\ \322 + ;\203Q \323\324+ #\202X \325 A@+\"*\202` \326\327\") ,\n -\330 .\331 /-:\203\252 -@\211:\204\204 ;\205\214 \310\202\214 @9\205\214 @)\332=\203\235 -/\331\211.\202\236 \330\203\252 -A\211-\202n /+\211 0 1\331\211 2 \331\211 3 41:\20301\2112\211A2\2422\211A2\2423\211:\204\352 ;\205\362 \310\202\362 @9\205\362 @)\332=\2030\333 + ;\203\f\323\324+ #\202\325 A@+\"*\334=\205!\3353
\330#GT4B41AA\2111\202\300 4\237- 5\n -\330 6\331 7-:\203\206-@\211:\204W ;\205_\310\202_ @9\205_ @)\312=\203y\336-@
\"\203y-7\331\2116\202z\330\203\206-A\211-\202A7+\211 8 9\331\211 : ;9:\203\3339@\211:\211:\204\257 ;\205\267\310\202\267 @9\205\267 @)\312=\203\322\337:
\"\205\315\335:
\330#GT;B;9A\2119\202\226;\237+ <\340<5\"\211 5\205\3315>?\205\313\341\342,!\315\3435\344##-\206 B =\331 :\330 >\331 ?=:\203e=@\211:\211:\204/ ;\2057\310\2027 @9\2057 @)\312=\203X\336:
\"\204X\337:
\"\203X:?\331\211>\202Y\330\203e=A\211=\202?,\211 \n\205~\313\345\342,!\315\316\317\n
\"\346##)\206 B @\331 :\330 A\331 B@:\203\331@@\211:\211:\204\253 ;\205\263\310\202\263 @9\205\263 @)\312=\203\314\336:
\"\204\314:B\331\211A\202\315\330\203\331@A\211@\202\222B,\211 \n\205
\313\347\342,!\350\n + ;\203\374\323\324+ #\202\325 A@+\"* C\351C
\")#)\206\326\352!+\207" [destination genealogy data element #1=#:temp info org-export-get-genealogy reverse plain-text eql headline format "sec-%s" mapconcat number-to-string org-export-get-headline-number "-" target :value get-text-property 0 plist-get error "FIXME: Resolve %S" t nil plain-list :type ordered org-export-get-previous-element org-export-low-level-p org-export-numbered-headline-p append "<text:bookmark-ref text:reference-format=\"number-all-superior\" text:ref-name=\"%s\">%s</text:bookmark-ref>" org-export-solidify-link-text #[(n) "\204 \301\207\302!\303P\207" [n " " number-to-string "."] 2] "" "<text:bookmark-ref text:reference-format=\"chapter\" text:ref-name=\"OrgXref.%s\">%s</text:bookmark-ref>" "." "<text:bookmark-ref text:reference-format=\"text\" text:ref-name=\"OrgXref.%s\">%s</text:bookmark-ref>" :title org-export-data "FIXME?" property label x #2=#:--cl-var-- #3=#:--cl-var-- top-level-list #4=#:--cl-var-- rest item #5=#:--cl-var-- item-numbers #6=#:--cl-var-- #7=#:--cl-var-- listified-headlines #8=#:--cl-var-- el #9=#:--cl-var-- listified-headline-nos #10=#:--cl-var-- #11=#:--cl-var-- #12=#:--cl-var-- #13=#:--cl-var-- #14=#:--cl-var-- #15=#:--cl-var-- title] 9])
#@178 Transcode a LINK object from Org to ODT.
DESC is the description part of the link, or the empty string.
INFO is a plist holding contextual information. See
`org-export-data'.
(defalias 'org-odt-link #[(link desc info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203* \307\310\n #\2020 \311 A@\n\"*
\313\230?\205:
\314@\" A \315\235\203O \316\fQ\202b \317\230\203a \320\f!\203a \321\fP\202b \f B\322\323\324B# B\325 C
\204\203 \314@\"\203\203 \326D\"\202\276
\204\227 \314E\"\203\227 \327D\"\202\276 \330\230\203\317 \331D\"\211 F\204\254
\202\313 \332\333\334\335F ;\203\301 \307\310\n #\202\307 \311 A@\n\"*!
#)\202\276 \336\235\203\364 \337\230\203\343 \340D\"\202\350 \341D\"\211 F\211:\204\372 ;\205\342\202 @9\205 @) G\343G\344\"\2034\332\345\346
\2060\347\350 ;\203&\307\310\n #\202,\311 A@\n\"*D\"#\202\360\351G\352\"\203f
\204I\353FD\"\202\360\354FD\" H\332\355\356\357H\360#\" I\332\361I
#*\202\360\351G\362\"\203\242
\204{\353FD\"\202\360\335F ;\203\215\307\310\n #\202\223\311 A@\n\"* I\332\361\334I!
#)\202\360\3631\261\364FD\365#0\202\263\210\325\211 J\204\302\353FD\"\202\357
\204\313J\202\357\366F ;\203\335\307\310\n #\202\343\311 A@\n\"* I\332\361\334I!
#))*\202\276 \367\230\203 \332\370\371BD\"\" K\372BP L\332\373B
\"\332\374LK#\"*\202\276\375\376\377 M\"8\211C!\203<C\201P B!
\201Q #\202\276B\203\251
\203\251\211:\204P\325\202] @9\203\\ AA\202] )\211 NA\204\235N@\211 O\211:\204z ;\205\202\342\202\202 @9\205\202 @)\300=\205\216\314O@\")\203\235\332\201R B
#\202\245\332\201S B
#)\202\276B\203\271\332\201S B\211#\202\276\332\345\346
#.\207" [link element property type raw-path desc :type get-text-property 0 plist-get :path "" org-export-inline-image-p ("http" "https" "ftp" "mailto") ":" "file" file-name-absolute-p "file:" replace-regexp-in-string "&" "&" nil org-odt-link--inline-image 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-solidify-link-text :value ("custom-id" "fuzzy" "id") "fuzzy" org-export-resolve-fuzzy-link org-export-resolve-id-link plain-text memql 'nil "<text:span text:style-name=\"%s\">%s</text:span>" "Emphasis" org-export-data :raw-link eql headline org-odt-link--infer-description org-export-get-headline-number "sec-%s" mapconcat number-to-string "-" "<text:a xlink:type=\"simple\" xlink:href=\"#%s\">%s</text:a>" target (error) org-odt-format-label reference :name "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>" functionp 2 assoc org-odt-inline-image-rules imagep path protocol info org-odt-inline-formula-rules destination #1=#:temp headline-no label label-reference line-no href org-link-protocols link-contents desc-element org-link-unescape odt "\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>"] 9 (#$ . 80563)])
#@82 Return style of PARAGRAPH.
Style is a symbol among `quoted', `centered' and nil.
(defalias 'org-odt--paragraph-style #[(paragraph) "\305 \n;\203 \306\307 \n#\202 \310\nA@ \"*\211\203= \211:\204/ \n;\2057 \311\2027 \n@9\2057 \n@)\312>\203 \211:\204M \n;\205U \311\202U \n@9\205U \n@) \313\f\314\"\203b \315\202j \313\f\316\"\205j \317*\207" [paragraph up element property #1=#:temp :parent get-text-property 0 plist-get plain-text (center-block quote-block section) eql center-block centered quote-block quoted] 5 (#$ . 83756)])
#@346 Format paragraph according to given styles.
PARAGRAPH is a paragraph type element. CONTENTS is the
transcoded contents of that paragraph, as a string. INFO is
a plist used as a communication channel. DEFAULT, CENTER and
QUOTE are, respectively, style to use when paragraph belongs to
no special environment, a center block, or a quote block.
(defalias 'org-odt--format-paragraph #[(paragraph contents info default center quote) "\306\307\310!\311 \312\"\203 \n\202 \311 \313\"\203 \202 \f)\314
;\2031 \315\316
#\2028 \317
A@\"*\211 \211 :\204K
;\205S \320\202S
@9\205S
@)\321=\205f \322\"?\205f \323!)P#\207" [paragraph #1=#:temp quote center default element format "\n<text:p text:style-name=\"%s\">%s</text:p>" org-odt--paragraph-style eql quoted centered :parent get-text-property 0 plist-get plain-text item org-export-get-previous-element org-odt--checkbox property parent info contents] 8 (#$ . 84303)])
#@156 Transcode a PARAGRAPH element from Org to ODT.
CONTENTS is the contents of the paragraph, as a string. INFO is
the plist used as a communication channel.
(defalias 'org-odt-paragraph #[(paragraph contents info) "\305 \n\306 ;\203 \307\310\f #\202 \311 A@\f\"*\206 \312\313\314&\207" [paragraph contents info element property org-odt--format-paragraph :style get-text-property 0 plist-get "Text_20_body" "OrgCenter" "Quotations"] 8 (#$ . 85249)])
#@136 Transcode a PLAIN-LIST element from Org to ODT.
CONTENTS is the contents of the list. INFO is a plist holding
contextual information.
(defalias 'org-odt-plain-list #[(plain-list contents info) "\306\307\310 ;\203 \311\312\n #\202 \313 A@\n\"*\314 \315\"\203& \316\202D \314 \317\"\2031 \320\202D \314 \321\"\203< \322\202D \314 \323\"\205D \322)\306\324 \325\f ;\203Z \311\312\n #\202` \313 A@\n\"+\211 \203\210
\211:\204v ;\205~ \326\202~ @9\205~ @)\327=\203\210 \330\202\211 \331)\"$\207" [plain-list element property #1=#:temp blob parent format "\n<text:list text:style-name=\"%s\" %s>\n%s</text:list>" :type get-text-property 0 plist-get eql ordered "OrgNumberedList" unordered "OrgBulletedList" descriptive-1 "OrgDescriptionList" descriptive-2 "text:continue-numbering=\"%s\"" :parent plain-text item "true" "false" contents] 10 (#$ . 85711)])
(defalias 'org-odt--encode-tabs-and-spaces #[(line) "\301\302\303#\207" [line replace-regexp-in-string "\\([ ]\\|\\([ ]+\\)\\)" #[(s) "\302\230\203 \303\207G\211\304U\203 \305\202& \304V\203% \305\306\307 S\"P\202& \310)\207" [s n " " "<text:tab/>" 1 " " format "<text:s text:c=\"%d\"/>" ""] 5]] 4])
(defalias 'org-odt--encode-plain-text #[(text &optional no-whitespace-filling) "\302\303\304\"\210\203 \207\305 !\207" [no-whitespace-filling text mapc #[(pair) "\302@A \303\211%\211\207" [pair text replace-regexp-in-string t] 6] (("&" . "&") ("<" . "<") (">" . ">")) org-odt--encode-tabs-and-spaces] 3])
#@124 Transcode a TEXT string from Org to ODT.
TEXT is the string to transcode. INFO is a plist holding
contextual information.
(defalias 'org-odt-plain-text #[(text info) "\304 \305\"\306\n\307\"\203 \310 \311\n$\306\n\312\"\203! \313\314 \"\210\306\n\315\"\203/ \316\317\320 \305$ )\207" [text output info 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 mapc #[(pair) "\302@A \303\304%\211\207" [pair output replace-regexp-in-string t nil] 6] :preserve-breaks replace-regexp-in-string "\\(\\\\\\\\\\)?[ ]*\n" "<text:line-break/>"] 5 (#$ . 87213)])
#@114 Transcode a PLANNING element from Org to ODT.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-odt-planning #[(planning contents info) "\306\307\310\311 ;\203 \312\313\n #\202 \314 A@\n\"*\211\205, \306\315\316\f#\317
#P)\320 ;\203> \312\313\n #\202D \314 A@\n\"*\211 \205Y \306\315\321#\317
#P)\322 ;\203k \312\313\n #\202q \314 A@\n\"*\211 \205\206 \306\315\323#\317
#P)Q#\207" [planning element property closed org-closed-string contents 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" info deadline org-deadline-string scheduled] 11 (#$ . 87879)])
#@120 Transcode a PROPERTY-DRAWER element from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-odt-property-drawer #[(property-drawer contents info) "\300\207" [""] 1 (#$ . 88710)])
#@141 Transcode a QUOTE-BLOCK element from Org to ODT.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-odt-quote-block #[(quote-block contents info) "\207" [contents] 1 (#$ . 88938)])
#@118 Transcode a QUOTE-SECTION element from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-quote-section #[(quote-section contents info) "\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*!\211\205\" \311 !)\207" [quote-section element property value org-remove-indentation :value get-text-property 0 plist-get org-odt-do-format-code] 6 (#$ . 89182)])
(defalias 'org-odt-format-section #[(text style &optional name) "\304\305!@\306\307 \306\310\n\206 \" $)\207" [default-name style name text org-odt-add-automatic-style "Section" format "\n<text:section text:style-name=\"%s\" %s>\n%s\n</text:section>" "text:name=\"%s\""] 6])
#@139 Transcode a SECTION element from Org to ODT.
CONTENTS holds the contents of the section. INFO is a plist
holding contextual information.
(defalias 'org-odt-section #[(section contents info) "\207" [contents] 1 (#$ . 89864)])
#@131 Transcode a RADIO-TARGET object from Org to ODT.
TEXT is the text of the target. INFO is a plist holding
contextual information.
(defalias 'org-odt-radio-target #[(radio-target text info) "\304\305\306 \n;\203 \307\310 \n#\202 \311\nA@ \"*!\"\207" [text radio-target element property org-odt--target org-export-solidify-link-text :value get-text-property 0 plist-get] 7 (#$ . 90098)])
#@143 Transcode a SPECIAL-BLOCK element from Org to ODT.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-odt-special-block #[(special-block contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\227\312\313\"\211 \314\230\203q \311 \315\"\206< \311
\315\"\211 !\205; \316!
\") !\311 \317\"\206J \311
\317\"@ \"\320\321\320\322!\205Z \320\323!\"\"\205h \320\324\325\"\326\327#\"#Q\"\"*\202\256 \f\330\230\203\254 \311 \331\"\311 \332\"\311 \333\"\311 \334\"\311 \335\" $ % & ' (\320\336\337\340#('&%$&#-\202\256 #*\207" [special-block element property attributes type info :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 author date contents anchor extra style height width] 12 (#$ . 90496)])
#@554 Create custom style for face FN.
When FN is the default face, use its foreground and background
properties to create "OrgSrcBlock" paragraph style. Otherwise
use its color attribute to create a character style whose name
is obtained from FN. Currently all attributes of FN other than
color are ignored.
The style name for a face FN is derived using the following
operations on the face name in that order - de-dash, CamelCase
and prefix with "OrgSrc". For example,
`font-lock-function-name-face' is associated with
"OrgSrcFontLockFunctionNameFace".
(defalias 'org-odt-hfy-face-to-css #[(fn) "\306!\307\310\311\312\313!\314\"\315#P\316\317 \"A\316\320 \"A
\2055 \321=\2030 \322\f #\2025 \322\323\n # \n-B\207" [fn css-list style-name color-val background-color-val org-odt-create-custom-styles-for-srcblocks hfy-face-to-style "OrgSrc" mapconcat capitalize split-string hfy-face-or-def-to-name "-" "" assoc "color" "background" default format "\n<style:style style:name=\"%s\" style:family=\"text\">\n <style:text-properties fo:color=\"%s\"/>\n </style:style>" org-odt-src-block-paragraph-format style] 6 (#$ . 91635)])
(defalias 'org-odt-htmlfontify-string #[(line) "\306\307\310\311 ! \312\f\235\203 \f\202 \312\fB\211\313 \314 \315!.\207" [hfy-html-quote-regex hfy-html-quote-map hfy-face-to-css hfy-optimizations hfy-optimizations-1 hfy-begin-span-handler "\\([<\"&> ]\\)" (("\"" """) ("<" "<") ("&" "&") (">" ">") (" " "<text:s/>") (" " "<text:tab/>")) org-odt-hfy-face-to-css copy-sequence body-text-only #[(style text-block text-id text-begins-block-p) "\301\302\"c\207" [style format "<text:span text:style-name=\"%s\">"] 3] #[nil "\300c\207" ["</text:span>"] 1] htmlfontify-string hfy-end-span-handler line] 2])
(defalias 'org-odt-do-format-code #[(code &optional lang refs retain-labels num-start) "\306 \"\206 \211\205 \307\310\311\"!\312 \313\"\211 G \314\n!\2052 $\2052 \315\316\317\320#\2052 \321\322!\211 %\204< \202T \323\324! &r&q\210\325\216 c\210\n \210\326 \210\327 +%\203^ \330\202_ \331 '%\203j \332\202k \333 (\334 )
\312 \313\"GU\204~ \335\336!\210\337 \340*+$*\204\220 \202\244 *\334U\203\237 \310\341\342 #\202\244 \310\341\343 #. \207" [lang org-src-lang-modes lang-mode code code-lines code-length assoc-default intern format "%s-mode" org-split-string "\n" functionp require htmlfontify nil t fboundp htmlfontify-string generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-font-lock-ensure buffer-string org-odt-htmlfontify-string org-odt--encode-plain-text "OrgSrcBlock" "OrgFixedWidthBlock" 0 cl--assertion-failed (= code-length (length (org-split-string code "\n"))) org-export-format-code #[(loc line-num ref) " T\211\nU\205 \306P \f\205
\205 \307\310\f\"P !\f\203, \311 \312\fP\"\2044 \313\300!\210\307\314 #\204A \207\307\315 \"\207" [par-style i code-length loc ref retain-labels "LastLine" format " (%s)" org-odt--target "coderef-" cl--assertion-failed "\n<text:p text:style-name=\"%s\">%s</text:p>" "\n<text:list-item>%s\n</text:list-item>" fontifier line-num] 4] "\n<text:list text:style-name=\"OrgSrcBlockNumberedLine\"%s>%s</text:list>" " text:continue-numbering=\"false\"" " text:continue-numbering=\"true\"" org-odt-fontify-srcblocks use-htmlfontify-p #1# fontifier par-style i num-start refs] 6])
(defalias 'org-odt-format-code #[(element info) "\306;\203 \307\310 #\202 \311A@ \"*\312!\211@ A \313;\2034 \307\310 #\202: \311A@ \"* \314;\203N \307\310 #\202T \311A@ \"* \315\316\"\203g \317\"\202p \315\320\"\205p \310) \321\f\n
%.\207" [element property lang code-info code refs :language get-text-property 0 plist-get org-export-unravel-code :retain-labels :number-lines eql continued org-export-get-loc new org-odt-do-format-code retain-labels #1=#:temp info num-start] 7])
#@138 Transcode a SRC-BLOCK element from Org to ODT.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-odt-src-block #[(src-block contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312\313\" \314
\315#\211 @ A \2059 \316\317\320#\321
\" \311\f\322\"\204K \202V \316\317\323\324\325\211\211$#)P-\207" [src-block element property lang attributes info :language get-text-property 0 plist-get 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 :textbox "Text_20_body" org-odt--textbox nil captions caption short-caption --src-block] 10 (#$ . 95540)])
#@121 Transcode a STATISTICS-COOKIE object from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-odt-statistics-cookie #[(statistics-cookie contents info) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310\311\312 #)\207" [statistics-cookie element property cookie-value :value get-text-property 0 plist-get format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode"] 4 (#$ . 96273)])
#@141 Transcode STRIKE-THROUGH from Org to ODT.
CONTENTS is the text with strike-through markup. INFO is a plist
holding contextual information.
(defalias 'org-odt-strike-through #[(strike-through contents info) "\301\302\303#\207" [contents format "<text:span text:style-name=\"%s\">%s</text:span>" "Strikethrough"] 4 (#$ . 96713)])
#@136 Transcode a SUBSCRIPT object from Org to ODT.
CONTENTS is the contents of the object. INFO is a plist holding
contextual information.
(defalias 'org-odt-subscript #[(subscript contents info) "\301\302\303#\207" [contents format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgSubscript"] 4 (#$ . 97050)])
#@138 Transcode a SUPERSCRIPT object from Org to ODT.
CONTENTS is the contents of the object. INFO is a plist holding
contextual information.
(defalias 'org-odt-superscript #[(superscript contents info) "\301\302\303#\207" [contents format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgSuperscript"] 4 (#$ . 97371)])
(defalias 'org-odt-table-style-spec #[(element info) "\305!\306\307 \"\310\n\311\"\312 \f\"+\207" [element table table-attributes table-style org-odt-table-styles org-export-get-parent-table org-export-read-attribute :attr_odt plist-get :style assoc] 3])
#@702 Retrieve styles applicable to a table cell.
R and C are (zero-based) row and column numbers of the table
cell. STYLE-SPEC is an entry in `org-odt-table-styles'
applicable to the current table. It is nil if the table is not
associated with any style attributes.
Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME).
When STYLE-SPEC is nil, style the table cell the conventional way
- choose cell borders based on row and column groupings and
choose paragraph alignment based on `org-col-cookies' text
property. See also
`org-odt-get-paragraph-style-cookie-for-table-cell'.
When STYLE-SPEC is non-nil, ignore the above cookie and return
styles congruent with the ODF-1.2 specification.
(defalias 'org-odt-get-table-cell-styles #[(table-cell info) "\306 \"\211@\nA \307 \" \310\311! \"
\205\325
A@ \312
8 \313\314 \"A\2039 \f\315U\2039 \316\202\315 \313\317 \"A\203O \fT AU\203O \320\202\315 \313\321 \"A\203b \315U\203b \322\202\315 \313\323 \"A\203x T @U\203x \324\202\315 \313\325 \"A\203\215 \312\246\326U\203\215 \327\202\315 \313\325 \"A\203\242 \312\246\315U\203\242 \330\202\315 \313\331 \"A\203\267 \f\312\246\326U\203\267 \332\202\315 \313\331 \"A\203\314 \f\312\246\315U\203\314 \333\202\315 \334 P+-\207" [table-cell info table-cell-address r c style-spec org-export-table-cell-address org-odt-table-style-spec org-export-table-dimensions org-export-get-parent-table 2 assoc 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" "" table-dimensions template-name cell-style-selectors cell-type] 4 (#$ . 97959)])
#@116 Transcode a TABLE-CELL element from Org to ODT.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-odt-table-cell #[(table-cell contents info) "\306 \"\211@\nA \307 \"\206 \310 1\3111 2 32;\203. \312\31032#\2026 \3132A@3\"+ 4\314 \"\211 5\203K \315\3165\"\206\254 \3174 \"\320U\203c \321\3224! \"\203c \323\202\243 \322! 6\324\3256\" 7\3137\326\"\211 8\205~ \3278!) 9\f\3309!\203\217 9S\202\231 9\203\230 \310\202\231 \331X+\203\242 \323\202\243 \332\333\334\335 \"!!P *5\203\273 \315\3365\"\206\344 \337\3404 \"\204\312 \310U\205\313 \341\3424 \"\205\324 \343\344 \"\205\343 \f\310U?\205\343 \345R :\315\346:\"
\310V\205\366 \315\347
T\"P ;<\204\350<*\204\n\351\352!\210\353\315\354;\211 2:\204\353\202+2@9\203)2AA\202+2)\211 =@\211 2:\204A2;\205K\355\202K2@9\205K2@)>>\203W<\202^\315\356*<#)#\353 ?
\310 @ A@AW\203\200?\357P?@T\211@\202k?+\360R. \207" [table-cell info table-cell-address r c horiz-span 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 "\n<text:p text:style-name=\"%s\">%s</text:p>" "\n<table:covered-table-cell/>" "\n" blob element property table-row custom-style-prefix table table-attrs cols table-header-columns cell-style-name cell-attributes contents table-cell-contents org-element-all-elements s i --dotimes-limit--] 9 (#$ . 99714)])
#@135 Transcode a TABLE-ROW element from Org to ODT.
CONTENTS is the contents of the row. INFO is a plist used as a
communication channel.
(defalias 'org-odt-table-row #[(table-row contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312=\205M \313 \"\314U\2033 \315\316! \"\2033 \317\2024 \320 \321 \"\205> \f@\322\323
\"\324 \"\205K \fAQ)\207" [table-row element property info rowgroup-tags contents :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] 5 (#$ . 101760)])
(defalias 'org-odt-table-first-row-data-cells #[(table info) "\305\303\306 \307%\310!\n\204, \211 :\204 \311\202( \f@9\203' \fAA\202( \f)\202F \211 :\2047 \311\202D \f@9\203C \fAA\202D \f)A*\207" [table info special-column-p table-row element org-element-map #[(row) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\307=?\205 \207" [row element property :type get-text-property 0 plist-get rule] 4] first-match org-export-table-has-special-column-p nil] 7])
#@132 Transcode a TABLE element from Org to ODT.
CONTENTS is the contents of the table. INFO is a plist holding
contextual information.
(defalias 'org-odt--table #[(table contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 \313\"\203( \314\315\316!\210\202\202 \317\f\320#\211 @
A \321\322\" \323\f\"A@ !\324 \" \205R \325\326\327 #\330\327 \" #\325\331!\206g #A\206g \332 \205q \325\333 \"\260#)\"\f\"\334$\335\260.)\207" [table element property #1=#:temp info captions :type get-text-property 0 plist-get eql table\.el 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 #[(table info) "\206 \305\306\307 \"\310\311\312 \f\"\313#*\207" [custom-table-style table-style column-style table info "OrgTable" format "%sColumn" mapconcat #[(table-cell) "\306 \"\206 \307T\310\311\n\"\312 \211 \307 \f \fW\203, \f P T\211 \202 -\207" [table-cell info column-style out s width org-export-table-cell-width 0 format "\n<table:table-column table:style-name=\"%s\"/>" nil i --dotimes-limit--] 5] org-odt-table-first-row-data-cells "\n"] 5] 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>" caption short-caption attributes custom-table-style table-column-specs automatic-name contents] 8 (#$ . 103038)])
#@224 Transcode a TABLE element from Org to ODT.
CONTENTS is the contents of the table. INFO is a plist holding
contextual information.
Use `org-odt--table' to typeset the table. Handle details
pertaining to indentation here.
(defalias 'org-odt-table #[(table contents info) "\306\307\211\n \" \310\311\312\f\310#\313\n
#\314\312\f\"G\315\245 \316\317\" \n\205. \320\n\"+\311\321\f\237\310#R+\207" [--element-preceded-by-table-p --walk-list-genealogy-and-collect-tags table info close-open-tags contents #[(element info) "\306 \307#\310\307 \310 \n:\203> \n@\211\211:\204$ ;\205, \311\202, @9\205, @)\312=\211?\211\203> \nA\211\202
,\207" [element info #1=#:--cl-var-- el #2=#:--cl-flag-- #3=#:--cl-var-- org-export-get-previous-element t nil plain-text table] 5] #[(table info) "\306!\211@\211:\204 \n;\205 \307\202 \n@9\205 \n@)\310=\205] \311\211 :\203Z @\211\211:\204A \n;\205I \307\202I \n@9\205I \n@)\312>\203S \f
B A\211\202*
\237+ ,\313\314 -\311\211 .-:\203\342 -@\211\211:\204\203 \n;\205\213 \307\202\213 \n@9\205\213 \n@)\315=\203\331 \316\f/\"\203\331 \f\315\f 0\3170 1\n;\203\262 \320\3211\n#\202\271 \322\nA@1\"+\211:\204\304 \311\202\321 \n@9\203\320 \nAA\202\321 \n)\236D.B.-A\211-\202k .\237+\" 2\311 3, 4\311\211 54:\203\2654@\211\211:\204\n;\205\307\202\n@9\205\n@) 6\3236\324\"\203y\f3\325\326\327\330\f 1\n;\203;\320\3211\n#\202B\322\nA@1\"* 7\3237\331\"\203Q\332\202r\3237\333\"\203]\334\202r\3237\335\"\203i\336\202r\3237\337\"\205r\336)\340#B\202\246\3236\310\"\205\2463\204\2278/\"\203\223\341\202\246\342\202\24683/\"\203\245\343\202\246\344)5B54A\2114\202\367 5\237+2 9\311 \310 :\311 ;9:\203r9@\323:\324\"\203\363\310:\f3\325\326\327\345\f/\"\203\354\332\202\355\334\340#B\202d\323:\310\"\205d\324:3\2048/\"\203\346\202d\347\202d\3503/\"\211 <\205[<\211:\2041\n;\2059\307\2029\n@9\2059\n@)\351=\205[\300<\211:\204L\311\202Y\n@9\203X\nAA\202Y\n)\236)\203c\352\202d\353;B;9A\2119\202\307;\237,\244,\207" [table genealogy element #4=#:--cl-var-- el #5=#:--cl-var-- org-export-get-genealogy plain-text item nil (item plain-list) apply nconc headline org-export-low-level-p :parent get-text-property 0 plist-get eql plain-list "</text:list>" format "\n<text:list text:style-name=\"%s\" %s>" :type ordered "OrgNumberedList" unordered "OrgBulletedList" descriptive-1 "OrgDescriptionList" descriptive-2 "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>") org-export-numbered-headline-p ("</text:list-header>" . "<text:list-header>") ("</text:list-item>" . "<text:list-header>") org-export-get-previous-element section ("</text:list-header>" . "<text:list-header>") ("</text:list-item>" . "<text:list-item>") list-genealogy #6=#:--cl-var-- #7=#:--cl-var-- info blob property llh-genealogy parent-list #8=#:--cl-var-- #9=#:--cl-var-- #10=#:temp #11=#:temp --element-preceded-by-table-p #12=#:--cl-var-- step #13=#:--cl-var-- section\?] 9] "\n" mapconcat car org-odt--table mapcar 2 format "OrgIndentedSection-Level-%d" org-odt-format-section cdr level style] 8 (#$ . 104619)])
#@110 Transcode a TARGET object from Org to ODT.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-odt-target #[(target contents info) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310\311\312 !\")\207" [target element property value :value get-text-property 0 plist-get org-odt--target "" org-export-solidify-link-text] 4 (#$ . 107946)])
#@114 Transcode a TIMESTAMP object from Org to ODT.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-odt-timestamp #[(timestamp contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203* \307\310\n #\2020 \311 A@\n\"*
\204\201 \313\314! \" !\312 ;\203P \307\310\n #\202V \311 A@\n\"* \"\315\"\316\"\203j \317\320\321!#\202} \315\"\322\"\203{ \317\320\323!#\202} !*\202\344 \324\f\325\"\203\225 \317\320\321\317\326\327!\"#\202\344 \324\f\330\"\203\251 \317\320\323\317\331\327!\"#\202\344 \324\f\332\"\203\301 \317\320\321\317\333\327!\327\334\"##\202\344 \324\f\335\"\203\331 \317\320\323\317\336\327!\327\334\"##\202\344 \317\320\337\313\314! \"#*\207" [timestamp element property raw-value type org-odt-use-date-fields :raw-value get-text-property 0 plist-get :type 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" eql active "<%s>" org-odt--format-timestamp inactive "[%s]" active-range "<%s>–<%s>" end inactive-range "[%s]–[%s]" "OrgDiaryTimestamp" info value #1=#:temp] 9 (#$ . 108319)])
#@131 Transcode UNDERLINE from Org to ODT.
CONTENTS is the text with underline markup. INFO is a plist
holding contextual information.
(defalias 'org-odt-underline #[(underline contents info) "\301\302\303#\207" [contents format "<text:span text:style-name=\"%s\">%s</text:span>" "Underline"] 4 (#$ . 109566)])
#@113 Transcode a VERBATIM object from Org to ODT.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-odt-verbatim #[(verbatim contents info) "\303\304\305\306\307 ;\203 \310\311\n #\202 \312 A@\n\"*!#\207" [verbatim element property format "<text:span text:style-name=\"%s\">%s</text:span>" "OrgCode" org-odt--encode-plain-text :value get-text-property 0 plist-get] 8 (#$ . 109880)])
#@133 Transcode a VERSE-BLOCK element from Org to ODT.
CONTENTS is verse block contents. INFO is a plist holding
contextual information.
(defalias 'org-odt-verse-block #[(verse-block contents info) "\301\302\303#\304!\305\306\307#\207" [contents replace-regexp-in-string "\\(<text:line-break/>\\)?[ ]*\n" "<text:line-break/>" org-odt--encode-tabs-and-spaces format "\n<text:p text:style-name=\"%s\">%s</text:p>" "OrgVerse"] 4 (#$ . 110302)])
(defalias 'org-odt--translate-latex-fragments #[(tree backend info) "\306\307\"\310\311\n\312\"\203' \313\314!\203 \314 \203 \315\202\221 \316\317!\210\320\202\221 \311\n\321\"\203\213 \322\323\324 \325
!\206O ?\205O \326\327
\f\203M \330\331\f\"\202N \323#+\203\202 \n\332=\203] \333\202^ \334\323\324 \325
!\206~ ?\205~ \326\327
\f\203| \330\331\f\"\202} \323#+\204\221 \316\335!\210\320\202\221 \316\336!\210\320\306\307\"\203\236 \337\307\n#\210\316\340\n\"\210\n\341>\203\261 \342%\343\344$\210*%\207" [info count processing-type no-error use cmd 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) #[(latex-*) "T\306 \n;\203 \307\310 \n#\202 \311\nA@ \"* \311
\312\" 9\3139! :\314;\315\"\2034 \316\202= \317;\320\"\205= \321\322\3239!!P <\314;\324\"\203U \325\326\"\202a \317;\320\"\205a \325\327\" =\330\331! >r>q\210\332\216\fc\210\333<:\334=\334\211;&\210\335ed\"+ &\336\337&\"\204\230 \334\340\341!\210\202\232 &)\211 ?\205^\342\330\331! @r@q\210\343\216\344 \210?c\210\345 +\346\347#@\211 &\350\334 A\211;\203\324 \351\n\334 A$\202\341 \nA\352\nA@ A#\240\210\n+\210 \211:\204\363 \n;\205\373 \353\202\373 \n@9\205\373 \n@) B\317B\354\"\203}\355\356\357\360\211 \n;\203\307\310 \n#\202!\311\nA@ \"*\361\211 \n;\2034\307\310 \n#\202:\311\nA@ \"*\257D&C C D\362\363C\"\210D\203r\364\365D\211\211:\204_\334\202l\n@9\203k\nAA\202l\n)C\244#\210D\206yC*\202\207\317B\366\"\205\207&)\211 E\367 \211:\204\234\n;\205\244\353\202\244\n@9\205\244\n@)\306\fDD A\211;\203\274\351\n\334 A$\202\311\nA\352\nA@ A#\240\210\n+\210 E F G\362\370F\211:\204\340\334\202\355\n@9\203\354\nAA\202\355\n)\"\210\364\365GF\211:\204 \334\202
\n@9\203\f\nAA\202
\n)#\210F\350\211G\n;\203%\307\310 \n#\202+\311\nA@ \"* A\211;\203?\351\n\334 A$\202L\nA\352\nA@ A#\240\210\n+\210GAFA@\240\210GF@\240,.\207" [count latex-* element property latex-frag info :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*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-format-latex nil buffer-substring-no-properties string-match "file:\\([^]]*\\)" message "LaTeX Conversion failed." org-element-map #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] org-mode org-element-parse-buffer link identity :parent org-add-props plist-put plain-text latex-environment paragraph :style "OrgFormula" :name :caption mapc #[(child) "\306 \206 \n \211 ;\203 \307
\310\f $\202$
A\311
A@\f #\240\210
+\207" [child parent children value property element :parent org-add-props nil plist-put] 6] apply org-element-set-contents latex-fragment :replaces #[(blob) "\305 \211 ;\203 \306\f\307 \n$\202 \fA\310\fA@ \n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] input-file cache-dir processing-type cache-subdir display-msg #1# org-link #2# value #3=#:temp children parent replacement new old] 11] tree] 6])
(defalias 'org-odt--translate-description-lists #[(tree backend info) "\302\303\304 $\210\207" [tree info org-element-map plain-list #[(el) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312\232\203\305 \313\314\315\306\316DD\317\320\211:\2042 \321\202? @9\203> AA\202? )\"# \322\323 \211:\204Q \321\202^ @9\203] AA\202^ )\"\210\313\324\f \211:\204o \321\202| @9\203{ AA\202| )#\210 \325\211\f ;\203\222 \307\310\n #\202\230 \311 A@\n\"* \211;\203\252 \326 \321\n
$\202\266 A\327 A@\n
#\240\210 +\210\fA A@\240\210\f @\240*\210\321\207" [el element property new old value :type get-text-property 0 plist-get descriptive apply org-element-adopt-elements plain-list descriptive-1 mapcar #[(item) "\300\305\211 ;\203 \306\307\n #\202 \310 A@\n\"*DD\311\312\313D\314 ;\2031 \306\307\n #\2027 \310 A@\n\"*\206< \315E\316\317\320DD\321\322\300\323D\211:\204R \323\202_ @9\203^ AA\202_ )#C \324\325 \"\210\f\203\215 \321\326\f\211\211:\204{ \323\202\210 @9\203\207 AA\202\210 ) \244#\210\f\206\222 *D \324\325 \"\210\f\203\277 \321\326\f\211\211:\204\255 \323\202\272 @9\203\271 AA\202\272 ) \244#\210\f\206\304 *\207" [item element property children parent :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 mapc #[(child) "\306 \206 \n \211 ;\203 \307
\310\f $\202$
A\311
A@\f #\240\210
+\207" [child parent children value property element :parent org-add-props nil plist-put] 6] org-element-set-contents] 8] nil mapc #[(blob) "\305 \211 ;\203 \306\f\307 \n$\202 \fA\310\fA@ \n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] org-element-set-contents :parent org-add-props plist-put] 8]] 5])
(defalias 'org-odt--translate-list-tables #[(tree backend info) "\302\303\304 $\210\207" [tree info org-element-map plain-list #[(l1-list) "\306\307\310#\203\236 \311\312\313\314D\315\316\317 \320\316&#\321\322\n\211 :\204' \320\2024 \f@9\2033 \fAA\2024 \f)\"\210\311\323 \n\211 :\204E \320\202R \f@9\203Q \fAA\202R \f)#\210\n\324\211 \f;\203h \325\326
\f#\202n \327\fA@
\"* \211 ;\203\202 \330\f\320
$\202\217 \fA\331\fA@
#\240\210\f+\210 A\nA@\240\210 \n@\240*\210\320\207" [l1-list info new old element property org-export-read-attribute :attr_odt :list-table apply org-element-adopt-elements table (:type org :attr_odt (":style \"GriddedTable\"")) org-element-map item #[(l1-item) "\211:\204 \306\202 @9\203 AA\202 )\306\211 \n\306 \211 \203S @\211:\2049 ;\205A \307\202A @9\205A @)\310=\204S A\211\204'
\203_
\306\241\210@\n*\311\312\313\314\315DD\311\312\316\306D #\317\f\320\321\306\320&$+\207" [l1-item element l1-item-contents l1-item-leading-text l2-list prev nil plain-text plain-list apply org-element-adopt-elements table-row :type standard table-cell org-element-map item #[(l2-item) "\302\303\304\305D\211:\204 \305\202 @9\203 AA\202 )#\207" [l2-item element apply org-element-adopt-elements table-cell nil] 5] cur info] 12] nil mapc #[(blob) "\305 \211 ;\203 \306\f\307 \n$\202 \fA\310\fA@ \n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] org-element-set-contents :parent get-text-property 0 plist-get org-add-props plist-put value] 11]] 5])
(defalias 'org-odt-create-manifest-file-entry #[(&rest args) " B\211\207" [args org-odt-manifest-file-entries] 2])
(defalias 'org-odt-write-manifest-file #[nil "\304\305P!\210\306Pr\307\310 \311\")q\210\312c\210\313\314 \"\210\315c*\207" [org-odt-zip-dir manifest-file nxml-auto-insert-xml-declaration-flag org-odt-manifest-file-entries 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" mapc #[(file-entry) "\3048\211\204\f \305\202 \306\307 \"\306 @A@\n$c*\207" [file-entry version extra org-odt-manifest-file-entry-tag 2 "" format " manifest:version=\"%s\""] 6] "\n</manifest:manifest>"] 3])
(defalias 'org-odt--export-wrap '(macro . #[(out-file &rest body) "\302\303D\304B\305\306\307\310\307 B\311BBB\312BBBE\207" [out-file body 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 (mapc (lambda (file) (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))))) org-odt-xml-files) (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) (mapc (lambda (file) (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))))) org-odt-xml-files) (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) (mapc (lambda (cmd) (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))) cmds))) (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))))] 8]))
#@382 Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
Use `org-create-math-formula' to convert LATEX-FRAG first to
MathML. When invoked as an interactive command, use
`org-latex-regexps' to infer LATEX-FRAG from currently active
region. If no LaTeX fragments are found, prompt for it. Push
MathML source to kill ring depending on the value of
`org-export-copy-to-kill-ring'.
(defalias 'org-odt-export-as-odf #[(latex-frag &optional odf-file) "\206 \306\307\310 !!\311\312Q\313 !\"\211\314 ! \315 \316\317\320\321\f\"\322\"! @\323 A\324 B\3251&\326\327!\2049 \330\331!\210\332\333!\210\323 C\334@\335P\322\") D\336\211 E FDq\210\337E!\210\340G!\211 H\204g \330\341!\210Hc\210\342 \203u \343\344 !\210,\345\346\335\"\210\347 I\350\fI\322#A\211 J\204\220 \330\351\f\"\210\352J\323@\353P#\210\345J\354\355#\210*\356 \210\357\360
\"\210 K\310K! L\327\361L\362BBB\327\363L\364BBBD M\365K!\203\322 \366K!\210\367\323\211 N O E\370\371!\210r\334@\335P\322\"q\210\357\372M\"\210,\373@LPK\"\210\370\374\306K!\"\210B \210\334K\322\"\210P\203 \375KP\"\206!K\202!K+0\2024 QB \210\370\376\377Q!\").\207" [odf-file buffer-file-name filename --out-file out-file-type org-odt-xml-files 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 #[nil "\302\303\"\210\304 \305\"\207" [org-odt-xml-files org-odt-zip-dir mapc #[(file) "\303 P!\211\205 r\nq\210\304\305!\210\306\n!))\207" [org-odt-zip-dir file buf find-buffer-visiting set-buffer-modified-p nil kill-buffer] 4] delete-directory t] 3] (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 mapc #[(file) "\304 P!\211\205 r\nq\210 \203 \305ed\"\210\306\307!))\207" [org-odt-zip-dir file buf org-odt-prettify-xml find-buffer-visiting indent-region save-buffer 0] 4] "-mX0" ("mimetype") "-rmTq" (".") file-exists-p delete-file no-conversion message "Creating ODT file..." #[(cmd) "\304\305\306\307\310#\"\210\311\312\313!!\314\216 \315\316@\317 \317A&)r q\210\320 +\n\321U\2062 \322\323 \"\207" [cmd standard-output exitcode err-string message "Running %s" mapconcat identity " " get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] apply call-process nil buffer-string 0 error "Unable to create OpenDocument file. Zip failed with error (%s)"] 7] rename-file "Created %s" org-odt-convert "OpenDocument export failed: %s" error-message-string org-odt-zip-dir org-odt-manifest-file-entries --cleanup-xml-buffers nxml-auto-insert-xml-declaration-flag buffer coding-system-for-write save-buffer-coding-system latex-frag mathml mimetypes mimetype target target-name cmds err-string exitcode org-odt-preferred-output-format err] 6 (#$ . 121207) (list (let (frag) (setq frag (and (setq frag (and (region-active-p) (buffer-substring (region-beginning) (region-end)))) (let* ((#1=#:--cl-var-- org-latex-regexps) (e nil) (#2=#:--cl-flag-- t) #3=#:--cl-var--) (while (and (consp #1#) (progn (setq e (car #1#)) (setq #2# (not (setq #3# (if (string-match (nth 1 e) frag) (progn (match-string (nth 2 e) frag)))))))) (setq #1# (cdr #1#))) #3#))) (read-string "LaTeX Fragment: " frag nil frag)) (let ((odf-filename (expand-file-name (concat (file-name-sans-extension (or (file-name-nondirectory buffer-file-name))) "." "odf") (file-name-directory buffer-file-name)))) (read-file-name "ODF filename: " nil odf-filename nil (file-name-nondirectory odf-filename))))])
#@154 Export LaTeX fragment as OpenDocument formula and immediately open it.
Use `org-odt-export-as-odf' to read LaTeX fragment and OpenDocument
formula file.
(defalias 'org-odt-export-as-odf-and-open #[nil "\300\301\302!\303\"\207" [org-open-file call-interactively org-odt-export-as-odf system] 3 (#$ . 125307) nil])
#@726 Export current buffer to a ODT file.
If narrowing is active in the current buffer, only export its
narrowed part.
If a region is active, export that region.
A non-nil optional argument ASYNC means the process should happen
asynchronously. The resulting file should be accessible through
the `org-export-stack' interface.
When optional argument SUBTREEP is non-nil, export the sub-tree
at point, extracting information from the headline properties
first.
When optional argument VISIBLE-ONLY is non-nil, don't export
contents of hidden elements.
EXT-PLIST, when provided, is a property list with external
parameters overriding Org default settings, but still inferior to
file-local settings.
Return output file's name.
(defalias 'org-odt-export-to-odt #[(&optional async subtreep visible-only ext-plist) "\306\307\"\n\203\331 \310\311 \312\216\f\203 \313 \314\315\f\"\210\316p!\317\320!
@ A BA\321\322\323!! C D\324\216rCq\210\325\326@\327\330\331\332\333BD\334\335\336\337\340 \341\342\343\344\345\346\347E\311F\257DD\350BBEEDDD\257#c\210)rCq\210\351\311\211D\311\352%\210,\311 G\322\353! H\354\320H\337IJ\"\355\356\357K\357A& L\360\361H!\311L#\210\362 M\363L\364\365\343\366\367\370\371\372\373\371\343\374\333M\375BBE\376BB\377BBB\201e \201f \201g ADEEEEE\".\n\202r N\201h N! O\201i P\201j \317\325\201k O\"\201l \"! Q\311 R\201m S\201n 1^\201o \201p !\204\201q \201r !\210\352\211 T U\311\211 V W\311 X\346\201s E\311F%\201t \201u !\210\311 Y\201v Q\201w P\201l \") Z %rZq\210\201x \210%c\210.\201y \201z \201w \"\210\201{ [\201| O[\201l #A\211 \\\204\216\201q \201} O\"\210\351\\\311Q\201~ P#\210\201y \\\201 \201\200 #\210*\201\201 \210\201\202 \201\203 P\"\210N ]\201\204 ]! ^\201p \201\205 ^\201\206 BBB\201p \201\207 ^\201\210 BBBD _\201\211 ]!\203\362\201g ]!\210\201\212 \311\211 ` a b\314\201\213 !\210r\201v Q\201w P\201l \"q\210\201\202 \201\214 _\"\210,\201\215 Q^P]\"\210\314\201\216 \337]!\"\210S \210\201v ]\201l \"\210c\203W\201\217 ]c\"\206Y]\202Y]+0\202p dS \210\314\201\220 \201\221 d!\").)\207" [subtreep outfile async #1=#:current-message #2=#:with-temp-message buffer-file-coding-system org-export-output-file-name ".odt" "Initializing asynchronous export process" nil #[nil "\205 \203
\302\303 \"\207\302\304!\207" [#2# #1# message #3="%s" nil] 3] current-message message #3# org-export--generate-copy-script make-temp-file "org-export-process" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#4=#:temp-buffer 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 0 "*Org Export Process*" start-process "-Q" "--batch" "-l" org-export-add-to-stack get-buffer #[(f) "\301\302\"\207" [f org-export-add-to-stack odt] 3] set-process-sentinel lambda (p status) ((proc-buffer (process-buffer p))) 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)) #5=#:--coding #6=#:--temp-file #7=#:--copy-fun #4# #8=#:temp-file visible-only ext-plist process-connection-type #9=#:--proc-buffer invocation-name invocation-directory org-export-async-init-file #10=#:--process handler --out-file out-file-type org-odt-xml-files org-odt-zip-dir org-odt-manifest-file-entries --cleanup-xml-buffers 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 out-buf mimetypes mimetype target target-name cmds err-string exitcode coding-system-for-write org-odt-preferred-output-format err 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 #[nil "\302\303\"\210\304 \305\"\207" [org-odt-xml-files org-odt-zip-dir mapc #[(file) "\303 P!\211\205 r\nq\210\304\305!\210\306\n!))\207" [org-odt-zip-dir file buf find-buffer-visiting set-buffer-modified-p nil kill-buffer] 4] delete-directory t] 3] (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 mapc #[(file) "\304 P!\211\205 r\nq\210 \203 \305ed\"\210\306\307!))\207" [org-odt-zip-dir file buf org-odt-prettify-xml find-buffer-visiting indent-region save-buffer 0] 4] file-name-nondirectory "-mX0" ("mimetype") "-rmTq" (".") file-exists-p no-conversion "Creating ODT file..." #[(cmd) "\304\305\306\307\310#\"\210\311\312\313!!\314\216 \315\316@\317 \317A&)r q\210\320 +\n\321U\2062 \322\323 \"\207" [cmd standard-output exitcode err-string message "Running %s" mapconcat identity " " get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] apply call-process nil buffer-string 0 error "Unable to create OpenDocument file. Zip failed with error (%s)"] 7] rename-file "Created %s" org-odt-convert "OpenDocument export failed: %s" error-message-string] 26 (#$ . 125627) nil])
#@55 Return non-nil if IN-FMT can be converted to OUT-FMT.
(defalias 'org-odt-reachable-p #[(in-fmt out-fmt) "\30620 \307!\211\310\211\205. @\311\f\nA\"\211 \203% \312\306\n@
B\"\210) A\211\204 \310+0\207" [in-fmt reachable-formats e --dolist-tail-- out-fmt out-fmt-spec done org-odt-do-reachable-formats nil assoc throw] 5 (#$ . 131865)])
#@42 Workhorse routine for `org-odt-convert'.
(defalias 'org-odt-do-convert #[(in-file out-fmt &optional prefix-arg) "\306\307!\210\310\206\n !\311!\206 \312\313\"\314!\f\206\" \312\315! \316 \f\"\206/ \312\317 \f#\211 @ ,\320!\321
A\206> \fA@Q -\322
A8\206K \323 .\324! /\325,\326\327!B\330\331!B\332\fB\333-B\334\331-!B\335\327/!B\336\331/!B\337.B\257\" 0\340-!\203\215 \341-!\210\342\3430\"\210\3440! 1\342\3451\"\210)\340-!\203\303 \342\346-\"\2102\203\276 \342\347-\"\210\350-\351\"\210-\202\312 \342\352-\"\210\353.\n\207" [in-file buffer-file-name dummy in-fmt out-fmt how 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 convert-process out-file extra-options out-dir cmd cmd-output prefix-arg] 12 (#$ . 132214)])
#@273 Return verbose info about formats to which IN-FMT can be converted.
Return a list where each element is of the
form (CONVERTER-PROCESS . OUTPUT-FMT-ALIST). See
`org-odt-convert-processes' for CONVERTER-PROCESS and see
`org-odt-convert-capabilities' for OUTPUT-FMT-ALIST.
(defalias 'org-odt-do-reachable-formats #[(in-fmt) "\205 \306 \307#A@\205 \306 \307#A@\205 \310 \n\203N \f\310 \n\211 \203M @\n\f\nA@\235\203D \n\311\n8B
B A\211 \204, *
+\207" [org-odt-convert-process org-odt-convert-processes converter org-odt-convert-capabilities capabilities reachable-formats assoc-string t nil 2 c --dolist-tail-- in-fmt] 5 (#$ . 133404)])
#@112 Return list of formats to which IN-FMT can be converted.
The list of the form (OUTPUT-FMT-1 OUTPUT-FMT-2 ...).
(defalias 'org-odt-reachable-formats #[(in-fmt) "\302\303\304\305\306\307\310\311 !\"\"\"\210)\207" [l in-fmt nil mapc #[(e) " \235\203 \207 B\211\207" [e l] 2] apply append mapcar #[(e) "\301\302A\"\207" [e mapcar car] 3] org-odt-do-reachable-formats] 8 (#$ . 134066)])
#@107 Return IN-FILE and OUT-FMT params for `org-odt-do-convert'.
This is a helper routine for interactive use.
(defalias 'org-odt-convert-read-params #[nil "\306\307!\203\n \310\202 \311\312\313\314 \315$\316\n!\317 !\211 \203) \320\f\314\211\211%\206- \321\322 \" \n
-D\207" [input buffer-file-name in-file in-fmt out-fmt-choices out-fmt 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"] 7 (#$ . 134463)])
#@341 Convert IN-FILE to format OUT-FMT using a command line converter.
IN-FILE is the file to be converted. If unspecified, it defaults
to variable `buffer-file-name'. OUT-FMT is the desired output
format. Use `org-odt-convert-process' as the converter.
If PREFIX-ARG is non-nil then the newly converted file is opened
using `org-open-file'.
(defalias 'org-odt-convert #[(&optional in-file out-fmt prefix-arg) "\303 \n#\207" [in-file out-fmt prefix-arg org-odt-do-convert] 4 (#$ . 135054) (byte-code "\301\302 \"\207" [current-prefix-arg append org-odt-convert-read-params] 3)])
(byte-code "\301\302\"\210\303\304!\207" [org-odt-file-extensions mapc #[(desc) "\301\302\303@\304Q\305B\"\207" [desc add-to-list auto-mode-alist "\\." "\\'" archive-mode] 5] provide ox-odt] 3)
Kontol Shell Bypass