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