WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/org-exp-blocks.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:49:40 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-exp-blocks.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!\207" [require find-func org-compat] 2)
(defvar org-protecting-blocks nil)
#@65 Set the value of `org-export-blocks' and install fontification.
(defalias 'org-export-blocks-set #[(var value) "	L\210\302\303	\"\207" [var value mapc #[(spec) "\3028\203\303\304@!	\"\211\207\305\301\304@!\"\207" [spec org-protecting-blocks 2 delete symbol-name add-to-list] 4]] 3 (#$ . 670)])
#@244 Use this alist to associate block types with block exporting functions.
The type of a block is determined by the text immediately
following the '#+BEGIN_' portion of the block header.  Each block
export function should accept three arguments.
(custom-declare-variable 'org-export-blocks ''((export-comment org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil)) '(#$ . 978) :group 'org-export-general :type '(repeat (list (symbol :tag "Block name") (function :tag "Block formatter") (boolean :tag "Fontify content as Org syntax"))) :set 'org-export-blocks-set)
#@495 Add a new block type to `org-export-blocks'.
BLOCK-SPEC should be a three element list the first element of
which should indicate the name of the block, the second element
should be the formatting function called by
`org-export-blocks-preprocess' and the third element a flag
indicating whether these types of blocks should be fontified in
org-mode buffers (see `org-protecting-blocks').  For example the
BLOCK-SPEC for ditaa blocks is as follows.

  (ditaa org-export-blocks-format-ditaa nil)
(defalias 'org-export-blocks-add-block #[(block-spec) "	\235?\205	B\302\301	\"\207" [block-spec org-export-blocks org-export-blocks-set] 3 (#$ . 1609)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\317\320\306\321&	\207" [custom-declare-variable org-export-interblocks 'nil "Use this a-list to associate block types with block exporting functions.\nThe type of a block is determined by the text immediately\nfollowing the '#+BEGIN_' portion of the block header.  Each block\nexport function should accept three arguments." :group org-export-general :type alist org-export-blocks-witheld '(hidden) "List of block types (see `org-export-blocks') which should not be exported." list org-export-blocks-postblock-hook nil "Run after blocks have been processed with `org-export-blocks-preprocess'." :version "24.1" hook] 10)
#@99 Protect BODY from org html export.
The optional OPEN and CLOSE tags will be inserted around BODY.
(defalias 'org-export-blocks-html-quote #[(body &optional open close) "\303\206\304	\305\306	\"\203\304\202\307\n\206\304\310\260\207" [open body close "\n#+BEGIN_HTML\n" "" string-match "\n$" "\n" "#+END_HTML\n"] 6 (#$ . 3001)])
#@100 Protect BODY from org latex export.
The optional OPEN and CLOSE tags will be inserted around BODY.
(defalias 'org-export-blocks-latex-quote #[(body &optional open close) "\303\206\304	\305\306	\"\203\304\202\307\n\206\304\310\260\207" [open body close "\n#+BEGIN_LaTeX\n" "" string-match "\n$" "\n" "#+END_LaTeX\n"] 6 (#$ . 3346)])
#@197 Export all blocks according to the `org-export-blocks' block export alist.
Does not export block types specified in specified in BLOCKS
which defaults to the value of `org-export-blocks-witheld'.
(defalias 'org-export-blocks-preprocess #[nil "\306 \307\216\310\311\312\211\211\211\211\211\211\211\211\211\211+,-./012eb\210`+\3133\3143\312\310#\203e\315\316\224!4\315\316\225!5\317\320!G/\321\322\323\317\324!\227!\"6\325\317\324!\227!.\326 7\327\216\330\317\331!\332\"*\32089\206w\333\235\312:\3348!\204\244\3146\312\310#\203\244\317\320!\227\335\230\203\2348S8\202{8T8\202{\3348!\204\265\336\337.4`{#\210\315\316\225!:\n\204\316\326 7\340\216\3415\316\224{!*.->\204\335.-B-\326 7\342\2161+4\"\210*\343.;\"\211<A@)\211,\203K\326 7\344\216.=>\203\345\202\346,\f#*\211>\203J4:|\2104b\210>c\210\n\203B\212\347/!\2104b\210\347/!\210)\202J\3504`/#\210)4\312\211\223\2105\312\211\223\210:\312\211\223\210.	`+\2020)1+d\"\210\351\352!.\207" [#1=#:wconfig progress-marker preserve-indent headers body end current-window-configuration ((set-window-configuration #1#)) t #[(start end) "\301\302\"\207" [org-export-interblocks mapcar #[(pair) "\211A@)\n\"\207" [pair x start end] 4]] 3] nil "^\\([ 	]*\\)#\\+begin_\\(\\S-+\\)[ 	]*\\(.*\\)?[
\n]" re-search-forward copy-marker 0 match-string 1 format "^[ 	]*#\\+\\(begin\\|end\\)_%s" regexp-quote 2 intern match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-split-string 3 "[ 	]+" "-i" zerop "end" error "Unbalanced begin/end_%s blocks with %S" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-remove-indentation ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) assoc ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "" apply indent-line-to indent-code-rigidly run-hooks org-export-blocks-postblock-hook start func types type indentation matched interblock case-fold-search beg-re match-start body-start inner-re save-match-data-internal balanced org-src-preserve-indentation match-end org-export-blocks x org-export-blocks-witheld replacement] 14 (#$ . 3695) nil])
#@35 Path to the ditaa jar executable.
(custom-declare-variable 'org-ditaa-jar-path '(expand-file-name "ditaa.jar" (file-name-as-directory (expand-file-name "scripts" (file-name-as-directory (expand-file-name "../contrib" (file-name-directory (org-find-library-dir "org"))))))) '(#$ . 5968) :group 'org-babel :type 'string)
#@285 DEPRECATED: use begin_src ditaa code blocks

Pass block BODY to the ditaa utility creating an image.
Specify the path at which the image should be saved as the first
element of headers, any additional elements of headers will be
passed to the ditaa utility as command line arguments.
(defalias 'org-export-blocks-format-ditaa #[(body &rest headers) "\306\307!\210A\205\310\311A\312#\313\314!\315\316G\317$\210\320\321	D!!\205*@\322\323
\"\203>\324\325
\"\324\326
\"B\202A
\327B\2113@\330\f\3313A\2604\3325!\204^\333\334\3355\"!\210\322\336\"\203i\202q\310\337\340\341\"\341#6\342\235\203\331\3324!\204\321\343\344\345\3464!\206\2147!\"\210\n\347\350\351!!89\352\216r8q\210c\210)r8q\210\353\317\2119\317\316%\210,\306\3545\312	\312\n\3124\260!\210\355\3545\312	\312\n\3124\260!\210\334\3564\"\202\351\357\322\360\"\203\346\361\202\347\341\362R\306\307!\210.\207" [headers args data-file body hash raw-out-file message "begin_ditaa blocks are DEPRECATED, use begin_src blocks" mapconcat identity " " make-temp-file "org-ditaa" set-text-properties 0 nil sha1 prin1-to-string string-match "\\(.+\\)\\.\\([^\\.]+\\)$" match-string 1 2 "png" "_" "." file-exists-p error format "Could not find ditaa.jar at %s" "^\\([^:\\|:[^ ]\\)" #[(x) "\211G\301V\203\f\302\202
\301\303O\207" [x 1 2 nil] 3] org-split-string "\n" (html latex docbook) mapc #[(file) "\303\304@!\305\304A!Q	\"\205\"\306\307\n\"G\310U\205\"\311\312	\313\n!\"!\207" [out-file-parts file out-file string-match regexp-quote "_\\([[:alnum:]]+\\)\\." match-string 1 40 delete-file expand-file-name file-name-directory] 5] directory-files file-name-directory get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) write-region "java -jar " shell-command "\n[[file:%s]]\n" "\n#+BEGIN_EXAMPLE\n" "\n$" "" "#+END_EXAMPLE\n" out-file-parts out-file org-ditaa-jar-path org-export-current-backend default-directory #1# #2=#:temp-file] 10 (#$ . 6294)])
#@778 DEPRECATED: use "#+begin_src dot" code blocks

Pass block BODY to the dot graphing utility creating an image.
Specify the path at which the image should be saved as the first
element of headers, any additional elements of headers will be
passed to the dot utility as command line arguments.  Don't
forget to specify the output type for the dot command, so if you
are exporting to a file with a name like 'image.png' you should
include a '-Tpng' argument, and your block should look like the
following.

#+begin_dot models.png -Tpng
digraph data_relationships {
  "data_requirement" [shape=Mrecord, label="{DataRequirement|descriptionlformatl}"]
  "data_product" [shape=Mrecord, label="{DataProduct|namelversionlpoclformatl}"]
  "data_requirement" -> "data_product"
}
#+end_dot
(defalias 'org-export-blocks-format-dot #[(body &rest headers) "\306\307!\210A\205\310\311A\312#\313\314!\315\316G\317$\210\320\321	D!!\205*@\322\323
\"\203>\324\325
\"\324\326
\"B\202A
\327B\211/@\330\f\331/A\26001\332\235\203\260\3330!\204\250\334\335\336\3370!\206i2!\"\210\n\340\341\342!!34\343\216r3q\210c\210)r3q\210\344\317\2114\317\316%\210,\306\345\n\312	\3460\260!\210\347\345\n\312	\3460\260!\210\350\3510\"\202\300\352\322\353\"\203\275\354\202\276\355\356R\306\307!\210.\207" [headers args data-file body hash raw-out-file message "begin_dot blocks are DEPRECATED, use begin_src blocks" mapconcat identity " " make-temp-file "org-ditaa" set-text-properties 0 nil sha1 prin1-to-string string-match "\\(.+\\)\\.\\([^\\.]+\\)$" match-string 1 2 "png" "_" "." (html latex docbook) file-exists-p mapc #[(file) "\303\304@!\305\304A!Q	\"\205\"\306\307\n\"G\310U\205\"\311\312	\313\n!\"!\207" [out-file-parts file out-file string-match regexp-quote "_\\([[:alnum:]]+\\)\\." match-string 1 40 delete-file expand-file-name file-name-directory] 5] directory-files file-name-directory get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) write-region "dot " " -o " shell-command format "\n[[file:%s]]\n" "\n#+BEGIN_EXAMPLE\n" "\n$" "" "\n" "#+END_EXAMPLE\n" out-file-parts out-file org-export-current-backend default-directory #1# #2=#:temp-file] 8 (#$ . 8358)])
#@192 Format comment BODY by OWNER and return it formatted for export.
Currently, this only does something for HTML export, for all
other backends, it converts the comment into an EXAMPLE segment.
(defalias 'org-export-blocks-format-comment #[(body &rest headers) "\205@A\205\305\306A\307#\310=\203O\311\312\n\205#\313\314\n\"\315\n\203/\316\n\317Q\2020\320	\203B	G\321V\203B\322	\323Q\202C\323\324\325\f\326\327\330\325\260
\202x\331	\203[\332	\333Q\202\\\320\n\203g\334\n\333Q\202h\320\f\335\336\f\"\203t\320\202u\333\337\260*\207" [headers title owner org-export-current-backend body mapconcat identity " " html "#+BEGIN_HTML\n" "<div class=\"org-comment\"" format " id=\"org-comment-%s\" " ">\n" "<b>" "</b> " "" 0 " -- " "<br/>\n" "<p>\n" "#+END_HTML\n" "\n#+BEGIN_HTML\n" "</p>\n" "</div>\n" "#+BEGIN_EXAMPLE\n" "Title:" "\n" "By:" string-match "\n\\'" "#+END_EXAMPLE\n"] 13 (#$ . 10652)])
(provide 'org-exp-blocks)
F1l3 Manager
