JezK
Edit File: org-odt.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:53:29 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-odt.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \207" [require org-lparse custom-declare-group org-export-odt nil "Options specific for ODT export of Org-mode files." :tag "Org Export ODT" :group org-export :version "24.1"] 10) (defalias 'org-odt-insert-toc #[nil "eb\210\301\302\303\304#\203 \305\306!\210\202 b\210\307 c\207" [org-lparse-dyn-first-heading-pos re-search-forward "\\(<text:p [^>]*>\\)?\\s-*\\[TABLE-OF-CONTENTS\\]\\s-*\\(</text:p>\\)?" nil t replace-match "" org-odt-format-toc] 4]) (defalias 'org-odt-end-export #[nil "\303 \210\304 \210eb\210\305\306\307\310#\203 \311\312!\210\202 eb\210eb\210\307\211\211\313`\314\"\211\203J \315\n\314\"\313\n\314\"\nb\210\n |\210\316\317\320\321\"\"c\210\202$ +eb\210\322\323!\203X \311\312!\210\324ed\325#\207" [n end beg org-odt-insert-toc org-odt-fixup-label-references re-search-forward "<text:p\\( text:style-name=\"Text_20_body\"\\)?>[ \n ]*</text:p>" nil t replace-match "" next-single-property-change org-whitespace get-text-property format "<span style=\"visibility:hidden;\">%s</span>" make-string 120 looking-at "\\s-+\n" remove-text-properties (display t)] 5]) (defvar org-odt-suppress-xref nil) #@52 Regular expressions for special string conversion. (defconst org-export-odt-special-string-regexps '(("\\\\-" . "­\\1") ("---\\([^-]\\)" . "—\\1") ("--\\([^-]\\)" . "–\\1") ("\\.\\.\\." . "…")) (#$ . 1750)) #@109 Location of ODT exporter. Use this to infer values of `org-odt-styles-dir' and `org-export-odt-schema-dir'. (defconst org-odt-lib-dir (file-name-directory load-file-name) (#$ . 1992)) #@116 Data directory for ODT exporter. Use this to infer values of `org-odt-styles-dir' and `org-export-odt-schema-dir'. (defvar org-odt-data-dir nil (#$ . 2183)) #@252 List of directories to search for OpenDocument schema files. Use this list to set the default value of `org-export-odt-schema-dir'. The entries in this list are populated heuristically based on the values of `org-odt-lib-dir' and `org-odt-data-dir'. (defconst org-odt-schema-dir-list (byte-code "\205 \301\302\"\303D\207" [org-odt-data-dir expand-file-name "./schema/" "/usr/share/emacs/etc/org/schema/"] 3) (#$ . 2347)) #@721 Directory that contains OpenDocument schema files. This directory contains: 1. rnc files for OpenDocument schema 2. a "schemas.xml" file that specifies locating rules needed for auto validation of OpenDocument XML files. Use the customize interface to set this variable. This ensures that `rng-schema-locating-files' is updated and auto-validation of OpenDocument XML takes place based on the value `rng-nxml-auto-validate-flag'. The default value of this variable varies depending on the version of org in use and is initialized from `org-odt-schema-dir-list'. The OASIS schema files are available only in the org's private git repository. It is *not* bundled with GNU ELPA tar or standard Emacs distribution. (custom-declare-variable 'org-export-odt-schema-dir '(let* ((schema-dir (catch 'schema-dir (message "Debug (org-odt): Searching for OpenDocument schema files...") (mapc (lambda (schema-dir) (when schema-dir (message "Debug (org-odt): Trying %s..." schema-dir) (when (and (file-readable-p (expand-file-name "od-manifest-schema-v1.2-cs01.rnc" schema-dir)) (file-readable-p (expand-file-name "od-schema-v1.2-cs01.rnc" schema-dir)) (file-readable-p (expand-file-name "schemas.xml" schema-dir))) (message "Debug (org-odt): Using schema files under %s" schema-dir) (throw 'schema-dir schema-dir)))) org-odt-schema-dir-list) (message "Debug (org-odt): No OpenDocument schema files installed") nil))) schema-dir) '(#$ . 2779) :type '(choice (const :tag "Not set" nil) (directory :tag "Schema directory")) :group 'org-export-odt :version "24.1" :set #[(var value) "\n\304\305\306 \"!\203\" \304\305\307 \"!\203\" \304\305\310 \"!\203\" \202, \203+ \311\312\"\210\313L\210) \2057 \314\315\316\"\207" [value schema-dir var org-export-odt-schema-dir file-readable-p expand-file-name "od-manifest-schema-v1.2-cs01.rnc" "od-schema-v1.2-cs01.rnc" "schemas.xml" message "Error (org-odt): %s has no OpenDocument schema files" nil eval-after-load rng-loc (add-to-list 'rng-schema-locating-files (expand-file-name "schemas.xml" org-export-odt-schema-dir))] 5 "Set `org-export-odt-schema-dir'.\nAlso add it to `rng-schema-locating-files'."]) #@207 List of directories to search for OpenDocument styles files. See `org-odt-styles-dir'. The entries in this list are populated heuristically based on the values of `org-odt-lib-dir' and `org-odt-data-dir'. (defconst org-odt-styles-dir-list (byte-code "\205 \303\304\"\305\303\306 \"\303\307 \"\303\310\n\"\257\207" [org-odt-data-dir org-odt-lib-dir data-directory expand-file-name "./styles/" "/usr/share/emacs/etc/org/styles/" "../etc/styles/" "./etc/styles/" "./org/"] 7) (#$ . 4933)) #@550 Directory that holds auxiliary XML files used by the ODT exporter. This directory contains the following XML files - "OrgOdtStyles.xml" and "OrgOdtContentTemplate.xml". These XML files are used as the default values of `org-export-odt-styles-file' and `org-export-odt-content-template-file'. The default value of this variable varies depending on the version of org in use and is initialized from `org-odt-styles-dir-list'. Note that the user could be using org from one of: org's own private git repository, GNU ELPA tar or standard Emacs. (defconst org-odt-styles-dir (byte-code "\300\301\215\211\204\f \302\303!\210)\207" [styles-dir (byte-code "\301\302!\210\303\304\"\210\305\207" [org-odt-styles-dir-list message "Debug (org-odt): Searching for OpenDocument styles files..." mapc #[(styles-dir) "\205$ \301\302\"\210\303\304\305\"!\205$ \303\304\306\"!\205$ \301\307\"\210\310\300\"\207" [styles-dir message "Debug (org-odt): Trying %s..." file-readable-p expand-file-name "OrgOdtContentTemplate.xml" "OrgOdtStyles.xml" "Debug (org-odt): Using styles under %s" throw] 4] nil] 3) error "Error (org-odt): Cannot find factory styles files, aborting"] 3) (#$ . 5431)) (defvar 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"))) (byte-code "\301\302\"\210\303\304\305\"\210\306\305!\207" [org-odt-file-extensions mapc #[(desc) "\301\302\303@\304Q\305B\"\207" [desc add-to-list auto-mode-alist "\\." "\\'" archive-mode] 5] add-to-list org-export-backends odt org-lparse-register-backend] 3) (defalias 'org-odt-unload-function #[nil "\300\301!\210\302\303\304\"\210\305\207" [org-lparse-unregister-backend odt remove-hook org-export-preprocess-after-blockquote-hook org-export-odt-preprocess-latex-fragments nil] 3]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\302\313\306\307\310\311\304\314& \210\315\316\317\"\207" [custom-declare-variable org-export-odt-content-template-file nil "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." :type file :group org-export-odt :version "24.1" org-export-odt-styles-file "Default styles file for use with ODT export.\nValid values are one of:\n1. nil\n2. path to a styles.xml file\n3. path to a *.odt or a *.ott file\n4. list of the form (ODT-OR-OTT-FILE (FILE-MEMBER-1 FILE-MEMBER-2\n...))\n\nIn case of option 1, an in-built styles.xml is used. See\n`org-odt-styles-dir' for more information.\n\nIn case of option 3, the specified file is unzipped and the\nstyles.xml embedded therein is used.\n\nIn case of option 4, the specified ODT-OR-OTT-FILE is unzipped\nand FILE-MEMBER-1, FILE-MEMBER-2 etc are copied in to the\ngenerated odt file. Use relative path for specifying the\nFILE-MEMBERS. styles.xml must be specified as one of the\nFILE-MEMBERS.\n\nUse options 1, 2 or 3 only if styles.xml alone suffices for\nachieving the desired formatting. Use option 4, if the styles.xml\nreferences additional files like header and footer images for\nachieving the desired formatting.\n\nUse \"#+ODT_STYLES_FILE: ...\" directive to set this variable on\na per-file basis. For example,\n\n#+ODT_STYLES_FILE: \"/path/to/styles.xml\" or\n#+ODT_STYLES_FILE: (\"/path/to/file.ott\" (\"styles.xml\" \"image/hdr.png\"))." (choice (const :tag "Factory settings" nil) (file :must-match t :tag "styles.xml") (file :must-match t :tag "ODT or OTT file") (list :tag "ODT or OTT file + Members" (file :must-match t :tag "ODF Text or Text Template file") (cons :tag "Members" (file :tag " Member" "styles.xml") (repeat (file :tag "Member"))))) eval-after-load org-exp (add-to-list 'org-export-inbuffer-options-extra '("ODT_STYLES_FILE" :odt-styles-file))] 10) (defconst org-export-odt-tmpdir-prefix "%s-") (defconst org-export-odt-bookmark-prefix "OrgXref.") #@57 Temporary directory that holds XML files during export. (defvar org-odt-zip-dir nil (#$ . 9767)) #@64 Should the images be copied in to the odt file or just linked? (defvar org-export-odt-embed-images t (#$ . 9870)) (defvar org-export-odt-inline-images 'maybe) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\315\306\307\310\311& \210\300\316\317\320\306\307\310\311\304\321& \207" [custom-declare-variable org-export-odt-inline-image-extensions '("png" "jpeg" "jpg" "gif") "Extensions of image files that can be inlined into HTML." :type (repeat (string :tag "Extension")) :group org-export-odt :version "24.1" org-export-odt-pixels-per-inch display-pixels-per-inch "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-export-odt-create-custom-styles-for-srcblocks t "Whether custom styles for colorized source blocks be automatically created.\nWhen this option is turned on, the exporter creates custom styles\nfor source blocks based on the advice of `htmlfontify'. Creation\nof custom styles happen as part of `org-odt-hfy-face-to-css'.\n\nWhen this option is turned off exporter does not create such\nstyles.\n\nUse the latter option if you do not want the custom styles to be\nbased on your current display settings. It is necessary that the\nstyles.xml already contains needed styles for colorizing to work.\n\nThis variable is effective only if\n`org-export-odt-fontify-srcblocks' is turned on." boolean] 10) #@38 Default styles for various entities. (defvar org-export-odt-default-org-styles-alist '((paragraph (default . "Text_20_body") (fixedwidth . "OrgFixedWidthBlock") (verse . "OrgVerse") (quote . "Quotations") (blockquote . "Quotations") (center . "OrgCenter") (left . "OrgLeft") (right . "OrgRight") (title . "OrgTitle") (subtitle . "OrgSubtitle") (footnote . "Footnote") (src . "OrgSrcBlock") (illustration . "Illustration") (table . "Table") (definition-term . "Text_20_body_20_bold") (horizontal-line . "Horizontal_20_Line")) (character (default . "Default") (bold . "Bold") (emphasis . "Emphasis") (code . "OrgCode") (verbatim . "OrgCode") (strike . "Strikethrough") (underline . "Underline") (subscript . "OrgSubscript") (superscript . "OrgSuperscript")) (list (ordered . "OrgNumberedList") (unordered . "OrgBulletedList") (description . "OrgDescriptionList"))) (#$ . 11346)) (defvar org-export-odt-org-styles-alist org-export-odt-default-org-styles-alist) (defalias 'org-odt-get-style-name-for-entity #[(category &optional entity) "\206 \304\305\305 \n\"A\"A\206# \305\305 \"A\"A\206# \306\307 #)\207" [entity category org-export-odt-org-styles-alist org-export-odt-default-org-styles-alist default assoc error "Cannot determine style name for entity %s of type %s"] 5]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\301\313\314#\207" [custom-declare-variable org-export-odt-preferred-output-format nil "Automatically post-process to this format after exporting to \"odt\".\nInteractive commands `org-export-as-odt' and\n`org-export-as-odt-and-open' export first to \"odt\" format and\nthen use `org-export-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-export-odt-convert-capabilities'.\n\nYou can set this option on per-file basis using file local\nvalues. See Info node `(emacs) File Variables'." :group org-export-odt :version "24.1" :type (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-lparse-reachable-formats "odt")))) put safe-local-variable stringp] 10) (defalias 'org-odt-cleanup-xml-buffers '(macro . #[(&rest body) "\301\302\303\304\305\306B\307BB\310BBBE\207" [body let ((org-odt-zip-dir (make-temp-file (format org-export-odt-tmpdir-prefix "odf") t)) (--cleanup-xml-buffers #'(lambda nil (let ((xml-files '("mimetype" "META-INF/manifest.xml" "content.xml" "meta.xml" "styles.xml"))) (mapc (lambda (file) (with-current-buffer (find-file-noselect (expand-file-name file org-odt-zip-dir) t) (set-buffer-modified-p nil) (kill-buffer))) xml-files)) (org-delete-directory org-odt-zip-dir t)))) condition-case err prog1 progn ((funcall --cleanup-xml-buffers)) (((quit error) (funcall --cleanup-xml-buffers) (message "OpenDocument export failed: %s" (error-message-string err))))] 7])) #@263 Export the outline as ODT and immediately open it with a browser. If there is an active region, export only the region. The prefix ARG specifies how many levels of the outline should become headlines. The default is 3. Lower levels will become bulleted lists. (defalias 'org-export-as-odt-and-open #[(arg) "\303\304\305\"\306\"\307\310\311\312\217*\207" [org-export-odt-tmpdir-prefix --cleanup-xml-buffers org-odt-zip-dir make-temp-file format "odf" t #[nil "\302\303\304\"\210)\305 \306\"\207" [xml-files org-odt-zip-dir ("mimetype" "META-INF/manifest.xml" "content.xml" "meta.xml" "styles.xml") mapc #[(file) "r\302\303 \"\304\"q\210\305\306!\210\307 )\207" [file org-odt-zip-dir find-file-noselect expand-file-name t set-buffer-modified-p nil kill-buffer] 4] org-delete-directory t] 3] err (byte-code "\303\206 \304\304 #\n \210\207" [org-export-odt-preferred-output-format arg --cleanup-xml-buffers org-lparse-and-open "odt"] 4) (((quit error) (byte-code " \210\302\303\304 !\"\207" [--cleanup-xml-buffers err message "OpenDocument export failed: %s" error-message-string] 4)))] 4 (#$ . 14331) "P"]) #@253 Call the function `org-lparse-batch'. This function can be used in batch processing as: emacs --batch --load=$HOME/lib/emacs/org.el --eval "(setq org-export-headline-levels 2)" --visit=MyFile --funcall org-export-as-odt-batch (defalias 'org-export-as-odt-batch #[nil "\303\304\305\"\306\"\307\310\311\312\217*\207" [org-export-odt-tmpdir-prefix --cleanup-xml-buffers org-odt-zip-dir make-temp-file format "odf" t #[nil "\302\303\304\"\210)\305 \306\"\207" [xml-files org-odt-zip-dir ("mimetype" "META-INF/manifest.xml" "content.xml" "meta.xml" "styles.xml") mapc #[(file) "r\302\303 \"\304\"q\210\305\306!\210\307 )\207" [file org-odt-zip-dir find-file-noselect expand-file-name t set-buffer-modified-p nil kill-buffer] 4] org-delete-directory t] 3] err (byte-code "\301\302! \210\207" [--cleanup-xml-buffers org-lparse-batch "odt"] 2) (((quit error) (byte-code " \210\302\303\304 !\"\207" [--cleanup-xml-buffers err message "OpenDocument export failed: %s" error-message-string] 4)))] 4 (#$ . 15453)]) #@833 Export the outline as a OpenDocumentText file. If there is an active region, export only the region. The prefix ARG specifies how many levels of the outline should become headlines. The default is 3. Lower levels will become bulleted lists. HIDDEN is obsolete and does nothing. EXT-PLIST is a property list with external parameters overriding org-mode's default settings, but still inferior to file-local settings. When TO-BUFFER is non-nil, create a buffer with that name and export to that buffer. If TO-BUFFER is the symbol `string', don't leave any buffer behind but just return the resulting XML as a string. When BODY-ONLY is set, don't produce the file header and footer, simply return the content of <body>...</body>, without even the body tags themselves. When PUB-DIR is set, use this as the publishing directory. (defalias 'org-export-as-odt #[(arg &optional hidden ext-plist to-buffer body-only pub-dir) "\303\304\305\"\306\"\307\310\311\312\217*\207" [org-export-odt-tmpdir-prefix --cleanup-xml-buffers org-odt-zip-dir make-temp-file format "odf" t #[nil "\302\303\304\"\210)\305 \306\"\207" [xml-files org-odt-zip-dir ("mimetype" "META-INF/manifest.xml" "content.xml" "meta.xml" "styles.xml") mapc #[(file) "r\302\303 \"\304\"q\210\305\306!\210\307 )\207" [file org-odt-zip-dir find-file-noselect expand-file-name t set-buffer-modified-p nil kill-buffer] 4] org-delete-directory t] 3] err (byte-code "\306\206 \307\307 \n \f & \210\207" [org-export-odt-preferred-output-format arg hidden ext-plist to-buffer body-only org-lparse "odt" pub-dir --cleanup-xml-buffers] 9) (((quit error) (byte-code " \210\302\303\304 !\"\207" [--cleanup-xml-buffers err message "OpenDocument export failed: %s" error-message-string] 4)))] 4 (#$ . 16497) "P"]) #@2 (defvar org-odt-entity-control-callbacks-alist '((EXPORT org-odt-begin-export org-odt-end-export) (DOCUMENT-CONTENT org-odt-begin-document-content org-odt-end-document-content) (DOCUMENT-BODY org-odt-begin-document-body org-odt-end-document-body) (TOC org-odt-begin-toc org-odt-end-toc) (ENVIRONMENT org-odt-begin-environment org-odt-end-environment) (FOOTNOTE-DEFINITION org-odt-begin-footnote-definition org-odt-end-footnote-definition) (TABLE org-odt-begin-table org-odt-end-table) (TABLE-ROWGROUP org-odt-begin-table-rowgroup org-odt-end-table-rowgroup) (LIST org-odt-begin-list org-odt-end-list) (LIST-ITEM org-odt-begin-list-item org-odt-end-list-item) (OUTLINE org-odt-begin-outline org-odt-end-outline) (OUTLINE-TEXT org-odt-begin-outline-text org-odt-end-outline-text) (PARAGRAPH org-odt-begin-paragraph org-odt-end-paragraph)) (#$ . 18278)) #@2 (defvar org-odt-entity-format-callbacks-alist '((EXTRA-TARGETS . org-lparse-format-extra-targets) (ORG-TAGS . org-lparse-format-org-tags) (SECTION-NUMBER . org-lparse-format-section-number) (HEADLINE . org-odt-format-headline) (TOC-ENTRY . org-odt-format-toc-entry) (TOC-ITEM . org-odt-format-toc-item) (TAGS . org-odt-format-tags) (SPACES . org-odt-format-spaces) (TABS . org-odt-format-tabs) (LINE-BREAK . org-odt-format-line-break) (FONTIFY . org-odt-format-fontify) (TODO . org-lparse-format-todo) (LINK . org-odt-format-link) (INLINE-IMAGE . org-odt-format-inline-image) (ORG-LINK . org-odt-format-org-link) (HEADING . org-odt-format-heading) (ANCHOR . org-odt-format-anchor) (TABLE . org-lparse-format-table) (TABLE-ROW . org-odt-format-table-row) (TABLE-CELL . org-odt-format-table-cell) (FOOTNOTES-SECTION . ignore) (FOOTNOTE-REFERENCE . org-odt-format-footnote-reference) (HORIZONTAL-LINE . org-odt-format-horizontal-line) (COMMENT . org-odt-format-comment) (LINE . org-odt-format-line) (ORG-ENTITY . org-odt-format-org-entity)) (#$ . 19135)) (defalias 'org-odt-begin-office-body #[nil "\302\206 \303\304 \"!\210eb\210\305\306\307\211#\210\310\224d|\207" [org-export-odt-content-template-file org-odt-styles-dir insert-file-contents expand-file-name "OrgOdtContentTemplate.xml" re-search-forward "</office:text>" nil 0] 4]) (defalias 'org-odt-format-toc #[nil "\204 \301\207\302\302Q\207" [org-lparse-toc "" "\n"] 3]) (defalias 'org-odt-format-preamble #[(opt-plist) "\306\307\"\306\310\"\306\311\"\312 ! \312 \313\"\306\314\" \306\315\"\205) \n\206) \306\316\"\2052 \306\317\"\205; \205I \320\301\321\322 \"\"\323P\n\203] \204] \320\324\321\325\n\"\"\326P\202s \n\205s \205s \320\324\327\321\330\n\"\331 P\"\"\326P \205\202 \320\324\321\332 \333\f$\"\326PQ. \207" [opt-plist title author date iso-date email plist-get :title :author :date org-odt-format-date "%d %b %Y" :email :author-info :email-info :time-stamp-file org-odt-format-stylized-paragraph org-odt-format-tags ("<text:title>" . "</text:title>") "<text:p text:style-name=\"OrgTitle\"/>" subtitle ("<text:initial-creator>" . "</text:initial-creator>") "<text:p text:style-name=\"OrgSubtitle\"/>" org-odt-format-link ("<text:initial-creator>" . "</text:initial-creator>") "mailto:" ("<text:date style:data-style-name=\"%s\" text:date-value=\"%s\">" . "</text:date>") "N75"] 9]) (defalias 'org-odt-begin-document-body #[(opt-plist) "\302 \210\303!c\210`\211\207" [opt-plist org-lparse-dyn-first-heading-pos org-odt-begin-office-body org-odt-format-preamble] 2]) (defalias 'org-odt-end-document-body #[(opt-plist) "?\205\f \301\302!\210\301\303!\207" [org-lparse-body-only org-lparse-insert-tag "</office:text>" "</office:body>"] 2]) (defalias 'org-odt-begin-document-content #[(opt-plist) "\300\207" [nil] 1]) (defalias 'org-odt-end-document-content #[nil "\300\301!\207" [org-lparse-insert-tag "</office:document-content>"] 2]) (defalias 'org-odt-begin-outline #[(level1 snumber title tags target extra-targets class) "\306\307\310\311 \n \f&\f $\207" [title extra-targets tags snumber level1 target org-lparse-insert HEADING org-lparse-format HEADLINE] 9]) (defalias 'org-odt-end-outline #[nil "\300\207" [nil] 1]) (defalias 'org-odt-begin-outline-text #[(level1 snumber class) "\300\207" [nil] 1]) (defalias 'org-odt-end-outline-text #[nil "\300\207" [nil] 1]) (defalias 'org-odt-begin-section #[(style &optional name) "\303\304!@\305\306 \n\206 #)\207" [default-name style name org-odt-add-automatic-style "Section" org-lparse-insert-tag "<text:section text:style-name=\"%s\" text:name=\"%s\">"] 4]) (defalias 'org-odt-end-section #[nil "\300\301!\207" [org-lparse-insert-tag "</text:section>"] 2]) (defalias 'org-odt-begin-paragraph #[(&optional style) "\301\302\303!\"\207" [style org-lparse-insert-tag "<text:p%s>" org-odt-get-extra-attrs-for-paragraph-style] 4]) (defalias 'org-odt-end-paragraph #[nil "\300\301!\207" [org-lparse-insert-tag "</text:p>"] 2]) (defalias 'org-odt-get-extra-attrs-for-paragraph-style #[(style) "\302 ;\203 \202 9\205 \303\304 \"\211\204 \305\306 \"\210\307\310\")\207" [style-name style nil org-odt-get-style-name-for-entity paragraph error "Don't know how to handle paragraph style %s" format " text:style-name=\"%s\""] 4]) (defalias 'org-odt-format-stylized-paragraph #[(style text) "\302\303\304 !#\207" [text style org-odt-format-tags ("<text:p%s>" . "</text:p>") org-odt-get-extra-attrs-for-paragraph-style] 5]) (defalias 'org-odt-format-author #[(&optional author) "\206 \302 \303\"\211\205 \304\305\"\207" [author org-lparse-opt-plist plist-get :author org-odt-format-tags ("<dc:creator>" . "</dc:creator>")] 3]) (defalias 'org-odt-format-date #[(&optional org-ts fmt) "\306 \307\216 ;\205 \310\n \"\205 \311\312\313\314\315\316 \"\317\"!\"\320 \203+ \321 \"\202; \321\322 \"\323\324\f\316\325O\f\325\320O#,\207" [save-match-data-internal org-ts org-ts-regexp0 time date fmt match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match apply encode-time org-fix-decoded-time org-parse-time-string match-string 0 t nil format-time-string "%Y-%m-%dT%H:%M:%S%z" format "%s:%s" -2] 7]) (defalias 'org-odt-begin-annotation #[(&optional author date) "\303\304!\210\305!\211\203 c\210\306\307\310 \206 \311\n\312\"!\"c\210\313 \207" [author date org-lparse-opt-plist org-lparse-insert-tag "<office:annotation>" org-odt-format-author org-odt-format-tags ("<dc:date>" . "</dc:date>") org-odt-format-date plist-get :date org-lparse-begin-paragraph] 6]) (defalias 'org-odt-end-annotation #[nil "\300\301!\207" [org-lparse-insert-tag "</office:annotation>"] 2]) (defalias 'org-odt-begin-environment #[(style env-options-plist) "\302\303\"\203 \304 \210\305\306 \307\"\306 \310\"\"\207\311\312\"\203\" \313!\210\314\207\311\315\"\203. \316 \210\314\207\317\320\"\207" [style env-options-plist eql annotation org-lparse-stash-save-paragraph-state org-odt-begin-annotation plist-get author date memql (blockquote verse center quote) org-lparse-begin-paragraph nil (fixedwidth native) org-lparse-end-paragraph error "Unknown environment %s"] 5]) (defalias 'org-odt-end-environment #[(style env-options-plist) "\301\302\"\203 \303 \210\304 \210\305 \207\306\307\"\203 \303 \210\310\207\306\311\"\203( \312 \210\310\207\313\314\"\207" [style eql annotation org-lparse-end-paragraph org-odt-end-annotation org-lparse-stash-pop-paragraph-state memql (blockquote verse center quote) nil (fixedwidth native) org-lparse-begin-paragraph error "Unknown environment %s"] 3]) (defalias 'org-odt-begin-list #[(ltype) "\306!\206 \307\310\"\n\204 G\311U\203 \f\204 \312\202! \313 \205) \314\315 \"P \316\317\"\203< \320 \210\321\322 \"\202@ \323\324\"*\207" [ltype style-name org-lparse-list-table-p org-lparse-list-stack org-odt-list-stack-stashed extra org-lparse-html-list-type-to-canonical-list-type org-odt-get-style-name-for-entity list 1 " text:continue-numbering=\"false\"" " text:continue-numbering=\"true\"" format " text:style-name=\"%s\"" memql (ordered unordered description) org-lparse-end-paragraph org-lparse-insert-tag "<text:list%s>" error "Unknown list type: %s"] 4]) (defalias 'org-odt-end-list #[(ltype) "\301!\206 \211\203 \302\303!\207\304\305\"\207" [ltype org-lparse-html-list-type-to-canonical-list-type org-lparse-insert-tag "</text:list>" error "Unknown list type: %s"] 4]) (defalias 'org-odt-begin-list-item #[(ltype &optional arg headline) "\306!\206 \307\310\"\2033 \203 \311\312\313 D\"\210\n\314 \315 G GU\203, \316\202- \317!\210\320 *\207\307\321\"\203g \n \314 \315 G GU\203M \316\202N \317!\210\320 \210 \203_ \322 \"\202d \323\314 \"c*\207\307\324\"\203\227 \203y \311\312\325 D\"\210\n\206~ \326 !\327\330\331\332!\"\"c\210\333\321!\210\334\324!\210\333\321!)\207\335\336!\207" [ltype headline arg counter extra org-lparse-list-stack org-lparse-html-list-type-to-canonical-list-type eql ordered signal cl-assertion-failed (not headline) "" org-lparse-insert-tag "<text:list-header>" "<text:list-item>" org-lparse-begin-paragraph unordered org-odt-format-target org-odt-format-bookmark description (not headline) "(no term)" org-odt-format-tags ("<text:list-item>" . "</text:list-item>") org-odt-format-stylized-paragraph definition-term org-lparse-begin-list-item org-lparse-begin-list error "Unknown list type" org-odt-list-stack-stashed id term] 5]) (defalias 'org-odt-end-list-item #[(ltype) "\303!\206 \304\305\"\203! \306 G\nGU\203 \307\310\202 \311!\207\312\313\"\2032 \314 \210\315\313!\210\314 \207\316\317!\207" [ltype org-lparse-list-stack org-odt-list-stack-stashed org-lparse-html-list-type-to-canonical-list-type memql (ordered unordered) org-lparse-insert-tag "</text:list-header>" nil "</text:list-item>" eql description org-lparse-end-list-item-1 org-lparse-end-list error "Unknown list type"] 3]) (defalias 'org-odt-discontinue-list #[nil "\211\305\n:\203 \n@\306 !\210\307 !\210\nA\211\202 * \211)\207" [org-lparse-list-stack stashed-stack #1=#:--cl-var-- list-type org-odt-list-stack-stashed nil org-lparse-end-list-item-1 org-lparse-end-list] 3]) (defalias 'org-odt-continue-list #[nil "\237\211\303 :\203 @\304\n!\210\305\n!\210 A\211\202 *\303\207" [org-odt-list-stack-stashed #1=#:--cl-var-- list-type nil org-lparse-begin-list org-lparse-begin-list-item] 3]) #@101 Table style specified by "#+ATTR_ODT: <style-name>" line. This is set during `org-odt-begin-table'. (defvar org-odt-table-style nil (#$ . 28533)) #@67 Entry for `org-odt-table-style' in `org-export-odt-table-styles'. (defvar org-odt-table-style-spec nil (#$ . 28685)) #@2974 Specify how Table Styles should be derived from a Table Template. This is a list where each element is of the form (TABLE-STYLE-NAME TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS). TABLE-STYLE-NAME is the style associated with the table through `org-odt-table-style'. TABLE-TEMPLATE-NAME is a set of - upto 9 - automatic TABLE-CELL-STYLE-NAMEs and PARAGRAPH-STYLE-NAMEs (as defined below) that is included in `org-export-odt-content-template-file'. TABLE-CELL-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE + "TableCell" PARAGRAPH-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE + "TableParagraph" TABLE-CELL-TYPE := "FirstRow" | "LastColumn" | "FirstRow" | "LastRow" | "EvenRow" | "OddRow" | "EvenColumn" | "OddColumn" | "" where "+" above denotes string concatenation. TABLE-CELL-OPTIONS is an alist where each element is of the form (TABLE-CELL-STYLE-SELECTOR . ON-OR-OFF). TABLE-CELL-STYLE-SELECTOR := `use-first-row-styles' | `use-last-row-styles' | `use-first-column-styles' | `use-last-column-styles' | `use-banding-rows-styles' | `use-banding-columns-styles' | `use-first-row-styles' ON-OR-OFF := `t' | `nil' For example, with the following configuration (setq org-export-odt-table-styles '(("TableWithHeaderRowsAndColumns" "Custom" ((use-first-row-styles . t) (use-first-column-styles . t))) ("TableWithHeaderColumns" "Custom" ((use-first-column-styles . t))))) 1. A table associated with "TableWithHeaderRowsAndColumns" style will use the following table-cell styles - "CustomFirstRowTableCell", "CustomFirstColumnTableCell", "CustomTableCell" and the following paragraph styles "CustomFirstRowTableParagraph", "CustomFirstColumnTableParagraph", "CustomTableParagraph" as appropriate. 2. A table associated with "TableWithHeaderColumns" style will use the following table-cell styles - "CustomFirstColumnTableCell", "CustomTableCell" and the following paragraph styles "CustomFirstColumnTableParagraph", "CustomTableParagraph" as appropriate.. Note that TABLE-TEMPLATE-NAME corresponds to the "<table:table-template>" elements contained within "<office:styles>". The entries (TABLE-STYLE-NAME TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS) correspond to "table:template-name" and "table:use-first-row-styles" etc attributes of "<table:table>" element. Refer ODF-1.2 specification for more information. Also consult the implementation filed under `org-odt-get-table-cell-styles'. The TABLE-STYLE-NAME "OrgEquation" is used internally for formatting of numbered display equations. Do not delete this style from the list. (custom-declare-variable 'org-export-odt-table-styles ''(("OrgEquation" "OrgEquation" ((use-first-column-styles . t) (use-last-column-styles . t)))) '(#$ . 28810) :group 'org-export-odt :version "24.1" :type '(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)))))) #@43 Template for auto-generated Table styles. (defvar org-odt-table-style-format "\n<style:style style:name=\"%s\" style:family=\"table\">\n <style:table-properties style:rel-width=\"%d%%\" fo:margin-top=\"0cm\" fo:margin-bottom=\"0.20cm\" table:align=\"center\"/>\n</style:style>\n" (#$ . 32379)) #@529 Registry of automatic styles for various OBJECT-TYPEs. The variable has the following form: ((OBJECT-TYPE-A ((OBJECT-NAME-A.1 OBJECT-PROPS-A.1) (OBJECT-NAME-A.2 OBJECT-PROPS-A.2) ...)) (OBJECT-TYPE-B ((OBJECT-NAME-B.1 OBJECT-PROPS-B.1) (OBJECT-NAME-B.2 OBJECT-PROPS-B.2) ...)) ...). OBJECT-TYPEs could be "Section", "Table", "Figure" etc. OBJECT-PROPS is (typically) a plist created by passing "#+ATTR_ODT: " option to `org-lparse-get-block-params'. Use `org-odt-add-automatic-style' to add update this variable.' (defvar org-odt-automatic-styles nil (#$ . 32681)) #@134 Running counters for various OBJECT-TYPEs. Use this to generate automatic names and style-names. See `org-odt-add-automatic-style'. (defvar org-odt-object-counters nil (#$ . 33267)) #@42 Write automatic styles to "content.xml". (defalias 'org-odt-write-automatic-styles #[nil "r\306\307\310!\311\"q\210eb\210\312\313\314\311#\210\315\224b\210\316\317\"\314\211\314 :\203M @\211\211A@\n@\316\f\320\"\206: \321\211\203F \322 \f#c\210 A\211\202\" -\314\207" [org-odt-automatic-styles #1=#:--cl-var-- #2=#:--cl-var-- style-name props org-odt-table-style-format find-file-noselect expand-file-name "content.xml" t re-search-forward " </office:automatic-styles>" nil 0 plist-get Table :rel-width 96 format] 5 (#$ . 33456)]) #@405 Create an automatic style of type OBJECT-TYPE with param OBJECT-PROPS. OBJECT-PROPS is (typically) a plist created by passing "#+ATTR_ODT: " option of the object in question to `org-lparse-get-block-params'. Use `org-odt-object-counters' to generate an automatic OBJECT-NAME and STYLE-NAME. If OBJECT-PROPS is non-nil, add a new entry in `org-odt-automatic-styles'. Return (OBJECT-NAME . STYLE-NAME). (defalias 'org-odt-add-automatic-style #[(object-type &optional object-props) ";\204 \306\307\310C\"\210\311!\211\312 \n\"\206 \313T \314\315\f# \316 \317 \n\f#\203I \314\320 \"\317 \321DC\312 \"\"# -B\207" [object-type object seqvar org-odt-object-counters seqno object-name signal cl-assertion-failed (stringp object-type) intern plist-get 0 format "%s%d" nil plist-put "Org%s" append style-name object-props org-odt-automatic-styles] 9 (#$ . 34008)]) (defvar org-odt-table-indentedp nil) (defalias 'org-odt-begin-table #[(caption label attributes short-caption) "??\211\203 \306 \210\nG\307\310\311 \"!\210)\312\f!\313\f\314\"\315 \"\2040 \203< \316\317\320\321#\"c\210\322\323\f\" \324\325 \206L @A@\206Z A\206Z \326#\210)`\211 \207" [org-lparse-list-stack org-odt-table-indentedp org-odt-list-stack-stashed level attributes org-odt-table-style org-odt-discontinue-list org-odt-begin-section format "OrgIndentedSection-Level-%d" org-lparse-get-block-params plist-get :style assoc org-odt-format-stylized-paragraph table org-odt-format-entity-caption "__Table__" org-odt-add-automatic-style "Table" org-lparse-insert-tag "<table:table table:name=\"%s\" table:style-name=\"%s\">" "OrgTable" org-export-odt-table-styles org-odt-table-style-spec label caption automatic-name short-caption org-lparse-table-begin-marker] 7]) (defalias 'org-odt-end-table #[nil "b\210\306\n W\203T \f\205 \307 T \"A\211 A@\206 \306\211 T\306 ! !W\203H \310\311\312\"A@\206< \313#c\210 T\211 \202+ *\314c\210* T\211\202 *\f\203\253 \315\316\317\320#\203\253 \321\322! #\323\321\324!! $\323\321\325!! %\326$%\"#\211 &@ '&A (#\327\232\203\230 \330(\320\211#\210\202\246 #\331\232\203\246 \330'\320\211#\210.\202Y db\210\332\333!\210)\205\274 \334 \210\335 \207" [org-lparse-table-begin-marker level org-lparse-table-ncols #1=#:--cl-var-- org-lparse-table-is-styled org-lparse-table-colalign-info 0 assoc org-odt-format-tags "<table:table-column table:style-name=\"%sColumn\"/>" "" "OrgTable" "\n" re-search-forward "@@\\(table-cell:p\\|table-cell:style-name\\)@@\\([0-9]+\\)@@\\([0-9]+\\)@@" nil t match-string 1 string-to-number 2 3 org-odt-get-table-cell-styles "table-cell:p" replace-match "table-cell:style-name" org-lparse-insert-tag "</table:table>" org-odt-end-section org-odt-continue-list col-cookie extra-columns i --dotimes-limit-- org-odt-table-style-spec spec r c cell-styles table-cell-style table-cell-paragraph-style org-odt-table-indentedp] 5]) (defalias 'org-odt-begin-table-rowgroup #[(&optional is-header-row) "\203 \303\304!\210\305 \203 \306\202 \307!\210\310 \211\207" [org-lparse-table-rowgrp-open is-header-row org-lparse-table-cur-rowgrp-is-hdr org-lparse-end TABLE-ROWGROUP org-lparse-insert-tag "<table:table-header-rows>" "<table:table-rows>" t] 2]) (defalias 'org-odt-end-table-rowgroup #[nil "\205 \302\303 \203 \304\202 \305!\207" [org-lparse-table-rowgrp-open org-lparse-table-cur-rowgrp-is-hdr nil org-lparse-insert-tag "</table:table-header-rows>" "</table:table-rows>"] 2]) (defalias 'org-odt-format-table-row #[(row) "\301\302\"\207" [row org-odt-format-tags ("<table:table-row>" . "</table:table-row>")] 3]) #@711 Retrieve styles applicable to a table cell. R and C are (zero-based) row and column numbers of the table cell. STYLE-SPEC is an entry in `org-export-odt-table-styles' applicable to the current table. It is `nil' if the table is not associated with any style attributes. Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME). When STYLE-SPEC is nil, style the table cell the conventional way - choose cell borders based on row and column groupings and choose paragraph alignment based on `org-col-cookies' text property. See also `org-odt-get-paragraph-style-cookie-for-table-cell'. When STYLE-SPEC is non-nil, ignore the above cookie and return styles congruent with the ODF-1.2 specification. (defalias 'org-odt-get-table-cell-styles #[(r c &optional style-spec) "\203\266 A@\3068\307\310\n\"A\203 \311U\203 \312\202\247 \307\313\n\"A\2031 \fSU\2031 \314\202\247 \307\315\n\"A\203C \311U\203C \316\202\247 \307\317\n\"A\203V #U\203V \320\202\247 \307\321\n\"A\203j \306\246\322U\203j \323\202\247 \307\321\n\"A\203~ \306\246\311U\203~ \324\202\247 \307\325\n\"A\203\222 \306\246\322U\203\222 \326\202\247 \307\325\n\"A\203\246 \306\246\311U\203\246 \327\202\247 \330 $ $\331Q $\332Q+B\207\333 \311U\203\301 \334\202\321 \307 %\"A\335=\203\320 \334\202\321 \330 #U\205\331 \336 \311U\203\343 \330\202\373 &8\337>\204\366 S&8\340>\203\372 \341\202\373 \330R\342' H!B\207" [style-spec template-name cell-style-selectors c org-lparse-table-ncols r 2 assoc use-first-column-styles 0 "FirstColumn" use-last-column-styles "LastColumn" use-first-row-styles "FirstRow" use-last-row-styles "LastRow" use-banding-rows-styles 1 "EvenRow" "OddRow" use-banding-columns-styles "EvenColumn" "OddColumn" "" "TableCell" "TableParagraph" "OrgTblCell" "T" :start "B" (:start :startend) (:end :startend) "L" capitalize org-lparse-table-rownum cell-type org-lparse-table-rowgrp-info org-table-colgroup-info org-lparse-table-colalign-vector] 5 (#$ . 37634)]) (defalias 'org-odt-get-paragraph-style-cookie-for-table-cell #[(r c) "?\205 \203 \305\202 \n\306U\203 \307\310!\203 \305\202 \311 \205' \312\313\f\n#P\207" [org-odt-table-style-spec org-lparse-table-cur-rowgrp-is-hdr c org-lparse-table-is-styled r "OrgTableHeading" 0 org-lparse-get TABLE-FIRST-COLUMN-AS-LABELS "OrgTableContents" format "@@table-cell:p@@%03d@@%03d@@"] 5]) (defalias 'org-odt-get-style-name-cookie-for-table-cell #[(r c) "\205 \303\304 \n#\207" [org-lparse-table-is-styled r c format "@@table-cell:style-name@@%03d@@%03d@@"] 4]) (defalias 'org-odt-format-table-cell #[(data r c horiz-span) "\306 \"\307 \"\211\205 \310\311 \"\211 \312V\205 \310\313 T\"P \314\315\203- \2022 \316\n\"\f#,\317 \312 W\203U \320PT\211\202@ *)\321Q\207" [r c paragraph-style-cookie style-name-cookie extra horiz-span org-odt-get-paragraph-style-cookie-for-table-cell org-odt-get-style-name-cookie-for-table-cell format " table:style-name=\"%s\"" 0 " table:number-columns-spanned=\"%d\"" org-odt-format-tags ("<table:table-cell%s>" . "</table:table-cell>") org-odt-format-stylized-paragraph nil "\n<table:covered-table-cell/>" "\n" org-lparse-list-table-p data s i --dotimes-limit--] 6]) (defalias 'org-odt-begin-footnote-definition #[(n) "\300\301!\207" [org-lparse-begin-paragraph footnote] 2]) (defalias 'org-odt-end-footnote-definition #[(n) "\300 \207" [org-lparse-end-paragraph] 1]) (defalias 'org-odt-begin-toc #[(lang-specific-heading max-level) "\306\307\211\310\311 \n#\2032 \312\313 \"\314 \315\"\211\204\" \306\225\202 \306\224G\\\316\317\211 $\202 +\320\321\f #c\210\313\211 \322X\203P \320\323 \211#c\210 T\211\202= )\320\324 \"c\207" [rpl entity i lang-specific-heading max-level level 0 nil string-match "&\\([^#].*?\\);" match-string 1 org-entity-get-representation utf8 replace-match t format "\n <text:table-of-content text:style-name=\"Sect2\" text:protected=\"true\" text:name=\"Table of Contents1\">\n <text:table-of-content-source text:outline-level=\"%d\">\n <text:index-title-template text:style-name=\"Contents_20_Heading\">%s</text:index-title-template>\n" 10 "\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" "\n </text:table-of-content-source>\n\n <text:index-body>\n <text:index-title text:style-name=\"Sect1\" text:name=\"Table of Contents1_Head\">\n <text:p text:style-name=\"Contents_20_Heading\">%s</text:p>\n </text:index-title>\n"] 6]) (defalias 'org-odt-end-toc #[nil "\300c\207" ["\n </text:index-body>\n </text:table-of-content>\n"] 1]) (defalias 'org-odt-format-toc-entry #[(snumber todo headline tags href) "\205 \306P\n \205 \307\310\311\"\307\312 \313#PQ\f\203\" \307\312\n\314#\315 \316\n\317P\")\207" [org-export-with-section-numbers snumber headline tags todo org-odt-suppress-xref ". " org-lparse-format SPACES 3 FONTIFY "tag" "todo" t org-odt-format-link "#" href] 7]) (defalias 'org-odt-format-toc-item #[(toc-entry level org-last-level) "\303\304\305\306\307!\206 \310\311#\"\312\313 \n\"\312\261)\207" [level style toc-entry format "Contents_20_%d" + org-lparse-get TOPLEVEL-HLEVEL 1 -1 "\n" org-odt-format-stylized-paragraph] 6]) (defvar org-lparse-link-description-is-image nil) (defalias 'org-odt-format-link #[(desc href &optional attr) "\306!\307U\2038 \2048 \310\311O\312 \247\203 \313\314 \"\315 <\203, \316\317 \320#\321\fP\322\323 \n$)\207 \203H \322\324 \206F \325$\207\322\326 \206R \325$\207" [href org-odt-suppress-xref xref-format desc org-export-odt-bookmark-prefix org-lparse-link-description-is-image string-to-char 35 1 nil "text" format "%d" "number" mapconcat identity "." "chapter" org-odt-format-tags ("<text:bookmark-ref text:reference-format=\"%s\" text:ref-name=\"%s\">" . "</text:bookmark-ref>") ("<draw:a xlink:type=\"simple\" xlink:href=\"%s\" %s>" . "</draw:a>") "" ("<text:a xlink:type=\"simple\" xlink:href=\"%s\" %s>" . "</text:a>") attr] 5]) (defalias 'org-odt-format-spaces #[(n) "\301U\203 \302\207\301V\203 \302\303\304\305S#P\207\305\207" [n 1 " " org-odt-format-tags "<text:s text:c=\"%d\"/>" ""] 5]) (defalias 'org-odt-format-tabs #[(&optional n) "\302\206 \303\211c*\207" [n tab "<text:tab/>" 1] 3]) (defalias 'org-odt-format-line-break #[nil "\300\301\302\"\207" [org-odt-format-tags "<text:line-break/>" ""] 3]) (defalias 'org-odt-format-horizontal-line #[nil "\300\301\302\"\207" [org-odt-format-stylized-paragraph horizontal-line ""] 3]) (defalias 'org-odt-encode-plain-text #[(line &optional no-whitespace-filling) "\302! \203\n \207\303!\207" [line no-whitespace-filling org-xml-encode-plain-text org-odt-fill-tabs-and-spaces] 2]) (defalias 'org-odt-format-line #[(line) "\302\303\"\203 \304\303\305 !\"\306P\207 \306P\207" [org-lparse-dyn-current-environment line eql fixedwidth org-odt-format-stylized-paragraph org-odt-encode-plain-text "\n"] 4]) (defalias 'org-odt-format-comment #[(fmt &rest args) "\303\304 #\304\305\n\")\207" [fmt args comment apply format "\n<!-- %s -->\n"] 4]) (defalias 'org-odt-format-org-entity #[(wd) "\301\302\"\207" [wd org-entity-get-representation utf8] 3]) (defalias 'org-odt-fill-tabs-and-spaces #[(line) "\301\302\303#\207" [line replace-regexp-in-string "\\([ ]\\|\\([ ]+\\)\\)" #[(s) "\301\230\203 \302 \207\303G!\207" [s " " org-odt-format-tabs org-odt-format-spaces] 2]] 4]) #@249 Specify whether or not source blocks need to be fontified. Turn this option on if you want to colorize the source code blocks in the exported file. For colorization to work, you need to make available an enhanced version of `htmlfontify' library. (custom-declare-variable 'org-export-odt-fontify-srcblocks t '(#$ . 45269) :type 'boolean :group 'org-export-odt :version "24.1") (defalias 'org-odt-format-source-line-with-line-number-and-label #[(line rpllbl num fontifier par-style) "\247?\306\307 \" \205 \n\205 \310\311\n\"P\f !\n\203' \312 \313\nP\"\314 \"\2045 \2029 \315\316 \"*\207" [rpllbl line ref keep-label fontifier par-style org-find-text-property-in-string org-coderef format "(%s)" org-odt-format-target "coderef-" org-odt-format-stylized-paragraph org-odt-format-tags ("<text:list-item>" . "</text:list-item>") num] 4]) #@133 Format source or example blocks much like fixedwidth blocks. Use this when `org-export-odt-fontify-srcblocks' option is turned off. (defalias 'org-odt-format-source-code-or-example-plain #[(lines lang caption textareap cols rows num cont rpllbl fmt) "\303\304\"\211G\305\306\307\310#+\207" [lines line-count i org-split-string "[ \n]" 0 mapconcat #[(line) "T\305 \n \306\fU\203 \307\202 \310%\207" [i line rpllbl num line-count org-odt-format-source-line-with-line-number-and-label org-odt-encode-plain-text "OrgFixedWidthBlockLastLine" "OrgFixedWidthBlock"] 7] "\n"] 5 (#$ . 46125)]) #@245 Custom paragraph style for colorized source and example blocks. This style is much the same as that of "OrgFixedWidthBlock" except that the foreground and background colors are set according to the default face identified by the `htmlfontify'. (defvar org-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>" (#$ . 46727)) #@556 Create custom style for face FN. When FN is the default face, use it's foreground and background properties to create "OrgSrcBlock" paragraph style. Otherwise use it's color attribute to create a character style whose name is obtained from FN. Currently all attributes of FN other than color are ignored. The style name for a face FN is derived using the following operations on the face name in that order - de-dash, CamelCase and prefix with "OrgSrc". For example, `font-lock-function-name-face' is associated with "OrgSrcFontLockFunctionNameFace". (defalias 'org-odt-hfy-face-to-css #[(fn) "\306!\307\310\311\312\313!\314\"\315#P)\316\317 \"A\316\320 \"A \2058 \321=\2033 \322\f #\2028 \322\323\n # \n-B\207" [fn css-list style-name color-val background-color-val org-export-odt-create-custom-styles-for-srcblocks hfy-face-to-style "OrgSrc" mapconcat capitalize split-string hfy-face-or-def-to-name "-" "" assoc "color" "background" default format "\n<style:style style:name=\"%s\" style:family=\"text\">\n <style:text-properties fo:color=\"%s\"/>\n </style:style>" org-src-block-paragraph-format style] 6 (#$ . 47418)]) #@149 Save STYLES used for colorizing of source blocks. Update styles.xml with styles that were collected as part of `org-odt-hfy-face-to-css' callbacks. (defalias 'org-odt-insert-custom-styles-for-srcblocks #[(styles) "\205\" r\301\302\303!\304\"q\210eb\210\305\306\307\304#\205! \310\224b\210\311\312\261)\207" [styles find-file-noselect expand-file-name "styles.xml" t re-search-forward "</office:styles>" nil 0 "\n<!-- Org Htmlfontify Styles -->\n" "\n"] 4 (#$ . 48568)]) #@139 Format source or example blocks using `htmlfontify-string'. Use this routine when `org-export-odt-fontify-srcblocks' option is turned on. (defalias 'org-odt-format-source-code-or-example-colored #[(lines lang caption textareap cols rows num cont rpllbl fmt) "\205 \306 \"A\206 \211\205\" \307\n9\203 \310\n!\202 \n\311P!\312 \313 \314\315! $r$q\210\316\216%c\210\317 !\203C \210\202F \320 \210\321 \210\322 + %\323 &\324 '\325 (\326)! \327\330\331\" )\332 *\333 +\334\335!\205\204 \336%\337\"\211 %G ,\340 -\341\342%\343#+.\f\207" [lang org-src-lang-modes lang-m mode org-inhibit-startup org-startup-folded assoc intern symbol-name "-mode" t nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) functionp fundamental-mode font-lock-fontify-buffer buffer-string "\\([<\"&> ]\\)" (("\"" """) ("<" "<") ("&" "&") (">" ">") (" " "<text:s/>") (" " "<text:tab/>")) org-odt-hfy-face-to-css copy-sequence add-to-list hfy-optimisations-1 body-text-only #[(style text-block text-id text-begins-block-p) "\301\302\"c\207" [style format "<text:span text:style-name=\"%s\">"] 3] #[nil "\300c\207" ["</text:span>"] 1] fboundp htmlfontify-string org-split-string "[ \n]" 0 mapconcat #[(line) "T\305 \n \306\fU\203 \307\202 \310%\207" [i line rpllbl num line-count org-odt-format-source-line-with-line-number-and-label htmlfontify-string "OrgSrcBlockLastLine" "OrgSrcBlock"] 7] "\n" #1# lines hfy-html-quote-regex hfy-html-quote-map hfy-face-to-css hfy-optimisations hfy-begin-span-handler hfy-end-span-handler line-count i] 5 (#$ . 49048)]) #@207 Format source or example blocks for export. Use `org-odt-format-source-code-or-example-plain' or `org-odt-format-source-code-or-example-colored' depending on the value of `org-export-odt-fontify-srcblocks. (defalias 'org-odt-format-source-code-or-example #[(lines lang caption textareap cols rows num cont rpllbl fmt) "\306\307\211 \n \f\310& \203( \311\312!\204 \313\312\314\315#\203( \316\317!\203( \320\202) \321 \n \f&\n \204A \207\322\323\n\203K \324\202L \325\" \326\327 #)\207" [lines num cont rpllbl fmt org-export-odt-fontify-srcblocks org-export-number-lines 0 preprocess featurep htmlfontify require nil t fboundp htmlfontify-string org-odt-format-source-code-or-example-colored org-odt-format-source-code-or-example-plain format " text:continue-numbering=\"%s\"" "true" "false" org-odt-format-tags ("<text:list text:style-name=\"OrgSrcBlockNumberedLine\"%s>" . "</text:list>") lang caption textareap cols rows extra] 11 (#$ . 50694)]) (defalias 'org-odt-remap-stylenames #[(style-name) "\301\302\"A\206 \207" [style-name assoc (("timestamp-wrapper" . "OrgTimestampWrapper") ("timestamp" . "OrgTimestamp") ("timestamp-kwd" . "OrgTimestampKeyword") ("tag" . "OrgTag") ("todo" . "OrgTodo") ("done" . "OrgDone") ("target" . "OrgTarget"))] 3]) (defalias 'org-odt-format-fontify #[(text style &optional id) ";\203 \304!\202@ 9\203 \305\306\"\202@ <\203< \307GW\204) \310\311\312C\"\210\211A@\313\314\315#\210\304 !)\202@ \316\317\"\320\321 \n#)\207" [style parent-style style-name text org-odt-remap-stylenames org-odt-get-style-name-for-entity character 1 signal cl-assertion-failed (< 1 (length style)) mapconcat #[(s) "\301!\207" [s org-odt-remap-stylenames] 2] "" error "Don't how to handle style %s" org-odt-format-tags ("<text:span text:style-name=\"%s\">" . "</text:span>")] 4]) (defalias 'org-odt-relocate-relative-path #[(path dir) "\302!\203 \207\303\304 \"\304\305 \"\"\207" [path dir file-name-absolute-p file-relative-name expand-file-name "eyecandy"] 5]) (defalias 'org-odt-format-inline-image #[(thefile) "\305!\203\n \202 \306\307 \"!\310\311\312 \203 \313!\202 \n# \314\f\"*\207" [thefile org-current-export-file thelink org-export-odt-embed-images href file-name-absolute-p org-xml-format-href org-odt-relocate-relative-path org-odt-format-tags "<draw:image xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" "" org-odt-copy-image-file org-export-odt-format-image] 5]) #@591 Associate Labels with the Labeled entities. Each element of the alist is of the form (LABEL-NAME CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as that specified by "#+LABEL: ..." line. CATEGORY-NAME is the type of the entity that LABEL-NAME is attached to. CATEGORY-NAME can be one of "Table", "Figure" or "Equation". SEQNO is the unique number assigned to the referenced entity on a per-CATEGORY basis. It is generated sequentially and is 1-based. LABEL-STYLE-NAME is a key `org-odt-label-styles'. See `org-odt-add-label-definition' and `org-odt-fixup-label-references'. (defvar org-odt-entity-labels-alist nil (#$ . 53183)) (defalias 'org-export-odt-format-formula #[(src href) "\306 \307\216\310\311 \"\310\312 \"\206 \n\n\205 \313\n! \205\" \314 !\310\315 \" \310\316 \"\211 \2038 \310\317 \"\206E \n\204@ \f\203D \320\202E \321 )\322\211 * + \203[ \323,\324\325\326 %,)\321=\203n \327\330,*+$\202\274 \331 \210\332\327\n\204 \f\204 \333\202\200 \334,*+\335\n\336\f\337 &\n\n\204\232 \f\204\232 \340\202\255 -@ .\341.!\342\240\210\343\344\n.#)DC\322\211\211\345\322\346&\210\347\350\322\". \207" [save-match-data-internal src caption short-caption label latex-frag match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-find-text-property-in-string org-caption org-caption-shortn org-xml-format-desc org-xml-encode-plain-text org-label org-latex-src org-latex-src-embed-type paragraph character nil org-propertize :title "LaTeX Fragment" :description org-odt-format-entity "InlineFormula" org-lparse-end-paragraph org-lparse-insert-list-table "DisplayFormula" "CaptionedDisplayFormula" :caption :label :short-caption "" last "math-label" apply org-odt-format-label-definition ":style \"OrgEquation\"" ((1 "c" 8) (2 "c" 1)) throw nextline embed-as width height href org-odt-entity-labels-alist label-props] 13]) (defvar org-odt-embedded-formulas-count 0) #@39 Returns the internal name of the file (defalias 'org-odt-copy-formula-file #[(path) "\306\307 !\"\310\311 T\211\"\211 \312P \204\\ \313\314\315! #\210\316\f!\210\317\320\f\321#\210\322\n! \323 \324\"\203@ \325\n \326#\210\202V \323 \327\"\203Q \330\n\312\f#\210\202V \331\332\n\"\210)\317\333 \"\210 +\207" [path org-current-export-file src-file org-odt-embedded-formulas-count target-dir target-file expand-file-name file-name-directory format "Formula-%04d/" "content.xml" message "Embedding %s as %s ..." substring-no-properties make-directory org-odt-create-manifest-file-entry "application/vnd.oasis.opendocument.formula" "1.2" org-odt-is-formula-link-p eql mathml copy-file overwrite odf org-odt-zip-extract-one error "%s is not a formula file" "text/xml" org-lparse-to-buffer #1=#:--cl-var--] 5 (#$ . 55133)]) (defalias 'org-odt-format-inline-formula #[(thefile) "\304!\203\n \202 \305\306 \"!\307\310\311\312\313!!#\314 \"*\207" [thefile org-current-export-file thelink href file-name-absolute-p org-xml-format-href org-odt-relocate-relative-path org-odt-format-tags "<draw:object xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" "" file-name-directory org-odt-copy-formula-file org-export-odt-format-formula] 6]) (defalias 'org-odt-is-formula-link-p #[(file) "\302\303\304 \"\203 \305\202 \303\306 \"\205 \307)\207" [case-fold-search file nil string-match "\\.\\(mathml\\|mml\\)\\'" mathml "\\.odf\\'" odf] 3]) #@327 Make a OpenDocument link. OPT-PLIST is an options list. TYPE-1 is the device-type of the link (THIS://foo.html). PATH is the path of the link (http://THIS#location). FRAGMENT is the fragment part of the link, if any (foo.html#THIS). DESC is the link description, if any. ATTR is a string of other attributes of the a element. (defalias 'org-odt-format-org-link #[(opt-plist type-1 path fragment desc attr descp) "\306 \307\216 \310\235\205 \311\n \"\205 \f? \312\232\203 \313\202 7\n 8\n 9\314\211 : ;7\315\235\203Y \f\204Y \3168<\"\203Y =\317=\204R =\203Y \204Y \3209!\202\3347\321\235\203v \f\204v \3228!\203v \204v \3239!\202\3347\324\230\203\f >\325>?\"A @ \205\217 A A\314 B\326\327>P! C@\247\203\260 A\204\260 \330@C\"\202\f@\247\203\333 A\203\333 \331\332\333>\334Q!A\"\203\333 \335\336\337\317\211A$\330@C\"\"\202\f\335A\203\371 \331\332\333>\334Q!A\"\203\371 \336\337\317\211A$\202\377 A\206\377 \337@\"A\330\340A!C\"-\202\3347\341\230\203~9\203#9\341\230\203~\342D\343\"\203~\344\345\346\f#\203~\f\211:\203~\331\347:\"\204S\350\351\215\211:\203~\331\347:\"\203~\352\353\354:\"\355\"\211;\203~;G\342D\356\"X\203~\314 B\330;\357:PE#)\202\3347\313\230\203\233\360\n!\203\223\361\362\n!P\202\231\3639F\"97\364\235\203\255\f\203\2559\357\fQ9\3269!97\365\235\204\3027\3669Q97\341\230\205\317\344\345\346\f#? B\330\340A!9E#).\207" [save-match-data-internal type-1 path descp fragment may-inline-p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) ("http" "https" "file") org-lparse-should-inline-p "id" "file" nil ("file") org-file-image-p t org-odt-format-inline-image ("file") org-odt-is-formula-link-p org-odt-format-inline-formula "coderef" assoc org-xml-format-href "#coderef-" org-odt-format-link string-match regexp-quote "(" ")" format replace-match "%s" org-xml-format-desc #2="" plist-get :section-numbers get-text-property 0 org-no-description "\\`sec\\(\\(-[0-9]+\\)+\\)" --cl-block-nil-- (byte-code "\304 :\203 @ \nA\235\203 \305\306\n@\"\210 A\211\202 *\304\207" [org-export-target-aliases #1=#:--cl-var-- alias fragment nil throw --cl-block-nil--] 4) org-split-string match-string 1 "-" :headline-levels "#" file-name-absolute-p "file://" expand-file-name org-odt-relocate-relative-path (#2# "http" "https" "file") (#2# "file") ":" type filename thefile sec-frag sec-nos org-export-odt-inline-image-extensions org-export-odt-inline-images ref org-export-code-refs lineno-or-ref desc org-odt-suppress-xref href org-lparse-opt-plist attr org-current-export-file] 7 (#$ . 56621)]) (defalias 'org-odt-format-heading #[(text level &optional id) "\203 \303 \"\202\f \304\305 \n\211$)\207" [id text level org-odt-format-target org-odt-format-tags ("<text:h text:style-name=\"Heading_20_%s\" text:outline-level=\"%s\">" . "</text:h>")] 5]) (defalias 'org-odt-format-headline #[(title extra-targets tags &optional snumber level) "\303\304\" \n\205 \303\305\306\"\303\307\n\"PQ\207" [extra-targets title tags org-lparse-format EXTRA-TARGETS SPACES 3 ORG-TAGS] 6]) (defalias 'org-odt-format-anchor #[(text name &optional class) "\302 \"\207" [text name org-odt-format-target] 3]) (defalias 'org-odt-format-bookmark #[(text id) "\203\n \302\303 #\207 \207" [id text org-odt-format-tags "<text:bookmark text:name=\"%s\"/>"] 4]) (defalias 'org-odt-format-target #[(text id) " P \205 \304\305\306\n#\307 \" \205 \304\310\306\n#Q)\207" [org-export-odt-bookmark-prefix id name text org-odt-format-tags "<text:bookmark-start text:name=\"%s\"/>" "" org-odt-format-bookmark "<text:bookmark-end text:name=\"%s\"/>"] 6]) (defalias 'org-odt-format-footnote #[(n def) "\305P\306\307\310\311\310\312\"\310\313\f\"P \n$+\207" [n par-style note-class id def "fn" "footnote" "Footnote" org-odt-format-tags ("<text:note text:id=\"%s\" text:note-class=\"%s\">" . "</text:note>") ("<text:note-citation>" . "</text:note-citation>") ("<text:note-body>" . "</text:note-body>")] 6]) (defalias 'org-odt-format-footnote-reference #[(n def refcnt) "\303U\203 \304 \n\"\207\305 !\207" [refcnt n def 1 org-odt-format-footnote org-odt-format-footnote-ref] 3]) (defalias 'org-odt-format-footnote-ref #[(n) "\304\305\306P\307\310\307\311 \n %\312#+\207" [n ref-name ref-format note-class "footnote" "text" "fn" org-odt-format-tags ("<text:span text:style-name=\"%s\">" . "</text:span>") ("<text:note-ref text:note-class=\"%s\" text:reference-format=\"%s\" text:ref-name=\"%s\">" . "</text:note-ref>") "OrgSuperscript"] 8]) (defalias 'org-odt-get-image-name #[(file-name) "\301\302!\210\303\304\302!\305\306!Q\307\"!\207" [file-name require sha1 file-relative-name expand-file-name "." file-name-extension "Pictures"] 6]) #@46 Create image tag with source and attributes. (defalias 'org-export-odt-format-image #[(src href) "\306 \307\216\310\311 \"\310\312 \"\206 \n\n\205 \313\n! \205\" \314 !\310\315 \" \310\316 \" \310\317 \"\211 0\2058 \320 1\321\f! 2\322\3232\324\"\325\326#@\211 3\205T \3232\327\" 43\205` \3232\330\" 5453E 60\203\211 \331\310\332 \" 7\3337\334\"\203\203 \334\202\204 \335)!\202\217 3\206\217 \336 8\337 \3232\340\"\3232\341\"\3232\342\"\3438&\211 9@ :9A ;0\203\302 \344<\345\346\3470%<\n\204\312 \205\313 \3508\351Q =\352=<:;\353\n\354 \3551\356 \3576&.\207" [save-match-data-internal src caption short-caption attr label match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-find-text-property-in-string org-caption org-caption-shortn org-xml-format-desc org-xml-encode-plain-text org-attributes org-label org-latex-src "__DvipngImage__" org-lparse-get-block-params assoc-string plist-get :anchor (("as-char") ("paragraph") ("page")) t :style :attributes symbol-name org-latex-src-embed-type eql paragraph as-char "paragraph" org-odt-image-size-from-file :width :height :scale nil org-propertize :title "LaTeX Fragment" :description "Captioned" "Image" org-odt-format-entity :caption :label :category :short-caption :user-frame-params latex-frag category attr-plist user-frame-anchor user-frame-style user-frame-attrs user-frame-params #1=#:--cl-var-- embed-as size width height href frame-style-handle] 16 (#$ . 61411)]) (defalias 'org-odt-format-object-description #[(title description) "\205 \302\303\304\305\"\" \205 \302\306\304 \305\"\"P\207" [title description org-odt-format-tags ("<svg:title>" . "</svg:title>") org-odt-encode-plain-text t ("<svg:desc>" . "</svg:desc>")] 6]) (defalias 'org-odt-format-frame #[(text width height style &optional extra anchor-type) "\203 \306\307\"\202\f \310 \203 \306\311 \"\202 \310\n\306\312 \206 \313\"R \314\315 \316\317\320\321 #\317\320\322 #\"P\f$)\207" [width height extra anchor-type frame-attrs text format " svg:width=\"%0.2fcm\"" "" " svg:height=\"%0.2fcm\"" " text:anchor-type=\"%s\"" "paragraph" org-odt-format-tags ("<draw:frame draw:style-name=\"%s\"%s>" . "</draw:frame>") org-odt-format-object-description get-text-property 0 :title :description style] 9]) (defalias 'org-odt-format-textbox #[(text width height style &optional extra anchor-type) "\306\307\310\311\312 \206 \313\"\n?\205 \311\314\n\206 \315\"P#\n\316 \f &\207" [text height width style extra anchor-type org-odt-format-frame org-odt-format-tags ("<draw:text-box %s>" . "</draw:text-box>") format " fo:min-height=\"%0.2fcm\"" 0.2 " fo:min-width=\"%0.2fcm\"" 0.2 nil] 8]) (defalias 'org-odt-format-inlinetask #[(heading content &optional todo priority tags) "\304\305\306\304\307\310\311\312!\313 Q\305\n$\" P\305\211\314\315%\"\207" [todo heading tags content org-odt-format-stylized-paragraph nil org-odt-format-textbox "OrgInlineTaskHeading" org-lparse-format HEADLINE org-lparse-format-todo " " "OrgInlineTaskFrame" " style:rel-width=\"100%\""] 10]) (defvar org-odt-entity-frame-styles '(("As-CharImage" "__Figure__" ("OrgInlineImage" nil "as-char")) ("ParagraphImage" "__Figure__" ("OrgDisplayImage" nil "paragraph")) ("PageImage" "__Figure__" ("OrgPageImage" nil "page")) ("CaptionedAs-CharImage" "__Figure__" ("OrgCaptionedImage" " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph") ("OrgInlineImage" nil "as-char")) ("CaptionedParagraphImage" "__Figure__" ("OrgCaptionedImage" " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph") ("OrgImageCaptionFrame" nil "paragraph")) ("CaptionedPageImage" "__Figure__" ("OrgCaptionedImage" " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph") ("OrgPageImageCaptionFrame" nil "page")) ("InlineFormula" "__MathFormula__" ("OrgInlineFormula" nil "as-char")) ("DisplayFormula" "__MathFormula__" ("OrgDisplayFormula" nil "as-char")) ("CaptionedDisplayFormula" "__MathFormula__" ("OrgCaptionedFormula" nil "paragraph") ("OrgFormulaCaptionFrame" nil "as-char")))) (defalias 'org-odt-merge-frame-params #[(default-frame-params user-frame-params) "\204 \207 G\306U\204 \307\310\311C\"\210G\306U\204 \307\310\312C\"\210\313 \313\211 \f\n:\203N \n@\f:\203N \f@ \206@ \fB\f\nA\fA\202+ \f\237-\207" [user-frame-params default-frame-params #1=#:--cl-var-- user-frame-param #2=#:--cl-var-- default-frame-param 3 signal cl-assertion-failed (= (length default-frame-params) 3) (= (length user-frame-params) 3) nil #3=#:--cl-var--] 4]) #@93 (fn ENTITY HREF WIDTH HEIGHT &key CAPTION LABEL CATEGORY USER-FRAME-PARAMS SHORT-CAPTION) (defalias 'org-odt-format-entity #[(entity href width height &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \203Q @\313>\2038 AA\211 \202# \314>A@\203G \315\211 \202# \316\317 @\"\210\202! )\320 \321# !\315\211 \" # \204\204 \n\204\204 \322!8\"\323\"\f\"#\324\325$%&#%\202\323 \326!8\"\323\"\f\"#\324\327\330\331\324\325$%&\332\322!8!\211 'A'\211 (A@) \205\267 \333\334 \"P\240\210')%\335\n \206\311 !A@#P\"%&#%.\207" [#1# caption label category user-frame-params short-caption :caption :label :category :user-frame-params :short-caption (:caption :label :category :user-frame-params :short-caption :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:caption :label :category :user-frame-params :short-caption)" assoc-string t 2 org-odt-merge-frame-params apply org-odt-format-frame 3 org-odt-format-textbox org-odt-format-stylized-paragraph illustration copy-sequence format " draw:name=\"%s\" " org-odt-format-entity-caption #2=#:--cl-keys-- entity org-odt-entity-frame-styles entity-style default-frame-params frame-params href width height entity-style-1 x] 15 (#$ . 65973)]) (defvar org-odt-embedded-images-count 0) #@39 Returns the internal name of the file (defalias 'org-odt-copy-image-file #[(path) "\306!\307\310 \"\311\312 !\" \313 \307\314 T\211 $ \204J \315\316\317!#\210\320U\203= \321 !\210\322\323 \"\210\324\f\325#\210\322\n\"\210-\207" [path image-type media-type org-current-export-file src-file target-dir file-name-extension format "image/%s" expand-file-name file-name-directory "Images/" "%s%04d.%s" message "Embedding %s as %s ..." substring-no-properties 1 make-directory org-odt-create-manifest-file-entry "" copy-file overwrite org-odt-embedded-images-count target-file org-lparse-to-buffer] 5 (#$ . 67284)]) #@54 Ordered list of methods for determining image sizes. (defvar org-export-odt-image-size-probe-method (byte-code "\300\301\302!\205 \303\304\"\207" [append executable-find "identify" (imagemagick) (emacs fixed)] 3) (#$ . 67922)) #@66 Hardcoded image dimensions one for each of the anchor methods. (defvar org-export-odt-default-image-sizes-alist '(("as-char" 5 . 0.4) ("paragraph" 5 . 5)) (#$ . 68156)) #@44 Limiting dimensions for an embedded image. (defvar org-export-odt-max-image-size '(17.0 . 20.0) (#$ . 68333)) (defalias 'org-odt-do-image-size #[(probe-method file &optional dpi anchor-type) "\206 \n\206 \306\307\310 \311 \312\"\203& \313\314\315\217 \f\")\202_ \311 \316\"\203Y \317\320\321\"! \322\323\"\205M \324\325\326\"!\324\325\327\"!B) \f\")\202_ \330\n \"A,\207" [dpi org-export-odt-pixels-per-inch anchor-type --pixels-to-cms --size-in-cms probe-method "paragraph" #[(pixels dpi) "\304 \n\245 _*\207" [cms-per-inch pixels dpi inches 2.54] 2] #[(size-in-pixels dpi) "\205 @\n\" A\n\"B\207" [size-in-pixels --pixels-to-cms dpi] 4] eql emacs nil (byte-code "\301 \210\302\303!\304\"\207" [file clear-image-cache image-size create-image pixels] 3) ((error)) imagemagick shell-command-to-string format "identify -format \"%%w:%%h\" \"%s\"" string-match "\\([0-9]+\\):\\([0-9]+\\)" string-to-number match-string 1 2 assoc-string size-in-pixels file dim org-export-odt-default-image-sizes-alist] 5]) (defalias 'org-odt-image-size-from-file #[(file &optional user-width user-height scale dpi embed-as) "\306!\204 \307\310 !\"\311\211\311 \203 \204T \311 :\203E @\n\204E \312$A\211\202% *\n\204N \313\314!\210\n@\nA\203f _\f_\202\225 \203w \203w \202\225 \203\206 \f\245_ \202\225 \203\225 \f \245_ @A V\204\255 \fV\203\312 \245 \f\245 ^\211 _\f_+* \f+B\207" [file org-current-export-file size width height user-height file-name-absolute-p expand-file-name file-name-directory nil org-odt-do-image-size error "Cannot determine image size, aborting" user-width org-export-odt-image-size-probe-method #1=#:--cl-var-- probe-method dpi embed-as scale org-export-odt-max-image-size max-height max-width scale1 scale2] 6]) #@129 Plist of running counters of SEQNOs for each of the CATEGORY-NAMEs. See `org-odt-entity-labels-alist' for known CATEGORY-NAMEs. (defvar org-odt-entity-counts-plist nil (#$ . 70185)) #@874 Specify how labels are applied and referenced. This is an alist where each element is of the form (LABEL-STYLE-NAME LABEL-ATTACH-FMT LABEL-REF-MODE LABEL-REF-FMT). LABEL-ATTACH-FMT controls how labels and captions are attached to an entity. It may contain following specifiers - %e, %n and %c. %e is replaced with the CATEGORY-NAME. %n is replaced with "<text:sequence ...> SEQNO </text:sequence>". %c is replaced with CAPTION. See `org-odt-format-label-definition'. LABEL-REF-MODE and LABEL-REF-FMT controls how label references are generated. The following XML is generated for a label reference - "<text:sequence-ref text:reference-format="LABEL-REF-MODE" ...> LABEL-REF-FMT </text:sequence-ref>". LABEL-REF-FMT may contain following specifiers - %e and %n. %e is replaced with the CATEGORY-NAME. %n is replaced with SEQNO. See `org-odt-format-label-reference'. (defvar 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")) (#$ . 70374)) #@535 Specify category strings for various captionable entities. Captionable entity can be one of a Table, an Embedded Image, a LaTeX fragment (generated with dvipng) or a Math Formula. For example, when `org-export-default-language' is "en", an embedded image will be captioned as "Figure 1: Orgmode Logo". If you want the images to be captioned instead as "Illustration 1: Orgmode Logo", then modify the entry for "en" as shown below. (setq org-export-odt-category-strings '(("en" "Table" "Illustration" "Equation" "Equation"))) (custom-declare-variable 'org-export-odt-category-strings ''(("en" "Table" "Figure" "Equation" "Equation")) '(#$ . 71471) :group 'org-export-odt :version "24.1" :type '(repeat (list (string :tag "Language tag") (choice :tag "Table" (const :tag "Use Default" nil) (string :tag "Category string")) (choice :tag "Figure" (const :tag "Use Default" nil) (string :tag "Category string")) (choice :tag "Math Formula" (const :tag "Use Default" nil) (string :tag "Category string")) (choice :tag "Dvipng Image" (const :tag "Use Default" nil) (string :tag "Category string"))))) #@788 Map a CATEGORY-HANDLE to OD-VARIABLE and LABEL-STYLE. This is a list where each entry is of the form \(CATEGORY-HANDLE OD-VARIABLE LABEL-STYLE\). CATEGORY_HANDLE identifies the captionable entity in question. OD-VARIABLE is the OpenDocument sequence counter associated with the entity. These counters are declared within "<text:sequence-decls>...</text:sequence-decls>" block of `org-export-odt-content-template-file'. LABEL-STYLE is a key into `org-odt-label-styles' and specifies how a given entity should be captioned and referenced. The position of a CATEGORY-HANDLE in this list is used as an index in to per-language entry for `org-export-odt-category-strings' to retrieve a CATEGORY-NAME. This CATEGORY-NAME is then used for qualifying the user-specified captions on export. (defvar org-odt-category-map-alist '(("__Table__" "Table" "value") ("__Figure__" "Illustration" "value") ("__MathFormula__" "Text" "math-formula") ("__DvipngImage__" "Equation" "value")) (#$ . 72581)) #@65 Create an entry in `org-odt-entity-labels-alist' and return it. (defalias 'org-odt-add-label-definition #[(label default-category) "\306 \"\211A@\307 ! \310 \f\"\206 \311T \203$ \312!\202* \313\314# \315\n8 \316\317\" \310\320\" \316\" G\n >GZ\211 8\206\\ 8 \257\321 \f#\n B \n.\f\207" [default-category org-odt-category-map-alist label-props counter sequence-var org-odt-entity-counts-plist assoc intern plist-get 0 substring-no-properties format "%s-%s" 2 assoc-default "en" :language plist-put seqno label label-style org-export-odt-category-strings en-strings org-lparse-opt-plist lang lang-strings pos category org-odt-entity-labels-alist] 6 (#$ . 73575)]) (defalias 'org-odt-format-label-definition #[(caption label category counter seqno label-style) "\204\n \306\307\300C\"\210\310\311 \n\312#\211A@)\313\fB\314\315\316\317\320 \"\211%B\321\206, \322BE\"\207" [label label-style org-odt-label-styles x category seqno signal cl-assertion-failed format-spec assoc-string t 101 110 org-odt-format-tags ("<text:sequence text:ref-name=\"%s\" text:name=\"%s\" text:formula=\"ooow:%s+1\" style:num-format=\"1\">" . "</text:sequence>") format "%d" 99 "" counter caption] 11]) (defalias 'org-odt-format-label-reference #[(label category counter seqno label-style) "\204\n \306\307\300C\"\210\310 \311\216\312\n \313#\211 AA)\211 @ \211 A@) \314\315\316\317B\320\321\322\"BD\"$-\207" [label save-match-data-internal label-style org-odt-label-styles x fmt signal cl-assertion-failed match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) assoc-string t org-odt-format-tags ("<text:sequence-ref text:reference-format=\"%s\" text:ref-name=\"%s\">" . "</text:sequence-ref>") format-spec 101 110 format "%d" fmt1 fmt2 category seqno] 10]) (defalias 'org-odt-fixup-label-references #[nil "eb\210\304\305\306\307#\2055 \310\311!\312 \"\211\205 \313\314\n\"\211\203* \315 \307\211#\210\2021 \316\317\320\"!\210+\202 \207" [label org-odt-entity-labels-alist label-def rpl re-search-forward "<text:sequence-ref text:ref-name=\"\\([^\"]+\\)\">[ \n]*</text:sequence-ref>" nil t match-string 1 assoc apply org-odt-format-label-reference replace-match org-lparse-warn format "Unable to resolve reference to label \"%s\""] 5]) (defalias 'org-odt-format-entity-caption #[(label caption category) "\204\n \204\n \303\207\304\305 \306\n\"#\207" [label caption category "" apply org-odt-format-label-definition org-odt-add-label-definition] 6]) (defalias 'org-odt-format-tags #[(tag text &rest args) "\205 \306\205\n \306\307\310 \f\n &*\207" [org-lparse-encode-pending suffix prefix tag text args "@" apply org-lparse-format-tags] 7]) (defvar org-odt-manifest-file-entries nil) (defalias 'org-odt-init-outfile #[(filename) "\306\307!\204\n \310\311!\210\312\313\"\314\315!\210\316\317 \320\"\210)\316\321\211\316\211\316\211\316 )\207" [org-odt-zip-dir content-file nxml-auto-insert-xml-declaration-flag org-odt-manifest-file-entries org-odt-embedded-images-count org-odt-embedded-formulas-count executable-find "zip" error "Executable \"zip\" needed for creating OpenDocument files" expand-file-name "content.xml" require nxml-mode nil find-file-noselect t 0 org-odt-entity-labels-alist org-odt-list-stack-stashed org-odt-automatic-styles org-odt-object-counters org-odt-entity-counts-plist] 4]) #@254 Specify whether or not the xml output should be prettified. When this option is turned on, `indent-region' is run on all component xml buffers before they are saved. Turn this off for regular use. Turn this on if you need to examine the xml visually. (custom-declare-variable 'org-export-odt-prettify-xml nil '(#$ . 77006) :group 'org-export-odt :version "24.1" :type 'boolean) (defalias 'org-odt-save-as-outfile #[(target opt-plist) "\306 \210\307!\210 \310\232\203 \311!\210\312 !\313\n\314\315#\210)\313\316\317\"\210\320 \210\321 \310\232\2030 \322 B\323\324 \"\210\325\f! \326\f! '\327\330 \331BBB\327\332 \333BBBD (\334\f!\203Y \335\f!\210\336\337\211 ) * +\340\341!\210\323\342(\"\210+\343 '\"\210,\340\344\f\"\210\345\f\346\"q\207" [opt-plist org-lparse-backend mimetype xml-files target target-name org-odt-write-automatic-styles org-odt-update-meta-file odt org-odt-update-styles-file org-odt-write-mimetype-file org-odt-create-manifest-file-entry "/" "1.2" "text/xml" "content.xml" org-odt-write-manifest-file ("mimetype" "META-INF/manifest.xml" "content.xml" "meta.xml") "styles.xml" mapc #[(file) "r\302\303!\304\"q\210 \203 \305ed\"\210\306\307!)\207" [file org-export-odt-prettify-xml find-file-noselect expand-file-name t indent-region save-buffer 0] 3] file-name-nondirectory file-name-directory "zip" "-mX0" ("mimetype") "-rmTq" (".") file-exists-p delete-file no-conversion nil message "Creating odt file..." #[(cmd) "\304\305\306\307\310#\"\210\311\312\313!!\314\216 \315\316@\317 \317A&)r q\210\320 +\321\n!\206; \317\304\322 \"\210\206; \323\324\n\"\207" [cmd standard-output exitcode err-string message "Running %s" mapconcat identity " " get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) apply call-process nil buffer-string zerop "%s" error "Unable to create odt file (%S)"] 7] rename-file "Created %s" find-file-noselect t target-dir cmds err-string exitcode coding-system-for-write] 5]) (defconst org-odt-manifest-file-entry-tag "\n<manifest:file-entry manifest:media-type=\"%s\" manifest:full-path=\"%s\"%s/>") (defalias 'org-odt-create-manifest-file-entry #[(&rest args) " B\211\207" [args org-odt-manifest-file-entries] 2]) (defalias 'org-odt-write-manifest-file #[nil "\303\304!\210\305\306!r\307\310\311\")q\210\312c\210\313\314\n\"\210\315c*\207" [manifest-file nxml-auto-insert-xml-declaration-flag org-odt-manifest-file-entries make-directory "META-INF" expand-file-name "META-INF/manifest.xml" nil find-file-noselect t "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n <manifest:manifest xmlns:manifest=\"urn:oasis:names:tc:opendocument:xmlns:manifest:1.0\" manifest:version=\"1.2\">\n" mapc #[(file-entry) "\3048\211\203 \305\306 \"\202 \307\305 @A@\n$c*\207" [file-entry version extra org-odt-manifest-file-entry-tag 2 format " manifest:version=\"%s\"" ""] 6] "\n</manifest:manifest>"] 3]) (defalias 'org-odt-update-meta-file #[(opt-plist) "\306\307\310\"!\307\311\"\206 \312\307\313\"\307\314\"\307\315\"\307\316\" %\317\320\321\322 \323\324 \"\323\325%\"\323\326%\"\323\327&\205F \330\331\332 '#\"\323\333 \"\323\334\n\"\323\335 \"\321\336\337\260 \340\341\342!#\210.\343\344\342\"\207" [opt-plist title description keywords email author org-odt-format-date plist-get :date :author "" :email :keywords :description :title 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" org-odt-format-author org-odt-format-tags ("\n<meta:initial-creator>" . "</meta:initial-creator>") ("\n<dc:date>" . "</dc:date>") ("\n<meta:creation-date>" . "</meta:creation-date>") ("\n<meta:generator>" . "</meta:generator>") format "Org-%s/Emacs-%s" org-version ("\n<meta:keyword>" . "</meta:keyword>") ("\n<dc:subject>" . "</dc:subject>") ("\n<dc:title>" . "</dc:title>") " </office:meta>" "</office:document-meta>" nil expand-file-name "meta.xml" org-odt-create-manifest-file-entry "text/xml" date org-export-creator-info emacs-version] 14]) (defalias 'org-odt-update-styles-file #[(opt-plist) "\306\307\"\310 \205 \311\312 !!!\210)r\313\314\315!\316\"q\210\317\302!\210\316\320!\210\321 \203. \f\202/ \322!\210)\323\324\325 \326#!\207" [opt-plist styles-file backup-inhibited org-export-with-section-numbers org-export-headline-levels hfy-user-sheet-assoc plist-get :odt-styles-file org-odt-copy-styles-file read org-trim find-file-noselect expand-file-name "styles.xml" t make-local-variable org-lparse-bind-local-variables org-odt-configure-outline-numbering 0 org-odt-insert-custom-styles-for-srcblocks mapconcat #[(style) "\302\303\211AA)\"\207" [style x format " %s\n"] 4] ""] 5]) (defalias 'org-odt-write-mimetype-file #[(format) "\303\304\"\203 \305\202 \303\306\"\203 \307\202 \310\311 \"\312\n\313\314\315!#\210\n)\207" [format org-lparse-backend mimetype eql odt "application/vnd.oasis.opendocument.text" odf "application/vnd.oasis.opendocument.formula" error "Unknown OpenDocument backend %S" write-region nil expand-file-name "mimetype"] 5]) (defalias 'org-odt-finalize-outfile #[nil "\300 \207" [org-odt-delete-empty-paragraphs] 1]) (defalias 'org-odt-delete-empty-paragraphs #[nil "eb\210\302\303\304\305\306 #\307\310#\205 \311\312!\210\202 *\207" [close open "<text:p[^>]*>" "</text:p>" re-search-forward format "%s[ \n ]*%s" nil t replace-match ""] 5]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\307\310\315& \210\300\316\317\320\304\305\306\307\310\321& \207" [custom-declare-variable org-export-odt-convert-processes '(("LibreOffice" "soffice --headless --convert-to %f%x --outdir %d %i") ("unoconv" "unoconv -f %f -o %d %i")) "Specify a list of document converters and their usage.\nThe converters in this list are offered as choices while\ncustomizing `org-export-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-export-odt-convert-capabilities'." :group org-export-odt :version "24.1" :type (choice (const :tag "None" nil) (alist :tag "Converters" :key-type (string :tag "Converter Name") :value-type (group (string :tag "Command line")))) org-export-odt-convert-process "LibreOffice" "Use this converter to convert from \"odt\" format to other formats.\nDuring customization, the list of converter names are populated\nfrom `org-export-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-export-odt-convert-processes))) org-export-odt-convert-capabilities '(("Text" ("odt" "ott" "doc" "rtf" "docx") (("pdf" "pdf") ("odt" "odt") ("rtf" "rtf") ("ott" "ott") ("doc" "doc" ":\"MS Word 97\"") ("docx" "docx") ("html" "html"))) ("Web" ("html") (("pdf" "pdf") ("odt" "odt") ("html" "html"))) ("Spreadsheet" ("ods" "ots" "xls" "csv" "xlsx") (("pdf" "pdf") ("ots" "ots") ("html" "html") ("csv" "csv") ("ods" "ods") ("xls" "xls") ("xlsx" "xlsx"))) ("Presentation" ("odp" "otp" "ppt" "pptx") (("pdf" "pdf") ("swf" "swf") ("odp" "odp") ("otp" "otp") ("ppt" "ppt") ("pptx" "pptx") ("odg" "odg")))) "Specify input and output formats of `org-export-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-export-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-export-odt-convert' commands.\n- It is used as the value of \"%f\" specifier in\n `org-export-odt-convert-process'.\n\nEXTRA-OPTIONS is used as the value of \"%x\" specifier in\n`org-export-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 it's source\nformat) to be converted to any of the export formats associated\nwith that class.\n\nSee default setting of this variable for an typical\nconfiguration." (choice (const :tag "None" nil) (alist :tag "Capabilities" :key-type (string :tag "Document Class") :value-type (group (repeat :tag "Input formats" (string :tag "Input format")) (alist :tag "Output formats" :key-type (string :tag "Output format") :value-type (group (string :tag "Output file extension") (choice (const :tag "None" nil) (string :tag "Extra options")))))))] 10) #@348 Convert IN-FILE to format OUT-FMT using a command line converter. IN-FILE is the file to be converted. If unspecified, it defaults to variable `buffer-file-name'. OUT-FMT is the desired output format. Use `org-export-odt-convert-process' as the converter. If PREFIX-ARG is non-nil then the newly converted file is opened using `org-open-file'. (defalias 'org-export-odt-convert #[(&optional in-file out-fmt prefix-arg) "\303 \n#\207" [in-file out-fmt prefix-arg org-lparse-do-convert] 4 (#$ . 86893) (byte-code "\301\302 \"\207" [current-prefix-arg append org-lparse-convert-read-params] 3)]) (defalias 'org-odt-get #[(what &optional opt-plist) "\306\307\"\203 \310\207\306\311\"\203 \312\313 \"\207\306\314\"\203 \315\207\306\316\"\203' \317\207\306\320\"\2030 \n\207\306\321\"\2039 \207\306\322\"\203B \323\207\306\324\"\203K \325\207\306\326\"\203T \327\207\306\330\"\203k \f\205\341 \331\f \332#\211 1A@)\207\306\333\"\203\207 \f\205\341 \331\f \332#\211 1A@)\205\341 2\207\306\334\"\203\220 \335\207\306\336\"\203\232 3\207\306\337\"\203\243 \340\207\306\341\"\203\254 \342\207\306\343\"\203\265 \344\207\306\345\"\203\276 \346\207\306\347\"\203\313 \350\351\352\353#\207\306\354\"\203\324 \355\207\306\356\"\203\335 \355\207\357\360\"\207" [what opt-plist org-odt-entity-control-callbacks-alist org-odt-entity-format-callbacks-alist org-export-odt-convert-process org-export-odt-convert-processes eql BACKEND odt EXPORT-DIR org-export-directory :html FILE-NAME-EXTENSION "odt" EXPORT-BUFFER-NAME "*Org ODT Export*" ENTITY-CONTROL ENTITY-FORMAT INIT-METHOD org-odt-init-outfile FINAL-METHOD org-odt-finalize-outfile SAVE-METHOD org-odt-save-as-outfile CONVERT-METHOD assoc-string t CONVERT-CAPABILITIES TOPLEVEL-HLEVEL 1 SPECIAL-STRING-REGEXPS INLINE-IMAGES maybe INLINE-IMAGE-EXTENSIONS ("png" "jpeg" "jpg" "gif" "svg") PLAIN-TEXT-MAP (("&" . "&") ("<" . "<") (">" . ">")) TABLE-FIRST-COLUMN-AS-LABELS nil FOOTNOTE-SEPARATOR org-lparse-format FONTIFY "," superscript CODING-SYSTEM-FOR-WRITE utf-8 CODING-SYSTEM-FOR-SAVE error "Unknown property: %s" x org-export-odt-convert-capabilities org-export-odt-special-string-regexps] 5]) #@36 Convert LaTeX fragments to images. (defalias 'org-export-odt-do-preprocess-latex-fragments #[nil "\306\307\"\211\310\235\203# \311\312!\203 \312 \204# \n\313\314\315\316\n\"P!\210\206$ \317\211 \320=\2036 \321\202B \322\235\203B \323\324\325\205Y \326 \327\330!!P\317\f\317\211 &,\207" [org-lparse-opt-plist latex-frag-opt org-lparse-latex-fragment-fallback cache-dir display-msg org-latex-preview-ltxpng-directory plist-get :LaTeX-fragments (mathjax t) fboundp org-format-latex-mathml-available-p org-lparse-warn "LaTeX to MathML converter not available. " format "Using %S instead." nil dvipng "Creating LaTeX image %s" (mathjax t) mathml "ltxmathml/" "Creating MathML formula %s" org-format-latex file-name-sans-extension file-name-nondirectory org-current-export-file org-current-export-dir] 9 (#$ . 89077)]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice org-format-latex-as-mathml (org-odt-protect-latex-fragment nil t (advice lambda nil "Encode LaTeX fragment as XML.\nDo this when translation to MathML fails." (when (or (not (> (length ad-return-value) 0)) (get-text-property 0 'org-protected ad-return-value)) (setq ad-return-value (org-propertize (org-odt-encode-plain-text (ad-get-arg 0)) 'org-protected t))))) after nil ad-activate] 5) (defalias 'org-export-odt-preprocess-latex-fragments #[nil "\301\232\205 \302 \207" [org-export-current-backend odt org-export-odt-do-preprocess-latex-fragments] 2]) (defalias 'org-export-odt-preprocess-label-references #[nil "eb\210\306\211\211\211\211 \307\310\306\311#\2054 \312\313\224\314\"\204 \315\311\316\313! \317\320\321\322\f\323\"#*\311\211#\210\202 -\207" [pretty-label value category label-components label org-lparse-encode-pending nil re-search-forward "\\\\ref{\\([^{}\n]+\\)}" t get-text-property 1 org-protected replace-match match-string org-odt-format-tags ("<text:sequence-ref text:ref-name=\"%s\">" . "</text:sequence-ref>") "" org-add-props (org-protected t)] 7]) (add-hook 'org-export-preprocess-after-blockquote-hook 'org-export-odt-preprocess-latex-fragments) (defalias 'org-export-odt-preprocess #[(parameters) "\300 \207" [org-export-odt-preprocess-label-references] 1]) (defalias 'org-odt-zip-extract-one #[(archive member &optional target) "\306\307!\210\206 \310\n!\311\312\313\314\257\315\211 \316\317! rq\210\320\216\303\n\"\321 +\322\f!?\205> \323 !\210\324\325!-\207" [target default-directory archive archive-zip-extract exit-code command-output require arc-mode expand-file-name "unzip" "-qq" "-o" "-d" nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) buffer-string zerop message error "Extraction failed" #1# member] 6]) (defalias 'org-odt-zip-extract #[(archive members &optional target) ":\204 C\301\302\"\207" [members mapc #[(member) "\303 \n#\207" [archive member target org-odt-zip-extract-one] 4]] 3]) (defalias 'org-odt-copy-styles-file #[(&optional styles-file) "\206 \206 \306\307\n\"\206 \310\311!\211<\203- @A@ \312\f \"\210\313\314 \"\210*\202a ;\203Z \315!\203Z \316!\211 \317\230\203K \320\321\322#\210\202V \323\235\203V \312\321\"\210)\202a \310\324\325 \"!\210\326\327\321\"\207" [styles-file org-export-odt-styles-file org-odt-styles-dir members archive styles-file-type expand-file-name "OrgOdtStyles.xml" error "org-odt: Missing styles file?" org-odt-zip-extract mapc #[(member) "\303!\205 \304!\305\306 \"\307\n\"*\207" [member image-type media-type org-file-image-p file-name-extension format "image/%s" org-odt-create-manifest-file-entry] 3] file-exists-p file-name-extension "xml" copy-file "styles.xml" t ("odt" "ott") format "Invalid specification of styles.xml file: %S" org-odt-create-manifest-file-entry "text/xml"] 5]) #@96 Outline numbering is retained only upto LEVEL. To disable outline numbering pass a LEVEL of 0. (defalias 'org-odt-configure-outline-numbering #[(level) "eb\210\303\304\305 \306\307#\203\" \310\311\312!!\nV\203 \313\307\306#\210\202 *\314\315!\207" [replacement regex level "<text:outline-level-style\\([^>]*\\)text:level=\"\\([^\"]*\\)\"\\([^>]*\\)>" "<text:outline-level-style\\1text:level=\"\\2\" style:num-format=\"\">" re-search-forward nil t string-to-number match-string 2 replace-match save-buffer 0] 4 (#$ . 92897)]) #@371 Export LATEX-FRAG as OpenDocument formula file ODF-FILE. Use `org-create-math-formula' to convert LATEX-FRAG first to MathML. When invoked as an interactive command, use `org-latex-regexps' to infer LATEX-FRAG from currently active region. If no LaTeX fragments are found, prompt for it. Push MathML source to kill ring, if `org-export-copy-to-kill-ring' is non-nil. (defalias 'org-export-as-odf #[(latex-frag &optional odf-file) "\303\304\305\"\306\"\307\310\311\312\217*\207" [org-export-odt-tmpdir-prefix --cleanup-xml-buffers org-odt-zip-dir make-temp-file format "odf" t #[nil "\302\303\304\"\210)\305 \306\"\207" [xml-files org-odt-zip-dir ("mimetype" "META-INF/manifest.xml" "content.xml" "meta.xml" "styles.xml") mapc #[(file) "r\302\303 \"\304\"q\210\305\306!\210\307 )\207" [file org-odt-zip-dir find-file-noselect expand-file-name t set-buffer-modified-p nil kill-buffer] 4] org-delete-directory t] 3] err (byte-code "\306\307\n\206 \310\311\312 !!\313\314Q\315 !\" \316\317\f!! \320\211 q\210\321!\210\322 !\211 \2048 \323\324!\210 c\210\325\326!\226!\204I \327\330!\210)\331\f\307\". \210\207" [org-lparse-backend org-lparse-opt-plist odf-file buffer-file-name filename buffer odf nil expand-file-name file-name-sans-extension file-name-nondirectory "." "odf" file-name-directory find-file-noselect org-odt-init-outfile utf-8 set-buffer-file-coding-system org-create-math-formula error "No Math formula created" org-export-push-to-kill-ring symbol-name message "Exporting... done" org-odt-save-as-outfile coding-system-for-write save-buffer-coding-system latex-frag mathml --cleanup-xml-buffers] 5) (((quit error) (byte-code " \210\302\303\304 !\"\207" [--cleanup-xml-buffers err message "OpenDocument export failed: %s" error-message-string] 4)))] 4 (#$ . 93434) (list (let (frag) (setq frag (and (setq frag (and (org-region-active-p) (buffer-substring (region-beginning) (region-end)))) (progn (let* ((#1=#:--cl-var-- org-latex-regexps) (e nil) (#2=#:--cl-flag-- t) #3=#:--cl-var--) (while (and (consp #1#) (progn (setq e (car #1#)) (setq #2# (not (setq #3# (if (string-match (nth 1 e) frag) (progn (match-string (nth 2 e) frag)))))))) (setq #1# (cdr #1#))) #3#)))) (read-string "LaTeX Fragment: " frag nil frag)) (let ((odf-filename (expand-file-name (concat (file-name-sans-extension (or (file-name-nondirectory buffer-file-name))) "." "odf") (file-name-directory buffer-file-name)))) (read-file-name "ODF filename: " nil odf-filename nil (file-name-nondirectory odf-filename))))]) #@150 Export LaTeX fragment as OpenDocument formula and immediately open it. Use `org-export-as-odf' to read LaTeX fragment and OpenDocument formula file. (defalias 'org-export-as-odf-and-open #[nil "\300\301\211\211\302\303!$\207" [org-lparse-and-open nil call-interactively org-export-as-odf] 6 (#$ . 95966) nil]) (provide 'org-odt)