;ELC ;;; Compiled ;;; in Emacs version 24.5.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!\207" [require ob-core ob-table] 2) #@125 Library of source-code blocks. This is an association list. Populate the library by adding files to `org-babel-lob-files'. (defvar org-babel-library-of-babel nil (#$ . 481)) #@124 Files used to populate the `org-babel-library-of-babel'. To add files to this list use the `org-babel-lob-ingest' command. (custom-declare-variable 'org-babel-lob-files nil '(#$ . 663) :group 'org-babel :version "24.1" :type '(repeat file)) #@66 Default header arguments to use when exporting #+lob/call lines. (defvar org-babel-default-lob-header-args '((:exports . "results")) (#$ . 910)) #@78 Add all named source blocks defined in FILE to `org-babel-library-of-babel'. (defalias 'org-babel-lob-ingest #[(&optional file) "\306\307\n\211?\206\310\311 !!`\312\313  \314\216 \203$\315 !\210peb\210\316!\312\307#\203\254\317 \203*\306\224b\210\320\306!\306\224\306\225\320\321!\321\224\321\225\320\322!\322\224\322\225\320\323!\323\224\323\225\320\324!\324\224\324\225\"#$%&'()*+,-./0\325\326!1\32318\2112\203\242\3272!\21121B\33023\"B3T*.b\210.\202**\f\204\266\331!\210 b\210-\332\333\211\334V\203\307\335\202\310\336#\210)\207" [lob-ingest-count case-fold-search file #1=#:file visited-p point 0 t get-file-buffer expand-file-name nil current-window-configuration ((set-window-configuration #2=#:wconfig)) find-file re-search-forward org-babel-active-location-p match-string 2 3 4 5 org-babel-get-src-block-info light intern assq-delete-all kill-buffer message "%d src block%s added to Library of Babel" 1 "s" "" to-be-removed #2# org-babel-src-block-regexp end-body beg-body body end-header-args beg-header-args header-args end-switches beg-switches switches end-lang beg-lang lang end-block beg-block full-block info source-name org-babel-library-of-babel] 16 (#$ . 1061) "fFile: "]) #@72 Regexp to match non-inline calls to predefined source block functions. (defconst org-babel-block-lob-one-liner-regexp "^\\([ ]*?\\)#\\+call:[ ]+\\([^()\n]+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)(\\([^\n]*?\\))\\(\\[.+\\]\\|\\)[ ]*\\(\\([^\n]*\\)\\)?" (#$ . 2311)) #@68 Regexp to match inline calls to predefined source block functions. (defconst org-babel-inline-lob-one-liner-regexp "\\([^\n]*?\\)call_\\([^()[:space:]\n]+?\\)\\(\\[\\(.*?\\)\\]\\|\\(\\)\\)(\\(.*?\\))\\(\\[\\(.*?\\)\\]\\)?" (#$ . 2578)) #@61 Regexp to match calls to predefined source block functions. (defconst org-babel-lob-one-liner-regexp (concat "\\(" org-babel-block-lob-one-liner-regexp "\\|" org-babel-inline-lob-one-liner-regexp "\\)") (#$ . 2820)) #@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 #[nil "\301 \211@\205\302 ?\205\303!\210\304)\207" [info org-babel-lob-get-info org-babel-in-example-or-verbatim org-babel-lob-execute t] 3 (#$ . 3043) nil]) #@54 Return a Library of Babel function call as a string. (defalias 'org-babel-lob-get-info #[nil "\306\307\212\310\311!\210\312\n!\205\244\313\314\315\316\317\320\321\"\322\323\"G\324U\204,\325\322\323\"\326Q\202-\327\330\331\"\2065\327\332\333\"\206=\327%\334\335\"D\"\336\321!G\324U\203S\336\337!\202V\336\340!G\212\341y\210\342 \343\216\312\f\344P!\205\241\336\311!\345)\346\347!\203\202\347\324)G\345)$\210\202\236 \203\224\350\324)G*)$\210\202\236\347\324)G\345)$\210)*+D\"+\207" [nonempty case-fold-search org-babel-lob-one-liner-regexp save-match-data-internal org-babel-src-name-regexp restricted t #[(a b) "\303!\211G\304U\203\303\n!\202 )\207" [a it b match-string 0] 3] beginning-of-line 1 looking-at append mapcar org-no-properties format "%s%s(%s)%s" 3 12 5 14 0 "[" "]" "" 7 16 8 19 9 18 match-string 2 11 -1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "\\([^\n]*\\)$" nil fboundp set-text-properties remove-text-properties s org-rm-props] 11 (#$ . 3437)]) #@41 Execute the lob call specified by INFO. (defalias 'org-babel-lob-execute #[(info) "\306\307\310 \n\311\312 \313\314\315\316\317 \320\"\321#P\322\323\324!\203(\324\325 G\322 $\210\202@\f\2038\326\325 G) $\210\202@\324\325 G\322 $\210 *!C\"$**!+\327\330*\"A\205_\327\330*\"A\331\230\211,\205\222\332\320+8-\333\327\334-\"AB\335\334\336-!\"BC.\336+!\211/\211\211AA\262.\240\210+!0,\205\235\337+!1\340 2,\203\30401\232\203\304\212\341\322+\"b\210\342y\210\343\344\345 \")\202\341\346*!3\3224\347\3223!\"*0\203\341\3500+\"\210.\207" [mkinfo org-babel-default-header-args org-babel-default-header-args:emacs-lisp info restricted s #[(p) "\302\303\304\305 8\306 8\257\207" [p info "emacs-lisp" "results" nil 3 2] 7] apply org-babel-merge-params append org-babel-params-from-properties org-babel-parse-header-arguments ":var results=" mapconcat identity butlast 2 " " nil fboundp set-text-properties 0 remove-text-properties assoc :cache "yes" org-babel-sha1-hash :c-var :var assq-delete-all copy-tree org-babel-current-result-hash point-marker org-babel-where-is-src-block-result 1 message "%S" org-babel-read-result org-babel-process-params org-babel-execute-src-block org-babel-set-current-result-hash org-rm-props pre-params pre-info cache-p params sha1-nth2 sha1-info new-hash old-hash org-babel-current-src-block-location proc-params org-confirm-babel-evaluate] 14 (#$ . 4500)]) (provide 'ob-lob)