| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib ob-core ob-table] 2) | |
| 16 | #@152 Library of source-code blocks. | |
| 17 | This is an association list. Populate the library by calling | |
| 18 | `org-babel-lob-ingest' on files containing source blocks. | |
| 19 | (defvar org-babel-library-of-babel nil (#$ . 499)) | |
| 20 | #@295 Default header arguments to use when exporting Babel calls. | |
| 21 | By default, a Babel call inherits its arguments from the source | |
| 22 | block being called. Header arguments defined in this variable | |
| 23 | take precedence over these. It is useful for properties that | |
| 24 | should not be inherited from a source block. | |
| 25 | (defvar org-babel-default-lob-header-args '((:exports . "results")) (#$ . 708)) | |
| 26 | #@99 Add all named source blocks defined in FILE to `org-babel-library-of-babel'. | |
| 27 | ||
| 28 | (fn &optional FILE) | |
| 29 | (defalias 'org-babel-lob-ingest #[256 "\303\304\211?\206 \305\306!!`\307\310 \311\303\312\313\314!\315\"\316$\216\203& \317!\210p\262eb\210\320 \307\304#\203\236 \321 \203, \303\224b\210\322\303!\303\224\303\225\322\316!\316\224\316\225\322\323!\323\224\323\225\322\324!\324\224\324\225\322\325!\325\224\325\225\326\327!\3248\211\203\224 A\211\330\3168\331\"\203| \332!\202 A@\240\266\333!\211B\334\n\"B\210T\262\266\fb\266\202, )\210\204\250 \335!\210b\210)\266\336\337\211\340V\203\273 \341\202\274 \342#\210\211\207" [case-fold-search org-babel-src-block-regexp org-babel-library-of-babel 0 t get-file-buffer expand-file-name nil current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 find-file re-search-forward org-babel-active-location-p match-string 3 4 5 org-babel-get-src-block-info light org-babel-noweb-p :eval org-babel-expand-noweb-references intern assq-delete-all kill-buffer message "%d src block%s added to Library of Babel" 1 "s" ""] 29 (#$ . 1088) "fFile: "]) | |
| 30 | #@186 Execute a Library of Babel source block, if appropriate. | |
| 31 | Detect if this is context for a Library Of Babel source block and | |
| 32 | if so then run the appropriate source block from the Library. | |
| 33 | (defalias 'org-babel-lob-execute-maybe #[0 "\300 \211\205\f \301\302\"\210\303\207" [org-babel-lob-get-info org-babel-execute-src-block nil t] 4 (#$ . 2251) nil]) | |
| 34 | #@237 Return internal representation for Babel data referenced as REF. | |
| 35 | REF is a string. This function looks into the current document | |
| 36 | for a Babel call or source block. If none is found, it looks | |
| 37 | after REF in the Library of Babel. | |
| 38 | ||
| 39 | (fn REF) | |
| 40 | (defalias 'org-babel-lob--src-info #[257 "\211\303\304\305\"\203 \306\307\"\262\306\310\"\262r\211\203! \311\312\"\202& \206& pq\210\307\212\313!\2035 \314!q\210\212\214~\210\211\206> `b\210\3152\210 \312\316!\317\303\312#\203~ \320 \321\322\"\232\203z \323\315\324!\211\325\267\202u \326\312\"\202v \327!\202v \303\262\"\210\210\202J \330\n\"A)\266\2020+\262)\207" [org-babel-exp-reference-buffer case-fold-search org-babel-library-of-babel nil string-match "\\`\\(.+\\):\\(.+\\)\\'" match-string 1 2 find-file-noselect t markerp marker-buffer :found org-babel-named-data-regexp-for-name re-search-forward org-element-at-point org-element-property :name throw org-element-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (src-block 104 babel-call 111)) org-babel-get-src-block-info org-babel-lob-get-info assoc-string] 13 (#$ . 2607)]) | |
| 41 | #@286 Return internal representation for Library of Babel function call. | |
| 42 | ||
| 43 | Consider DATUM, when provided, or element at point otherwise. | |
| 44 | ||
| 45 | Return nil when not on an appropriate location. Otherwise return | |
| 46 | a list compatible with `org-babel-get-src-block-info', which | |
| 47 | see. | |
| 48 | ||
| 49 | (fn &optional DATUM) | |
| 50 | (defalias 'org-babel-lob-get-info #[256 "\211\206 \301 \302!\303\304\"\305>\205\301 \306!\211:\205\277 \211@A\211:\205\275 \211@A\211:\205\273 \211@A\211:\205\271 \211A\211:\205\267 \211A\211:\205\265 \211A\211:\205\263 \211@A\211?\205\261 \n \303\307=\203g \310\202h \311\"\312\313\314\212\214~\210b\210\315 !*\316\303\317 \"!\303\320 \"\211\205\226 \321\322\323!\"\262\316\303\324 \"!E\"$\325\303\326\"\n\257\262\266\204\266\202\262\262\262\266\202\266\202\266\202\262\207" [org-babel-default-lob-header-args org-element-context org-element-type org-element-property :call (babel-call inline-babel-call) org-babel-lob--src-info inline-babel-call :begin :post-affiliated apply org-babel-merge-params append org-babel-params-from-properties org-babel-parse-header-arguments :inside-header :arguments mapcar #[257 "\300B\207" [:var] 3 "\n\n(fn REF)"] org-babel-ref-split-args :end-header nil :name] 35 (#$ . 3751)]) | |
| 51 | (provide 'ob-lob) | |
