;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\224A\211\330\3168\331\"\203|\332!\202A@\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\216\312\316!\317\303\312#\203\204\320 \321\322\"\232\203\200\323\315\324!\211\325=\203o\326\312\"\202|\211\327=\203{\330!\202|\303\262\"\210\210\202J\331\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 src-block org-babel-get-src-block-info babel-call 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 (#$ . 3676)]) (provide 'ob-lob)