| Current Path : /usr/share/emacs/24.3/lisp/org/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/org/org-lparse.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:40 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-lparse.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\300\302!\210\300\303!\207" [require org-exp org-list format-spec] 2)
#@274 Export outline to TARGET-BACKEND via NATIVE-BACKEND and open exported 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.
(defalias 'org-lparse-and-open #[(target-backend native-backend arg &optional file-or-buf) "\306\206 \307 \n \310$ \205; \311!\203
\202( \312!\203% \202( \313\314!\315\316\f\"\210\317\f\320\"\210\205; \321p!*\207" [file-or-buf target-backend native-backend arg f buffer-file-name nil org-lparse hidden bufferp file-exists-p error "org-lparse-and-open: This shouldn't happen" message "Opening file %s" org-open-file system kill-buffer org-export-kill-product-buffer-when-displayed] 6 (#$ . 653)])
#@240 Call the function `org-lparse'.
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-lparse-batch
(defalias 'org-lparse-batch #[(target-backend &optional native-backend) "\206 \303 \n\304$\207" [native-backend target-backend org-export-headline-levels org-lparse hidden] 5 (#$ . 1441)])
#@125 Call `org-lparse' with output to a temporary buffer.
No file is created. The prefix ARG is passed through to
`org-lparse'.
(defalias 'org-lparse-to-buffer #[(backend arg) "\304\305\226\"\306\211\n\307\211 &\210 \205 \310 !)\207" [backend tempbuf arg org-export-show-temporary-export-buffer format "*Org %s Export*" org-lparse nil switch-to-buffer-other-window] 7 (#$ . 1881)])
#@229 Assume the current region has org-mode syntax, and convert it to HTML.
This can be used in any buffer. For example, you could write an
itemized list in org-mode syntax in an HTML buffer and then use
this command to convert it.
(defalias 'org-replace-region-by #[(backend beg end) "\306\211\211\211\307 \310\216\311\312!\203 \313
\314\315%\202D {\316\317!r q\210\320 \210 c\210\312 \210\313
ed\314\315%)\321 !\210*|\210\nc,\207" [pop-up-frames buf backend-string reg #1=#:wconfig backend nil current-window-configuration ((set-window-configuration #1#)) derived-mode-p org-mode org-lparse-region t string get-buffer-create "*Org tmp*" erase-buffer kill-buffer beg end] 6 (#$ . 2271)])
#@690 Convert region from BEG to END in org-mode buffer to HTML.
If prefix arg BODY-ONLY is set, omit file header, footer, and table of
contents, and only produce the region of converted text, useful for
cut-and-paste operations.
If BUFFER is a buffer or a string, use/create that buffer as a target
of the converted HTML. If BUFFER is the symbol `string', return the
produced HTML as a string and leave not buffer behind. For example,
a Lisp program could call this function in the following way:
(setq html (org-lparse-region "html" beg end t 'string))
When called interactively, the output buffer is selected, and shown
in a window. A non-interactive call will only return the buffer.
(defalias 'org-lparse-region #[(backend beg end &optional body-only buffer) "\306\211\307\211\310 \311\306#\fb\210\312`!\210
b\210\313 \211\307\211 &\314\315!\203\262 \307 ! \2048 !\205\260 \"\316=\203F \242\316=\202H \"\203\203 \317 \203\203 \320 \203\203 #\203f \321\322#\"\210\307#\202\203 \323 \324 U\204\203 \325\322!\204z \326\322!\204\203 \321\322\323 \324 {\"\210!\204\240 \327=\204\232 \242\316=\203\240 A\204\240 \307\211\202\260 \242\316=\203\252 A\307$\330\331!)\210\332\333!\203\304 \334!\203\304 \335!\202\305 ,\207" [rtn ext-plist zmacs-regions transient-mark-mode end beg t nil plist-put :ignore-subtree-p set-mark org-lparse fboundp deactivate-mark only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook called-interactively-p any bufferp switch-to-buffer-other-window backend buffer body-only force select-active-regions saved-region-selection mark-active] 8 (#$ . 2985)])
(defvar org-lparse-par-open nil)
#@284 Return non-nil if link FILENAME should be inlined.
The decision to inline the FILENAME link is based on the current
settings. DESCP is the boolean of whether there was a link
description. See variables `org-export-html-inline-images' and
`org-export-html-inline-image-extensions'.
(defalias 'org-lparse-should-inline-p #[(filename descp) "\304\305!\304\306!\211\307=\204 \205 \n?\205 \310 \"*\207" [inline-image-extensions inline-images descp filename org-lparse-get INLINE-IMAGES INLINE-IMAGE-EXTENSIONS t org-file-image-p] 4 (#$ . 4754)])
#@82 Return LINE with markup of Org mode links.
OPT-PLIST is the export options list.
(defalias 'org-lparse-format-org-link #[(line opt-plist) "\306\203 \307!\202\f \310\n\311\"\312\211\211\211\211\211\211\211\211\211\211\211 @ A B C D E F G H I J K\313LMK#\203\377\312\306\224K\314 N\315\216\316\317\320M\"!*D\321\225\203e \317\321M\"\202\200 \314 N\322\216\323D!\206w \313\324D\"*\203 \325\202\200 \326H\327D!D\330\306\331D#C\332\225\205\232 \317\332M\"@\321\225\203\252 H\333DQ\202\254 D@\205\267 @
\232?A@\206\277
BA\203\372 \334B\335\336!\"\203\372 \337\314 N\340\216\313\341B\"\203\350 B\306\225\312OB*\314 N\342\216\343\344\345B\"\346\"B*H\326\232\2037\347D!\350U\203D\351\312O\202D O\344\352\n\353\211\354\314 N\355\216\316O!*\312\"BCA&E)\202\350H\356\232\203x\357D!\211G\203x\314 N\360\216\361G\307P!\"G\344\352\nHG\362D!\205g\363DPBCA&E*\202\350H\364\235\203\224\344\352\nHD\312BCA&E\202\350H\365\235\203\260\344\352\nHD\312BCA&E\202\350H\366\230\203\313\344\352\nH\353DB\312A&E\202\350\367\321\370HQ\"8\211F!\203\314 N\371\216F\316D!@\372\373!\205\375\374;\375\"\203\373\376\202\375;#*E\202\350H\325\230\203\316\314 N\377\216\313\201Y D\"\203-\201Z \353\337\312D$\317\351D\"D\2021D\312D\211 R@ SR\211 TA@)\211 U\205l\313\201[ U\"?\205l\313\201\\ U\"?\205l\313\201] U\"?\205l\354\316U!! V\313\341B\"\203\235\201Z \353\337\211B$ W\313\201^ W\"\203\227\201Z \353\337\211W$\202\231W)\202\237B X\367I!\203\267ISJ\"\204\267B\202\307\344\352\n\325SVXCA&E.\202\350\201_ H\333\314 N\201` \216\316D!*\201a \260E\201Z E\337\211M$MKEG\\K\2027 M.\207" [buffer-file-name default-directory opt-plist org-lparse-link-description-is-image link desc2 0 file-name-directory plist-get :link-validation-function nil string-match match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-link-unescape match-string 3 2 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-name-absolute-p "^\\.\\.?/" "file" "internal" org-extract-attributes get-text-property org-attributes 5 ":" org-file-image-p org-lparse-get INLINE-IMAGE-EXTENSIONS t ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "^file:" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-add-props org-lparse-format INLINE-IMAGE (org-protected t) string-to-char 35 1 ORG-LINK "" org-solidify-link-text ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "id" org-id-find-id-file ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-relative-name org-uuidgen-p "ID-" ("http" "https") ("ftp" "mailto" "news") "coderef" functionp assoc ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) boundp org-lparse-backend eql xhtml html ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) desc1 descp desc attr path rpl fnc id-file type link-validate current-dir start org-bracket-link-analytic-regexp++ line save-match-data-internal frag-0 org-current-export-file org-link-protocols components path-1 x fragment-0 fragment-1 desc-1 desc-2 "::\\(.*\\)" replace-match "^[0-9]*$" "^\\*" "^/.*/$" "\\.org$" "<i><" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "></i>"] 16 (#$ . 5310)])
(defalias 'org-lparse-stash-save-paragraph-state #[nil "\302!\204\f \303\304\305C\"\210 \306\211\207" [org-lparse-par-open-stashed org-lparse-par-open zerop signal cl-assertion-failed (zerop org-lparse-par-open-stashed) nil] 3])
(defalias 'org-lparse-stash-pop-paragraph-state #[nil "\302\211\207" [org-lparse-par-open-stashed org-lparse-par-open 0] 2])
(defalias 'with-org-lparse-preserve-paragraph-state '(macro . #[(&rest body) "\301\302\303\304\305\"BBB\207" [body let ((org-lparse-do-open-par org-lparse-par-open)) (org-lparse-end-paragraph) append ((when org-lparse-do-open-par (org-lparse-begin-paragraph)))] 6]))
(put 'with-org-lparse-preserve-paragraph-state 'edebug-form-spec '(body))
#@694 List of native backends registered with `org-lparse'.
A backend can use `org-lparse-register-backend' to add itself to
this list.
All native backends must implement a get routine and a mandatory
set of callback routines.
The get routine must be named as org-<backend>-get where backend
is the name of the backend. The exporter uses `org-lparse-get'
and retrieves the backend-specific callback by querying for
ENTITY-CONTROL and ENTITY-FORMAT variables.
For the sake of illustration, the html backend implements
`org-xhtml-get'. It returns
`org-xhtml-entity-control-callbacks-alist' and
`org-xhtml-entity-format-callbacks-alist' as the values of
ENTITY-CONTROL and ENTITY-FORMAT settings.
(defvar org-lparse-native-backends nil (#$ . 9565))
#@90 Make BACKEND known to `org-lparse' library.
Add BACKEND to `org-lparse-native-backends'.
(defalias 'org-lparse-register-backend #[(backend) "\205! 9\203 \301!\202 ;\203 \202 \302\303\"\304\305\"\207" [backend symbol-name error "Error while registering backend: %S" add-to-list org-lparse-native-backends] 3 (#$ . 10316)])
(defalias 'org-lparse-unregister-backend #[(backend) "\3029\203\f \303!\202 ;\205 \"\304\305\"\207" [backend org-lparse-native-backends remove symbol-name message "Unregistered backend %S"] 3])
#@287 Return verbose info about formats to which IN-FMT can be converted.
Return a list where each element is of the
form (CONVERTER-PROCESS . OUTPUT-FMT-ALIST). See
`org-export-odt-convert-processes' for CONVERTER-PROCESS and see
`org-export-odt-convert-capabilities' for OUTPUT-FMT-ALIST.
(defalias 'org-lparse-do-reachable-formats #[(in-fmt) "\306 \306\211\203K @\307\n\310\" \307\n\311\" \f\203C
\306 \211\203B @ \f A@\235\203; \f\312 8BB A\211\204$ ** A\211\204\n \306+\207" [reachable-formats org-lparse-native-backends backend --dolist-tail-- converter capabilities nil org-lparse-backend-get CONVERT-METHOD CONVERT-CAPABILITIES 2 c in-fmt] 4 (#$ . 10860)])
#@112 Return list of formats to which IN-FMT can be converted.
The list of the form (OUTPUT-FMT-1 OUTPUT-FMT-2 ...).
(defalias 'org-lparse-reachable-formats #[(in-fmt) "\302\303\304\305\306\307\310\311 !\"\"\"\210)\207" [l in-fmt nil mapc #[(e) "\301\302\"\207" [e add-to-list l] 3] apply append mapcar #[(e) "\301\302A\"\207" [e mapcar car] 3] org-lparse-do-reachable-formats] 8 (#$ . 11546)])
#@55 Return non-nil if IN-FMT can be converted to OUT-FMT.
(defalias 'org-lparse-reachable-p #[(in-fmt out-fmt) "\300\301\215\207" [done (byte-code "\306!\211\307\211\205* @\310\f\nA\"\211 \203! \311\312\n@
B\"\210) A\211\204\f \307+\207" [in-fmt reachable-formats e --dolist-tail-- out-fmt out-fmt-spec org-lparse-do-reachable-formats nil assoc throw done] 5)] 2 (#$ . 11945)])
(defalias 'org-lparse-backend-is-native-p #[(backend) " \235\207" [backend org-lparse-native-backends] 2])
#@1347 Export the outline to various formats.
If there is an active region, export only the region. The
outline is first exported to NATIVE-BACKEND and optionally
converted to TARGET-BACKEND. See `org-lparse-native-backends'
for list of known native backends. Each native backend can
specify a converter and list of target backends it exports to
using the CONVERT-PROCESS and OTHER-BACKENDS settings of it's get
method. See `org-xhtml-get' for an illustrative example.
ARG is a prefix argument that specifies how many levels of
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 that controls various aspects of
export. The settings here override org-mode's default settings
and but are inferior to file-local settings.
TO-BUFFER dumps the exported lines to a buffer or a string
instead of a file. If TO-BUFFER is the symbol `string' return the
exported lines as a string. If TO-BUFFER is non-nil, create a
buffer with that name and export to that buffer.
BODY-ONLY controls the presence of header and footer lines in
exported text. If BODY-ONLY is non-nil, don't produce the file
header and footer, simply return the content of <body>...</body>,
without even the body tags themselves.
PUB-DIR specifies the publishing directory.
(defalias 'org-lparse #[(target-backend native-backend arg &optional hidden ext-plist to-buffer body-only pub-dir) "\306!\n\205 \306\n!\307\310\311\"\210\307\312\313\"\210\314!\204! \315\316\"\210\n\232\2047 \317\n\"\2047 \315\320\n\321\322\"#\210\323\324!\210\325\f
&\326\310\311\"\210\326\312\313\"\210*\207" [native-backend org-lparse-backend target-backend org-lparse-other-backend arg hidden intern add-hook org-export-preprocess-hook org-lparse-strip-experimental-blocks-maybe org-export-preprocess-after-blockquote-hook org-lparse-preprocess-after-blockquote org-lparse-backend-is-native-p error "Don't know how to export natively to backend %s" org-lparse-reachable-p "Don't know how to export to backend %s %s" format "via %s" run-hooks org-export-first-hook org-do-lparse remove-hook ext-plist to-buffer body-only pub-dir] 7 (#$ . 12442)])
#@180 Control flashing of messages logged with `org-lparse-warn'.
When non-nil, messages are fontified with warning face and the
exporter lingers for a while to catch user's attention.
(custom-declare-variable 'org-lparse-use-flashy-warning nil '(#$ . 14663) :type 'boolean :group 'org-lparse)
#@110 Return IN-FILE and OUT-FMT params for `org-lparse-do-convert'.
This is a helper routine for interactive use.
(defalias 'org-lparse-convert-read-params #[nil "\306\307!\203\n \310\202 \311\312\313\314 \315$\316\n!\317 !\211 \203) \320\f\314\211\211%\206- \321\322 \" \n
-D\207" [input buffer-file-name in-file in-fmt out-fmt-choices out-fmt featurep ido ido-completing-read completing-read read-file-name "File to be converted: " nil t file-name-extension org-lparse-reachable-formats "Output format: " error "No known converter or no known output formats for %s files"] 7 (#$ . 14958)])
#@49 Workhorse routine for `org-export-odt-convert'.
(defalias 'org-lparse-do-convert #[(in-file out-fmt &optional prefix-arg) "\306\307!\210\310\206\n !\311!\206 \312\313\"\314!\f\206\" \312\315! \316 \f\"\206/ \312\317 \f#\211 @ ,\320!\321
A\206> \fA@Q -\322
A8\206K \323 .\324! /\325,\326\327!B\330\331!B\332\fB\333-B\334\331-!B\335\327/!B\336\331/!B\337.B\257\" 0\340-!\203\215 \341-!\210\342\3430\"\210\3440! 1\342\3451\"\210)\340-!\203\303 \342\346-\"\2102\203\276 \342\347-\"\210\350-\351\"\210-\202\312 \342\352-\"\210\353.\n\207" [in-file buffer-file-name dummy in-fmt out-fmt how require browse-url expand-file-name file-readable-p error "Cannot read %s" file-name-extension "Output format unspecified" org-lparse-reachable-p "Cannot convert from %s format to %s format?" file-name-sans-extension "." 2 "" file-name-directory format-spec 105 shell-quote-argument 73 browse-url-file-url 102 111 79 100 68 120 file-exists-p delete-file message "Executing %s" shell-command-to-string "%s" "Exported to %s" "Opening %s..." org-open-file system "Export to %s failed" nil convert-process out-file extra-options out-dir cmd cmd-output prefix-arg] 12 (#$ . 15557)])
(defvar org-lparse-insert-tag-with-newlines 'both)
#@379 The native backend to which the document is currently exported.
This variable is let bound during `org-lparse'. Valid values are
one of the symbols corresponding to `org-lparse-native-backends'.
Compare this variable with `org-export-current-backend' which is
bound only during `org-export-preprocess-string' stage of the
export process.
See also `org-lparse-other-backend'.
(defvar org-lparse-backend nil (#$ . 16810))
#@554 The target backend to which the document is currently exported.
This variable is let bound during `org-lparse'. This variable is
set to either `org-lparse-backend' or one of the symbols
corresponding to OTHER-BACKENDS specification of the
org-lparse-backend.
For example, if a document is exported to "odt" then both
org-lparse-backend and org-lparse-other-backend are bound to
'odt. On the other hand, if a document is exported to "odt"
and then converted to "doc" then org-lparse-backend is set to
'odt and org-lparse-other-backend is set to 'doc.
(defvar org-lparse-other-backend nil (#$ . 17240))
#@45 Bind this to BODY-ONLY arg of `org-lparse'.
(defvar org-lparse-body-only nil (#$ . 17850))
#@45 Bind this to TO-BUFFER arg of `org-lparse'.
(defvar org-lparse-to-buffer nil (#$ . 17947))
(defalias 'org-lparse-get-block-params #[(params) "\302 \303\216 \205 \304 !\305\306 \"\204 \307\310 \"\311\312\313\217*\207" [save-match-data-internal params match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-trim string-match "\\`(.*)\\'" format "(%s)" nil (read params) ((error))] 3])
(defvar org-lparse-special-blocks '("list-table" "annotation"))
#@174 Export the outline to various formats.
See `org-lparse' for more information. This function is a
html-agnostic version of the `org-export-as-html' function in 7.5
version.
(defalias 'org-do-lparse #[(arg &optional hidden ext-plist to-buffer body-only pub-dir) "\204) \204) \n\204) \306 \203% \302r\306 q\210\n) \307\f! L\210*\202) \310\311!\210\312\313\314\315
\2063 @!\226\"!\210\316\317\"\210\316\320\"\210\316\321\"\210\316\322\"\210\323\211 A B\323 C\324 D\323\211 E F\323\211 G H\323\211 I J\323\325\326\217\206\324 \327\330\331 K L M\332M!\206\236 K?\205\236 \310\333ML\203\234 \313\334L\"\202\235 \330#+\203\323 \335\330\331 K L M\332M!\206\313 K?\205\313 \310\333ML\203\311 \313\334L\"\202\312 \330#+\203\323 \336\202\324 \337 N\340 O P Q\341\342! R\341\343! S\344\345\346 T\347 #! U \206\376 \350U\351\"\323\211 V WX Y\352 \211 Z\205\353 [Z\205 \354 \\\350U\355\"?\205>Z\205>\212[b\210\356 \205=\357\331\211\"\\Y)\211 ]\203[\212[b\210^ X\203U\360\202V\324\\)\202\\\324 _]\203l\361U[\"\202nU\211` Ua\206}\341\362U\" b\n c\324 d\330\211 e f\323\211 g h\323\211 i j?\205\304\363\364]\203\254\365\353 \366\331#\206\257\367\n!!\370\341\371U\"Q\372a\206\302\341\362U\"!\" k\n\203\320\373\n!\202\322l m\323 n\203\357\374=\203\351\375\341\376!!\202\375!\202\377\341\201\252 !\211 o\205 \201\253 o!\205 ok!)\206k! p\201\254 q\323\" r\201\255 \201\256 \201\257 \" s\350U\201\260 \"\211 t\203I\201\261 \201\262 t\"\203I\201\263 t!\202Zt\203St\202Z\201\263 \201\264 ! t\201\265 U\201\266 t#\211U s\201\267 ]\203{\201\270 \206\251\350U\201\271 \"\206\251 \204\232\350U\201\272 \"\204\232\201\273 \206\251\n\203\246\364\367\n!!\206\251\201\274 ! u\201\265 U\201\271 u#\211U s\350U\201\275 \" v\201\276 w\201\277 Q x\313yw\" z\323 {\201\300 \350U\201\301 \"|\"\206\364\201\300 \201\302 |\" }\201\265 U\201\303 }#\211U s\324 ~\323 \324 \200\323\201\304 \201\305 \217\206&\201\306 \201\201 !\205&\201 \202\323\201\307 \201\310 \217\206?\201\306 \201\201 !\205?\201 \203Z\203K\353 \202LeZ\203V\354 \202Wd{ \204\323\211 \205 \206\201\311 \201\312 ! \207\201\313 \210U \211\201\314 \201\315 \204\201\316 \331\201\317
\201\320 \232\203\217\201\321 \202\220
\201\272 \350U\201\272 \"\201\322 \350U\201\322 \"\201\323 \350U\201\323 \"\201\324 \350U\201\324 \"\201\325 \350U\201\325 \"\201\326 \350U\201\326 \"\201\327 \350U\201\327 \"\201\330 \350U\201\330 \"\201\331 \350U\201\331 \"\201\332 \350U\201\332 \"\201\333 \350U\201\333 \"\201\334 \350U\201\335 \"\201\336 \350U\201\336 \"& \201\337 \" \212\323\211 \213 \214\323\211 \215 \216\323\211 \217 \220\323\211 \221 \222\323\211 \223 \224\323\211 \225 \226\323\211 \227 \230\323\211 \231 \232\323\211 \233 \234\323\211 \235 \236\324 \237\323\211 \240 \241\331 \242\201\340 \201\341 \331\211 \243 \244\201\342 ed\201\343 #\210*!\210)\201\344 \201\345 !\210\201\346 \210p\211\233q\210\331 \242\201\347 \210)\201\350 \210\201\351 \210\201\352 \201\353 !\203\265\201\353 \202!\210\323Y X \245\201\255 \201\354 \246\"\210\247\203\324\201\355 \247!\202\326\250i\251\250\203\346\251i^\202\350ij\201\265 \211\201\356 i#\211\251\203 \204\201\357 \212_Uj$\212 \204&\201\360 \201\361 U\"\210\201\360 \201\362 U\"\210\324~\201\346 \210\201\363 \210\212\211A\212@\211e\211f\203N\201\364 \201\365 \215\210\2023\201\366 \201\367 !\203`\201\370 \201\367 !\210\201\371 \360i\"\210i\324V\203yW\203y\201\372 \210\201\373 \201\362 U\"\210 \204\217\201\373 \201\361 !\210\201\373 \201\374 !\210\236\203\243\201\375 \236!\210eb\210\201\376 \315
!\226!\204\271\201\344 \201\377 !\210\204\341\201 !\211 o\203\333\201\253 o!\203\333okU\"\204\340\201 \210)\201\306 \201@ !\203@\203
@\232\204\201\n\315@!\"\206p\202\374=\203ed{\201\375 p!\210\202p.Z\207" [to-buffer body-only buffer-file-name value var org-lparse-backend buffer-base-buffer make-local-variable error "Need a file name to be able to export" org-lparse-warn format "Exporting to %s using org-lparse..." symbol-name set-default org-todo-line-regexp org-deadline-line-regexp org-done-keywords org-maybe-keyword-time-regexp nil 0 (byte-code "\300\301!\207" [org-lparse-get LATEX-FRAGMENT-FALLBACK] 2) ((error)) "latex" #1="" t executable-find "Can't find `%s'%s" " (%s)" "dvipng" dvipng verbatim both org-lparse-get ENTITY-CONTROL ENTITY-FORMAT org-export-process-option-filters org-combine-plists org-default-export-plist org-infile-export-plist plist-get :body-only org-region-active-p region-beginning region-end :ignore-subtree-p org-at-heading-p org-end-of-subtree 1 org-export-add-subtree-options EXPORT-DIR expand-file-name file-name-sans-extension org-entry-get "EXPORT_FILE_NAME" file-name-nondirectory "." FILE-NAME-EXTENSION file-name-as-directory file-name-directory string get-buffer-create EXPORT-BUFFER-NAME find-file-noselect org-lparse-other-backend hfy-user-sheet-assoc org-lparse-encode-pending org-lparse-par-open org-lparse-par-open-stashed org-lparse-list-stack org-lparse-list-table-p org-lparse-list-table:table-cell-open org-lparse-list-table:table-row org-lparse-list-table:lines org-lparse-outline-text-open no-error use cmd org-lparse-latex-fragment-fallback org-lparse-insert-tag-with-newlines org-lparse-to-buffer org-lparse-body-only org-lparse-entity-control-callbacks-alist org-lparse-entity-format-callbacks-alist ext-plist opt-plist valid org-lparse-dyn-first-heading-pos org-odd-levels-only odd region-p rbeg rend subtree-p outline-level level-offset org-export-opt-plist pub-dir org-current-export-dir org-current-export-file level line origline txt todo umax umax-toc filename default-directory current-dir auto-insert f buffer org-level-max org-levels-open dummy date title html-table-tag org-quote-string quote-re0 org-heading-keyword-regexp-format quote-re org-lparse-dyn-current-environment org-export-language-setup lang-words head-count cnt start buffer-file-coding-system coding-system-for-write save-buffer-coding-system region org-export-have-math org-export-footnotes-seen org-export-footnotes-data org-footnote-insert-pos-for-preprocessor org-lparse-opt-plist lines table-open table-buffer table-orig-buffer ind rpl path attr desc descp desc1 desc2 link snumber fnc footnotes footref-seen org-lparse-output-buffer org-lparse-footnote-definitions org-lparse-footnote-number org-lparse-collect-buffer org-lparse-collect-count org-lparse-toc href inhibit-read-only inhibit-modification-hooks buffer-undo-list case-fold-search org-export-plist-vars arg org-export-headline-levels org-export-with-toc INIT-METHOD functionp make-vector mapc #[(p) "\303 \"\304\n!\305 \n#\211*\207" [opt-plist p val plist-get org-xml-encode-org-text-skip-links plist-put] 4] (:date :author :keywords :description) :date string-match "%" format-time-string "%Y-%m-%d %T %Z" plist-put :effective-date org-xml-encode-org-text-skip-links org-export-get-title-from-subtree :title :skip-before-1st-heading org-export-grab-title-from-buffer "UNTITLED" :html-table-tag "^ *" "\\( +\\|[ ]*$\\)" assoc :language "en" :lang-words (byte-code "\300\301!\207" [org-lparse-get CODING-SYSTEM-FOR-WRITE] 2) ((error)) boundp (byte-code "\300\301!\207" [org-lparse-get CODING-SYSTEM-FOR-SAVE] 2) ((error)) org-footnote-all-labels with-defs point-min org-split-string org-export-preprocess-string :emph-multiline :for-backend xhtml html :drawers :todo-keywords :tasks :tags :priority :footnotes :timestamps :archived-trees :select-tags :exclude-tags :add-text :text :LaTeX-fragments "[
\n]" set-buffer-modified-p buffer-modified-p remove-text-properties (:org-license-to-kill t) message "Exporting..." org-init-section-numbers erase-buffer fundamental-mode org-install-letbind fboundp set-buffer-file-coding-system #[(x) "\302\3038!\304 @\"L\207" [x opt-plist make-local-variable 2 plist-get] 4] prefix-numeric-value :headline-levels org-lparse-prepare-toc org-lparse-begin DOCUMENT-CONTENT DOCUMENT-BODY org-lparse-begin-paragraph nextline (byte-code "\306\307!\203 \310 \"\203 \311\307!\210\306\307!\203! \312\313 \"\210\314\315\316\"\210\n\203S \310\317 \"\203S \306\320!\2046 \321\320!\210\312\313\322\323 \"\"\210 \203J \310\317 @\"\204N \311\320!\210\314\315\316\"\210\324\325\326 #\203\273 \327\325\326 #\206d \330 GW\204\273 \324\325\331 # \321\332!\210\312\313 \"\210 \203\261 @G\325U\204\224 \f\203\224 \f\324\325\331 @#\232\203\261 @G\325U\204\245 \324\325\326 @#\203\261 \312\313 \211A@\"\210\202y \311\332!\210)\314\315\316\"\210\324\325\333 #\203\327\325\333 #\206\314 \330 GW\204\324\325\331 # \312\313 \"\210 \203 @G\325U\204\370 \f\203\370 \f\324\325\331 @#\232\203 @G\325U\204 \324\325\333 @#\203\312\313 \211A@\"\210\202\335 )\314\315\316\"\210\310\334 \"\203V\335\322\336 \"\227! \337\322\323 \"! @\340\322\341 \"\342\"A A
\343\344\345\335B\"\">\203UA
@\"\210\314\315\316\"\210+\306\346!\203\204\347 !\211 C\325V\203x\350 D\351\352C\341_\")\353\354 !Q\310\355 \"\204\203 \356P)\325E\310\357 E#\203\373\324\336\224\333 #\203\240\336\225E\202\207\341\225\203\274\360\350 D\351\361\362\363\322\336 \"!#)\350\211 $\202\207F\203\336\364 !\365\232\203\336\360\350 D\351\366\322\336 \"\367#)\350\211 $\202\207\360\350 D\351\361\322\336 \"\363\322\336 \"!\367$)\353P\350\211 $\202\207\350 D\370 !)\310G \"\204\310\371 \"\204\372 !\373 H\"I\203A\310I \"\203A\341\224\203A \325\341\224O\351\374\322\341 \"\" \341\225\316OQJ\203\343\325E\310\375 E#\203\343\324\341\224\333 #\204d\324\341\224\376 #\204k\341\225E\202I\322\341 \"\316\211 K L M\340MN\"\211K\203\222K\211AT\241\210KAL\202\236\336LM\336BNBN\360\322\336 \"\206\247\362\351\377M\340MO\"AL$\201e P\201f \216\310\201g \325\225\316O\"*\203\330\316\201h \201i \217\202\331\362Q\350\211 $+\202I\310\201j \"\203H\201k \201l \336\225\336\224Q#!R\322\341 \"S\310TS\"\203\360\362\350\211S$SRUV]X\203$WTWX\204,`X\201m RSUW$\210\310Y \"\203\263\321\307!\210\202\263Z\203\253\310\201n \"\203\253[\204d\350[\316\211\\] \\B\\^]B] \203\310\201n @\"\204\263\316[\\\237\\]\237]\201o \210_\203\236\201p \201q !\210\312\201r \\]#\210\202\263\324\325\201s #\203\320\201t \324\325\201s #\324\325\201u #\324\325\201v #$\310\201w \"\203\370` a\201o \210\312\201x !\210a\203\362\201y \210)\314\315\316\"\210\310\201z \"\203b\203\201{ b!\210\316b\201y \210J\203W\201| \201c !\2035\310\201} cP \"\2035\314\315\316\"\210\310\201~ \"\203W\201o \210\322\336 \"b\360\362\350\211 $\201 b!\210\310\355 \"\203l\360\351\201\200 !\350\211 $\202yd\203y \351\201\200 !P\325 E`\203\255\310\201\201 E#\203\255\201p \201\202 !\210\324\325\224\333 #\204\246\360\201\203 \350\211 $\325\225E\202|)\312\313 \"\210\316\207" [org-outline-regexp-bol line org-export-with-fixed-width lines ind style org-lparse-current-environment-p quote string-match org-lparse-end-environment org-lparse-insert LINE throw nextline nil "^[ ]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" fixedwidth org-lparse-begin-environment match-string 3 get-text-property 0 org-native-text next-single-property-change 10000 original-indentation native org-protected "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ ]+.*\\)?$" intern 1 org-lparse-get-block-params assoc 2 (("START" . org-lparse-begin-environment) ("END" . org-lparse-end-environment)) append (blockquote verse center) mapcar verse org-get-string-indentation t org-lparse-format SPACES " " org-trim "\\\\\\\\[ ]*$" "\\\\" "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ ]*\n?" replace-match ANCHOR #1# org-solidify-link-text string-to-char 42 FONTIFY "target" org-lparse-handle-time-stamps "^[ ]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ ]*$" org-xml-encode-org-text-skip-links org-lparse-format-org-link TODO "\\([^* ].*?\\)[ ]*\\[\\([0-9]+\\)\\]" org-footnote FOOTNOTE-REFERENCE env-options-plist f org-lparse-special-blocks i org-lparse-encode-pending start org-export-with-toc org-table-hline-regexp opt-plist org-todo-line-regexp org-export-with-footnotes a refcnt n footref-seen org-lparse-footnote-definitions save-match-data-internal level-offset level txt quote-re0 umax umax-toc head-count org-lparse-dyn-first-heading-pos quote-re org-export-with-tables table-open table-buffer table-orig-buffer origline org-lparse-list-table-p org-lparse-par-open org-lparse-do-open-par org-lparse-footnote-number footnote-section-tag-regexp org-export-preserve-breaks match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "\\`\\[[0-9]+\\]" (byte-code "\300\301!\207" [org-lparse-get FOOTNOTE-SEPARATOR] 2) ((error)) "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ ]*$" org-tr-level - org-lparse-begin-level "^\\([ ]*\\)\\(|\\|\\+-+\\+\\)" org-lparse-end-paragraph error "Regular tables are not allowed in a list-table block" TABLE list-item org-lparse-export-list-line list-struct list-prevs "^[ ]*-\\{5,\\}[ ]*$" HORIZONTAL-LINE org-lparse-begin-paragraph "^ [-+*]-\\|^[ ]*$" org-lparse-end-footnote-definition boundp "^" "^[ ]*\\[\\([0-9]+\\)\\]" org-lparse-begin-footnote-definition LINE-BREAK "\\\\par\\>" "FIXME" "</p ><p >"] 9) org-lparse-current-environment-p quote org-lparse-end-environment org-lparse-end-level org-lparse-end-outline-text-or-outline org-lparse-end EXPORT kill-buffer org-export-push-to-kill-ring "Exporting... done" SAVE-METHOD save-buffer org-lparse-do-convert] 36 (#$ . 18452)])
#@67 Returns backend-specific code for org-type and table-type tables.
(defalias 'org-lparse-format-table #[(lines olines) ";\203\n \304\305\"\306\307@\"\203 \310\311\"\207\312 \313=\203\" \314\202# \n ?#\206- \315!\207" [lines org-lparse-backend olines org-export-prefer-native-exporter-for-tables org-split-string "\n" string-match "^[ ]*|" org-lparse-format-org-table nil org-lparse-format-table-table-using-table-generate-source xhtml html org-lparse-format-table-table] 4 (#$ . 31963)])
(defalias 'org-lparse-table-get-colalign-info #[(lines) "\303\304@\"\211\203 \n\203 \305\306 \" )\207" [lines col-cookies org-table-clean-did-remove-column org-find-text-property-in-string org-col-cookies mapcar #[(x) "@SAB\207" [x] 2]] 4])
#@444 Convert org-table to list-table.
LINES is a list of the form (ROW1 ROW2 ROW3 ...) where each
element is a `string' representing a single row of org-table.
Thus each ROW has vertical separators "|" separating the table
fields. A ROW could also be a row-group separator of the form
"|---...|". Return a list of the form (ROW1 ROW2 ROW3
...). ROW could either be symbol `:hrule' or a list of the
form (FIELD1 FIELD2 FIELD3 ...) as appropriate.
(defalias 'org-lparse-org-table-to-list-table #[(lines &optional splice) "\304\211\n\203# \211A@\211\203I \305\306 \"\204 \307 \310\"B\202 \211A@\211\203I \305\306 \"\203? \203# \311B\202# \307 \310\"B\202# \237*\207" [lines-1 line splice lines nil string-match "^[ ]*|-" org-split-string "[ ]*|[ ]*" :hrule] 3 (#$ . 32714)])
#@313 Format a org-type table into backend-specific code.
LINES is a list of lines. Optional argument SPLICE means, do not
insert header and surrounding <table> tags, just format the lines.
Optional argument NO-CSS means use XHTML attributes instead of CSS
for formatting. This is required for the DocBook exporter.
(defalias 'org-lparse-insert-org-table #[(lines &optional splice) "\306\307!\210\310\311@\"\203 A\237\310\311@\"\203 A\237 \203( \312!\313\314@\"\313\315@\"\2067 \n\n\205? \316\n! \205G \317 !\313\320@\" \321! \313\322@\" \205f \323\324\325\326A\"\" \327 \"\330 \n\f
&.\207" [lines org-export-table-remove-special-lines caption short-caption label org-lparse-table-colalign-info require org-table string-match "^[ ]*|-" org-table-clean-before-export org-find-text-property-in-string org-caption org-caption-shortn org-xml-encode-org-text org-xml-encode-plain-text org-label org-lparse-table-get-colalign-info org-attributes delq nil mapcar #[(x) "\301\302\"\207" [x string-match "^[ ]*|-"] 3] org-lparse-org-table-to-list-table org-lparse-insert-list-table attributes org-export-highlight-first-table-line head splice] 9 (#$ . 33511)])
(defalias 'org-lparse-insert-list-table #[(lines &optional splice caption label attributes head org-lparse-table-colalign-info short-caption) "\306\307!\204\n \310\307!\210\311\312\211\313\312\211 \312\211 \312\211 \312\211 \312\211 \307 \312 \203T \312 !\211A!@\211\205\226 \314!\315\261\210\202< \316 \317\320\"#$%%\210` \321&!\210!\211A!@\211\203\220 \322\232\203\205 \321 \210\202k \314!\315\261\210\202k \323\324!\210\325 .\207" [org-lparse-table-rownum org-lparse-table-ncols i cnt tbopen fields featurep org-table require -1 nil 0 org-lparse-format-table-row "\n" t org-lparse-begin TABLE org-lparse-begin-table-rowgroup :hrule org-lparse-end TABLE-ROWGROUP org-lparse-end-table line org-lparse-table-cur-rowgrp-is-hdr org-lparse-table-rowgrp-open org-lparse-table-num-numeric-items-per-column org-lparse-table-colalign-vector n org-lparse-table-rowgrp-info org-lparse-table-begin-marker org-lparse-table-style org-lparse-table-is-styled splice lines caption label attributes short-caption head] 7])
(defalias 'org-lparse-format-org-table #[(lines &optional splice) "\303\304!rq\210\305\216\306 \n\"\210\307ed\"+\207" [#1=#:temp-buffer lines splice generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) org-lparse-insert-org-table buffer-substring-no-properties] 3])
(defalias 'org-lparse-format-list-table #[(lines &optional splice) "\303\304!rq\210\305\216\306 \n\"\210\307ed\"+\207" [#1=#:temp-buffer lines splice generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) org-lparse-insert-list-table buffer-substring-no-properties] 3])
#@276 Format a table generated by table.el into backend-specific code.
This conversion does *not* use `table-generate-source' from table.el.
This has the advantage that Org-mode's HTML conversions can be used.
But it has the disadvantage, that no cell- or row-spanning is allowed.
(defalias 'org-lparse-insert-table-table #[(lines) "\306\211\306\211\211\211\307\306\211\211\211\310\311\312\313\" \314\315 %\210 \211A @\211 \203} \316\317 \"\203b \2034 \320 !\321 \"c\210)\306\211 \2024 \322 \323\" \203w \324\325 \" \2024
\2024 \326 .\207" [org-export-highlight-first-table-line empty org-lparse-table-rownum i org-lparse-table-ncols fields nil table-table -1 org-lparse-format SPACES 1 org-lparse-begin TABLE string-match "^[ ]*\\+-" ("<tr>" . "</tr>") org-lparse-format-table-row org-split-string "[ ]*|[ ]*" mapcar #[(x) "\302\303! \211A@Q\207" [x fields org-lparse-format LINE-BREAK] 4] org-lparse-end-table org-lparse-table-is-styled org-lparse-table-style label attributes short-caption caption org-lparse-table-cur-rowgrp-is-hdr field-buffer line lines org-export-table-row-tags] 17 (#$ . 36414)])
(defalias 'org-lparse-format-table-table #[(lines) "\302\303!rq\210\304\216\305 !\210\306ed\"+\207" [#1=#:temp-buffer lines generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) org-lparse-insert-table-table buffer-substring-no-properties] 3])
#@449 Format a table into BACKEND, using `table-generate-source' from table.el.
Use SPANNED-ONLY to suppress exporting of simple table.el tables.
When SPANNED-ONLY is nil, all table.el tables are exported. When
SPANNED-ONLY is non-nil, only tables with either row or column
spans are exported.
This routine returns the generated source or nil as appropriate.
Refer docstring of `org-export-prefer-native-exporter-for-tables'
for further information.
(defalias 'org-lparse-format-table-table-using-table-generate-source #[(backend lines &optional spanned-only) "\306\307!\210r\310\311!q\210\312 \210\313\314\315#c\210eb\210\316\317\320\321#\204# \322\323!\210\324 \210 \203C \325 \326\n8\327\n8 \330\n8 \f_
U,?\205s r\310\331!q\210\312 \210)\"#\235\203d \332\"\331\"\210\331q\210ed{\202s \333\334\335\336\337\"!\226\"\340Q!\210\341)\207" [lines spanned-only dim c r cells require table get-buffer-create " org-tmp1 " erase-buffer mapconcat identity "\n" re-search-forward "|[^+]" nil t error "Error processing table" table-recognize-table table-query-dimension 4 5 6 " org-tmp2 " table-generate-source org-lparse-warn "Found table.el-type table in the source org file. " format "table.el doesn't support %s backend. " symbol-name "Skipping ahead ..." "" backend table-source-languages] 6 (#$ . 37877)])
#@49 Format time stamps in string S, or remove them.
(defalias 'org-lparse-handle-time-stamps #[(s) "\300\301\215\207" [exit (byte-code "\304\211\n\203K \305\n \"\203K \204 \306\211\224O \306\211\224O\307\310\311\312\225\205/ \310\311\313\312 \"\314#\307\310\311\315\313\316 \"!\312\317O\320#Q\321#R \306\225\304O\202 \204S \202g P\305\322 P\"\204f \310\323!P *\207" [b r org-maybe-keyword-time-regexp s nil string-match 0 " " org-lparse-format FONTIFY 1 match-string "timestamp-kwd" org-translate-time 3 -1 "timestamp" "timestamp-wrapper" "\\S-" LINE-BREAK] 13)] 2 (#$ . 39191)])
#@121 Convert plain text characters to HTML equivalent.
Possible conversions are set in `org-export-html-protect-char-alist'.
(defalias 'org-xml-encode-plain-text #[(s) "\304\305!\306 \211A@\211\203. \307\310@ \n#\203* \311A\312\211 $\307\224T\202 )\202 *\207" [c cl start s org-lparse-get PLAIN-TEXT-MAP nil 0 string-match replace-match t] 5 (#$ . 39792)])
#@149 Prepare STRING for HTML export. Apply all active conversions.
If there are links in the string, don't modify these. If STRING
is nil, return nil.
(defalias 'org-xml-encode-org-text-skip-links #[(string) "\205K \306\307Q\310\211 \310\211 \311\n\"\211\203< \312 O\313\312\"\312\225\310O\314\f!B
B\202 \314!B\315\316\237\"-\207" [string org-bracket-link-regexp re m s l "\\|" "[ ]+\\(:[[:alnum:]_@#%:]+:\\)[ ]*$" nil string-match 0 match-string org-xml-encode-org-text apply concat res] 4 (#$ . 40163)])
#@66 Apply all active conversions to translate special ASCII to HTML.
(defalias 'org-xml-encode-org-text #[(s) "\306! \203 \307\310\"\203 \311\312\313\314$\202 \n\203! \315! \203) \316!\f\2031 \317!
\203\202 \320\314\211 \307\321#\211\203\201 \322\320\224\323#\203Z \320\225\202> \324\325\"\326\327\"\211\203v \311\313\211$\202> G\\\202> +\207" [s org-export-html-expand org-export-with-emphasize org-export-with-special-strings org-export-with-sub-superscripts org-export-with-TeX-macros org-xml-encode-plain-text string-match "@<\\([^&]*\\)>" replace-match "<\\1>" t nil org-lparse-apply-char-styles org-lparse-convert-special-strings org-lparse-apply-sub-superscript-styles 0 "\\\\\\([a-zA-Z]+[0-9]*\\)\\({}\\)?" get-text-property org-protected match-string 1 org-lparse-format ORG-ENTITY rep wd start] 5 (#$ . 40704)])
#@47 Convert special characters in STRING to HTML.
(defalias 'org-lparse-convert-special-strings #[(string) "\306\307!\310\211\211\211\211
\211A@\211\203E @ A\311\312\n#\203 \313\311\224\314#\2039 \311\225\202 \315 \316\310$\202 .\207" [start rpl re a e all org-lparse-get SPECIAL-STRING-REGEXPS nil 0 string-match get-text-property org-protected replace-match t string] 6 (#$ . 41579)])
#@144 Apply subscript and superscript styles to STRING.
Use `org-export-with-sub-superscripts' to control application of
sub and superscript styles.
(defalias 'org-lparse-apply-sub-superscript-styles #[(string) "\306\211\307\310= \311
\n#\203q \203\" \312\225\203\" \313\225\202\n \314\313\224\315#\2032 \313\225\202\n \316\225\317\313\"\320\230\203C \321\202D \322\317\312\"\206Z \317\323\"\206Z \317\324\"\325\317\316\"\326\327 \f#P\330\211$\202\n \311\331\"\203\211 \325\317\316\"\330\211$\202q ,\207" [org-export-with-sub-superscripts requireb s c key org-match-substring-regexp nil 0 {} string-match 8 2 get-text-property org-protected 1 match-string "_" subscript superscript 6 5 replace-match org-lparse-format FONTIFY t "\\\\\\([_^]\\)" string] 6 (#$ . 41997)])
#@127 Map Org emphasis markers to char styles.
This is an alist where each element is of the
form (ORG-EMPHASIS-CHAR . CHAR-STYLE).
(defvar org-lparse-char-styles '(("*" bold) ("/" emphasis) ("_" underline) ("=" code) ("~" verbatim) ("+" strike)) (#$ . 42806))
#@123 Apply char styles to STRING.
The variable `org-lparse-char-styles' controls how the Org
emphasis markers are interpreted.
(defalias 'org-lparse-apply-char-styles #[(string) "\305\306\307\n #\203R \310\224\310\224TO \311\224\311\224TO\232\204L \305\224\312\313 \"\314\315\312\311 \"\316\312\310 \"\f\"A@#\312\317 \"Q\320\321\211 $ G\322Z\\\202 T\202 *\207" [rpl s org-emph-re string org-lparse-char-styles 0 nil string-match 3 4 match-string 1 org-lparse-format FONTIFY assoc 5 replace-match t 2] 8 (#$ . 43068)])
#@226 Insert list syntax in export buffer. Return LINE, maybe modified.
POS is the item position or line position the line had before
modifications to buffer. STRUCT is the list structure. PREVS is
the alist of previous items.
(defalias 'org-lparse-export-list-line #[(line pos struct prevs) "\306\307\310\311 \n!\"\210\n \236\203\341 \312\313\f\"\210\314\315\f\" \314\316\f\"\206# \317 *\314\320\f\"\206- \321 +\322\n ,#\211 -\nU .- ,# /\n 0\3150 1\211 21 \2368-\211 3\204d \323\202\200 \312\3243\"\203v \3253\226!\326Z\202\200 \312\3273\"\205\200 3) 4.\203\220 \330 \210\331/!\210/\332\232\203\234 *\202\245 /\333\232\205\245 4 5\334/5\"\210)
\203\332 \335\336\337\312\340
\"\203\301 \340\202\320 \312\341
\"\203\317 \335\342\343\"\202\320 \344\345Q\346#\341+Q++.\202\357 \f\347\232\203\356 \350\351\323\"\202\357 \f*\207" [get-type get-closings pos struct line checkbox #[(pos struct prevs) "\304 \n#\211\305=\203 \306\202 \307=\203 \310\202 \311)\207" [pos struct prevs type org-list-get-list-type ordered "o" descriptive "d" "u"] 5] #[(pos) "\301\302\303\215\210)\207" [out nil exit (mapc #[(e) "\3058@\211 U\203 \fB\211\202 Y\205 \306\307\310\"*\207" [e item end pos out 6 throw exit nil] 4] struct)] 2] mapc #[(e) "\306 \n#U\307 \n#
\f \n# \f\310 \210\311\f!\210 \205( \312\f!\210\313 +\207" [e struct prevs lastp first-item get-type org-list-get-last-item org-list-get-list-begin org-lparse-end-paragraph org-lparse-end-list-item-1 org-lparse-end-list org-lparse-begin-paragraph type] 4] string-match "[ ]*\\(\\S-+[ ]*\\)\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][ ]*\\)?\\(?:\\(\\[[ X-]\\]\\)[ ]+\\)?\\(?:\\(.*\\)[ ]+::\\(?:[ ]+\\|$\\)\\)?\\(.*\\)" match-string 3 4 "???" 5 "" org-list-get-list-begin nil "[A-Za-z]" string-to-char 64 "[0-9]+" org-lparse-end-paragraph org-lparse-begin-list "d" "o" org-lparse-begin-list-item org-lparse-format FONTIFY "[" "X" " " SPACES 1 "-" "]" code "ORG-LIST-END-MARKER" throw nextline desc-tag body prevs list-beg firstp type item key n count-tmp counter arg] 7 (#$ . 43603)])
(defalias 'org-lparse-bind-local-variables #[(opt-plist) "\301\302\"\207" [org-export-plist-vars mapc #[(x) "\302\3038!\304 @\"L\207" [x opt-plist make-local-variable 2 plist-get] 4]] 3])
#@118 Buffer to which `org-do-lparse' writes to.
This buffer contains the contents of the to-be-created exported
document.
(defvar org-lparse-output-buffer nil (#$ . 45891))
#@647 Enable or Disable logging of `org-lparse' callbacks.
The parameters passed to the backend-registered ENTITY-CONTROL
and ENTITY-FORMAT callbacks are logged as comment strings in the
exported buffer. (org-lparse-format 'COMMENT fmt args) is used
for logging. Customize this variable only if you are an expert
user. Valid values of this variable are:
nil : Disable logging
control : Log all invocations of `org-lparse-begin' and
`org-lparse-end' callbacks.
format : Log invocations of `org-lparse-format' callbacks.
t : Log all invocations of `org-lparse-begin', `org-lparse-end'
and `org-lparse-format' callbacks,
(custom-declare-variable 'org-lparse-debug nil '(#$ . 46066) :group 'org-lparse :type '(choice (const :tag "Disable" nil) (const :tag "Format callbacks" format) (const :tag "Control callbacks" control) (const :tag "Format and Control callbacks" t)))
#@251 Begin ENTITY in current buffer. ARGS is entity specific.
ENTITY can be one of PARAGRAPH, LIST, LIST-ITEM etc.
Use (org-lparse-begin 'LIST "o") to begin a list in current
buffer.
See `org-xhtml-entity-control-callbacks-alist' for more
information.
(defalias 'org-lparse-begin #[(entity &rest args) "\306\235\203 \307=\204 \310\311\312 \n$c\210\313 \"\211 A@)\211 \204' \314\315 \"\210\316
\n\")\207" [org-lparse-debug entity args org-lparse-entity-control-callbacks-alist x f (t control) DOCUMENT-CONTENT org-lparse-format COMMENT "%s BEGIN %S" assoc error "Unknown entity: %s" apply] 6 (#$ . 46969)])
#@249 Close ENTITY in current buffer. ARGS is entity specific.
ENTITY can be one of PARAGRAPH, LIST, LIST-ITEM
etc.
Use (org-lparse-end 'LIST "o") to close a list in current
buffer.
See `org-xhtml-entity-control-callbacks-alist' for more
information.
(defalias 'org-lparse-end #[(entity &rest args) "\305\235\203 \306=\204 \307\310\311 \n$c\210\312 \"AA@\211 \204% \313\314 \"\210\315\f\n\")\207" [org-lparse-debug entity args org-lparse-entity-control-callbacks-alist f (t control) DOCUMENT-CONTENT org-lparse-format COMMENT "%s END %S" assoc error "Unknown entity: %s" apply] 6 (#$ . 47585)])
#@56 Insert <p>, but first close previous paragraph if any.
(defalias 'org-lparse-begin-paragraph #[(&optional style) "\302 \210\303\304\"\210\305\211\207" [style org-lparse-par-open org-lparse-end-paragraph org-lparse-begin PARAGRAPH t] 3 (#$ . 48188)])
#@39 Close paragraph if there is one open.
(defalias 'org-lparse-end-paragraph #[nil "\205 \301\302!\210\303\211\207" [org-lparse-par-open org-lparse-end PARAGRAPH nil] 2 (#$ . 48446)])
#@26 Close <li> if necessary.
(defalias 'org-lparse-end-list-item-1 #[(&optional type) "\301 \210\302\206 \303!\207" [type org-lparse-end-paragraph org-lparse-end-list-item "u"] 2 (#$ . 48636)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias org-lparse-preprocess-after-blockquote-hook org-lparse-preprocess-after-blockquote nil make-obsolete "24.3"] 4)
#@46 Treat `org-lparse-special-blocks' specially.
(defalias 'org-lparse-preprocess-after-blockquote #[nil "eb\210\301\302\303\304#\205< \305\306!\227\235\203 \307\305\310!\227\311\232\203+ \312\313\305\306!\226\305\314!#\2025 \312\315\305\306!\226\305\314!#\304\211#\210\202 \207" [org-lparse-special-blocks re-search-forward "^[ ]*#\\+\\(begin\\|end\\)_\\(\\S-+\\)[ ]*\\(.*\\)$" nil t match-string 2 replace-match 1 "begin" format "ORG-%s-START %s" 3 "ORG-%s-END %s"] 6 (#$ . 49012)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias org-lparse-strip-experimental-blocks-maybe-hook org-lparse-strip-experimental-blocks-maybe nil make-obsolete "24.3"] 4)
#@126 Strip "list-table" and "annotation" blocks.
Stripping happens only when the exported backend is not one of
"odt" or "xhtml".
(defalias 'org-lparse-strip-experimental-blocks-maybe #[nil "?\205) \303\304 \"\210eb\210\305\306\307\310\305#\205( \311\312! \235\203 \313\314\305\211#\210\202 )\207" [org-lparse-backend org-lparse-special-blocks case-fold-search message "Stripping following blocks - %S" t re-search-forward "^[ ]*#\\+begin_\\(\\S-+\\)\\([ ]+.*\\)?\n\\([^ ]*?\\)\n[ ]*#\\+end_\\1\\>.*" nil match-string 1 replace-match ""] 4 (#$ . 49691)])
#@52 Non-nil if `org-do-lparse' is within a list-table.
(defvar org-lparse-list-table-p nil (#$ . 50254))
(defvar org-lparse-dyn-current-environment nil)
(defalias 'org-lparse-begin-environment #[(style &optional env-options-plist) "\304\305\"\203 \306\211\207\307\310 #\207" [style org-lparse-list-table-p org-lparse-dyn-current-environment env-options-plist eql list-table t org-lparse-begin ENVIRONMENT] 4])
(defalias 'org-lparse-end-environment #[(style &optional env-options-plist) "\304\305\"\203 \306\211\207\307\310\n#\210\306\211\207" [style org-lparse-list-table-p env-options-plist org-lparse-dyn-current-environment eql list-table nil org-lparse-end ENVIRONMENT] 4])
(defalias 'org-lparse-current-environment-p #[(style) " =\207" [org-lparse-dyn-current-environment style] 2])
(defalias 'org-lparse-begin-footnote-definition #[(n) "\302 \210\303\304\305 \"\207" [org-lparse-insert-tag-with-newlines n org-lparse-begin-collect nil org-lparse-begin FOOTNOTE-DEFINITION] 3])
(defalias 'org-lparse-end-footnote-definition #[(n) "\305\306\"\210\307\310 \311\312\313\n #\203\" \311\224T\314\315\316\211\n$\202\f )\nB\fB\211)\207" [n org-lparse-insert-tag-with-newlines footnote-def pos org-lparse-footnote-definitions org-lparse-end FOOTNOTE-DEFINITION both org-lparse-end-collect 0 string-match "[
\n]+" replace-match " " t] 5])
#@234 An auxiliary buffer named "*Org Lparse Collect*".
`org-do-lparse' uses this as output buffer while collecting
footnote definitions and table-cell contents of list-tables. See
`org-lparse-begin-collect' and `org-lparse-end-collect'.
(defvar org-lparse-collect-buffer nil (#$ . 51613))
#@121 Count number of calls to `org-lparse-begin-collect'.
Use this counter to catch chained collections if they ever
happen.
(defvar org-lparse-collect-count nil (#$ . 51905))
#@78 Temporarily switch to `org-lparse-collect-buffer'.
Also erase it's contents.
(defalias 'org-lparse-begin-collect #[nil "\302!\204\n \303\304!\210T \204 \305\306! q\210\307 \207" [org-lparse-collect-count org-lparse-collect-buffer zerop error "FIXME (org-lparse.el): Encountered chained collections" get-buffer-create "*Org Lparse Collect*" erase-buffer] 2 (#$ . 52082)])
#@101 Switch to `org-lparse-output-buffer'.
Return contents of `org-lparse-collect-buffer' as a `string'.
(defalias 'org-lparse-end-collect #[nil "\302V\204\f \303\304\305C\"\210S\306 \307 \210 q\210\207" [org-lparse-collect-count org-lparse-output-buffer 0 signal cl-assertion-failed (> org-lparse-collect-count 0) buffer-string erase-buffer] 3 (#$ . 52465)])
#@245 Format ENTITY in backend-specific way and return it.
ARGS is specific to entity being formatted.
Use (org-lparse-format 'HEADING "text" 1) to format text as
level 1 heading.
See `org-xhtml-entity-format-callbacks-alist' for more information.
(defalias 'org-lparse-format #[(entity &rest args) "\306\235\203 \307\232\204 \310\307\311 \n$c\210 :\203( \n\211A@\312\310\313 \n%)\207\314 \f\"A\211 \2047 \315\316 \"\210\312
\n\")\207" [org-lparse-debug entity args text org-lparse-entity-format-callbacks-alist f (t format) COMMENT org-lparse-format "%s: %S" apply TAGS assoc error "Unknown entity: %s"] 7 (#$ . 52830)])
(defalias 'org-lparse-insert #[(entity &rest args) "\302\303 #c\207" [entity args apply org-lparse-format] 4])
(defalias 'org-lparse-prepare-toc #[(lines level-offset opt-plist umax-toc) "\306\307Q\310\n \"\211 \311 \312\313! rq\210\314\216\315!\210\316 \210\317\320\321\322\323\"8#\210\324\325\n\"\326\320!\210\327 .\n\207" [org-quote-string quote-re0 lines level-offset org-min-level org-last-level "^[ ]*" "\\>" org-get-min-level nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) org-lparse-bind-local-variables erase-buffer org-lparse-begin TOC 3 plist-get :lang-words mapcar #[(line) "\306 \"\203\356 \307\310\311 #\204\356 \312\313\314\225\314\224\n#!\211\fX\203\356 \315 \316\216\317\320\321\322 \"!!*(\205N \323\224\203B \321\323 \")\235?\206N \fU\205N \324 * #\325 + , -\306. \"\203r \326\327 /\330\331\321\314 \"\332#)\327\211 $\202U \306\333-\"\203\212 \321\314-\"+\326\334\327\325-$-\3060-\"\203\234 \326\334\327\211-$-\306\335-\"\203\260 \326\334\327\211-$-\202\234 \330\336\337 ! 1\340\341\342\343\3441\"# 2\34523\"A\206\316 2 2\3462! 2\330\3471,-+2&, 4$\210 4+ \207" [org-todo-line-regexp line level-offset level umax-toc save-match-data-internal string-match get-text-property 0 org-protected org-tr-level - 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-xml-encode-org-text-skip-links org-export-cleanup-toc-line match-string 3 2 org-search-todo-below nil replace-match t org-lparse-format FONTIFY "target" "[ ]+:\\([[:alnum:]_@:]+\\):[ ]*$" "" "<\\(<\\)+\\|>\\(>\\)+" TOC-ITEM org-section-number replace-regexp-in-string "\\." "-" format "sec-%s" assoc org-solidify-link-text TOC-ENTRY org-export-mark-todo-in-toc org-done-keywords lines tags todo txt org-any-target-regexp org-lparse-encode-pending quote-re0 snumber href org-export-preferred-target-alist org-last-level] 9] org-lparse-end buffer-string level #1# opt-plist umax-toc org-lparse-toc] 7])
(defalias 'org-lparse-format-table-row #[(fields &optional text-for-empty-fields) "\203 \203v \nGV\203v \306\307\nG#\210\202v \nG \203v \310\311\"\310\312\"\313 T\211W\203u \314T\"A\211 @
\315\230\203\\ \316\202o \317\230\203g \320\202o \321\230\205o \322I\210,\202- ) T \313 \323\324\325\326\n\327#\")\207" [org-lparse-table-ncols org-lparse-list-table-p fields org-lparse-table-is-styled org-lparse-table-num-numeric-items-per-column org-lparse-table-colalign-vector error "Table row has %d columns but header row claims %d columns" make-vector 0 nil -1 assoc "l" "left" "r" "right" "c" "center" org-lparse-format TABLE-ROW mapconcat #[(x) "\306\230\203\f \203\f \nT\307\211
\203F \n
W\203: \310\"\203: \n HTI\210*\311\nT\"A\211A@\312\313\n \206Q \314%*\207" [x text-for-empty-fields i horiz-span col-cookie org-lparse-table-is-styled "" nil string-match assoc org-lparse-format TABLE-CELL 0 org-lparse-table-ncols org-table-number-regexp org-lparse-table-num-numeric-items-per-column #1=#:v #2=#:v org-lparse-table-colalign-info org-lparse-table-rownum] 7] "\n" c org-lparse-table-colalign-info col-cookie align #3=#:v #4=#:v org-lparse-table-rownum i] 7])
#@106 Query for value of WHAT for the current backend `org-lparse-backend'.
See also `org-lparse-backend-get'.
(defalias 'org-lparse-get #[(what &optional opt-plist) "\303\300!\203 \304\305! \n#\207\306\307!\207" [org-lparse-backend what opt-plist boundp org-lparse-backend-get symbol-name error "org-lparse-backend is not bound yet"] 4 (#$ . 56767)])
#@250 Query BACKEND for value of WHAT.
Dispatch the call to `org-<backend>-user-get'. If that throws an
error, dispatch the call to `org-<backend>-get'. See
`org-xhtml-get' for all known settings queried for by
`org-lparse' during the course of export.
(defalias 'org-lparse-backend-get #[(backend what &optional opt-plist) ";\204\f \303\304\305D\"\210\306!\204 \307\310\"\210\311\312\313\"!\311\312\314\"!\315\n!\2032 \316\317\320\217\2027 \307\321\n#*\207" [backend backend-user-get-method backend-get-method signal cl-assertion-failed (stringp backend) org-lparse-backend-is-native-p error "Unknown native backend %s" intern format "org-%s-get" "org-%s-user-get" functionp nil (funcall backend-user-get-method what opt-plist) ((error (funcall backend-get-method what opt-plist))) "Native backend %s doesn't define %s"] 5 (#$ . 57122)])
(defalias 'org-lparse-insert-tag #[(tag &rest args) "\303\235\203 \304c\210\305\306 \n#c\210\307\235\205 \304c\207" [org-lparse-insert-tag-with-newlines tag args (lead both) "\n" apply format (trail both)] 4])
(defalias 'org-lparse-get-targets-from-title #[(title) "\305\306\301#\307 \n\"\307 \f\"A\206 \211\310 \"+B\207" [title target org-export-target-aliases extra-targets org-export-preferred-target-alist org-get-text-property-any 0 assoc remove] 5])
(defalias 'org-lparse-suffix-from-snumber #[(snumber) "\304\305\306#\307\310 P\n\"A\311 \206 !*\207" [snumber snu org-export-preferred-target-alist href replace-regexp-in-string "\\." "-" assoc "sec-" org-solidify-link-text] 4])
#@83 Insert a new LEVEL in HTML export.
When TITLE is nil, just close all open levels.
(defalias 'org-lparse-begin-level #[(level title umax head-count) "\306 \"\210\n\204
\307\310!\210\311\n!\211@ A \f\205 \312\f! \313\314\315\n# %\316\211 & '\316\211 ( )\317\320\n\"\203K *\205B \321\322\n\"'\323\324\325\211\n$ V\203{ +SH\203_ \326 \210\202m +S\325I\210\327 \210\330\331!\210\332\331\f\333\334\n
'$#\202\257 +S\325I\210\335!&\336\337\340!\206\220 \322\341#(,\322U\204\236 \342 \210\343(&\n'\f
%&\210\344 . \207" [level umax title targets target extra-targets org-lparse-end-level error "Why is heading nil" org-lparse-get-targets-from-title org-solidify-link-text org-get-text-property-any 0 html-container-class nil string-match "\\(:[[:alnum:]_@#%:]+:\\)[ ]*$" match-string 1 replace-match "" t org-lparse-end-list-item-1 org-lparse-end-paragraph org-lparse-begin-list unordered org-lparse-begin-list-item org-lparse-format HEADLINE org-section-number + org-lparse-get TOPLEVEL-HLEVEL -1 org-lparse-end-outline-text-or-outline org-lparse-begin-outline-and-outline-text org-lparse-begin-paragraph extra-class snumber tags level1 class org-export-with-tags org-levels-open head-count] 9 (#$ . 58674)])
(defalias 'org-lparse-end-level #[(level umax) "\306 \210\n Y\2034 \f SH\203-
X\203 \307 \210\202' \310 \210\311\312!\210\f S\313I\210 S\211\202 *\313\207" [org-level-max l level #1=#:--cl-var-- org-levels-open umax org-lparse-end-paragraph org-lparse-end-outline-text-or-outline org-lparse-end-list-item-1 org-lparse-end-list unordered nil] 4])
(defalias 'org-lparse-begin-outline-and-outline-text #[(level1 snumber title tags target extra-targets extra-class) "\306\307 \n \f
&\210\310 #\207" [level1 snumber title tags target extra-targets org-lparse-begin OUTLINE org-lparse-begin-outline-text extra-class] 9])
(defalias 'org-lparse-end-outline-text-or-outline #[nil "\203\f \301\302!\210\303\211\207\301\304!\207" [org-lparse-outline-text-open org-lparse-end OUTLINE-TEXT nil OUTLINE] 2])
(defalias 'org-lparse-begin-outline-text #[(level1 snumber extra-class) "\203 \304\305\306D\"\210\307\310\311 \n $\207" [org-lparse-outline-text-open level1 snumber extra-class signal cl-assertion-failed (not org-lparse-outline-text-open) t org-lparse-begin OUTLINE-TEXT] 5])
(defalias 'org-lparse-html-list-type-to-canonical-list-type #[(ltype) "\301\302\"A\207" [ltype assoc (("o" . ordered) ("u" . unordered) ("d" . description))] 3])
(defalias 'org-lparse-begin-list #[(ltype) " B\211G \204 \306\307\"\202. \n\310U\203 \311\211\211\202. \n\312U\203* \311\202. \306\307\")\207" [ltype org-lparse-list-stack list-level org-lparse-list-table-p org-lparse-list-table:lines org-lparse-list-table:table-row org-lparse-begin LIST 1 nil 2] 4])
(defalias 'org-lparse-end-list #[(ltype) "\210A\211G\n\204 \305\306 \"\202/ \307U\203! \310\f\237!c\202/ \311U\203+ \312\202/ \305\306 \")\207" [org-lparse-list-stack list-level org-lparse-list-table-p ltype org-lparse-list-table:lines org-lparse-end LIST 0 org-lparse-format-list-table 1 nil] 4])
(defalias 'org-lparse-begin-list-item #[(ltype &optional arg headline) "G\n\204 \306\307 \f
$\202/ \310U\203 \311\f\312 \202/ \313U\203) \312 \202/ \306\307 \f
$)\207" [org-lparse-list-stack list-level org-lparse-list-table-p ltype arg headline org-lparse-begin LIST-ITEM 1 nil org-lparse-begin-list-table:table-cell 2 org-lparse-list-table:table-row] 5])
(defalias 'org-lparse-end-list-item #[(ltype) "G\n\204 \306\307 \"\202/ \310U\203 \311 \210\f\237
B\211\202/ \312U\203+ \311 \202/ \306\307 \")\207" [org-lparse-list-stack list-level org-lparse-list-table-p ltype org-lparse-list-table:table-row org-lparse-list-table:lines org-lparse-end LIST-ITEM 1 org-lparse-end-list-table:table-cell 2] 3])
(defalias 'org-lparse-begin-list-table:table-cell #[nil "\301 \210\302\303 \210\304 \207" [org-lparse-list-table:table-cell-open org-lparse-end-list-table:table-cell t org-lparse-begin-collect org-lparse-begin-paragraph] 1])
(defalias 'org-lparse-end-list-table:table-cell #[nil "\205 \302\303 \210\304 B\211\207" [org-lparse-list-table:table-cell-open org-lparse-list-table:table-row nil org-lparse-end-paragraph org-lparse-end-collect] 2])
(defalias 'org-lparse-begin-table-rowgroup #[(&optional is-header-row) "T\303B B\304\305\n\"\207" [org-lparse-table-rownum org-lparse-table-rowgrp-info is-header-row :start org-lparse-begin TABLE-ROWGROUP] 3])
(defalias 'org-lparse-end-table #[nil "\203 @\204 \304 AB\305\306\307 \"\210)\310\311!\207" [org-lparse-table-is-styled org-table-colgroup-info c org-lparse-table-num-numeric-items-per-column :start -1 mapc #[(x) "T \n H\206 \306\f!
T\245 V\203 \307\202 \310I*\207" [c org-lparse-table-colalign-vector #1=#:v #2=#:v x org-lparse-table-rownum float "right" "left" org-table-number-fraction] 4] org-lparse-end TABLE] 3])
(defvar org-lparse-encode-pending nil)
(defalias 'org-lparse-format-tags #[(tag text prefix suffix &rest args) ":\203 \305\306@\n# \f\306A!\260\207;\205\" \305\306\n# Q\207" [tag prefix args text suffix apply format] 6])
#@82 Turn todo keyword into a valid class name.
Replaces invalid characters with "_".
(defalias 'org-xml-fix-class-name #[(kwd) "\302 \303\216\304\305 \"\203 \306\307\310\211 $\202 * \207" [save-match-data-internal kwd match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[^a-zA-Z0-9_]" replace-match "_" t] 5 (#$ . 63818)])
(defalias 'org-lparse-format-todo #[(todo) "\302\303\304\305\306\217\307!P \235\203 \310\202 \311D#\207" [todo org-done-keywords org-lparse-format FONTIFY nil (byte-code "\300\301!\207" [org-lparse-get TODO-KWD-CLASS-PREFIX] 2) ((error)) org-xml-fix-class-name "done" "todo"] 5])
(defalias 'org-lparse-format-extra-targets #[(extra-targets) "\204 \301\207\302\303\301#\207" [extra-targets #1="" mapconcat #[(x) "\301\302!\203
\303P\202 !\304\305\306#\207" [x org-solidify-link-text org-uuidgen-p "ID-" org-lparse-format ANCHOR #1#] 4]] 4])
(defalias 'org-lparse-format-org-tags #[(tags) "\204 \301\207\302\303\304\305\306\307\"\302\310\311\"#\312#\207" [tags "" org-lparse-format FONTIFY mapconcat #[(x) "\301\302\303\304\305\217\306!P#\207" [x org-lparse-format FONTIFY nil (byte-code "\300\301!\207" [org-lparse-get TAG-CLASS-PREFIX] 2) ((error)) org-xml-fix-class-name] 6] org-split-string ":" SPACES 1 "tag"] 8])
(defalias 'org-lparse-format-section-number #[(&optional snumber level) "\205 ?\205 \n\205 \205 \304\305\n\306\307 \"#\207" [org-export-with-section-numbers org-lparse-body-only snumber level org-lparse-format FONTIFY format "section-number-%d"] 6])
(defalias 'org-lparse-warn #[(msg) "\204 \302 !\207\303\304 G\305\306 %\210\302 !\210\307\310!\207" [org-lparse-use-flashy-warning msg message put-text-property 0 face font-lock-warning-face sleep-for 3] 6])
#@68 Make sure the S is valid as a href reference in an XHTML document.
(defalias 'org-xml-format-href #[(s) "\303 \304\216\305\306\307\n #\203 \305\224\310\\\311\312\313\211\n$\202 +\n\207" [save-match-data-internal start s match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 string-match "&" 3 replace-match "&" t] 5 (#$ . 65610)])
#@54 Make sure the S is valid as a description in a link.
(defalias 'org-xml-format-desc #[(s) "\203 \302\303\304#\204 \305 \306\216\307!*\207\207" [s save-match-data-internal get-text-property 1 org-protected match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-xml-encode-org-text] 4 (#$ . 66002)])
(provide 'org-lparse)