Current File : //usr/local/share/emacs/27.2/lisp/org/ob-lob.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 source 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 (#$ . 2254) 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 (#$ . 2610)])
#@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\324 \306!\211:\205\322 \211@A\211:\205\320 \211@A\211:\205\316 \211@A\211:\205\314 \211A\211:\205\312 \211A\211:\205\310 \211A\211:\205\306 \211@A\211?\205\304 \n
\303\307=\203g \310\202h \311\"\312\313\314\212\315!\203\201 \316!q\210\212\214~\210\211\206\212 `b\210\317\n!+\262\320\303\321 \"!\303\322 \"\211\205\251 \323\324\325!\"\262\320\303\326 \"!E\"$\327\303\330\"\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 markerp marker-buffer 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 (#$ . 3754)])
(provide 'ob-lob)
Mini Shell