ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-core.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 ob-eval org-macs org-compat] 2)
(defconst org-babel-exeext (byte-code "\301>\205 \302\207" [system-type (windows-nt cygwin) ".exe"] 2))
(defvar org-babel-call-process-region-original nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315\316\317& \210\320\311\321\322#\210\310\323\302\324\306\301\314\315\316\325& \210\310\326\327\330\306\301\314\331\332\333\316\334& \210\310\335\336\337\306\301\316\334&\210\310\340\341\342\306\301\316\334&\210\310\343\344\345\306\301\316\334&\207" [custom-declare-group org-babel nil "Code block evaluation and management in `org-mode' documents." :tag "Babel" :group org custom-declare-variable org-confirm-babel-evaluate t "Confirm before evaluation.\nRequire confirmation before interactively evaluating code\nblocks in Org-mode buffers. The default value of this variable\nis t, meaning confirmation is required for any code block\nevaluation. This variable can be set to nil to inhibit any\nfuture confirmation requests. This variable can also be set to a\nfunction which takes two arguments the language of the code block\nand the body of the code block. Such a function should then\nreturn a non-nil value if the user should be prompted for\nexecution or nil if no prompt is required.\n\nWarning: Disabling confirmation may result in accidental\nevaluation of potentially harmful code. It may be advisable\nremove code block execution from C-c C-c as further protection\nagainst accidental code block evaluation. The\n`org-babel-no-eval-on-ctrl-c-ctrl-c' variable can be used to\nremove code block execution from the C-c C-c keybinding." :version "24.1" :type (choice boolean function) put safe-local-variable #[(x) "\301=\207" [x t] 2] org-babel-no-eval-on-ctrl-c-ctrl-c "Remove code block evaluation from the C-c C-c key binding." boolean org-babel-results-keyword "RESULTS" "Keyword used to name results generated by code blocks.\nShould be either RESULTS or NAME however any capitalization may\nbe used." "24.4" :package-version (Org . "8.0") string org-babel-noweb-wrap-start "<<" "String used to begin a noweb reference in a code block.\nSee also `org-babel-noweb-wrap-end'." org-babel-noweb-wrap-end ">>" "String used to end a noweb reference in a code block.\nSee also `org-babel-noweb-wrap-start'." org-babel-inline-result-wrap "=%s=" "Format string used to wrap inline results.\nThis string must include a \"%s\" which will be replaced by the results."] 12)
(defalias 'org-babel-noweb-wrap #[(&optional regexp) " \206 \303\nQ\207" [org-babel-noweb-wrap-start regexp org-babel-noweb-wrap-end "\\([^ \n].+?[^ ]\\|[^ \n]\\)"] 3])
#@54 Regular expression used to match a source name line.
(defvar org-babel-src-name-regexp "^[ ]*#\\+name:[ ]*" (#$ . 3103))
#@63 Regular expression used to match multi-line header arguments.
(defvar org-babel-multi-line-header-regexp "^[ ]*#\\+headers?:[ ]*\\([^\n]*\\)$" (#$ . 3232))
#@60 Regular expression matching source name lines with a name.
(defvar org-babel-src-name-w-name-regexp (concat org-babel-src-name-regexp "\\(" org-babel-multi-line-header-regexp "\\)*" "\\([^ ()\f \n
]+\\)") (#$ . 3396))
#@38 Regexp used to identify code blocks.
(defvar org-babel-src-block-regexp "^\\([ ]*\\)#\\+begin_src[ ]+\\([^ \f \n
]+\\)[ ]*\\([^\":\n]*\"[^\"\n*]*\"[^\":\n]*\\|[^\":\n]*\\)\\([^\n]*\\)\n\\([^ ]*?\n\\)??[ ]*#\\+end_src" (#$ . 3621))
#@44 Regexp used to identify inline src-blocks.
(defvar org-babel-inline-src-block-regexp "\\(?:^\\|[^-[:alnum:]]\\)\\(src_\\([^ \f \n
]+\\)\\(\\|\\[\\(.*?\\)\\]\\){\\([^\f\n
]+?\\)}\\)" (#$ . 3863))
#@152 Select only header argument of type KEY from a list.
Optional argument OTHERS indicates that only the header that do
not match KEY should be returned.
(defalias 'org-babel-get-header #[(params key &optional others) "\301\302\303\304\"\"\207" [params delq nil mapcar #[(p) "\203 \303\202 \304 @\n=!\205 \207" [others p key not identity] 3]] 5 (#$ . 4067)])
#@92 Set match data if within body of an inline source block.
Returns non-nil if match-data set
(defalias 'org-babel-get-inline-src-block-matches #[nil "\212\306\307!\210\310\311!\312\230)\313 eU`\211\203 \203 \314\202( \203' \315\202( \316 ?\2050 \317 S \212\n\203; o\204R \320\321\322 \323#\205Y \324\f \323#\205Y `V\205Y \325
!\205Y \323.\207" [orig first-line-p src-at-0-p lower-limit search-for org-babel-inline-src-block-regexp beginning-of-line 1 thing-at-point word "src" line-beginning-position "src_" "[[:punct:] ]src_" "[[:punct:] \f \n
]src_" point-at-bol re-search-forward "}" point-at-eol t re-search-backward looking-at] 5 (#$ . 4435)])
#@82 Set match data if on line of an lob one liner.
Returns non-nil if match-data set
(defalias 'org-babel-get-lob-one-liner-matches #[nil "\212`\301 U\204 \302\303\304\305#\210\306!\205 \305)\207" [org-babel-inline-lob-one-liner-regexp point-at-bol re-search-backward "[ \f \n
]" nil t looking-at] 4 (#$ . 5100)])
#@280 Get information on the current source block.
Optional argument LIGHT does not resolve remote variable
references; a process which could likely result in the execution
of other code blocks.
Returns a list
(language body header-arguments-alist switches name indent block-head).
(defalias 'org-babel-get-src-block-info #[(&optional light) "\306\307\211\211\211 \310 \211\203\211 \212 b\210\311 \312\n!@\313\n!\314y\203B \315
!\203B \nAA\211 \316\317\n8\320\321\322!!\"\240\210)\202! \315 !\203\205 \321\323!\307 \324\325!\203d \325\326 G\307 $\210\202\201 \203w \327\326 G $\210\202\201 \325\326 G\307 $\210 *)\202\221 \330 \203\221 \331 \n\203\250 !\204\250 \nAA\211 \"\332\317\n8!\240\210)\n\205\263 \333\n E\"-\207" [indent name info head case-fold-search org-babel-multi-line-header-regexp t nil org-babel-where-is-src-block-head org-babel-parse-src-block-match last butlast -1 looking-at org-babel-merge-params 2 org-babel-parse-header-arguments match-string 1 3 fboundp set-text-properties 0 remove-text-properties org-babel-get-inline-src-block-matches org-babel-parse-inline-src-block-match org-babel-process-params append #1=#:c org-babel-src-name-w-name-regexp restricted s org-rm-props light #2=#:c] 7 (#$ . 5421)])
#@283 Evaluate BODY with special execution confirmation variables set.
Specifically; NOEVAL will indicate if evaluation is allowed,
QUERY will indicate if a user query is required, CODE-BLOCK will
hold the language of the code block, and BLOCK-NAME will hold the
name of the code block.
(defalias 'org-babel-check-confirm-evaluate '(macro . #[(info &rest body) "\306\307!\306\310!\306\311!\306\312!\306\313!\306\314!\306\315!\306\316! 3 4\3174\320\3215ED3\320\3225ED
\320\3235ED\f\320\3245ED \325\326\327\330
ED\331\327\332
E\333BBED\n\325\334 \335BB\334 \336BBED \337B\340 \325\334 \341BB\334 \342BBEED\343\325\nED\344\325\334 \345BB\340 \334 \346BBE\347\350\351\35243F\353BBBFD\354\3475\355\3564E\357BBBD\360\347\f\355\361\fE\362BBBD\257\f6.BB\207" [eval-no-export export eval-no eval name headers make-symbol "--lang" "--block-body" "--headers" "--name" "--eval" "--eval-no" "--export" "--eval-no-export" let* nth 0 1 2 4 or cdr assoc :eval when :noeval ("no") equal ("no") ("never") ((org-bound-and-true-p org-current-export-file)) and ("no-export") ("never-export") noeval query ("query") ("query-export") if (functionp org-confirm-babel-evaluate) funcall org-confirm-babel-evaluate (org-confirm-babel-evaluate) code-block format " %s " (" ") block-name " (%s) " (" ") block-body lang info body] 20 (#$ . 6684)]))
(function-put 'org-babel-check-confirm-evaluate 'lisp-indent-function 'defun)
#@70 Check if code block INFO should be evaluated.
Do not query the user.
(defalias 'org-babel-check-evaluate #[(info) "@A@\3068\3078 \310\311 \"A\206 \310\312 \"\205 \313\211 \313\232\206)
\314\232 \315\316!\2053 \211 \205B
\317\232\206B
\320\232 \206K
\321\232\206o \203^
\322\232\206o \323 !\203m \n\"\202o \203| \324\325 \"\202} \326 \f\203\212 \324\327\f\"\202\213 \326 ! \205\231 \330\331 !#.\f?\207" [info #1=#:--lang #2=#:--block-body #3=#:--headers #4=#:--name #5=#:--eval 2 4 assoc :eval :noeval "no" "never" boundp org-current-export-file "no-export" "never-export" "query" "query-export" functionp format " %s " " " " (%s) " message "Evaluation of this%scode-block%sis disabled." #6=#:--eval-no #7=#:--export #8=#:--eval-no-export noeval org-confirm-babel-evaluate query code-block block-name] 5 (#$ . 8102)])
(put 'org-babel-check-evaluate 'byte-optimizer 'byte-compile-inline-expand)
#@455 Confirm evaluation of the code block INFO.
If the variable `org-babel-confirm-evaluate-answer-no' is bound
to a non-nil value, auto-answer with "no".
This query can also be suppressed by setting the value of
`org-confirm-babel-evaluate' to nil, in which case all future
interactive code block evaluations will proceed without any
confirmation from the user.
Note disabling confirmation may result in accidental evaluation
of potentially harmful code.
(defalias 'org-babel-confirm-evaluate #[(info) "@A@\3068\3078 \310\311 \"A\206 \310\312 \"\205 \313\211 \313\232\206)
\314\232 \315\316!\2053 \211 \205B
\317\232\206B
\320\232 \206K
\321\232\206o \203^
\322\232\206o \323!!\203m ! \n\"\202o ! \"\203| \324\325 \"\202} \326 #\f\203\212 \324\327\f\"\202\213 \326 $\"\205\262 \315\330!\205\232 ?\205\247 \331\324\332#$#!?\205\262 \333\334#$#.\f?\207" [info #1=#:--lang #2=#:--block-body #3=#:--headers #4=#:--name #5=#:--eval 2 4 assoc :eval :noeval "no" "never" boundp org-current-export-file "no-export" "never-export" "query" "query-export" functionp format " %s " " " " (%s) " org-babel-confirm-evaluate-answer-no yes-or-no-p "Evaluate this%scode block%son your system? " message "Evaluation of this%scode-block%sis aborted." #6=#:--eval-no #7=#:--export #8=#:--eval-no-export noeval org-confirm-babel-evaluate query code-block block-name] 6 (#$ . 9042)])
(put 'org-babel-confirm-evaluate 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-babel-execute-safely-maybe #[nil "?\205 \301 \207" [org-babel-no-eval-on-ctrl-c-ctrl-c org-babel-execute-maybe] 1])
(add-hook 'org-ctrl-c-ctrl-c-hook 'org-babel-execute-safely-maybe)
(defalias 'org-babel-execute-maybe #[nil "\300 \206 \301 \207" [org-babel-execute-src-block-maybe org-babel-lob-execute-maybe] 1 nil nil])
#@96 Execute BODY if point is in a source block and return t.
Otherwise do nothing and return nil.
(defalias 'org-babel-when-in-src-block '(macro . #[(&rest body) "\301\302\303\304\305\"B\306BBB\207" [body if (or (org-babel-where-is-src-block-head) (org-babel-get-inline-src-block-matches)) progn append (t) (nil)] 6 (#$ . 10864)]))
#@137 Conditionally execute a source block.
Detect if this is context for a Babel src-block and if so
then run `org-babel-execute-src-block'.
(defalias 'org-babel-execute-src-block-maybe #[nil "\301 \204\n \302 \205 \303 \210\304!\210\305\207" [current-prefix-arg org-babel-where-is-src-block-head org-babel-get-inline-src-block-matches org-babel-eval-wipe-error-buffer org-babel-execute-src-block t] 2 (#$ . 11201) nil])
#@175 Display information on the current source block.
This includes header arguments, language and name, and is largely
a window into the `org-babel-get-src-block-info' function.
(defalias 'org-babel-view-src-block-info #[nil "\306\307!\310\311\211\205\315 \312\211\223\210\313\fB\314
B \315 \"\316 #\317#!\211 $ %\312\211 & '\320\n8\n@\321\n8\322\n8 ( ) *\211 +\203M \323+\"\210*\203X \324*\"\210 )!\203e \325)\"\210\326!\210\327(\330\"\312 ,\211 -\205\251 -@, ,A!\203\237 \331,@\332\333,@\"G\334V\203\231 \335\202\232 \336,A$\210-A\211-\204w \312.'r$q\210\337$\312\"&)\340\341!\203\311 \341&'\"\202\313 '.+\207" [printf full info help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook org-babel-get-src-block-info light #[(it) "G\301V\207" [it 0] 2] #[(fmt &rest args) "\302\303\304 #!\207" [fmt args princ apply format] 5] nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup 4 3 2 "Name: %s\n" "Lang: %s\n" "Switches: %s\n" "Header Arguments:\n" sort #[(a b) "\302@!\302 @!\231\207" [a b symbol-name] 3] " %S%s %s\n" format "%S" 7 "" " " temp-buffer-window-show functionp help-window-setup help-window-old-frame #1=#:vbuffer-or-name #2=#:buffer standard-output #3=#:window #4=#:value header-args switches lang name pair --dolist-tail--] 7 (#$ . 11626) nil])
#@139 Conditionally expand a source block.
Detect if this is context for a org-babel src-block and if so
then run `org-babel-expand-src-block'.
(defalias 'org-babel-expand-src-block-maybe #[nil "\301 \204\n \302 \205 \303!\210\304\207" [current-prefix-arg org-babel-where-is-src-block-head org-babel-get-inline-src-block-matches org-babel-expand-src-block t] 2 (#$ . 12994) nil])
#@149 Conditionally load a source block in a session.
Detect if this is context for a org-babel src-block and if so
then run `org-babel-load-in-session'.
(defalias 'org-babel-load-in-session-maybe #[nil "\301 \204\n \302 \205 \303!\210\304\207" [current-prefix-arg org-babel-where-is-src-block-head org-babel-get-inline-src-block-matches org-babel-load-in-session t] 2 (#$ . 13377) nil])
(add-hook 'org-metaup-hook 'org-babel-load-in-session-maybe)
#@135 Conditionally pop to a session.
Detect if this is context for a org-babel src-block and if so
then run `org-babel-switch-to-session'.
(defalias 'org-babel-pop-to-session-maybe #[nil "\301 \204\n \302 \205 \303!\210\304\207" [current-prefix-arg org-babel-where-is-src-block-head org-babel-get-inline-src-block-matches org-babel-switch-to-session t] 2 (#$ . 13829) nil])
(add-hook 'org-metadown-hook 'org-babel-pop-to-session-maybe)
(defconst org-babel-common-header-args-w-values '((cache (no yes)) (cmdline . :any) (colnames (nil no yes)) (comments (no link yes org both noweb)) (dir . :any) (eval (never query)) (exports (code results both none)) (epilogue . :any) (file . :any) (file-desc . :any) (hlines (no yes)) (mkdirp (yes no)) (no-expand) (noeval) (noweb (yes no tangle no-export strip-export)) (noweb-ref . :any) (noweb-sep . :any) (padline (yes no)) (post . :any) (prologue . :any) (results (file list vector table scalar verbatim) (raw html latex org code pp drawer) (replace silent none append prepend) (output value)) (rownames (no yes)) (sep . :any) (session . :any) (shebang . :any) (tangle (tangle yes no :any)) (tangle-mode (493 365 292 :any)) (var . :any) (wrap . :any)))
#@140 Common header arguments used by org-babel.
Note that individual languages may define their own language
specific header arguments as well.
(defconst org-babel-header-arg-names (mapcar 'car org-babel-common-header-args-w-values) (#$ . 15028))
#@58 Default arguments to use when evaluating a source block.
(defvar org-babel-default-header-args '((:session . "none") (:results . "replace") (:exports . "code") (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no")) (#$ . 15276))
#@66 Default arguments to use when evaluating an inline source block.
(defvar org-babel-default-inline-header-args '((:session . "none") (:results . "replace") (:exports . "results")) (#$ . 15523))
(defvar org-babel-data-names '("tblname" "results" "name"))
#@148 Regular expression used to match result lines.
If the results are associated with a hash key then the hash will
be saved in the second match data.
(defvar org-babel-result-regexp (byte-code "\301\302\303\"\304\305\306\260\207" [org-babel-data-names "^[ ]*#\\+" regexp-opt t "\\(\\[\\(" "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^
\n>]*?\\)>" " \\)?\\([[:alnum:]]+\\)\\]\\)?\\:[ ]*"] 5) (#$ . 15783))
(defvar org-babel-result-w-name-regexp (concat org-babel-result-regexp "\\([^ ()\f \n
]+\\)\\((\\(.*\\))\\|\\)"))
#@344 The minimum number of lines for block output.
If number of lines of output is equal to or exceeds this
value, the output is placed in a #+begin_example...#+end_example
block. Otherwise the output is marked as literal by inserting
colons at the starts of the lines. This variable only takes
effect if the :results output option is in effect.
(defvar org-babel-min-lines-for-block-output 10 (#$ . 16313))
#@213 Languages for which Babel will raise literate programming errors.
List of languages for which errors should be raised when the
source code block satisfying a noweb reference in this language
can not be resolved.
(defvar org-babel-noweb-error-langs nil (#$ . 16725))
#@64 Number of initial characters to show of a hidden results hash.
(defvar org-babel-hash-show 4 (#$ . 16997))
#@78 Non-nil means show the time the code block was evaluated in the result hash.
(defvar org-babel-hash-show-time nil (#$ . 17110))
#@69 Hook for functions to be called after `org-babel-execute-src-block'
(defvar org-babel-after-execute-hook nil (#$ . 17244))
#@63 This generates a regexp used to match a src block named NAME.
(defalias 'org-babel-named-src-block-regexp-for-name #[(name) "\303 !\304\n\305\306OR\207" [org-babel-src-name-regexp name org-babel-src-block-regexp regexp-quote "[ (]*[
\n]\\(?:^#.*[
\n]\\)*" 1 nil] 6 (#$ . 17373)])
#@56 This generates a regexp used to match data named NAME.
(defalias 'org-babel-named-data-regexp-for-name #[(name) "\302 !\303Q\207" [org-babel-result-regexp name regexp-quote "\\([ ]\\|$\\)"] 3 (#$ . 17661)])
#@277 Marker pointing to the src block currently being executed.
This may also point to a call line or an inline code block. If
multiple blocks are being executed (e.g., in chained execution
through use of the :var header argument) this marker points to
the outer-most code block.
(defvar org-babel-current-src-block-location nil (#$ . 17877))
#@570 Execute the current source code block.
Insert the results of execution into the buffer. Source code
execution and the collection and formatting of results can be
controlled through a variety of header arguments.
With prefix argument ARG, force re-execution even if an existing
result cached in the buffer would otherwise have been returned.
Optionally supply a value for INFO in the form returned by
`org-babel-get-src-block-info'.
Optionally supply a value for PARAMS which will be merged with
the header arguments specified at the front of the source code
block.
(defalias 'org-babel-execute-src-block #[(&optional arg info params) "\206\f \306 8\206\f \307 \203 \310 !\202 \311 \312\313 8\n\" \211 AA\211 \240\210)\f)\211@ @ A@ A\313 8 B\314 8 C\315\316B\"A\206T \315\317B\"\205T \320\211 D\320\232\206` D\321\232 E\322\323!\205j \211 F\205{ D\324\232\206{ D\325\232 GE\206\204 G HD\326\232\206\254 F\203\231 D\327\232\206\254 \330I!\203\252 I@A\"\202\254 I J \203\272 \331\332@\"\202\273 \333 KC\203\312 \331\334C\"\202\313 \333 LH\205\331 \335\336KL#.
?\205\357\n\203\351 \337 !\202\354 \313 8M?\205\315\340\n\"A\205\315\340\n\"A\341\230\211 N\205 \342 ! ON\205\343 PM?\205&O\205&OP\232\211 Q\203O\212\344\345 \"b\210\346\210\346u\210\347 R\335\350\351\352\331\353R\"#!\210R*\202\356 \211 AA\211 S \240\210)\f)\211@ T A@ U\313 8 V\314 8 W\315\316V\"A\206\203\315\317V\"\205\203\320\211 X\320\232\206\217X\321\232 Y\322\323!\205\231\211 Z\205\252X\324\232\206\252X\325\232 [Y\206\263[ HX\326\232\206\333Z\203\310X\327\232\206\333\330I!\203\331ITU\"\202\333I J \203\351\331\332T\"\202\352\333 KW\203\371\331\334W\"\202\372\333 LJ\205!\322\354!\205 ,?\205\355\331\356KL#!?\205!\335\357KL#.
?\205\356 @ \\\315\360\n\"A ] A\211 ^\361\n\316\"\203D\362 !\202G A@\240) _\315\363\n\"A\211 `\203_\364\365`!!\206aa a\322\366!\203n6\206p\367K 6\370 8 b\345\211 R c\371\216\372 7\373\211 d\\!\206\240d\374\315\\e\"A!!\206\240\375\376\\\"c)\335\377\201i \\!\314 8\203\274\331\201j \314 8\"\202\277\201k #\210\201l ]\235\203\335c_\n\"\210\335\201m !\210\345R\202\342c_\n\" R\315\201n \n\"A\201o =\203\201p ]\235\204\201q ]\235\203R<\204RCC\202R)R\315\201r \n\"A\203sR\203j\315\201r \n\"A\201s \201t \201u !! f g\201v \216rfq\210\201w R\315\201x \313 8\"A\"c\210)rfq\210\201y \345\211g\345\201z %\210,\315\201r \n\"AR\315\201{ \n\"A\203\321\315\201r \n\"A\203\252\201| \315\201r \n\"A\315\201} \n\"\205\246\315\201} \n\"A\206\246R\"\202\254R h\201~ \315\201{ \n\"A!R\315\201r \n\"A\203\320\201 \201\200 ]\"])\201\201 R] Ob\\&\210\201\202 \201\203 !\210R. -+\207" [org-babel-current-src-block-location info params merged-params i #1=#:c 6 org-babel-where-is-src-block-head copy-tree org-babel-get-src-block-info org-babel-merge-params 2 4 assoc :eval :noeval "no" "never" boundp org-current-export-file "no-export" "never-export" "query" "query-export" functionp format " %s " " " " (%s) " message "Evaluation of this%scode-block%sis disabled." org-babel-process-params :cache "yes" org-babel-sha1-hash org-babel-current-result-hash org-babel-where-is-src-block-result nil 1 org-babel-read-result replace-regexp-in-string "%" "%%" "%S" org-babel-confirm-evaluate-answer-no yes-or-no-p "Evaluate this%scode block%son your system? " "Evaluation of this%scode-block%sis aborted." :result-params org-babel-noweb-p org-babel-expand-noweb-references :dir file-name-as-directory expand-file-name org-babel-call-process-region-original call-process-region 5 #[nil "\301\211\207" [call-process-region org-babel-call-process-region-original] 2] #[(&rest args) "\301\302\"\207" [args apply org-babel-tramp-handle-call-process-region] 3] #[(f) "\301\302P!\303!\205
)\207" [f intern "org-babel-execute:" fboundp] 3] symbol-name error "No org-babel-execute function for %s!" "executing %s code block%s..." #2=#:--lang #3=#:--block-body #4=#:--headers #5=#:--name #6=#:--eval #7=#:--eval-no #8=#:--export #9=#:--eval-no-export noeval org-confirm-babel-evaluate query code-block block-name arg cachep new-hash old-hash cache-current-p result #10=#:c #11=#:--lang #12=#:--block-body #13=#:--headers #14=#:--name #15=#:--eval #16=#:--eval-no #17=#:--export #18=#:--eval-no-export lang result-params #19=#:c body dir default-directory indent cmd lang-check org-src-lang-modes #20=#:temp-buffer #21=#:temp-file *this* capitalize " (%s)" "" "none" "result silenced" :result-type value "vector" "table" :file get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#20# buffer-name kill-buffer] 2] org-babel-format-result :sep write-region 0 :post org-babel-result-to-file :file-desc org-babel-ref-resolve remove "file" org-babel-insert-result run-hooks org-babel-after-execute-hook] 8 (#$ . 18223) nil])
#@249 Expand BODY with PARAMS.
Expand a block of code with org-babel according to its header
arguments. This generic implementation of body expansion is
called for languages which have not defined their own specific
org-babel-expand-body:lang function.
(defalias 'org-babel-expand-body:generic #[(body params &optional var-lines) "\305\306\"A\305\307\"A\310\311\312\n\205 \nC \fC \205 C$\313#*\207" [params epi pro var-lines body assoc :prologue :epilogue mapconcat identity append "\n"] 7 (#$ . 23122)])
#@146 Expand the current source code block.
Expand according to the source code block's header
arguments and pop open the results in a preview buffer.
(defalias 'org-babel-expand-src-block #[(&optional arg info params) "\206 \306 \211@AA\211\307\310\3118 \"\312\"\240)A\211 \313 \314\"\203, \315!\202/ A@\240) \316\317 P! \316\320 P! \321!\203O
\"\202^ \322
\321 !\205] !# \323\324!\203v \325\326 \327\330 \331 \332\260#\202x .\207" [info lang #1=#:c params #2=#:c body org-babel-get-src-block-info sort org-babel-merge-params 2 #[(el1 el2) "\302@!\302 @!\231\207" [el1 el2 symbol-name] 3] org-babel-noweb-p :eval org-babel-expand-noweb-references intern "org-babel-expand-body:" "org-babel-variable-assignments:" fboundp org-babel-expand-body:generic called-interactively-p any org-edit-src-code nil "*Org-Babel Preview " buffer-name "[ " " ]*" expand-cmd assignments-cmd expanded] 9 (#$ . 23636) nil])
#@63 Return the edit (levenshtein) distance between strings S1 S2.
(defalias 'org-babel-edit-distance #[(s1 s2) "G\nG\306\307\310\311\312 T\"\"! \313 \f\314H\211 \314\211I\210)\311\312 \"\315 \211 \203K @\f\314H I\210*A\211\204+ *\311\312 \"\315 \211 \203\317 @\fH\211 \314I\210)\311\312 \"\315 \211 \203\305 @\fH
S\"T
S\"T^SH\nSH\232\203\256 \314\202\257 \312
SS\"\\^I\210*A\211\204x *A\211\204Y *
\",\207" [s1 l1 s2 l2 dist in vconcat mapcar #[(_) "\301T\302\"\207" [l2 make-vector nil] 3] number-sequence 1 #[(i j) " H\nH\207" [dist i j] 2] 0 nil #1=#:v j --dolist-tail-- #2=#:v #3=#:v i #4=#:v #5=#:v #6=#:v] 8 (#$ . 24571)])
#@67 Combine a number of lists of header argument names and arguments.
(defalias 'org-babel-combine-header-arg-lists #[(original &rest others) "\306!\n\307\211 \2039 \f@\211\307 \211 \2031 \f@\211@
A \n
\310\311 \"B*\fA\211\204 *\fA\211\204\f * )\207" [original results others new-list --dolist-tail-- arg-pair copy-sequence nil org-remove-if #[(pair) " @\232\207" [header pair] 2] args header] 5 (#$ . 25285)])
#@66 Check for misspelled header arguments in the current code block.
(defalias 'org-babel-check-src-block #[nil "\306\307\310\"\307\311\312 \205@ \313\314\315!\316 \317\320!\203& \320\321\fG\316\f$\210\202= \2035 \322\321\fG
\f$\210\202= \320\321\fG\316\f$\210\f*!\"\316 \211 \203\223 @ \316 \211 \203\211 @\230\204\200 \323\"\nX\203\200 \235\204\200 \324\325#\210A\211\204Y *A\211\204J *\326\327!*\207" [org-babel-header-arg-names names too-close restricted s org-rm-props 2 mapcar symbol-name #[(arg) "\301@!\302\303O\207" [arg symbol-name 1 nil] 3] org-babel-where-is-src-block-head org-babel-parse-header-arguments match-string 4 nil fboundp set-text-properties 0 remove-text-properties org-babel-edit-distance error "Supplied header \"%S\" is suspiciously close to \"%S\"" message "No suspicious header arguments found." header --dolist-tail-- name] 9 (#$ . 25710) nil])
#@74 Insert a header argument selecting from lists of common args and values.
(defalias 'org-babel-insert-header-arg #[nil "\306\307!@\310\311P!\312\n\313 !\205 \314 !\"\315\316\317\320 \"\" \321\f\261\210\322\310\f! \"A\211 \205J \323
\324=\203> \325\326!\202H
<\205H \327\330
\331#\261-\207" [lang lang-headers org-babel-common-header-args-w-values headers arg vals org-babel-get-src-block-info light intern "org-babel-header-args:" org-babel-combine-header-arg-lists boundp eval org-icompleting-read "Header Arg: " mapcar #[(header-spec) "\301@!\207" [header-spec symbol-name] 2] ":" assoc " " :any read-from-minibuffer "value: " mapconcat #[(group) "\302\303\304\305\306\"B\"\211\203 \304\230\204 \307P\202 \310)\207" [group arg org-icompleting-read "value: " "default" mapcar symbol-name " " #1=""] 7] #1#] 6 (#$ . 26629) nil])
#@73 Call `org-babel-enter-header-arg-w-completion' in appropriate contexts.
(defalias 'org-babel-header-arg-expand #[nil "`Sf\300\232\205 \301 \205 \302\303\304!!\207" [58 org-babel-where-is-src-block-head org-babel-enter-header-arg-w-completion match-string 2] 3 (#$ . 27479)])
#@62 Insert header argument appropriate for LANG with completion.
(defalias 'org-babel-enter-header-arg-w-completion #[(&optional lang) "\306\307P!\310 !\205 \311 !\312 \n\" \313\314\313\315\f\"\" \316\317
\" \320\306!\f\"A\211 \205F <\205F \316\321\322\"\313\314\323\324\"\"\" \325\206Q \326Qc\210.B\207" [lang lang-headers-var lang-headers org-babel-common-header-args-w-values headers-w-values headers intern "org-babel-header-args:" boundp eval org-babel-combine-header-arg-lists mapcar symbol-name car org-completing-read "Header Arg: " assoc format "%s: " apply append " " "" header args arg] 8 (#$ . 27762)])
(add-hook 'org-tab-first-hook 'org-babel-header-arg-expand)
#@181 Load the body of the current source-code block.
Evaluate the header arguments for the source block before
entering the session. After loading the body this pops open the
session.
(defalias 'org-babel-load-in-session #[(&optional arg info) "\206 \306 \211@\3078\204 \310\311!\202. A\211\312\n\313\"\203) \314!\202, A@\240) \315\316\n\"A \315\317\n\"A\211 \203G \320!\206I \321\322 P! \323!\204^ \324\325 \"\210\326
\f\n#!\210\327.\207" [info lang params #1=#:c body session org-babel-get-src-block-info 2 user-error "No src code block at point" org-babel-noweb-p :eval org-babel-expand-noweb-references assoc :session :dir file-name-as-directory intern "org-babel-load-session:" fboundp error "No org-babel-load-session function for %s!" pop-to-buffer 1 dir default-directory cmd] 6 (#$ . 28464) nil])
#@230 Initiate session for current code block.
If called with a prefix argument then resolve any variable
references in the header arguments and assign these variables in
the session. Copy the body of the code block to the kill ring.
(defalias 'org-babel-initiate-session #[(&optional arg info) "\206 \306 ?!\211@A@\3078 \310\311\f\"A \310\312\f\"A\211 \203, \313!\206. \314\315\316\n\"! \314\317\nP!
;\203N
\320\230\203N \321\322!\210\323 !\204Z \321\324\n\"\210\325\326! r q\210\327\216\330 !c\210\331ed\"\210+ \203\207 \323 !\204\201 \321\332\n\"\210
\f\"\210
\f\". \207" [info arg lang body params session org-babel-get-src-block-info 2 assoc :session :dir file-name-as-directory intern format "org-babel-%s-initiate-session" "org-babel-prep-session:" "none" error "This block is not using a session!" fboundp "No org-babel-initiate-session function for %s!" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-babel-trim copy-region-as-kill "No org-babel-prep-session function for %s!" dir default-directory init-cmd prep-cmd #1#] 5 (#$ . 29299) "P"])
#@196 Switch to the session of the current code block.
Uses `org-babel-initiate-session' to start the session. If called
with a prefix argument then this is passed on to
`org-babel-initiate-session'.
(defalias 'org-babel-switch-to-session #[(&optional arg info) "\302\303 \"!\210\304\207" [arg info pop-to-buffer org-babel-initiate-session 1] 4 (#$ . 30443) "P"])
(defalias 'org-babel-pop-to-session 'org-babel-switch-to-session)
#@44 Switch to code buffer and display session.
(defalias 'org-babel-switch-to-session-with-code #[(&optional arg info) "\304\305 \306\212\307 \"\210)\310 \210\n +\207" [org-src-window-setup info swap-windows arg #[nil "\301\302 !\303\302 p\"\210\303\304 \"\210)\305\306!\207" [other-window-buffer window-buffer next-window set-window-buffer selected-window other-window 1] 3] org-babel-get-src-block-info reorganize-frame org-babel-switch-to-session org-edit-src-code] 3 (#$ . 30876) "P"])
#@125 Evaluate BODY in edit buffer if there is a code block at point.
Return t if a code block was found at point, nil otherwise.
(defalias 'org-babel-do-in-edit-buffer '(macro . #[(&rest body) "\301\302\303\304\305\306B\307BB\310BBBE\207" [body let ((org-src-window-setup 'switch-invisibly)) when (and (org-babel-where-is-src-block-head) (org-edit-src-code nil nil nil)) unwind-protect progn ((if (org-bound-and-true-p org-edit-src-from-org-mode) (org-edit-src-exit))) (t)] 7 (#$ . 31375)]))
(put 'org-babel-do-in-edit-buffer 'edebug-form-spec '(body))
#@451 Read key sequence and execute the command in edit buffer.
Enter a key sequence to be executed in the language major-mode
edit buffer. For example, TAB will alter the contents of the
Org-mode code block according to the effect of TAB in the
language major-mode buffer. For languages that support
interactive sessions, this can be used to send code from the Org
buffer to the session for evaluation using the native major-mode
evaluation mechanisms.
(defalias 'org-babel-do-key-sequence-in-edit-buffer #[(key) "\302\303 \205 \304\305\211\211#\205 \306\216\307\310 \206 \311\305!!!\210)\312)\207" [org-src-window-setup key switch-invisibly org-babel-where-is-src-block-head org-edit-src-code nil #[nil "\301\300!\205\f \205\f \302 \207" [org-edit-src-from-org-mode boundp org-edit-src-exit] 2] call-interactively key-binding read-key-sequence t] 4 (#$ . 31931) "kEnter key-sequence to execute in edit buffer: "])
(defalias 'org-babel-active-location-p #[nil "\301 \302\216\303 *@\304>\207" [save-match-data-internal match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-element-context (babel-call inline-babel-call inline-src-block src-block)] 2])
#@204 If `point' is on a src block then open the results of the
source code block, otherwise return nil. With optional prefix
argument RE-RUN the source-code block is evaluated even if
results already exist.
(defalias 'org-babel-open-src-block-result #[(&optional re-run) "\304\305!\211\205P \212 \204 \306 \206 \307 \210\306 b\210\310\210\311\312!\203( \310u\210\202 \311\n!\2034 \313 \210\202N \314\315 \316\317\3208\"A\"\321\322\323!!\210ed|\210 c\210))\324)\207" [info re-run org-bracket-link-regexp r org-babel-get-src-block-info light org-babel-where-is-src-block-result org-babel-execute-src-block 1 looking-at "[\n
\f ]" org-open-at-point org-babel-format-result org-babel-read-result assoc :sep 2 pop-to-buffer get-buffer-create "*Org-Babel Results*" t] 7 (#$ . 33132) "P"])
#@1074 Evaluate BODY forms on each source-block in FILE.
If FILE is nil evaluate BODY forms on source blocks in current
buffer. During evaluation of BODY the following local variables
are set relative to the currently matched code block.
full-block ------- string holding the entirety of the code block
beg-block -------- point at the beginning of the code block
end-block -------- point at the end of the matched code block
lang ------------- string holding the language of the code block
beg-lang --------- point at the beginning of the lang
end-lang --------- point at the end of the lang
switches --------- string holding the switches
beg-switches ----- point at the beginning of the switches
end-switches ----- point at the end of the switches
header-args ------ string holding the header-args
beg-header-args -- point at the beginning of the header-args
end-header-args -- point at the end of the header-args
body ------------- string holding the body of the code block
beg-body --------- point at the beginning of the body
end-body --------- point at the end of the body
(defalias 'org-babel-map-src-blocks '(macro . #[(file &rest body) "\303\304!\305 D\306\307\310D\311\312DDED\313BB\314\315\316DE\317\320\321\322\315\323\324\325\326\327\n\330\"BBFE\257)\331BBB\207" [tempvar file body make-symbol "file" let* visited-p or null get-file-buffer expand-file-name ((point (point)) to-be-removed) save-window-excursion when find-file (setq to-be-removed (current-buffer)) (goto-char (point-min)) while (re-search-forward org-babel-src-block-regexp nil t) (org-babel-active-location-p) (goto-char (match-beginning 0)) let ((full-block (match-string 0)) (beg-block (match-beginning 0)) (end-block (match-end 0)) (lang (match-string 2)) (beg-lang (match-beginning 2)) (end-lang (match-end 2)) (switches (match-string 3)) (beg-switches (match-beginning 3)) (end-switches (match-end 3)) (header-args (match-string 4)) (beg-header-args (match-beginning 4)) (end-header-args (match-end 4)) (body (match-string 5)) (beg-body (match-beginning 5)) (end-body (match-end 5))) append ((goto-char end-block)) ((unless visited-p (kill-buffer to-be-removed)) (goto-char point))] 16 (#$ . 33927)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put org-babel-map-src-blocks lisp-indent-function 1 put edebug-form-spec (form body)] 4)
#@129 Evaluate BODY forms on each inline source-block in FILE.
If FILE is nil evaluate BODY forms on source blocks in current
buffer.
(defalias 'org-babel-map-inline-src-blocks '(macro . #[(file &rest body) "\303\304!\305 D\306\307\310D\311\312DDED\313BB\314\315\316DE\317\320\321\322\315\323\324\325\nBF\326BBB\257)\327BBB\207" [tempvar file body make-symbol "file" let* visited-p or null get-file-buffer expand-file-name ((point (point)) to-be-removed) save-window-excursion when find-file (setq to-be-removed (current-buffer)) (goto-char (point-min)) while (re-search-forward org-babel-inline-src-block-regexp nil t) (org-babel-active-location-p) (goto-char (match-beginning 1)) save-match-data ((goto-char (match-end 0))) ((unless visited-p (kill-buffer to-be-removed)) (goto-char point))] 13 (#$ . 36277)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put org-babel-map-inline-src-blocks lisp-indent-function 1 put edebug-form-spec (form body)] 4)
#@119 Evaluate BODY forms on each call line in FILE.
If FILE is nil evaluate BODY forms on source blocks in current
buffer.
(defalias 'org-babel-map-call-lines '(macro . #[(file &rest body) "\303\304!\305 D\306\307\310D\311\312DDED\313BB\314\315\316DE\317\320\321\322\315\323\324\325\nBF\326BBB\257)\327BBB\207" [tempvar file body make-symbol "file" let* visited-p or null get-file-buffer expand-file-name ((point (point)) to-be-removed) save-window-excursion when find-file (setq to-be-removed (current-buffer)) (goto-char (point-min)) while (re-search-forward org-babel-lob-one-liner-regexp nil t) (org-babel-active-location-p) (goto-char (match-beginning 1)) save-match-data ((goto-char (match-end 0))) ((unless visited-p (kill-buffer to-be-removed)) (goto-char point))] 13 (#$ . 37260)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put org-babel-map-call-lines lisp-indent-function 1 put edebug-form-spec (form body)] 4)
(defalias 'org-babel-map-executables '(macro . #[(file &rest body) "\304\305!\304\306!\307 \nD\310B\311\312\313 D\314\315 DDED\316BBB\317\320 \321 DE\322\323\324\325\326BB\320\327\330\331\332 B\257\333BBB\257*\334BBB\207" [rx tempvar file body make-symbol "file" "rx" let* ((concat "\\(" org-babel-src-block-regexp "\\|" org-babel-inline-src-block-regexp "\\|" org-babel-lob-one-liner-regexp "\\)")) visited-p or null get-file-buffer expand-file-name ((point (point)) to-be-removed) save-window-excursion when find-file (setq to-be-removed (current-buffer)) (goto-char (point-min)) while re-search-forward (nil t) (org-babel-active-location-p) (goto-char (match-beginning 1)) (when (looking-at org-babel-inline-src-block-regexp) (forward-char 1)) save-match-data ((goto-char (match-end 0))) ((unless visited-p (kill-buffer to-be-removed)) (goto-char point))] 14]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put org-babel-map-executables lisp-indent-function 1 put edebug-form-spec (form body)] 4)
#@121 Execute source code blocks in a buffer.
Call `org-babel-execute-src-block' on every source block in
the current buffer.
(defalias 'org-babel-execute-buffer #[(&optional arg) "\306 \210\307\310!\311\312\216\311\313 \314\f\314
\315\260 \n?\206\" \316\317\n!! ` \311 !\320 \"\321\216\n\2038 \322\n!\210p!eb\210\323 \311\310#\203x \324 \203q \325\224b\210\326\f!\203Y \325u\210\327 #\330\216\326
!\203k \331 \210\202p \332$!\210*\333\225b\210\202> * \204\203 \334!!\210 b-\335 !\210)*\207" [#1=#:--rtn #2=#:--data #3=#:file org-babel-src-block-regexp org-babel-inline-src-block-regexp org-babel-lob-one-liner-regexp org-babel-eval-wipe-error-buffer org-outline-overlay-data t nil #[nil "\301\302\"\207" [#2# mapc #[(c) "\301@!\203
@\302\211\223\210\301A!\205 A\302\211\223\207" [c markerp nil] 3]] 3] "\\(" "\\|" "\\)" get-file-buffer expand-file-name current-window-configuration #[nil "\301!\207" [#4=#:wconfig set-window-configuration] 2] find-file re-search-forward org-babel-active-location-p 1 looking-at match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-babel-lob-execute-maybe org-babel-execute-src-block 0 kill-buffer org-set-outline-overlay-data #5=#:rx visited-p point to-be-removed #4# save-match-data-internal arg] 7 (#$ . 39243) "P"])
#@123 Execute source code blocks in a subtree.
Call `org-babel-execute-src-block' on every source block in
the current subtree.
(defalias 'org-babel-execute-subtree #[(&optional arg) "\214\212\301 \210\302!\210~*\207" [arg org-narrow-to-subtree org-babel-execute-buffer] 2 (#$ . 40564) "P"])
#@51 Generate an sha1 hash based on the value of info.
(defalias 'org-babel-sha1-hash #[(&optional info) "\306\206 \307 AA\211\310\311\3128!\313\"\240\210)\314\315 \316\317\320\321\322\306\323\324\3128\"\"\325#A@# \326
! \327\330!\203A \331!\210.\207" [info print-level #1=#:c rm norm it nil org-babel-get-src-block-info sort copy-sequence 2 #[(a b) "@ @\231\207" [a b] 2] #[(lst) "\303\304\211\203 @\305\n\" A\211\204 *\n\207" [p --dolist-tail-- lst ("replace" "silent" "none" "append" "prepend") nil remove] 4] #[(arg) "A<\203 AA\204 \303A!\202 A\211\205_ \304 !\205* :?\205* G\305U?\205_ <\203C @\306\235\203C \307\n !\310\"\202_ ;\203^ @\311\235\203^ \312\313\307\n\314 !!\310\"\315#\202_ )\207" [arg v rm copy-sequence sequencep 0 (:result-params) sort string< (:results :exports) mapconcat identity split-string " "] 7] format "%s-%s" mapconcat identity delq mapcar #[(arg) " !\211\205\f \303\304\n\")\207" [norm arg normalized format "%S"] 4] ":" sha1 called-interactively-p interactive message hash] 11 (#$ . 40857) nil])
#@36 Return the current in-buffer hash.
(defalias 'org-babel-current-result-hash #[nil "\303 \210\304\305!\306\307\310!\203 \310\311 G\306 $\210\2021 \203) \312\311 G\n $\210\2021 \310\311 G\306 $\210 *\207" [restricted s org-rm-props org-babel-where-is-src-block-result match-string 5 nil fboundp set-text-properties 0 remove-text-properties] 5 (#$ . 41931)])
#@41 Set the current in-buffer hash to HASH.
(defalias 'org-babel-set-current-result-hash #[(hash) "\302 \210\212\303\224b\210\304\305\306`!\"\210u\210\304\305\306`!\"\210\307 \310\211\211\303%\210\311 b\210\312 )\207" [org-babel-hash-show hash org-babel-where-is-src-block-result 5 mapc delete-overlay overlays-at replace-match nil point-at-bol org-babel-hide-hash] 6 (#$ . 42297)])
#@127 Hide the hash in the current results line.
Only the initial `org-babel-hash-show' characters of the hash
will remain visible.
(defalias 'org-babel-hide-hash #[nil "\306\307!\210\212\310\311\312#\205B \313\314!\205B \314\224\n \\\314\225 \313\314! \311\211 \315 \"\315 \f\"\316\317\320#\210\316\321
#.)\207" [org-babel-result-regexp start org-babel-hash-show hide-start end hash add-to-invisibility-spec (org-babel-hide-hash . t) re-search-forward nil t match-string 5 make-overlay overlay-put invisible org-babel-hide-hash babel-hash ov1 ov2] 5 (#$ . 42684)])
#@186 Hide the hash in the current buffer.
Only the initial `org-babel-hash-show' characters of each hash
will remain visible. This function should be called as part of
the `org-mode-hook'.
(defalias 'org-babel-hide-all-hashes #[nil "\212?\205 \302 \303\304#\205 \305\224b\210\306 \210\305\225b\210\202 )\207" [org-babel-hash-show-time org-babel-result-regexp re-search-forward nil t 0 org-babel-hide-hash] 4 (#$ . 43267)])
(add-hook 'org-mode-hook 'org-babel-hide-all-hashes)
#@134 Return the value of the hash at POINT.
The hash is also added as the last element of the kill ring.
This can be called with C-c C-c.
(defalias 'org-babel-hash-at-point #[(&optional point) "\302\303\304\305\306\206\n `!\"\"@\211\205 \307 !\210\310 !)\207" [point hash delq nil mapcar #[(ol) "\301\302\"\207" [ol overlay-get babel-hash] 3] overlays-at kill-new message] 7 (#$ . 43750) nil])
(add-hook 'org-ctrl-c-ctrl-c-hook 'org-babel-hash-at-point)
#@123 Hide portions of results lines.
Add `org-babel-hide-result' as an invisibility spec for hiding
portions of results lines.
(defalias 'org-babel-result-hide-spec #[nil "\300\301!\207" [add-to-invisibility-spec (org-babel-hide-result . t)] 2 (#$ . 44210)])
(add-hook 'org-mode-hook 'org-babel-result-hide-spec)
#@26 Overlays hiding results.
(defvar org-babel-hide-result-overlays nil (#$ . 44524))
#@41 Fold all results in the current buffer.
(defalias 'org-babel-result-hide-all #[nil "\301 \210\212\302\303\304#\205 \212\305\224b\210\306 \210)\202 )\207" [org-babel-result-regexp org-babel-show-result-all re-search-forward nil t 0 org-babel-hide-result-toggle-maybe] 4 (#$ . 44612) nil])
#@43 Unfold all results in the current buffer.
(defalias 'org-babel-show-result-all #[nil "\301\302\"\210\303\211\207" [org-babel-hide-result-overlays mapc delete-overlay nil] 3 (#$ . 44909)])
#@39 Toggle visibility of result at point.
(defalias 'org-babel-hide-result-toggle-maybe #[nil "\302\212\303\304!\210\305 !)\205 \306 \210\302)\207" [case-fold-search org-babel-result-regexp t beginning-of-line 1 looking-at org-babel-hide-result-toggle] 2 (#$ . 45105) nil])
#@46 Toggle the visibility of the current result.
(defalias 'org-babel-hide-result-toggle #[(&optional force) "\212\306 \210\307\310\311#\203b \306\312!\210`S\313 !\203 \314y\210\202 \315 Sb\210`\310 \311\316\317\320\f!\">\203F
\203=
\321=\205^ \322\323\320\f!\"\202^ \324\f \"\325\n\326\327#\210\325\n\330\331#\210\n B\211 +\202e \332\333!)\207" [org-babel-result-regexp org-babel-multi-line-header-regexp ov end start force beginning-of-line re-search-forward nil t 2 looking-at 1 org-babel-result-end mapcar #[(overlay) "\301\302\"\303=\207" [overlay overlay-get invisible org-babel-hide-result] 3] overlays-at off mapc #[(ov) " \235\203 \302 \"\303\304\"\305=\205 \306!\207" [ov org-babel-hide-result-overlays delq overlay-get invisible org-babel-hide-result delete-overlay] 3] make-overlay overlay-put invisible org-babel-hide-result isearch-open-invisible #[(ov) " \235\203 \302 \"\303\304\"\305=\205 \306!\207" [ov org-babel-hide-result-overlays delq overlay-get invisible org-babel-hide-result delete-overlay] 3] error "Not looking at a result line" org-babel-hide-result-overlays] 5 (#$ . 45383) nil])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook org-tab-first-hook org-babel-hide-result-toggle-maybe org-mode-hook #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-babel-show-result-all append local] 5]] 3)
#@162 Retrieve parameters specified as properties.
Return a list of association lists of source block params
specified in the properties of the current outline entry.
(defalias 'org-babel-params-from-properties #[(&optional lang) "\306 \307\216\310\211\311\312\310\313\314\313\315\313\316\317 \320\321\fP!\322 !\205# \323 !\"\"\"\"\"!*\324\325
\326\327#!\f\205> \324\325
\330\fP\327#!E*\207" [save-match-data-internal sym val org-babel-common-header-args-w-values lang org-babel-current-src-block-location match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] nil org-babel-parse-multiple-vars delq mapcar #[(header-arg) "\302`\303#\211\205 \304\305P!\306 !B\207" [header-arg val org-entry-get t intern ":" org-babel-read] 4] symbol-name car org-babel-combine-header-arg-lists intern "org-babel-header-args:" boundp eval org-babel-parse-header-arguments org-entry-get "header-args" inherit "header-args:"] 14 (#$ . 46767)])
#@69 Parse the results from a match of the `org-babel-src-block-regexp'.
(defalias 'org-babel-parse-src-block-match #[nil "\306\307!G\306\310!\311\312\313!\203 \313\314\nG\311\n$\210\2023 \203+ \315\314\nG \n$\210\2023 \313\314\nG\311\n$\210\n* \316\317\fP! \306\320! '\306\321!\211 (GS\211 )\314V\203e ()\311O\322\230\203e (\314)O\202k (\206k \323*\311\312\313!\203\200 \313\314\nG\311\n$\210\202\227 \203\217 \315\314\nG \n$\210\202\227 \313\314\nG\311\n$\210\n* (*\206\254 \324 +\325\216\326\327'\"* ,\f\330\331! -r-q\210\332\216\324 +\333\216\334(!c\210,\204\317 \335 \210\336 -\337\340.\341
!\205\337 \342
!\343\344\f!\345\306\346!\206\353 \323\311\312\313!\203\377 \313\314\nG\311\n$\210\202 \203\315\314\nG \n$\210\202\313\314\nG\311\n$\210\n*!C\"$'\257.\207" [block-indentation restricted s org-rm-props lang lang-headers match-string 1 2 nil fboundp set-text-properties 0 remove-text-properties intern "org-babel-default-header-args:" 3 5 "\n" "" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "-i\\>" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-unescape-code-in-string org-do-remove-indentation buffer-string apply org-babel-merge-params boundp eval append org-babel-params-from-properties org-babel-parse-header-arguments 4 switches body sub-length org-src-preserve-indentation save-match-data-internal preserve-indentation #1# org-babel-default-header-args] 15 (#$ . 47735)])
#@76 Parse the results from a match of the `org-babel-inline-src-block-regexp'.
(defalias 'org-babel-parse-inline-src-block-match #[nil "\306\307!\310\311\312!\203 \312\313 G\310 $\210\202. \203& \314\313 G\n $\210\202. \312\313 G\310 $\210 *\315\316 P! \317\306\320!\310\311\312!\203P \312\313 G\310 $\210\202g \203_ \314\313 G\n $\210\202g \312\313 G\310 $\210 *!\321\322
\323\f!\205v \324\f!\325\326 !\327\306\330!\206\202 \331\310\311\312!\203\226 \312\313 G\310 $\210\202\255 \203\245 \314\313 G\n $\210\202\255 \312\313 G\310 $\210 *!C\"$E*\207" [restricted s org-rm-props lang lang-headers org-babel-default-inline-header-args match-string 2 nil fboundp set-text-properties 0 remove-text-properties intern "org-babel-default-header-args:" org-unescape-code-in-string 5 apply org-babel-merge-params boundp eval append org-babel-params-from-properties org-babel-parse-header-arguments 4 ""] 14 (#$ . 49359)])
#@266 Split STRING on instances of ALTS.
ALTS is a cons of two character options where each option may be
either the numeric code of a single character or a list of
character alternatives. For example to split on balanced
instances of "[ ]:" set ALTS to ((32 9) . 58).
(defalias 'org-babel-balanced-split #[(string alts) "\306\307\310\211\311\211 \311 \312\313\314\311\"\262\"\210\315\316
\237\"B\237.\207" [matches matched balance last quote partial #[(ch spec) "<\203 \235\207 \232\207" [spec ch] 2] #[(ch last) ":\203 \nA\"\205 @\"\207 \n\"\207" [alts matches ch last] 3] 0 nil mapc #[(ch) " \306\232\204
\307\232\203 \310\202\" \311\232\204 \312\232\203! \313\202\" \314\\ \315\232\2033 \n\316\232\2043 ? \fB\314U\203a \204a
\n\"\203a \317\320:\203V \fAA\202X \fA\237\"B\321 \211\207" [balance ch last quote partial matched 91 40 1 93 41 -1 0 34 92 apply string nil alts lst] 3] append apply string lst] 7 (#$ . 50287)])
#@54 Join splits where "=" is on either end of the split.
(defalias 'org-babel-join-splits-near-ch #[(ch list) "\303\304\305\306\307\n\310\311$!*\207" [first= last= list #[(str) " \211GSHU\207" [ch str] 3] #[(str) " \302HU\207" [ch str 0] 3] reverse org-reduce #[(acc el) "@\211\203 \n !\204 \f!\203 \fPAB\202 \fB)\207" [acc head last= first= el] 3] :initial-value nil] 6 (#$ . 51264)])
#@56 Parse a string of header arguments returning an alist.
(defalias 'org-babel-parse-header-arguments #[(arg-string) "G\302V\205 \303\304\305\306\307\310\311\"\211@\306\312 A\")B\"\"!\207" [arg-string raw 0 org-babel-parse-multiple-vars delq nil mapcar #[(arg) "\301\302\"\203 \303\304\305\"!\306\307\304\310\"!!B\207\303\307!!\311B\207" [arg string-match "\\([^ \f \n
]+\\)[ \f \n
]+\\([^ \f \n
]+.*\\)" intern match-string 1 org-babel-read org-babel-chomp 2 nil] 6] org-babel-balanced-split ((32 9) . 58) #[(r) "\301P\207" [r ":"] 2]] 10 (#$ . 51666)])
#@174 Expand multiple variable assignments behind a single :var keyword.
This allows expression of multiple variables with one :var as
shown below.
#+PROPERTY: var foo=1, bar=2
(defalias 'org-babel-parse-multiple-vars #[(header-arguments) "\302\303\304 \"\210\237)\207" [results header-arguments nil mapc #[(pair) "@\302=\203 \303\304\305\306\307A\310\"\"\"\207 B\211\207" [pair results :var mapcar #[(v) "\302\303!B B\211\207" [v results :var org-babel-trim] 3] org-babel-join-splits-near-ch 61 org-babel-balanced-split 32] 7]] 3 (#$ . 52238)])
#@56 Expand variables in PARAMS and add summary parameters.
(defalias 'org-babel-process-params #[(params) "\305\306\307\310\"\"\311\312\"\203 \311\313\"\203 C\202- \314 \311\315\"A\311\316\"A\311\317\"A$\311\320\"A\2067 \321\322\323 ;\203C \202F \324 !!\311\325\"A\" \322\305\326\n@\"\312\311\312\"A\206` \nA@B\313\311\313\"A\206n \nAA@B\325\fB\327\330\f\235\203} \331\202\210 \332\f\235\203\207 \333\202\210 \333BF\307\310\334##,\207" [params processed-vars vars-and-names raw-result result-params mapcar #[(el) "A:\203 A\207\301A!\207" [el org-babel-ref-parse] 2] org-babel-get-header :var assoc :colname-names :rowname-names org-babel-disassemble-tables :hlines :colnames :rownames :results "" append split-string eval :result-params #[(var) "\301B\207" [var :var] 2] :result-type "output" output "value" value other] 8 (#$ . 52795)])
#@33 Remove all `hline's from TABLE.
(defalias 'org-babel-del-hlines #[(table) "\301\302\"\207" [table remove hline] 3 (#$ . 53658)])
#@168 Return the column names of TABLE.
Return a cons cell, the `car' of which contains the TABLE less
colnames, and the `cdr' of which contains a list of the column
names.
(defalias 'org-babel-get-colnames #[(table) "A@\301\232\203 AA@B\207A@B\207" [table hline] 2 (#$ . 53795)])
#@210 Return the row names of TABLE.
Return a cons cell, the `car' of which contains the TABLE less
rownames, and the `cdr' of which contains a list of the rownames.
Note: this function removes any hlines in TABLE.
(defalias 'org-babel-get-rownames #[(table) "\303!\211\304\305\")\n*B\207" [table tp rownames org-babel-del-hlines mapcar #[(row) "\211@\211 \nA\240\210*\242A\207" [tp #1=#:v #2=#:x] 4]] 4 (#$ . 54083)])
#@38 Add COLNAMES to TABLE if they exist.
(defalias 'org-babel-put-colnames #[(table colnames) "\203 \302\303\304 $\207 \207" [colnames table apply list hline] 5 (#$ . 54513)])
#@38 Add ROWNAMES to TABLE if they exist.
(defalias 'org-babel-put-rownames #[(table rownames) "\203 \302\303 \"\207 \207" [rownames table mapcar #[(row) "<\203 \211A\242\206 \302B\207\207" [row rownames ""] 2]] 3 (#$ . 54694)])
#@224 Select one out of an alist of row or column names.
SELECTOR can be either a list of names in which case those names
will be returned directly, or an index into the list NAMES in
which case the indexed names will be return.
(defalias 'org-babel-pick-name #[(names selector) "<\203 \207 \205/ \203 9\203 \302\232\204 \303 \"A\207\250\203* S 8\207\304 !@A\207" [selector names t assoc last] 3 (#$ . 54934)])
#@191 Parse tables for further processing.
Process the variables in VARS according to the HLINES,
ROWNAMES and COLNAMES header arguments. Return a list consisting
of the vars, cnames and rnames.
(defalias 'org-babel-disassemble-tables #[(vars hlines colnames rownames) "\303\211\304\305\n\"\306 !\306!E*\207" [rnames cnames vars nil mapcar #[(var) "A<\203h \306\232\2046 \204\" AA@\307\232\2036 \307AAA\235\2046 \310A!@\nAB B@\n@B)\f\203T \f\306\232\204T \311A!@\nAB
B@\n@B)\f\203h \f\312\232\204h @\313A!B\207" [var colnames both cnames rownames rnames "no" hline org-babel-get-colnames org-babel-get-rownames "yes" org-babel-del-hlines hlines] 3] reverse] 4 (#$ . 55358)])
#@141 Add column and row names to a table.
Given a TABLE and set of COLNAMES and ROWNAMES add the names
to the table for reinsertion to org-mode.
(defalias 'org-babel-reassemble-table #[(table colnames rownames) "<\2037 \203 G GU\203 \303 \"\202 \n\2034 @<\2034 @G\nGU\2034 \304\n\"\2025 )\207\207" [table rownames colnames org-babel-put-rownames org-babel-put-colnames] 3 (#$ . 56061)])
#@219 Find where the current source block begins.
Return the point at the beginning of the current source
block. Specifically at the beginning of the #+BEGIN_SRC line.
If the point is not on a source block then return nil.
(defalias 'org-babel-where-is-src-block-head #[nil "`\306\307\211\212\310\311!\210\312\f!\204 \312
!\2052 \311y\203* \312\f!\204 \312
!\204 \312!\2052 `)\206\201 \212\310\311!\210\312!\205C `)\206\201 \212\313\314\307\306#\205\200 `\211\205\200 \315\316\307\306#\205\200 `\211\205\200 W\205\200 W\205\200 b\210\310\311!\210\312!\205\200 \317 ),\207" [bottom top case-fold-search initial org-babel-src-name-regexp org-babel-multi-line-header-regexp t nil beginning-of-line 1 looking-at re-search-backward "^[ ]*#\\+begin_src" re-search-forward "^[ ]*#\\+end_src" point-marker org-babel-src-block-regexp] 4 (#$ . 56464)])
#@48 Go to the beginning of the current code block.
(defalias 'org-babel-goto-src-block-head #[nil "\301 \211\203\f b\202 \302\303!)\207" [head org-babel-where-is-src-block-head error "Not currently in a code block"] 3 (#$ . 57330) nil])
#@34 Go to a named source-code block.
(defalias 'org-babel-goto-named-src-block #[(name) "\302!\211\203 \303 \210 b\210\304 \202 \305\306\")\207" [name point org-babel-find-named-block org-mark-ring-push org-show-context message "source-code block `%s' not found in this buffer"] 4 (#$ . 57572) (let ((completion-ignore-case t) (case-fold-search t) (under-point (thing-at-point 'line))) (list (org-icompleting-read "source-block name: " (org-babel-src-block-names) nil t (cond ((string-match (org-babel-noweb-wrap) under-point) (let ((block-name (match-string 1 under-point))) (string-match "[^(]*" block-name) (match-string 0 block-name))) ((string-match org-babel-lob-one-liner-regexp under-point) (let ((source-info (car (org-babel-lob-get-info)))) (if (string-match "^\\([^\\[]+?\\)\\(\\[.*\\]\\)?(" source-info) (let ((source-name (match-string 1 source-info))) source-name)))) ((string-match (concat "#\\+" org-babel-results-keyword "\\: +\\([^\\(]*\\)") under-point) (match-string 1 under-point)) ((and (thing-at-point 'symbol)) (org-babel-find-named-block (thing-at-point 'symbol)) (thing-at-point 'symbol)) ("")))))])
#@195 Find a named source-code block.
Return the location of the source block identified by source
NAME, or nil if no such block exists. Set match data according to
org-babel-named-src-block-regexp.
(defalias 'org-babel-find-named-block #[(name) "\212\304\305!\306eb\210\307\n\306\304#\204 \310\n\306\304#\205 \311\224,\207" [name msg regexp case-fold-search t org-babel-named-src-block-regexp-for-name nil re-search-forward re-search-backward 0] 4 (#$ . 58706)])
#@67 Returns the names of source blocks in FILE or the current buffer.
(defalias 'org-babel-src-block-names #[(&optional file) "\212\203 \304!\210eb\210\305\306\307 \306\305#\203! \310\311! B\202 +\207" [file names case-fold-search org-babel-src-name-w-name-regexp find-file t nil re-search-forward match-string 3] 4 (#$ . 59177)])
#@23 Go to a named result.
(defalias 'org-babel-goto-named-result #[(name) "\302!\211\203 b\210\303 \202 \304\305\")\207" [name point org-babel-find-named-result org-show-context message "result `%s' not found in this buffer"] 4 (#$ . 59518) (let ((completion-ignore-case t)) (list (org-icompleting-read "source-block name: " (org-babel-result-names) nil t)))])
#@122 Find a named result.
Return the location of the result named NAME in the current
buffer or nil if no such result exists.
(defalias 'org-babel-find-named-result #[(name &optional point) "\212\306 \206 eb\210\3072L \310\n\311\312 !\313R\314\306#\205K \315\316!\227\317\230\203F \320\316!\204> \321\f!\204> \321
!\204> \321!\203F \322\307\323 `\"\"\210\320\324!\210`0*\207" [case-fold-search point org-babel-result-regexp name org-babel-src-block-regexp org-babel-multi-line-header-regexp t is-a-code-block re-search-forward "[ ]" regexp-quote "[ ]*[\n\f
]" nil match-string 1 "name" beginning-of-line looking-at throw org-babel-find-named-result 0 org-babel-lob-one-liner-regexp] 5 (#$ . 59888)])
#@61 Returns the names of results in FILE or the current buffer.
(defalias 'org-babel-result-names #[(&optional file) "\212\203 \304!\210eb\210\305\306\307 \306\305#\203! \310\311! B\202 +\207" [file names case-fold-search org-babel-result-w-name-regexp find-file t nil re-search-forward match-string 4] 4 (#$ . 60596)])
#@104 Jump to the next source block.
With optional prefix argument ARG, jump forward ARG many source blocks.
(defalias 'org-babel-next-src-block #[(&optional arg) "\302\303 #\207" [arg org-babel-src-block-regexp org-next-block nil] 4 (#$ . 60927) "p"])
#@109 Jump to the previous source block.
With optional prefix argument ARG, jump backward ARG many source blocks.
(defalias 'org-babel-previous-src-block #[(&optional arg) "\302 \"\207" [arg org-babel-src-block-regexp org-previous-block] 3 (#$ . 61182) "p"])
#@25 Mark current src block.
(defalias 'org-babel-mark-block #[nil "\302 \211\205 \212b\210\303 !\210)\304\305\225\306\307#\210\305\224b)\207" [head org-babel-src-block-regexp org-babel-where-is-src-block-head looking-at push-mark 5 nil t] 5 (#$ . 61442) nil])
#@299 Wrap or split the code in the region or on the point.
When called from inside of a code block the current block is
split. When called from outside of a code block a new code block
is created. In both cases if the region is demarcated and if the
region is not active then the point is demarcated.
(defalias 'org-babel-demarcate-block #[(&optional arg) "\306\307!\310 \210\311\312!\313\314 \206 \315\316\"\317P\211\2032 \320\321\322\323 \203* \324 `D\202, `C\325\"\"\202\224 `\326\327\330\331\332\333\330\334 \"\330\335\f\"\"!\"\"\336\323 \203P \324 \202Q ``\" ) *\337\340!\203b \341\202c \342+\203n \342P\202o \341\343)\342
\211G\344U\204\202 \345\346
\"\203\206 \341\202\207 \342\347\260c\210*b\210\350\315!++\207" [stars headers info org-babel-load-languages org-src-lang-modes body org-babel-get-src-block-info light org-babel-where-is-src-block-head match-string 4 make-string org-current-level 1 42 " " mapc #[(place) "\212b\210 @\306\307 8\310\"\311\312\313 \314 {\"\203 \313 \314 |\210\315\316!\203) \317\202* \320\n\321\f\2034
\2025 \n\320\n\322 G\323V\203H \324P\202J \315\325!\203T \317\202Z \320\306i\310\"P\260\nc\210+\326\327!\207" [place info indent lang arg stars make-string 5 32 string-match "^[[:space:]]*$" point-at-bol point-at-eol looking-at "^" #1="" "\n" "#+end_src\n" "#+begin_src " 1 " " "[\n
]" move-end-of-line 2 headers] 13] sort org-region-active-p mark > org-icompleting-read "Lang: " mapcar symbol-name delete-dups append car #[(el) "\301@!\207" [el intern] 2] delete-and-extract-region looking-at "^" #1# "\n" "#+begin_src " 0 string-match "[
\n]$" "#+end_src\n" move-end-of-line lang start arg] 12 (#$ . 61708) "P"])
#@271 Find where the current source block results begin.
Return the point at the beginning of the result of the current
source block. Specifically at the beginning of the results line.
If no result exists for this block then create a results line
following the source block.
(defalias 'org-babel-where-is-src-block-result #[(&optional insert info hash indent) "\212\306\212\307\310!\210\311 !)\312 \205 \313\225\314\f\206 \315\316!8 \n?\205& \317 )\320\211 * +\320 ,)\203: )b\210\212\214~\210 \206\363
\203s \321
!\211+\203s +-\203p -\322\323!\230\204p +b\210+,\310y\210,\324 |\210\206\363 \n\204 \325\326\320\306#\205\363 \310\210m\203\214 \327c\210\202\217 \310u\210`,
?\205\363 \3302\315 \325\331\320\306#\205\314 \307\310!\210\311.\327P!\203\270 \332\330\306\"\210\202\233 \311\333!\203\304 \310\210\202\233 \332\330\320\"\210\202\233 0\205\363 \322\323! /`-\203\357 -/\230\204\357 \310y\210,\324 |\210\202\362 \320,)**0\203 ,\204*\202m,b\210+\204 \311\334!\203\310u\210\202 \327c\210\3351!\205)\3361\337\"\3402-\205H3\203C\341\342\343!\344-\345\260\202H\341-\345Q\346
\205P\344
P\327\260c\210+\204`\327c\210\347u\210\307\313!\210-\203l\350 \210`. \207" [case-fold-search org-babel-lob-one-liner-regexp on-lob-line inlinep info name t beginning-of-line 1 looking-at org-babel-get-inline-src-block-matches 0 4 org-babel-get-src-block-info light org-babel-where-is-src-block-head nil org-babel-find-named-result match-string 5 org-babel-result-end re-search-forward "^[ ]*#\\+end_src" "\n" non-comment "[^ \f \n
]" throw "^[ ]*#" "[\n
]" wholenump make-string 32 "#+" "[" format-time-string "<%Y-%m-%d %H:%M:%S>" " " "]" ":" -1 org-babel-hide-hash head found beg end hash org-babel-result-regexp this-hash insert indent org-babel-results-keyword org-babel-hash-show-time] 9 (#$ . 63388)])
#@45 Read the result at `point' into emacs-lisp.
(defalias 'org-babel-read-result #[nil "\305\306\307 \203 \310 \202b \311 \203 \312 \202b \313\n!\203# \314 \202b \313 !\2031 \315\316\317!!\202b \313\320!\204= \313\321!\203U \315\322\323\324`\325 {\326\"\327#!\330!\206b \202b \313\f!\205b \212\331y\210\332 )*\207" [result-string case-fold-search org-bracket-link-regexp org-block-regexp org-babel-result-regexp t nil org-at-table-p org-babel-read-table org-at-item-p org-babel-read-list looking-at org-babel-read-link org-babel-trim match-string 4 "^[ ]*: " "^[ ]*:$" mapconcat #[(line) "G\301V\203 \302\303\"\203 \304\301\"\206 \305\207" [line 1 string-match "^[ ]*: ?\\(.+\\)" match-string ""] 3] split-string org-babel-result-end "[
\n]+" "\n" org-babel-number-p 1 org-babel-read-result] 6 (#$ . 65242)])
#@44 Read the table at `point' into emacs-lisp.
(defalias 'org-babel-read-table #[nil "\300\301\302 \"\207" [mapcar #[(row) "9\203
\301\232\203
\207\302\303\"\207" [row hline mapcar #[(el) "\301\302\"\207" [el org-babel-read inhibit-lisp-eval] 3]] 3] org-table-to-lisp] 3 (#$ . 66069)])
#@43 Read the list at `point' into emacs-lisp.
(defalias 'org-babel-read-list #[nil "\300\301\300\302\303 A\"\"\207" [mapcar #[(el) "\301\302\"\207" [el org-babel-read inhibit-lisp-eval] 3] cadr org-list-parse-list] 5 (#$ . 66364)])
#@123 Read the link at `point' into emacs-lisp.
If the path of the link is a file path it is expanded using
`expand-file-name'.
(defalias 'org-babel-read-link #[nil "\306\307 !\2058 \310\311!\312\313\314!\203 \314\315 G\312 $\210\2026 \n\203. \316\315 G\f $\210\2026 \314\315 G\312 $\210 * \317
\"\205E \310\311
\"\211 \204Q \320
!\202i \321\230\203h \317\322
\"\205i \320\310\323
\"!\202i
+\207" [case-fold-search org-bracket-link-regexp restricted s org-rm-props raw t looking-at match-string 1 nil fboundp set-text-properties 0 remove-text-properties string-match expand-file-name "file" "file\\(.*\\):\\(.+\\)" 2 org-link-types-re type] 6 (#$ . 66600)])
#@36 Format RESULT for writing to file.
(defalias 'org-babel-format-result #[(result &optional sep) "\303 <\203 \304 \305\n\206 \306\307F\"\202 !)\207" [echo-res result sep #[(r) ";\203 \207\301\302\"\207" [r format "%S"] 3] orgtbl-to-generic :sep " " :fmt] 6 (#$ . 67268)])
#@1891 Insert RESULT into the current buffer.
By default RESULT is inserted after the end of the
current source block. With optional argument RESULT-PARAMS
controls insertion of results in the org-mode file.
RESULT-PARAMS can take the following values:
replace - (default option) insert results after the source block
replacing any previously inserted results
silent -- no results are inserted into the Org-mode buffer but
the results are echoed to the minibuffer and are
ingested by Emacs (a potentially time consuming
process)
file ---- the results are interpreted as a file path, and are
inserted into the buffer using the Org-mode file syntax
list ---- the results are interpreted as an Org-mode list.
raw ----- results are added directly to the Org-mode file. This
is a good option if you code block will output org-mode
formatted text.
drawer -- results are added directly to the Org-mode file as with
"raw", but are wrapped in a RESULTS drawer, allowing
them to later be replaced or removed automatically.
org ----- results are added inside of a "#+BEGIN_SRC org" block.
They are not comma-escaped when inserted, but Org syntax
here will be discarded when exporting the file.
html ---- results are added inside of a #+BEGIN_HTML block. This
is a good option if you code block will output html
formatted text.
latex --- results are added inside of a #+BEGIN_LATEX block.
This is a good option if you code block will output
latex formatted text.
code ---- the results are extracted in the syntax of the source
code of the language being evaluated and are added
inside of a #+BEGIN_SRC block with the source-code
language set appropriately. Note this relies on the
optional LANG argument.
(defalias 'org-babel-insert-result #[(result &optional result-params info hash indent lang) ";\203U \306\307\310!\203 \310\311\nG\306\n$\210\2021 \203) \312\311\nG \n$\210\2021 \310\311\nG\306\n$\210\n*\313\f\235\203_ \314\315\316\317
8\"\205P \315\316\317
8\"A\206P \"\202_ <\204_ \320\321\"\f\203v \322\f\235\203v \323\324\325\326\320\321\"#!\210\207\212\212\327 \204\202 \330 \205\223 \311\225b\210<\203\217 \331\202\220 \332c\210`)\211 @?\205\243 \333\334
AB$ C\315\335\317
8\"A D\336 E\337 FC\205\310 ECV\206\310 FCX G\306\211 H I;\203\367 @\204\367 G\311V\203\367 \340\306O\331\230\204\367 \340\306O\341\230\204\367 \331P\342\216G\203 ~\210C\204@\206 `H\202ICb\210\212\343\344\306\334#\210iSB)\345y\210`H\346\f\235\2034`\347 |\210\202I\350\f\235\203E\347 b\210\351 H\202I\352\f\235\210D\203U\332DP\202V\353D\354\355 J K\203\346\356\f\235\203\207\357\360\361\362\363<\203v\202{\364\331\334#\"B\365\"!\331\261\210\202\346J!\203\265Hb\210\366\367\370\"\203\236\202\240C\371\"\331Pc\210Hb\210\372 \203\346\373 \210\202\346<\203\312J!\204\312\320\374\"c\210\202\346\313\f\235\203\337@\203\331@b\210c\210\202\346Hb\210c\210J!\203\361\375 b\210\351 I\315\376\317
8\"\203$\315\376\317
8\"A\206 \377 LK\201N LP\201O \201P L!@P\"\210)\202\364\201Q \f\235\2039K\201R \201S \"\210\202\364\201T \f\235\203NK\201U \201V \"\210\202\364\201W \f\235\203qHb\210\372 \203d\201X \210K\201Y \201Z \"\210\202\364\201[ \f\235\203\222K\320\201\\ M\206\207\201] D#\201Z \"\210\202\364\201^ \f\235\203\253Hb\210\372 \203\364\201X \210\202\364\201_ \f\235\204\273\201` \f\235\203\331Hb\210\372 \203\311\201X \210K\201a \201b \201c #\210\202\364J!\204\364\313\f\235\204\364\201d HID#\210`I*@\204\"B\247\203\"B\203\"B\311V\203\"<\203\350\f\235\204\"\201e HIB#\210\204>\201f \f\235\2036\323\201g !\202C\323\201h !\202C\323\201i !.\n\207" [result restricted s org-rm-props result-params info nil fboundp set-text-properties 0 remove-text-properties "file" org-babel-result-to-file assoc :file-desc 2 format "%S" "silent" message replace-regexp-in-string "%" "%%" org-babel-get-inline-src-block-matches org-babel-get-lob-one-liner-matches "\n" " " org-babel-where-is-src-block-result t :results_switches point-min-marker point-max-marker -1 "
" #[nil "\203 \n}\210 \303\211\223\210\n\303\211\223\207" [outside-scope-p visible-beg visible-end nil] 3] re-search-forward "#" 1 "replace" org-babel-result-end "append" point-marker "prepend" "" #[(start finish &optional no-escape) "b\210 \305Pc\210\nb\210 \305Pc\210\f\204 \306`^\"\210b\210\307 b\210\310 \211\207" [end finish beg start no-escape "\n" org-escape-code-in-region point-at-eol point-marker] 3] #[(it) "<\205\n \301!A?\207" [it last] 2] "list" org-babel-trim org-list-to-generic unordered mapcar #[(el) "\301;\203\n \202 \302\303\"D\207" [el nil format "%S"] 4] split-string (:splicep nil :istart "- " :iend "\n") orgtbl-to-orgtbl org-every #[(el) "<\206 \301=\207" [el hline] 2] (:fmt (lambda (cell) (format "%s" cell))) org-at-table-p org-table-align "%s\n" org-table-end :wrap "RESULTS" inlinep hash indent existing-result results-switches visible-beg visible-end outside-scope-p beg end proper-list-p wrap name lang "#+BEGIN_" "#+END_" org-split-string "html" "#+BEGIN_HTML" "#+END_HTML" "latex" "#+BEGIN_LaTeX" "#+END_LaTeX" "org" org-cycle "#+BEGIN_SRC org" "#+END_SRC" "code" "#+BEGIN_SRC %s%s" "none" "raw" "drawer" "wrap" ":RESULTS:" ":END:" no-escape org-babel-examplize-region indent-rigidly "value" "Code block returned no value." "Code block produced no output." "Code block evaluation complete."] 10 (#$ . 67557)])
#@48 Remove the result of the current source block.
(defalias 'org-babel-remove-result #[(&optional info) "\303\304\"\304\211\205 \nS\212\nb\210\305y\210 \306 |)*\207" [info start location org-babel-where-is-src-block-result nil 1 org-babel-result-end] 4 (#$ . 73192) nil])
#@60 Return the point at the end of the current set of results.
(defalias 'org-babel-result-end #[nil "\212\303 \203 \304 b\210`\202c \305 \203$ \306 \307!\310\311 #*\202c \312\313\314!)\203= \315\316\317\320!\321Q!\210\320u\210`\202c \312\313\322!\203U \315\323\317\320!P\324\312#\210\320u\210\202a \313\325!\203a \320y\210\202U )`)\207" [struct prvs case-fold-search org-at-table-p org-table-end org-at-item-p org-list-struct org-list-prevs-alist org-list-get-list-end point-at-bol t looking-at "^\\([ ]*\\):results:" re-search-forward "^" match-string 1 ":END:" "[ ]*#\\+begin_\\([^ \n
]+\\)" "[ ]*#\\+end_" nil "[ ]*\\(: \\|:$\\|\\[\\[\\)"] 4 (#$ . 73472)])
#@172 Convert RESULT into an `org-mode' link with optional DESCRIPTION.
If the `default-directory' is different from the containing
file's directory then expand relative links.
(defalias 'org-babel-result-to-file #[(result &optional description) ";\2050 \304\305 \203\" \n\203\" \306 !\306\307\n!!\230\204\" \306 \"\202# \203. \310 \311Q\202/ \312#\207" [result default-directory buffer-file-name description format "[[file:%s]%s]" expand-file-name file-name-directory "[" "]" ""] 6 (#$ . 74149)])
#@76 Make true to capitalize begin/end example markers inserted by code blocks.
(defvar org-babel-capitalize-examplize-region-markers nil (#$ . 74651))
#@69 Comment out region using the inline `==' or `: ' org example quote.
(defalias 'org-babel-examplize-region #[(beg end &optional results-switches) "\306\307\211\212\nb\210\310 )\n\"\204 \212 b\210\311 )\"\2031 \212\nb\210\312\f\n {\n |\210\"c)\202\232 \313\n \" \212
\314U\206\231
W\203l \nb\210
\314 W\205h \315\316!\210\317c\210\316y\210T\211\202O *\202\231 \nb\210\203 \312\320\321!#\202\202 \322!c\210\323 !\203\220 b\210\202\225 \nZu\210\324!c**\207" [maybe-cap chars-between beg end org-babel-inline-result-wrap size #[(b e) "\302\303 {\"?\207" [b e string-match "^[\\s]*$"] 4] #[(str) "\203 \226\207 \207" [org-babel-capitalize-examplize-region-markers str] 1] point-at-bol point-at-eol format count-lines 0 beginning-of-line 1 ": " "%s%s\n" "#+begin_example" "#+begin_example\n" markerp "#+end_example\n" org-babel-min-lines-for-block-output n --dotimes-limit-- results-switches] 6 (#$ . 74804) "*r"])
#@56 Update the body of the current code block to NEW-BODY.
(defalias 'org-babel-update-block-body #[(new-body) "\302 \204 \303\304!\207\305 \306\216\307\310 !\311P\312\313\312\314%\210*\315\314\224\314\225\316#\207" [save-match-data-internal new-body org-babel-where-is-src-block-head error "Not in a source block" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] replace-match org-babel-trim "\n" nil t 5 indent-rigidly 2] 6 (#$ . 75751)])
#@214 Combine all parameter association lists in PLISTS.
Later elements of PLISTS override the values of previous elements.
This takes into account some special considerations for certain
parameters when merging lists.
(defalias 'org-babel-merge-params #[(&rest plists) "\306\307\310\311\"A\"\306\312\310\313\"A\"\314\315 \316\211 \316\211 \316\211 \316\211 \316\211 \316 \317\320 \"\210\321!\203X \322\211A\242AAB
B\202B \317\323 \"\210\317\324\325\"\210
.\207" [org-babel-common-header-args-w-values results-exclusive-groups exports-exclusive-groups variable-index e-merge params mapcar #[(group) "\301\302\"\207" [group mapcar symbol-name] 3] assoc results #[(group) "\301\302\"\207" [group mapcar symbol-name] 3] exports 0 #[(exclusive-groups &rest result-params) "\302\303\304 \"\210)\207" [output result-params nil mapc #[(new-params) "\301\302\"\207" [new-params mapc #[(new-param) "\303\304\"\210\305 \nB!\211\207" [exclusive-groups new-param output mapc #[(exclusive-group) " \235\205\n \302\303 \"\207" [new-param exclusive-group mapcar #[(excluded-param) "\302 \"\211\207" [excluded-param output delete] 3]] 3] org-uniquify] 3]] 3]] 3] nil mapc #[(plist) "\301\302\"\207" [plist mapc #[(pair) "@\306 \307\"\203\200 A<\203 A@\202% \310\311A\"\205% \312\313\314A\"!\211\203M \315\n\316\317 \"\235\203B \n\fB\320\321\316\322 \"\"\202C \nBC\"\211\202| \203w
8\203w
8@\211\fB
8\211 -A\323\n!\324AQ\241)
T)\202| \325\326A\")\202\245\306 \327\"\203\251 ./0\330A\211 1;\203\234 1\202\240 \3311!)!#\2110\202\245\306 \332\"\203\354 A\205\245./0\333#0\3342\235\204\336 \3352\235\204\336 \3362\235\204\336 .32\337#2\340@4\"B\2114\202\245\306 \341\"\203.32\330A!#\2112\202\245\306 \342\"\203AC\2065\2115\202\245\306 \343\"\2034.\3446\330A\206,\345!#\2116\202\245\306 \346\"\203O.\3477\330A\206G\345!#\2117\202\245\306 \350\"\203j.\3518\330A\206b\345!#\2118\202\245\306 \352\"\203AC\206y9\2119\202\245\306 \353\"\203\232.\354:\330A\206\222\345!#\211:\202\245\340@4\"B\2114)\207" [pair #1=#:temp name vars clearnames variable-index eql :var string-match "^\\([^= \f \n
]+\\)[ ]*=" intern match-string 1 append mapcar car delq nil #[(p) "@ \232?\205 \207" [p name] 2] symbol-name "=" error "Variable \"%s\" must be assigned a default value" :results split-string eval :file ("file") "both" "none" "code" ("results") assq-delete-all :exports :tangle :noweb (("yes" "no" "tangle" "no-export" "strip-export" "eval")) "" :cache (("yes" "no")) :padline (("yes" "no")) :shebang :comments (("yes" "no")) #2=#:v e-merge results-exclusive-groups results r exports exports-exclusive-groups params tangle noweb cache padline shebang comments] 7]] 3] reverse :var #[(name) "\300\301\302\303D\"\207" [mapc #[(param) "\303 \"\205 \303 \"\211\304\305\303 \"A\"\241\210)\304\306 \"\211\207" [param params #3=#:v assoc org-remove-if #[(pair) "@ \232\207" [pair name] 2] #[(pair) "@ \232\205\n A?\207" [pair param] 2]] 7] :colname-names :rowname-names] 4] #[(hd) "\304\305\306!P!\307!\211\310\311 \312#B B\211*\207" [hd val key params intern ":" symbol-name eval mapconcat identity " "] 6] (results exports tangle noweb padline cache shebang comments) tangle noweb cache vars shebang comments padline clearnames plists] 6 (#$ . 76238)])
#@246 Set to true to use regular expressions to expand noweb references.
This results in much faster noweb reference expansion but does
not properly allow code blocks to inherit the ":noweb-ref"
header argument from buffer or subtree wide properties.
(defvar org-babel-use-quick-and-dirty-noweb-expansion nil (#$ . 79622))
#@96 Check if PARAMS require expansion in CONTEXT.
CONTEXT may be one of :tangle, :export or :eval.
(defalias 'org-babel-noweb-p #[(params context) "\303\304\211\305 \306\"\203 \307\202# \305 \310\"\203 \311\202# \305 \312\"\205# \313\314\315\316\n\"A\206- \317!\"*\207" [intersect context params nil #[(as bs) "\205 @ \235\203 @\207\nA \"\207" [as bs intersect] 3] eql :tangle ("yes" "tangle" "no-export" "strip-export") :eval ("yes" "no-export" "strip-export" "eval") :export ("yes") split-string assoc :noweb ""] 7 (#$ . 79945)])
#@1069 Expand Noweb references in the body of the current source code block.
For example the following reference would be replaced with the
body of the source-code block named `example-block'.
<<example-block>>
Note that any text preceding the <<foo>> construct on a line will
be interposed between the lines of the replacement text. So for
example if <<foo>> is placed behind a comment, then the entire
replacement text will also be commented.
This function must be called from inside of the buffer containing
the source-code block which holds BODY.
In addition the following syntax can be used to insert the
results of evaluating the source-code block named `example-block'.
<<example-block()>>
Any optional arguments can be passed to example-block by placing
the arguments inside the parenthesis following the convention
defined by `org-babel-lob'. For example
<<example-block(a=9)>>
would set the value of argument "a" equal to "9". Note that
these arguments are not evaluated in the current source-code
block but are passed literally to the "example-block".
(defalias 'org-babel-expand-noweb-references #[(&optional info parent-buffer) "\206 p \206
\306\307!\211@ A@\f @\310\311\312 8\"A\313\230 A\314B\315\316\317\260 C\320 D\321 E\322 F\323\211 G H\323\211 I J\324\325! KrKq\210\326\216\304
L M\327M!LL\210*\330@ L M\327M!LL\210* c\210eb\210`G\331\332 \323\333#\203\235\334 N\335\216\336\337!H*\334 N\340\216\341\342H\"I*\334 N\343\216\344\224\212\345\337!\210`){J*\344\224b\210EG`{!\210\344\225b\210`GErq\210\214~\210\346\347\350I\203\354 \351H!\211 O;\203\343 O\202\350 \352\353O\")\202\216\312\310\354H!P\"8\206\216\212\355H!\205\356 )\206\216CH\357Q\323 Q R\212eb\210S\203n\331R\323\333#\203a\306\307! T\360T!\310\361\312T8\"A\206:\362 UA\203]\363T! VFV@!\362 \362FVA@!\260)\202^ WUWQBBQ,\202\323\211 X?\206|\364\365X!! Y` Z\323 [\366 \\\367\216X\203\224\370X!\210p[eb\210\331]\323\333#\203Q\371 \203\232\344\224b\210\336\344!\344\224\344\225\336\312!\312\224\312\225\336\372!\372\224\372\225\336\373!\373\224\373\225\336\374!\374\224\374\225 ^ _ ` a b c d e f g h i j\306\307! T\310\375\312T8\"A\206\377\373T8H\232\203G\360T!\310\361\312T8\"A\206\362 UA\2039\363T! VFV@!\362 \362FVA@!\260)\202: WUWQBBQ+)hb\210.\202\232*Y\204\\\376[!\210Zb\210,)Q\205o\346\347QA\237\320#*\206\216\nk\235\203\215\377\201l \332H!\201m \201n Q\"\202\216\320\201o \"\362JP#*!\210\202y EGd{!\210+D.\207" [parent-buffer info lang body org-babel-noweb-wrap-start ob-nww-start org-babel-get-src-block-info light assoc :comments 2 "noweb" "\\(" "\\|" ":noweb-ref[ ]+" "\\)" "" #[(text) " P\211\207" [new-body text] 2] #[(text) "\303\304!rq\210\305\216\306 \307P! \210\310`\nc\210`\"\210\311\312 !+\207" [#1=#:temp-buffer lang text generate-new-buffer #2=" *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] intern "-mode" comment-region org-babel-trim buffer-string] 3] nil generate-new-buffer #2# #[nil "\301!\205 \302!\207" [#3=#:temp-buffer buffer-name kill-buffer] 2] make-local-variable org-babel-noweb-wrap-end re-search-forward org-babel-noweb-wrap t match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] match-string 1 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "(.*)" #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 0 beginning-of-line mapconcat identity split-string org-babel-ref-resolve format "%S" intern org-babel-ref-goto-headline-id org-babel-ref-headline-body "[ \n]" org-babel-expand-noweb-references :noweb-sep "\n" org-babel-tangle-comment-links get-file-buffer expand-file-name current-window-configuration #[nil "\301!\207" [#4=#:wconfig set-window-configuration] 2] find-file org-babel-active-location-p 3 4 5 :noweb-ref kill-buffer error ob-nww-end comment org-babel-src-name-regexp rx-prefix new-body nb-add c-wrap index source-name evaluate prefix #3# value var save-match-data-internal raw org-babel-library-of-babel expansion rx org-babel-use-quick-and-dirty-noweb-expansion i sep cs full #5=#:file visited-p point to-be-removed #4# org-babel-src-block-regexp end-body beg-body end-header-args beg-header-args header-args end-switches beg-switches switches end-lang beg-lang end-block beg-block full-block org-babel-noweb-error-langs "%s" "could not be resolved (see " "`org-babel-noweb-error-langs')" "[\n
]"] 20 (#$ . 80491)])
#@41 Safely convert tables into elisp lists.
(defalias 'org-babel-script-escape #[(str &optional force) "\204F ;\203e G\306V\203e \307\310O\311\230\203\" \312\313O\314\230\204F \307\310O\315\230\2034 \312\313O\316\230\204F \307\310O\317\230\203e \312\313O\320\230\203e \321\322\313\211\211 \323\324 \325\313\"\262\"\210\326\327\330\n!\"+P!\202f \3311r \321
!0\202t \210
)\207" [force str out in-double in-single escaped 2 0 1 "[" -1 nil "]" "{" "}" "(" ")" org-babel-read "'" mapc #[(ch) "\304\305\"\203 \204 \n\203 \305 B\202\301 \306 B\202\301 \304\307\"\2036 \204* \n\2030 \307 B\202\301 \310 B\202\301 \304\311\"\203Q \204E \n\203K \311 B\202\301 \306 B\202\301 \304\312\"\203l \204` \n\203f \312 B\202\301 \310 B\202\301 \304\313\"\203\207 \204{ \n\203\201 \313 B\202\301 \314 B\202\301 \304\315\"\203\241 \203\230 \315 B\202\301 \n?\316 B\202\301 \304\316\"\203\276 \n\203\265 \317\316\314D \"\202\301 ?\316 B\202\301 B\211\207" [ch in-double in-single out eql 91 40 93 41 123 125 44 32 39 34 append] 3] append apply string reverse (error)] 8 (#$ . 85019)])
#@320 Convert the string value of CELL to a number if appropriate.
Otherwise if cell looks like lisp (meaning it starts with a
"(", "\='", "\=`" or a "[") then read it as lisp,
otherwise return it unmodified as a string. Optional argument
NO-LISP-EVAL inhibits lisp evaluation for situations in which is
it not appropriate.
(defalias 'org-babel-read #[(cell &optional inhibit-lisp-eval) ";\203A \302\232\204A \303!\206B \204* \304\305O\306\235\204$ \307\230\203* \310\311!!\207\304\305O\312\230\2037 \311!\207\313\304G\314$\210\207\207" [cell inhibit-lisp-eval "" org-babel-number-p 0 1 ("(" "'" "`" "[") "*this*" eval read "\"" set-text-properties nil] 5 (#$ . 86122)])
#@49 If STRING represents a number return its value.
(defalias 'org-babel-number-p #[(string) "\301\302\"\205 \301\303\"\205 \304\224\304\225OGGU\205 \305!\207" [string string-match "[0-9]+" "^-?[0-9]*\\.?[0-9]*$" 0 string-to-number] 3 (#$ . 86807)])
#@113 Read the results located at FILE-NAME into an elisp table.
If the table is trivial, then return it as a scalar.
(defalias 'org-babel-import-elisp-from-file #[(file-name &optional separator) "\306\307 \310\216\311\312!r\nq\210\313\216\3141) \315 \f\"\210\316 !\210\317\320\321 \"\2110\202/ \322\323
\")\210+A\204Q @:\203L @A\204H @@\202R \202R @\202R +\207" [result #1=#:wconfig #2=#:temp-buffer file-name separator err nil current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#2# buffer-name kill-buffer] 2] (error) org-table-import delete-file mapcar #[(row) "\301\302\"\207" [row mapcar org-babel-string-read] 3] org-table-to-lisp message "Error reading results: %s"] 3 (#$ . 87068)])
#@38 Strip nested "s from around strings.
(defalias 'org-babel-string-read #[(cell) "\301;\203 \302\303\"\203 \304\305\"\206 \306\"\207" [cell org-babel-read string-match "\\\"\\(.+\\)\\\"" match-string 1 t] 4 (#$ . 87865)])
#@159 Strip trailing spaces and carriage returns from STRING.
Default regexp used is "[
]" but can be
overwritten by specifying a regexp as a second argument.
(defalias 'org-babel-chomp #[(string &optional regexp) "\206 \302 G\303V\203 \304 \305\306O\"\203 \303\305O\211\202 )\207" [regexp string "[ \f \n
]" 0 string-match -1 nil] 6 (#$ . 88099)])
#@147 Strip leading and trailing spaces and carriage returns from STRING.
Like `org-babel-chomp' only it runs on both the front and back
of the string.
(defalias 'org-babel-trim #[(string &optional regexp) "\302\303\302\303! \"! \"\207" [string regexp org-babel-chomp org-reverse-string] 5 (#$ . 88465)])
#@95 Use Tramp to handle `call-process-region'.
Fixes a bug in `tramp-handle-call-process-region'.
(defalias 'org-babel-tramp-handle-call-process-region #[(start end program &optional delete buffer display &rest args) "\306\307!\203. \310!\203. \311\312!\313\n #\210\f\203 \n |\210\314\216\315\316
&*\207\315\n
\f&\207" [default-directory tmpfile start end delete program featurep tramp file-remote-p tramp-compat-make-temp-file "" write-region #[nil "\301!\207" [tmpfile delete-file] 2] apply process-file buffer display args org-babel-call-process-region-original] 9 (#$ . 88771)])
#@42 Return the local name component of FILE.
(defalias 'org-babel-local-file-name #[(file) "\302!\203 \303\304\303 #)\207\207" [file localname file-remote-p nil with-parsed-tramp-file-name] 4 (#$ . 89379)])
#@356 Prepare NAME to be used in an external process.
If NAME specifies a remote location, the remote portion of the
name is removed, since in that case the process will be executing
remotely. The file name is then processed by `expand-file-name'.
Unless second argument NO-QUOTE-P is non-nil, the file name is
additionally processed by `shell-quote-argument'
(defalias 'org-babel-process-file-name #[(name &optional no-quote-p) "\303\304!!\n\203 \202 \305 !)\207" [name f no-quote-p expand-file-name org-babel-local-file-name shell-quote-argument] 3 (#$ . 89594)])
(byte-code "\204! \302\301!\204! \303\302\301!\203 \304 !\203 \206 \305\306\307\"!\210\302\207" [noninteractive org-babel-temporary-directory boundp (lambda (#1=#:def-tmp-var) (defvar org-babel-temporary-directory #1# "Directory to hold temporary files created to execute code blocks.\nUsed by `org-babel-temp-file'. This directory will be removed on\nEmacs shutdown.")) file-exists-p make-temp-file "babel-" t] 4)
#@71 Call the code to parse raw string results according to RESULT-PARAMS.
(defalias 'org-babel-result-cond '(macro . #[(result-params scalar-form &rest table-forms) "\304\305!\306 DC\307\310\311E\312\313\310\314E\310\315E\310\316E\310\317E\310\320E\321\313\310\322E\310\323E\310\324E\310\325E\257\326\310\327EDE\257\n BBBEE)\207" [params result-params scalar-form table-forms make-symbol "--params" let unless member "none" if or "scalar" "verbatim" "html" "code" "pp" and "output" "raw" "org" "drawer" not "table"] 19 (#$ . 90587)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\210\304\301\305\307#\207" [function-put org-babel-result-cond lisp-indent-function 1 put edebug-form-spec (form form &rest form) (form form body)] 4)
#@229 Create a temporary file in the `org-babel-temporary-directory'.
Passes PREFIX and SUFFIX directly to `make-temp-file' with the
value of `temporary-file-directory' temporarily set to the value
of `org-babel-temporary-directory'.
(defalias 'org-babel-temp-file #[(prefix &optional suffix) "\305!\203 \305!\306 \n\"P\307 \310 #)\207\311\304!\203& \312\f!\203& \f\206' \n\307 \310 #)\207" [default-directory prefix temporary-file-directory suffix org-babel-temporary-directory file-remote-p expand-file-name make-temp-file nil boundp file-exists-p] 4 (#$ . 91341)])
#@59 Remove `org-babel-temporary-directory' on Emacs shutdown.
(defalias 'org-babel-remove-temporary-directory #[nil "\301\300!\205- \302!\205- \3031 \304\305\306\307\310#\"\210\311!0\207\210\312\313\301\300!\203+ \202, \314\"\207" [org-babel-temporary-directory boundp file-exists-p (error) mapc #[(file) "\301!@\302=\203
\303!\207\304!\207" [file file-attributes t delete-directory delete-file] 2] directory-files full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" delete-directory message "Failed to remove temporary Org-babel directory %s" "[directory not defined]"] 6 (#$ . 91914)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook kill-emacs-hook org-babel-remove-temporary-directory provide ob-core] 3)
Kontol Shell Bypass