| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [require ob-core custom-declare-variable org-export-use-babel funcall function #[0 "\300\207" [t] 1] "Switch controlling code evaluation and header processing during export.\nWhen set to nil no code will be evaluated as part of the export\nprocess and no header arguments will be obeyed. Users who wish\nto avoid evaluating code on export should use the header argument\n`:eval never-export'." :group org-babel :version "24.1" :type (choice (const :tag "Never" nil) (const :tag "Always" t)) :safe null] 12) | |
| 16 | #@248 Evaluate BODY at the source of the Babel block at point. | |
| 17 | Source is located in `org-babel-exp-reference-buffer'. The value | |
| 18 | returned is the value of the last form in BODY. Assume that | |
| 19 | point is at the beginning of the Babel block. | |
| 20 | ||
| 21 | (fn &rest BODY) | |
| 22 | (defalias 'org-babel-exp--at-source '(macro . #[128 "\300\301\302\303\304\305BBEE\207" [let ((source (get-text-property (point) 'org-reference))) with-current-buffer (if source org-babel-exp-reference-buffer (current-buffer)) org-with-wide-buffer (when source (goto-char source))] 8 (#$ . 1008)])) | |
| 23 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-babel-exp--at-source lisp-indent-function 1 put edebug-form-spec body] 5) | |
| 24 | #@480 Process source block for export. | |
| 25 | Depending on the ":export" header argument, replace the source | |
| 26 | code block like this: | |
| 27 | ||
| 28 | both ---- display the code and the results | |
| 29 | ||
| 30 | code ---- the default, display the code inside the block but do | |
| 31 | not process | |
| 32 | ||
| 33 | results - just like none only the block is run on export ensuring | |
| 34 | that its results are present in the Org mode buffer | |
| 35 | ||
| 36 | none ---- do not display either code or results upon export | |
| 37 | ||
| 38 | Assume point is at block opening line. | |
| 39 | (defalias 'org-babel-exp-src-block #[0 "\212\303\304!\211@\3058\306\204 \307\310\311 #\210\205q \312\3058\236A\313\235\203l \314\315P!\316`\317\"r\211\2036 \2027 pq\210\212\214~\210\211\203D \211b\210AA\211\320\321\322\n\323!\205V J\324\325 !\fC\"$!\240\266+\266\326!\262\327\330#\266\204)\207" [noninteractive org-babel-exp-reference-buffer org-babel-default-header-args org-babel-get-src-block-info light 2 nil message "org-babel-exp process %s at position %d..." line-beginning-position :exports ("both" "results") intern "org-babel-default-header-args:" get-text-property org-reference org-babel-process-params apply org-babel-merge-params boundp append org-babel-params-from-properties org-babel-sha1-hash org-babel-exp-do-export block] 16 (#$ . 1706) nil]) | |
| 40 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable org-babel-exp-call-line-template funcall function #[0 "\300\207" [#1=""] 1 #1#] "Template used to export call lines.\nThis template may be customized to include the call line name\nwith any export markup. The template is filled out using\n`org-fill-template', and the following %keys may be used.\n\n line --- call line\n\nAn example value would be \"\\n: call: %line\" to export the call line\nwrapped in a verbatim environment.\n\nNote: the results are inserted separately after the contents of\nthis template." :group org-babel :type string] 8) | |
| 41 | #@45 Execute all Babel blocks in current buffer. | |
| 42 | (defalias 'org-babel-exp-process-buffer #[0 "\205\275\305 \306\307\310\311\312!\313\"\314$\216\315\316\317 \320\216\212eb\210\321\322\315#\2035 \307\224\323\324 \325$\266\202 eb\210\321\322\315#\205\267\326 \306\307\327\311\312!\330\"\331$\216\332 )\262\2048 \333\225\326 \306\307\327\311\312!\334\"\331$\216\203o \335 \202q \336 )\262\337!\211\340>\203\202 ?\205\206 \211\211\262\262\341\342\343\"!\341\212\342\344\"b\210\345\322x\210`)!\346=\203\361 \347\322\"\3148A\211\350\236A\203\304 \350\236A\351\230\203\304 \352 \"\202\307 A@\240\266b\210\353\354\"\211\355\232\203\345 b\210\356\322w\210`|\210\202\354 |\210\211c\210\266\202\251\357>\203:\353\360!\361\"\210\362 \363\342\364\"BC\"\211\355\232\203,b\210\365=\204!\356\322w\210`\202'\345\322w\210\366 |\210\2026b\210|\210\211c\210\210\202\251\367=\203\251\341\307\224!\370 b\210\371 \211\204Ub\210\202\242\211\355\232\203lb\210\345\322w\210\372 \210`|\210\202\242b\210`\212b\210\324 )|\210\211c\210\f\204\210\342\373\"\203\234\212\345\322x\210\374!\210b\210\374!\210)\202\242\375`#\210\210\322\211\223\266\322\211\223\210\211\322\211\223\266\2028 ,\266\202)\262\207" [org-export-use-babel org-babel-exp-reference-buffer case-fold-search org-babel-exp-call-line-template org-src-preserve-indentation current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 t "\\(call\\|src\\)_\\|^[ ]*#\\+\\(BEGIN_SRC\\|CALL:\\)" org-export-copy-buffer #[0 "\301!\210\302ed\303#\207" [org-babel-exp-reference-buffer kill-buffer remove-text-properties (org-reference)] 4] re-search-forward nil put-text-property line-end-position org-reference match-data "\301\300\302\"\207" [set-match-data evaporate] 3 org-in-commented-heading-p 1 [set-match-data evaporate] org-element-context org-element-at-point org-element-type (src-block babel-call) copy-marker org-element-property :begin :end " \n" inline-src-block org-babel-get-src-block-info :noweb "yes" org-babel-expand-noweb-references org-babel-exp-do-export inline "" " " (inline-babel-call babel-call) org-babel-lob-get-info lob org-fill-template "line" :value babel-call line-beginning-position src-block org-get-indentation org-babel-exp-src-block beginning-of-line :preserve-indent indent-line-to indent-rigidly] 15 (#$ . 3611) nil]) | |
| 43 | #@156 Return a string with the exported content of a code block. | |
| 44 | The function respects the value of the :exports header argument. | |
| 45 | ||
| 46 | (fn INFO TYPE &optional HASH) | |
| 47 | (defalias 'org-babel-exp-do-export #[770 "\300\301\302\3038\236A\206 \304\211\305\267\202] \"\210\"\210\306\202^ \"\210\"\210\307\"\202^ \310\311$\210\306\202^ \310\311$\210\307\"\202^ \311\262\207" [#[514 "\300\3018\236A\211\302\232?\205 \303\304#\207" [:session 2 "none" org-babel-exp-results silent] 7 "\n\n(fn INFO TYPE)"] #[514 "\211\300=\203 \301 \207\302!\207" [inline org-babel-remove-inline-result org-babel-remove-result] 4 "\n\n(fn INFO TYPE)"] :exports 2 "code" #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("none" 19 "code" 37 "results" 60 "both" 74)) "" org-babel-exp-code org-babel-exp-results nil] 11 (#$ . 6029)]) | |
| 48 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311\315\316\317\320& \207" [custom-declare-variable org-babel-exp-code-template funcall function #[0 "\300\207" [#1="#+BEGIN_SRC %lang%switches%flags\n%body\n#+END_SRC"] 1 #1#] "Template used to export the body of code blocks.\nThis template may be customized to include additional information\nsuch as the code block name, or the values of particular header\narguments. The template is filled out using `org-fill-template',\nand the following %keys may be used.\n\n lang ------ the language of the code block\n name ------ the name of the code block\n body ------ the body of the code block\n switches -- the switches associated to the code block\n flags ----- the flags passed to the code block\n\nIn addition to the keys mentioned above, every header argument\ndefined for the code block may be used as a key and will be\nreplaced with its value." :group org-babel :type string org-babel-exp-inline-code-template #[0 "\300\207" [#2="src_%lang[%switches%flags]{%body}"] 1 #2#] "Template used to export the body of inline code blocks.\nThis template may be customized to include additional information\nsuch as the code block name, or the values of particular header\narguments. The template is filled out using `org-fill-template',\nand the following %keys may be used.\n\n lang ------ the language of the code block\n name ------ the name of the code block\n body ------ the body of the code block\n switches -- the switches associated to the code block\n flags ----- the flags passed to the code block\n\nIn addition to the keys mentioned above, every header argument\ndefined for the code block may be used as a key and will be\nreplaced with its value." :version "26.1" :package-version (Org . "8.3")] 12) | |
| 49 | #@70 Return the original code block formatted for export. | |
| 50 | ||
| 51 | (fn INFO TYPE) | |
| 52 | (defalias 'org-babel-exp-code #[514 "A\211\303\3048\236A\305\230\203 \306\307 \310A@#\202- \311\3048\312\"\203* \313\"\202- A@\240\266\314\315=\203; \202< \n\316@B\317\320A@!B\321\3228\323!\205V \324P\262B\325\326\304 8\236\211\205h \324AP\262B\327\330\331\304 8\"\332\333 8\206| \310BC\"BBBB\"\207" [org-babel-exp-reference-buffer org-babel-exp-inline-code-template org-babel-exp-code-template :noweb 2 "strip-export" replace-regexp-in-string org-babel-noweb-wrap "" org-babel-noweb-p :export org-babel-expand-noweb-references org-fill-template inline "lang" "body" org-escape-code-in-string "switches" 3 org-string-nw-p " " "flags" :flags append mapcar #[257 "\300@!\301\302O\303\304A\"B\207" [symbol-name 1 nil format "%S"] 5 "\n\n(fn PAIR)"] "name" 4] 13 (#$ . 8727)]) | |
| 53 | #@351 Evaluate and return the results of the current code block for export. | |
| 54 | Results are prepared in a manner suitable for export by Org mode. | |
| 55 | This function is called by `org-babel-exp-do-export'. The code | |
| 56 | block will be evaluated. Optional argument SILENT can be used to | |
| 57 | inhibit insertion of results into the buffer. | |
| 58 | ||
| 59 | (fn INFO TYPE &optional SILENT HASH) | |
| 60 | (defalias 'org-babel-exp-results #[1026 "\211\205 \211\303 \232?\205\244 @\304\3058\306\"\203 \307\"\202\" A@\310!\311 \312\313\314P!!\205\241 \315 \210\211A\211\240\266\211AA\211\316`\317\"r\211\203N \202O pq\210\212\214~\210\211\203\\ \211b\210\320\321\3058\322 \203l \323\202m \324BC\"!+\262\240\266\325\267\202\240 \326\327\"\202\241 \3308b\210\326\327\"\202\241 \212\3308b\210\327\326\327\"*\202\241 \327)\266\203\207" [org-babel-exp-reference-buffer org-babel-current-src-block-location org-confirm-babel-evaluate org-babel-current-result-hash org-babel-noweb-p 2 :eval org-babel-expand-noweb-references copy-sequence point-marker fboundp intern "org-babel-execute:" org-babel-eval-wipe-error-buffer get-text-property org-reference org-babel-process-params org-babel-merge-params :results "silent" "replace" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (block 125 inline 132 lob 144)) org-babel-execute-src-block nil 5] 15 (#$ . 9603)]) | |
| 61 | (provide 'ob-exp) | |
