;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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 cl-lib ob-core ob-table] 2)
|
#@152 Library of source-code blocks.
|
This is an association list. Populate the library by calling
|
`org-babel-lob-ingest' on files containing source blocks.
|
(defvar org-babel-library-of-babel nil (#$ . 499))
|
#@295 Default header arguments to use when exporting Babel calls.
|
By default, a Babel call inherits its arguments from the source
|
block being called. Header arguments defined in this variable
|
take precedence over these. It is useful for properties that
|
should not be inherited from a source block.
|
(defvar org-babel-default-lob-header-args '((:exports . "results")) (#$ . 708))
|
#@99 Add all named source blocks defined in FILE to `org-babel-library-of-babel'.
|
|
(fn &optional FILE)
|
(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: "])
|
#@186 Execute a Library of Babel source block, if appropriate.
|
Detect if this is context for a Library Of Babel source block and
|
if so then run the appropriate source block from the Library.
|
(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])
|
#@237 Return internal representation for Babel data referenced as REF.
|
REF is a string. This function looks into the current document
|
for a Babel call or source block. If none is found, it looks
|
after REF in the Library of Babel.
|
|
(fn REF)
|
(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)])
|
#@286 Return internal representation for Library of Babel function call.
|
|
Consider DATUM, when provided, or element at point otherwise.
|
|
Return nil when not on an appropriate location. Otherwise return
|
a list compatible with `org-babel-get-src-block-info', which
|
see.
|
|
(fn &optional DATUM)
|
(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)])
|
(provide 'ob-lob)
|
