Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
org /
Delete
Unzip
Name
Size
Permission
Date
Action
ob-C.elc
5.8
KB
-rw-r--r--
2023-06-07 04:05
ob-R.elc
12.73
KB
-rw-r--r--
2023-06-07 04:05
ob-asymptote.elc
3.74
KB
-rw-r--r--
2023-06-07 04:05
ob-awk.elc
3.67
KB
-rw-r--r--
2023-06-07 04:05
ob-calc.elc
2.33
KB
-rw-r--r--
2023-06-07 04:05
ob-clojure.elc
2.28
KB
-rw-r--r--
2023-06-07 04:05
ob-comint.elc
5.39
KB
-rw-r--r--
2023-06-07 04:05
ob-css.elc
1015
B
-rw-r--r--
2023-06-07 04:05
ob-ditaa.elc
2.24
KB
-rw-r--r--
2023-06-07 04:05
ob-dot.elc
2.26
KB
-rw-r--r--
2023-06-07 04:05
ob-emacs-lisp.elc
2
KB
-rw-r--r--
2023-06-07 04:05
ob-eval.elc
6.81
KB
-rw-r--r--
2023-06-07 04:05
ob-exp.elc
11.14
KB
-rw-r--r--
2023-06-07 04:05
ob-fortran.elc
5.01
KB
-rw-r--r--
2023-06-07 04:05
ob-gnuplot.elc
7.35
KB
-rw-r--r--
2023-06-07 04:05
ob-haskell.elc
8.04
KB
-rw-r--r--
2023-06-07 04:05
ob-io.elc
3.54
KB
-rw-r--r--
2023-06-07 04:05
ob-java.elc
2.21
KB
-rw-r--r--
2023-06-07 04:05
ob-js.elc
5.71
KB
-rw-r--r--
2023-06-07 04:05
ob-keys.elc
2.9
KB
-rw-r--r--
2023-06-07 04:05
ob-latex.elc
5.73
KB
-rw-r--r--
2023-06-07 04:05
ob-ledger.elc
2.01
KB
-rw-r--r--
2023-06-07 04:05
ob-lilypond.elc
13.27
KB
-rw-r--r--
2023-06-07 04:05
ob-lisp.elc
2.75
KB
-rw-r--r--
2023-06-07 04:05
ob-lob.elc
5.11
KB
-rw-r--r--
2023-06-07 04:05
ob-matlab.elc
644
B
-rw-r--r--
2023-06-07 04:05
ob-maxima.elc
3.78
KB
-rw-r--r--
2023-06-07 04:05
ob-mscgen.elc
1.54
KB
-rw-r--r--
2023-06-07 04:05
ob-ocaml.elc
4.9
KB
-rw-r--r--
2023-06-07 04:05
ob-octave.elc
10.16
KB
-rw-r--r--
2023-06-07 04:05
ob-org.elc
1.81
KB
-rw-r--r--
2023-06-07 04:05
ob-perl.elc
3.35
KB
-rw-r--r--
2023-06-07 04:05
ob-picolisp.elc
4.65
KB
-rw-r--r--
2023-06-07 04:05
ob-plantuml.elc
2.41
KB
-rw-r--r--
2023-06-07 04:05
ob-python.elc
10.22
KB
-rw-r--r--
2023-06-07 04:05
ob-ref.elc
6.52
KB
-rw-r--r--
2023-06-07 04:05
ob-ruby.elc
8.15
KB
-rw-r--r--
2023-06-07 04:05
ob-sass.elc
1.87
KB
-rw-r--r--
2023-06-07 04:05
ob-scala.elc
3.72
KB
-rw-r--r--
2023-06-07 04:05
ob-scheme.elc
4.81
KB
-rw-r--r--
2023-06-07 04:05
ob-screen.elc
4.45
KB
-rw-r--r--
2023-06-07 04:05
ob-sh.elc
8.2
KB
-rw-r--r--
2023-06-07 04:05
ob-shen.elc
1.95
KB
-rw-r--r--
2023-06-07 04:05
ob-sql.elc
4.43
KB
-rw-r--r--
2023-06-07 04:05
ob-sqlite.elc
4.53
KB
-rw-r--r--
2023-06-07 04:05
ob-table.elc
3.06
KB
-rw-r--r--
2023-06-07 04:05
ob-tangle.elc
15.92
KB
-rw-r--r--
2023-06-07 04:05
ob.elc
83.02
KB
-rw-r--r--
2023-06-07 04:05
org-agenda.elc
332.2
KB
-rw-r--r--
2023-06-07 04:05
org-archive.elc
15.6
KB
-rw-r--r--
2023-06-07 04:05
org-ascii.elc
20.83
KB
-rw-r--r--
2023-06-07 04:05
org-attach.elc
15.96
KB
-rw-r--r--
2023-06-07 04:05
org-bbdb.elc
9.43
KB
-rw-r--r--
2023-06-07 04:05
org-beamer.elc
22.08
KB
-rw-r--r--
2023-06-07 04:06
org-bibtex.elc
22.8
KB
-rw-r--r--
2023-06-07 04:06
org-capture.elc
50.89
KB
-rw-r--r--
2023-06-07 04:06
org-clock.elc
82.74
KB
-rw-r--r--
2023-06-07 04:06
org-colview.elc
48.44
KB
-rw-r--r--
2023-06-07 04:06
org-compat.elc
13.95
KB
-rw-r--r--
2023-06-07 04:06
org-crypt.elc
6.28
KB
-rw-r--r--
2023-06-07 04:06
org-ctags.elc
12.31
KB
-rw-r--r--
2023-06-07 04:06
org-datetree.elc
5.63
KB
-rw-r--r--
2023-06-07 04:06
org-docbook.elc
37.55
KB
-rw-r--r--
2023-06-07 04:06
org-docview.elc
1.72
KB
-rw-r--r--
2023-06-07 04:06
org-element.elc
112.74
KB
-rw-r--r--
2023-06-07 04:06
org-entities.elc
24.46
KB
-rw-r--r--
2023-06-07 04:06
org-eshell.elc
1.72
KB
-rw-r--r--
2023-06-07 04:06
org-exp-blocks.elc
11.32
KB
-rw-r--r--
2023-06-07 04:06
org-exp.elc
101.9
KB
-rw-r--r--
2023-06-07 04:06
org-faces.elc
27.45
KB
-rw-r--r--
2023-06-07 04:06
org-feed.elc
18.7
KB
-rw-r--r--
2023-06-07 04:06
org-footnote.elc
23.09
KB
-rw-r--r--
2023-06-07 04:06
org-freemind.elc
27.16
KB
-rw-r--r--
2023-06-07 04:07
org-gnus.elc
9.12
KB
-rw-r--r--
2023-06-07 04:07
org-habit.elc
11.52
KB
-rw-r--r--
2023-06-07 04:07
org-html.elc
78.9
KB
-rw-r--r--
2023-06-07 04:07
org-icalendar.elc
22.37
KB
-rw-r--r--
2023-06-07 04:07
org-id.elc
19.69
KB
-rw-r--r--
2023-06-07 04:07
org-indent.elc
15.89
KB
-rw-r--r--
2023-06-07 04:07
org-info.elc
1.61
KB
-rw-r--r--
2023-06-07 04:07
org-inlinetask.elc
12.14
KB
-rw-r--r--
2023-06-07 04:07
org-install.el
452
B
-rw-r--r--
2013-02-07 02:17
org-irc.elc
5.82
KB
-rw-r--r--
2023-06-07 04:07
org-jsinfo.elc
7.39
KB
-rw-r--r--
2023-06-07 04:07
org-latex.elc
82.79
KB
-rw-r--r--
2023-06-07 04:07
org-list.elc
83.65
KB
-rw-r--r--
2023-06-07 04:07
org-loaddefs.el
77.97
KB
-rw-r--r--
2013-03-08 03:16
org-lparse.elc
64.82
KB
-rw-r--r--
2023-06-07 04:07
org-mac-message.elc
6.3
KB
-rw-r--r--
2023-06-07 04:07
org-macs.elc
15.89
KB
-rw-r--r--
2023-06-07 04:07
org-mew.elc
3.1
KB
-rw-r--r--
2023-06-07 04:07
org-mhe.elc
5.49
KB
-rw-r--r--
2023-06-07 04:07
org-mks.elc
3.52
KB
-rw-r--r--
2023-06-07 04:08
org-mobile.elc
35.47
KB
-rw-r--r--
2023-06-07 04:08
org-mouse.elc
31.66
KB
-rw-r--r--
2023-06-07 04:08
org-odt.elc
94.04
KB
-rw-r--r--
2023-06-07 04:08
org-pcomplete.elc
10.83
KB
-rw-r--r--
2023-06-07 04:08
org-plot.elc
9.96
KB
-rw-r--r--
2023-06-07 04:08
org-protocol.elc
18.56
KB
-rw-r--r--
2023-06-07 04:08
org-publish.elc
39.08
KB
-rw-r--r--
2023-06-07 04:08
org-remember.elc
36.16
KB
-rw-r--r--
2023-06-07 04:08
org-rmail.elc
2.84
KB
-rw-r--r--
2023-06-07 04:08
org-special-blocks.elc
2.76
KB
-rw-r--r--
2023-06-07 04:08
org-src.elc
32.03
KB
-rw-r--r--
2023-06-07 04:08
org-table.elc
161.1
KB
-rw-r--r--
2023-06-07 04:08
org-taskjuggler.elc
17.22
KB
-rw-r--r--
2023-06-07 04:08
org-timer.elc
12.76
KB
-rw-r--r--
2023-06-07 04:08
org-version.el
718
B
-rw-r--r--
2013-02-28 01:01
org-vm.elc
4.16
KB
-rw-r--r--
2023-06-07 04:08
org-w3m.elc
4.29
KB
-rw-r--r--
2023-06-07 04:08
org-wl.elc
7.07
KB
-rw-r--r--
2023-06-07 04:08
org-xoxo.elc
2.49
KB
-rw-r--r--
2023-06-07 04:09
org.elc
732.44
KB
-rw-r--r--
2023-06-07 04:09
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:05:31 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob.el ;;; in Emacs version 24.3.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)) (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\316\331&\210\310\332\333\334\306\301\316\331&\210\310\335\336\337\306\301\316\331&\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." 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'."] 10) (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:[ ]*" (#$ . 2939)) #@63 Regular expression used to match multi-line header arguments. (defvar org-babel-multi-line-header-regexp "^[ ]*#\\+headers?:[ ]*\\([^\n]*\\)$" (#$ . 3068)) #@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 ]+\\)\\((\\(.*\\))\\|\\)") (#$ . 3232)) #@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" (#$ . 3476)) #@44 Regexp used to identify inline src-blocks. (defvar org-babel-inline-src-block-regexp "\\(?:^\\|[^-[:alnum:]]\\)\\(src_\\([^ \f \n ]+\\)\\(\\|\\[\\(.*?\\)\\]\\){\\([^\f\n ]+?\\)}\\)" (#$ . 3717)) #@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 (#$ . 3921)]) #@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 \307U`\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-number-at-pos "src_" "[[:punct:] ]src_" "[[:punct:] \f \n ]src_" point-at-bol re-search-forward "}" point-at-eol t re-search-backward looking-at] 5 (#$ . 4289)]) #@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 (#$ . 4952)]) #@269 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). (defalias 'org-babel-get-src-block-info #[(&optional light) "\306\307\211\211\211 \310 \211\203\261 \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\255 \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$*\321\330!\203\255 \321\330!G\326V\203\255 \nAA\211 &\316\331\332\331\333\334\321\330!!\"\"\317\n8\"\240\210))\202\271 \335 \203\271 \336 \n\203\320 '\204\320 \nAA\211 (\337\317\n8!\240\210)\n\205\332 \340\n D\"-\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 5 mapcar #[(ref) "\301B\207" [ref :var] 2] #[(var) "\302\303\"\203 \207\304\305 \203 \306\307 \"\202 \310#\207" [var name string-match ".+=.+" error "variable \"%s\"%s must be assigned a default value" format " in block \"%s\"" ""] 6] org-babel-ref-split-args 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 #2=#:c light #3=#:c] 10 (#$ . 5273)]) #@344 Confirm evaluation of the code block INFO. This behavior can 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) "\305\306\3078\"A\206 \305\310\3078\"\205 \311\211\312\232\203 \313\202D \314\302!\2033 \n\2033 \315\232\2033 \313\202D \316 !\203C @A@\"\202D \317\232\204\220 \311\232\204\220 \314\302!\203g \n\203g \320\232\204\220 \321\232\204\220 \f\203\265 \322\323\324\203z \323\325@\"\202{ \326\3278\203\212 \323\330\3278\"\202\213 \326#!\204\265 \331\332\333 \317\232\204\253 \311\232\204\253 \320\232\204\253 \321\232\203\257 \334\202\260 \335\"\210\202\266 \313*\207" [info eval org-current-export-file org-confirm-babel-evaluate query assoc :eval 2 :noeval "no" "query" t boundp "query-export" functionp "never" "no-export" "never-export" yes-or-no-p format "Evaluate this%scode block%son your system? " " %s " " " 4 " (%s) " nil message "Evaluation %s" "Disabled" "Aborted"] 9 (#$ . 6907)]) (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]) #@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 "\302 \211\205 \303 \210\304 \"\210\305)\207" [info current-prefix-arg org-babel-get-src-block-info org-babel-eval-wipe-error-buffer org-babel-execute-src-block t] 4 (#$ . 8453) 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\314 \312\211\223\210\312 \313 B $ %r\314\315 !q\210p\316 \210%$\312\211&'\317\211(\317 ) *\320 \210\321\322!\210+\211 + ,\323\n8\n@\324\n8\325\n8 - . /\211 0\203c \3260\"\210/\203n \327/\"\210 .!\203{ \330.\"\210\331!\210\332-\333\"\312 1\211 2\205\277 2@1 1A!\203\265 \3341@\335\3361@\"G\337V\203\257 \340\202\260 \3411A$\2102A\2112\204\215 \312.\342+!\210+\343\f!\210*+\207" [printf full info help-window-point-marker help-window temp-buffer-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 #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook 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 "" " " internal-temp-output-buffer-show help-window-setup default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output header-args switches lang name pair --dolist-tail--] 7 (#$ . 8834) 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 "\302 \211\205 \303 \"\210\304)\207" [info current-prefix-arg org-babel-get-src-block-info org-babel-expand-src-block t] 4 (#$ . 10318) 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 "\302 \211\205 \303 \"\210\304)\207" [info current-prefix-arg org-babel-get-src-block-info org-babel-load-in-session t] 4 (#$ . 10658) nil]) (add-hook 'org-metaup-hook 'org-babel-load-in-session-maybe) #@132 Conditionally pop to a session. Detect if this is context for a org-babel src-block and if so then run `org-babel-pop-to-session'. (defalias 'org-babel-pop-to-session-maybe #[nil "\302 \211\205 \303 \"\210\304)\207" [info current-prefix-arg org-babel-get-src-block-info org-babel-pop-to-session t] 4 (#$ . 11067) 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)) (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)) (results (file list vector table scalar verbatim) (raw html latex org code pp drawer) (replace silent append prepend) (output value)) (rownames (no yes)) (sep . :any) (session . :any) (shebang . :any) (tangle (tangle yes no :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) (#$ . 12129)) #@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") (:padnewline . "yes")) (#$ . 12377)) #@66 Default arguments to use when evaluating an inline source block. (defvar org-babel-default-inline-header-args '((:session . "none") (:results . "replace") (:exports . "results")) (#$ . 12646)) (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\"\304Q\207" [org-babel-data-names "^[ ]*#\\+" regexp-opt t "\\(\\[\\([[:alnum:]]+\\)\\]\\)?\\:[ ]*"] 4) (#$ . 12906)) (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 (#$ . 13353)) #@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 (#$ . 13765)) #@64 Number of initial characters to show of a hidden results hash. (defvar org-babel-hash-show 4 (#$ . 14037)) #@69 Hook for functions to be called after `org-babel-execute-src-block' (defvar org-babel-after-execute-hook nil (#$ . 14150)) #@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 (#$ . 14279)]) #@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 (#$ . 14567)]) #@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 \306 \307\211AA\211\310\3118 \"\240\210) )!\205\254@ \2030 \312\310\3118 \"!\2023 \3118 ?\205H \313\314 \"A\205H \313\314 \"A\315\230 @\313\316 \"A A@\205Y \317! B@\205b \320 CA\211 D\321 \322\"\203v \323!\202y A@\240) E\313\324 \"A\211 F\203\221 \325\326F!!\206\223 G G\327\330!\203\240 \202\242 \331K \332!@ H\333\211 I J\334\216\335 \336\211 K\f!\206\320 K\337\313\fL\"A!!\206\320 \340\341\f\"J) \204B\203BC\232\203\212\342\333\"b\210\343\210\343u\210\344 I\345\346\347\350\351\352I\"#!\210I)\202\252\345\353\354\f!\3558\203\351\356\3558\"\202 \357#\210JE \" I\313\360 \"A\361=\203K\362A\235\204>\363A\235\203KI<\204KICC\202MI)I\313\364 \"A\203\226I\203\217\313\364 \"A\365\366\367!! M N\370\216rMq\210\371I\313\372\3118\"A\"c\210)rMq\210\373\333\211N\333\374%\210,\313\364 \"AI\375IABH\f&\210\376\377!\210I.)\207" [info i #1=#:c params lang arg org-babel-get-src-block-info org-babel-confirm-evaluate org-babel-merge-params 2 org-babel-process-params assoc :cache "yes" :result-params org-babel-sha1-hash org-babel-current-result-hash org-babel-noweb-p :eval org-babel-expand-noweb-references :dir file-name-as-directory expand-file-name boundp org-babel-call-process-region-original call-process-region last nil ((byte-code "\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!" org-babel-where-is-src-block-result 1 org-babel-read-result message replace-regexp-in-string "%" "%%" format "%S" "executing %s code block%s..." capitalize 4 " (%s)" "" :result-type value "vector" "table" :file get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) org-babel-format-result :sep write-region 0 org-babel-insert-result run-hooks org-babel-after-execute-hook cache\? result-params new-hash old-hash #3=#:c body dir default-directory indent result cmd lang-check org-src-lang-modes #2# #4=#:temp-file] 8 (#$ . 14783) 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) "\302\303\304 C\"\305#\207" [var-lines body mapconcat identity append "\n"] 5 (#$ . 17688)]) #@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\325\326 \327 \330\260#.\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 org-edit-src-code nil "*Org-Babel Preview " buffer-name "[ " " ]*" expand-cmd assignments-cmd expanded] 9 (#$ . 18114) 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 \314 \f\315H\211 \315\211I\210)\311\312 \"\316 \211 \203\226 @\311\312 \"\316 \211 \203\214 @\fH SH\nSH\232\203e \315\202f \312 S\" S\" SS\"#\\I\210*A\211\204@ *A\211\204. * \"-\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] #[(&rest lst) "\301\302\303\304\"\"\207" [lst apply min remove nil] 5] 0 nil mmin #1=#:v i --dolist-tail-- j #2=#:v #3=#:v] 10 (#$ . 18999)]) #@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 (#$ . 19671)]) #@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 (#$ . 20096) 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 (#$ . 21015) 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 (#$ . 21865)]) #@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 (#$ . 22148)]) (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@\3078A\211\310\n\311\"\203 \312!\202\" A@\240) \313\314\n\"A \313\315\n\"A\211 \203= \316!\206? \317\320 P! \321!\204T \322\323 \"\210\324 \f\n#!\210\325.\207" [info lang params #1=#:c body session org-babel-get-src-block-info 2 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 (#$ . 22850) 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*" ((byte-code "\301!\203\n \302!\210\301\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 (#$ . 23624) "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 (#$ . 24784) "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 (#$ . 25217) "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 (#$ . 25716)])) (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 ((byte-code "\301\300!\203 \203 \302 \210\301\207" [org-edit-src-from-org-mode boundp org-edit-src-exit] 2)) call-interactively key-binding read-key-sequence t] 4 (#$ . 26272) "kEnter key-sequence to execute in edit buffer: "]) #@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 \211\205O \212 \204 \305 \206 \306 \210\305 b\210\307\210\310\311!\203' \307u\210\202 \310\n!\2033 \312 \210\202M \313\314 \315\316\3178\"A\"\320\321\322!!\210ed|\210 c\210))\323)\207" [info re-run org-bracket-link-regexp r org-babel-get-src-block-info 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 (#$ . 27209) "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\323\324\325\326\n\327\"BBF\257)\330BBB\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) (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))] 14 (#$ . 27994)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put org-babel-map-src-blocks lisp-indent-function 1 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\323\324\nB\325BBBB\257)\326BBB\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) (goto-char (match-beginning 1)) save-match-data ((goto-char (match-end 0))) ((unless visited-p (kill-buffer to-be-removed)) (goto-char point))] 11 (#$ . 30292)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put org-babel-map-inline-src-blocks lisp-indent-function 1 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\323\324\nB\325BBBB\257)\326BBB\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) (goto-char (match-beginning 1)) save-match-data ((goto-char (match-end 0))) ((unless visited-p (kill-buffer to-be-removed)) (goto-char point))] 11 (#$ . 31224)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put org-babel-map-call-lines lisp-indent-function 1 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\327\330\331 B\332BBBBB\257*\333BBB\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) (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))] 12])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put org-babel-map-executables lisp-indent-function 1 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#\203s \324\224b\210\325\f!\203T \324u\210\326 \"\327\216\325 !\203f \330 \210\202k \331#!\210*\332\225b\210\202> * \204~ \333 !\210 b-\334 !\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 ((mapc #[(c) "\301@!\203 @\302\211\223\210\301A!\205 A\302\211\223\207" [c markerp nil] 3] #2#)) "\\(" "\\|" "\\)" get-file-buffer expand-file-name current-window-configuration ((set-window-configuration #4=#:wconfig)) find-file re-search-forward 1 looking-at match-data ((byte-code "\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 (#$ . 33102) "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 (#$ . 34343) "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!\203B \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" "append" "prepend") nil remove] 4] #[(arg) "A<\203 \211AA)\204 \304A!\202 A\211\205b \305\n!\205- \n:?\205- \nG\306U?\205b \n<\203F @\307\235\203F \310 \n!\311\"\202b \n;\203a @\312\235\203a \313\314\310 \315\n!!\311\"\316#\202b \n)\207" [arg x 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 (#$ . 34636) 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 3 nil fboundp set-text-properties 0 remove-text-properties] 5 (#$ . 35717)]) #@41 Set the current in-buffer hash to HASH. (defalias 'org-babel-set-current-result-hash #[(hash) "\301 \210\212\302\224b\210\303\304\211\211\302%\210\305 )\207" [hash org-babel-where-is-src-block-result 3 replace-match nil org-babel-hide-hash] 6 (#$ . 36083)]) #@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 3 make-overlay overlay-put invisible org-babel-hide-hash babel-hash ov1 ov2] 5 (#$ . 36349)]) #@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\301\302\303#\205 \304\224b\210\305 \210\304\225b\210\202 )\207" [org-babel-result-regexp re-search-forward nil t 0 org-babel-hide-hash] 4 (#$ . 36932)]) (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 (#$ . 37382) 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 (#$ . 37842)]) (add-hook 'org-mode-hook 'org-babel-result-hide-spec) #@26 Overlays hiding results. (defvar org-babel-hide-result-overlays nil (#$ . 38156)) #@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 (#$ . 38244) 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 (#$ . 38541)]) #@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 (#$ . 38737) 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 (#$ . 39015) 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) #@171 Retrieve parameters specified as properties. Return an association list of any source block params which may be specified in the properties of the current outline entry. (defalias 'org-babel-params-from-properties #[(&optional lang) "\305 \306\216\307\211\310\311\307\312\313\312\314\312\315\316 \317\320\fP!\321 !\205# \322 !\"\"\"\"\"!,\207" [save-match-data-internal sym val org-babel-common-header-args-w-values lang match-data ((byte-code "\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] 14 (#$ . 40399)]) #@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\f!\341 !\205\341 \342 !\343\306\344!\206\351 \323\311\312\313!\203\375 \313\314\nG\311\n$\210\202 \203\f\315\314\nG \n$\210\202\313\314\nG\311\n$\210\n*!$%\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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "-i\\>" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-unescape-code-in-string org-do-remove-indentation buffer-string org-babel-merge-params org-babel-params-from-properties boundp eval 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] 13 (#$ . 41211)]) #@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!\205x \324\f!\325\306\326!\206\200 \327\310\311\312!\203\224 \312\313 G\310 $\210\202\253 \203\243 \314\313 G\n $\210\202\253 \312\313 G\310 $\210 *!$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 org-babel-merge-params org-babel-params-from-properties boundp eval org-babel-parse-header-arguments 4 ""] 12 (#$ . 42842)]) #@267 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\")\"\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\203e \204e \n\"\203e \317\320:\203Z \f\211 AA)\202\\ \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 x lst] 4] append apply string lst] 6 (#$ . 43746)]) #@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 (#$ . 44733)]) #@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 (#$ . 45135)]) #@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 (#$ . 45707)]) #@56 Expand variables in PARAMS and add summary parameters. (defalias 'org-babel-process-params #[(params) "\306\307\310\311\"\"\312\313\"\203 \312\314\"\203 C\202- \315 \312\316\"A\312\317\"A\312\320\"A$\312\321\"A\2067 \322\323\324 ;\203C \202F \325 !!\312\326\"A\" \323\306\327\n@\"\313\312\313\"A\206c \n\211 A@)B\314\312\314\"A\206q \nAA@B\326\fB\330\331\f\235\203\200 \332\202\213 \333\f\235\203\212 \334\202\213 \334BF\310\311\335##,\207" [params processed-vars vars-and-names raw-result result-params x 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] 9 (#$ . 46264)]) #@32 Remove all 'hlines from TABLE. (defalias 'org-babel-del-hlines #[(table) "\301\302\"\207" [table remove hline] 3 (#$ . 47138)]) #@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@\302\232\203 \211AA)@B\207A@B\207" [table x hline] 3 (#$ . 47274)]) #@215 Return the row 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. Note: this function removes any hlines in TABLE. (defalias 'org-babel-get-rownames #[(table) "\303\304\305\306\307 \"\"\306\310 \"!\306\311 A!\"\312\313 @\"+B\207" [trans table width #[(table) "\301\302\303#\207" [table apply mapcar* list] 4] apply max mapcar #[(el) "<\203 G\207\301\207" [el 0] 1] #[(row) "\304\232\204 \207\305 \306\n W\203 \304B\nT\211\202 *\207" [row width n --dotimes-limit-- hline nil 0] 3] #[(row) "@\301\232\203 \301\207\207" [row hline] 2] remove hline] 5 (#$ . 47570)]) #@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 (#$ . 48262)]) #@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@\206 \302B\207\207" [row rownames ""] 2]] 3 (#$ . 48443)]) #@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 (#$ . 48680)]) #@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<\203m \306\232\2049 \204% AA@\307\232\2039 \307A\211AA)\235\2049 \310A!@ AB\fB@ @B) \203Y \306\232\204Y \311A!@ AB\fB\f@ @B) \203m \312\232\204m @\313A!B\207" [var colnames x both cnames rownames "no" hline org-babel-get-colnames org-babel-get-rownames "yes" org-babel-del-hlines rnames hlines] 4] reverse] 4 (#$ . 49104)]) #@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 (#$ . 49811)]) #@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\200 \212\310\311!\210\312!\205C `)\206\200 \212\313\314\307\306#\205 `\211\205 \315\316\307\306#\205 `\211\205 W\205 W\205 b\210\310\311!\210\312!\205 `),\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" org-babel-src-block-regexp] 4 (#$ . 50214)]) #@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 (#$ . 51042) 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 (#$ . 51284) (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 (#$ . 52418)]) #@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 (#$ . 52889)]) #@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 (#$ . 53230) (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\302 \206 eb\210\303\304\215*\207" [case-fold-search point t is-a-code-block (byte-code "\304\305\306 !\307R\310\311#\2056 \312\313!\227\314\230\2031 \315\313!\204) \316\n!\204) \316 !\2031 \317\320\321 `\"\"\210\315\322!\210`\207" [org-babel-result-regexp name org-babel-src-block-regexp org-babel-multi-line-header-regexp re-search-forward "[ ]" regexp-quote "[ ]*[\n\f ]" nil t match-string 1 "name" beginning-of-line looking-at throw is-a-code-block org-babel-find-named-result 0] 5)] 2 (#$ . 53600)]) #@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 (#$ . 54308)]) #@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) "\301!\203 \302u\210\303\304\305\217\210\306\224b\210\307 \207" [org-babel-src-block-regexp looking-at 1 nil (byte-code "\302\303\211 \206 \304$\207" [org-babel-src-block-regexp arg re-search-forward nil 1] 5) ((error (error "No further code blocks"))) 0 org-show-context] 3 (#$ . 54639) "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) "\300\301\302\217\210\303\224b\210\304 \207" [nil (byte-code "\302\303\211 \206 \304$\207" [org-babel-src-block-regexp arg re-search-backward nil 1] 5) ((error (error "No previous code blocks"))) 0 org-show-context] 3 (#$ . 55101) "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 (#$ . 55512) 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\207 `\326\327\330\331 \"\"\332\323 \203E \324 \202F ``\" %\333\334!\203V \335\202W \336&\203b \336P\202c \335\337 \336\f\211G\340U\204u \341\342\f\"\203y \335\202z \336\343\260c\210%b\210\344\315!++\207" [stars headers info org-babel-load-languages body lang 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 #[(el) "\301@!\207" [el symbol-name] 2] delete-and-extract-region looking-at "^" #1# "\n" "#+begin_src " 0 string-match "[ \n]$" "#+end_src\n" move-end-of-line start arg] 10 (#$ . 55778) "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\n\203$ \314\315\316\317 !\320#\202- \321\f\206, \322\323!8 \n?\2055 \324 (\325\211 ) *\325 +(\203I (b\210 \206\323 \203~ \326 !\211*\203~ *,\203{ ,\327\330!\230\204{ *b\210*+\310y\210+\331 |\210\206\323 \n\204\212 \332\333\325\306#\205\323 \310\210m\203\227 \334c\210\202\232 \310u\210`+ ?\205\323 \332\335\325\306#\210\307\310!\210\311-\334P!\205\323 `,\203\320 ,\327\330!\230\204\320 \310y\210+\331 |\210\202\323 \325+).\203>+\203>+b\210*\204\367 \311\336!\203\364 \310u\210\202\367 \334c\210/\203\314\337\340\310/\"\320#\202 \320\3410,\205\342,\343Q\344 \205 \345 P\334\260c\210*\204.\334c\210\346u\210\307\313!\210,\203:\347 \210`\202@). \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 mapconcat identity butlast org-babel-lob-get-info "" 4 org-babel-get-src-block-info light org-babel-where-is-src-block-head nil org-babel-find-named-result match-string 3 org-babel-result-end re-search-forward "^[ ]*#\\+end_src" "\n" "[^ \f \n ]" "[\n ]" #[(el) "\300\207" [#1=" "] 1 #1#] org-number-sequence "#+" "[" "]" ":" " " -1 org-babel-hide-hash head found beg end hash org-babel-result-regexp insert indent org-babel-results-keyword] 8 (#$ . 57367)]) #@45 Read the result at `point' into emacs-lisp. (defalias 'org-babel-read-result #[nil "\305\306\307 \203 \310 \202\\ \311 \203 \312 \202\\ \313\n!\203# \314 \202\\ \313 !\2031 \315\316\317!!\202\\ \313\320!\203O \315\321\322\323`\324 {\325\"\326#!\327!\206\\ \202\\ \313\f!\205\\ \212\330y\210\331 )*\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\"\207\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 (#$ . 59090)]) #@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 (#$ . 59889)]) #@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 (#$ . 60184)]) #@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 (#$ . 60420)]) #@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 (#$ . 61088)]) #@1726 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 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\306\211 E F;\203\333 @\204\333 G\311V\203\333 \336\306O\331\230\204\333 \336\306O\337\230\204\333 \331PC\204\353 @\206\346 `E\202$Cb\210\212\340\341\306\334#\210iSB)\342y\210`E\343\f\235\203`\344 |\210\202$\345\f\235\203 \344 b\210\346 E\202$\347\f\235\210D\2030\332DP\2021\350D\351\352 G H\203\313\353\f\235\203_\354\355\356\357\360<\203Q\202SC\"B\361\"!\331\261\210\202\313G!\203\232Eb\210\362@\363=\204@<\203\203@A<\203\203\202\205C\364\"\331Pc\210Eb\210\365 \203\313\366 \210\202\313<\203\257G!\204\257\320\367\"c\210\202\313\313\f\235\203\304@\203\276@b\210c\210\202\313Eb\210c\210G!\203\326\370 b\210\346 F\315\371\317 8\"\203 \315\371\317 8\"A\206\356\372 IH\373IP\374IP\"\210)\202\253\375\f\235\203H\376\377\"\210\202\253\201K \f\235\203$H\201L \201M \"\210\202\253\201N \f\235\2039H\201O \201P \"\210\202\253\201Q \f\235\203ZH\320\201R J\206O\201S D#\201P \"\210\202\253\201T \f\235\203sEb\210\365 \203\253\201U \210\202\253\201V \f\235\204\203\201W \f\235\203\220H\201X \201Y \"\210\202\253G!\204\253\313\f\235\204\253\201Z EFD#\210`F*@\204\331B\247\203\331B\203\331B\311V\203\331<\203\316\345\f\235\204\331\201[ EFB#\210.\204\363\201\\ \f\235\203\355\323\201] !\207\323\201^ !\207\323\201_ !\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 -1 " " re-search-forward "#" 1 "replace" org-babel-result-end "append" point-marker "prepend" "" #[(start finish) "b\210 \304Pc\210\nb\210 \304Pc\210\305`\"\210b\210\306 b\210\307 \211\207" [end finish beg start "\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] (:splicep nil :istart "- " :iend "\n") orgtbl-to-orgtbl hline (:fmt (lambda (cell) (format "%s" cell))) org-at-table-p org-table-align "%s\n" org-table-end :wrap "RESULTS" "#+BEGIN_" "#+END_" "html" "#+BEGIN_HTML" "#+END_HTML" inlinep hash indent existing-result results-switches beg end proper-list-p wrap name lang "latex" "#+BEGIN_LaTeX" "#+END_LaTeX" "org" "#+BEGIN_SRC org" "#+END_SRC" "code" "#+BEGIN_SRC %s%s" "none" "raw" org-cycle "drawer" "wrap" ":RESULTS:" ":END:" org-babel-examplize-region indent-rigidly "value" "Code block returned no value." "Code block produced no output." "Code block evaluation complete."] 8 (#$ . 61377)]) #@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 (#$ . 66404) 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 (#$ . 66684)]) #@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 (#$ . 67356)]) #@76 Make true to capitalize begin/end example markers inserted by code blocks. (defvar org-babel-capitalize-examplize-region-markers nil (#$ . 67858)) #@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\313\n {\n |\210\"c)\202\231 \314\n \" \212\f\315U\206\230 \f W\203k \nb\210\f\315 W\205g \316\317!\210\320c\210\317y\210T\211\202N *\202\230 \nb\210\203~ \312\321\322!#\202\201 \323!c\210\324 !\203\217 b\210\202\224 \nZu\210\325!c**\207" [maybe-cap chars-between beg end size org-babel-min-lines-for-block-output #[(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 "=%s=" count-lines 0 beginning-of-line 1 ": " "%s%s\n" "#+begin_example" "#+begin_example\n" markerp "#+end_example\n" n --dotimes-limit-- results-switches] 6 (#$ . 68011) "*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 ((byte-code "\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 (#$ . 68940)]) #@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 \317\320 \"\210\321!\203Y \322\211A@\211 AA)B B\202? \317\323\324\"\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\"\203s A<\203 \211A@)\202& \310\311A\"\205& \312\313\314A\"!\211\203J \315\n\316\317 \"\235\203? \320\321\316\322 \"\"\202@ \nBC\"\211\202q \203l \f 8\203l \f 8\211 A\323\f 8@!\324AQ\241)\fT\202q \325\326A\")\207\306@\327\"\203\233 -./\330A\211 0;\203\220 0\202\224 \3310!)!#\211/\207\306@\332\"\203\335 A\205\217-./\333#/\3341\235\204\321 \3351\235\204\321 \3361\235\204\321 -21\337#1\340@3\"B\2113\207\306@\341\"\203\364 -21\330A!#\2111\207\306@\342\"\203AC\2064\2114\207\306@\343\"\203\"-\3445\330A\206 \345!#\2115\207\306@\346\"\203<-\3476\330A\2066\345!#\2116\207\306@\350\"\203V-\3517\330A\206P\345!#\2117\207\306@\352\"\203jAC\206f8\2118\207\306@\353\"\203\204-\3549\330A\206~\345!#\2119\207\340@3\"B\2113\207" [pair x name vars variable-index #1=#:v 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")) e-merge results-exclusive-groups results r exports exports-exclusive-groups params tangle noweb cache padline shebang comments] 7]] 3] reverse :var #[(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 plists x] 6 (#$ . 69434)]) #@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 (#$ . 72422)) #@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 (#$ . 72747)]) #@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\f \306 \211@ A@\f @\307\310\311 8\"A\312\230 A\313B\314\315\316\260 C\317 D\320 E\321 F\322\211 G H\322\211 I J\322 K\323\324! LrLq\210\325\216\304 M N\326N!ML\210*\327@ M N\326N!ML\210* c\210eb\210`G\330\331 \322\332#\203\240\333 O\334\216\335\336!H*\333 O\337\216\340\341H\"I*\333 O\342\216\343\224\212\344\336!\210`){J*\343\224b\210EG`{!\210\343\225b\210`GErq\210\214~\210\345\346\347I\203\356 \350H!\211 P;\203\345 P\202\352 \351\352P\")\202\221\311\307\353H!Q\"8\206\221\212\354H!\205\355 )\206\221CH\356Q\322 R S\212eb\210T\203t\330S\322\332#\203f\306\357! U\360U!\307\361\311U8\"A\206<\362 VA\203c\363U! WFW@!\362 \362FW\211 XA@)!\260)\202d YVYRBBR,\202 \322\211 Z?\206\202\364\365Z!! [` \\\322 ]\366 ^\367\216Z\203\232\370Z!\210p]eb\210\330_\322\332#\203V\343\224b\210\335\343!\343\224\343\225\335\311!\311\224\311\225\335\371!\371\224\371\225\335\372!\372\224\372\225\335\373!\373\224\373\225 ` a b c d e f g h i j k l\306\357! U\307\374\311U8\"A\206 \372U8H\232\203L\360U!\307\361\311U8\"A\206\362 VA\203>\363U! WFW@!\362 \362FW\211 XA@)!\260)\202? YVYRBBR+)jb\210.\202\240*[\204a\375]!\210\\b\210,)R\205t\345\346RA\237\317#*\206\221\nm\235\203\220\376\377\331H!\201n \201o Q\"\202\221\317\201p \"\362JP#*!\210\202{ EGd{!\210+D.\207" [parent-buffer info lang body org-babel-noweb-wrap-start ob-nww-start org-babel-get-src-block-info 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*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) intern "-mode" comment-region org-babel-trim buffer-string] 3] nil generate-new-buffer #2# ((byte-code "\301!\203\n \302!\210\301\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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) match-string 1 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "(.*)" ((byte-code "\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]" light org-babel-expand-noweb-references :noweb-sep "\n" org-babel-tangle-comment-links get-file-buffer expand-file-name current-window-configuration ((set-window-configuration #4=#:wconfig)) find-file 3 4 5 :noweb-ref kill-buffer error "%s" ob-nww-end comment org-babel-src-name-regexp rx-prefix new-body nb-add c-wrap index source-name evaluate prefix blocks-in-buffer #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 x 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 "could not be resolved (see " "`org-babel-noweb-error-langs')" "[\n ]"] 20 (#$ . 73293)]) #@41 Safely convert tables into elisp lists. (defalias 'org-babel-script-escape #[(str &optional force) "\306\211\211 \204L \f;\203d \fG\307V\203d \f\310\311O\312\230\203( \f\313\306O\314\230\204L \f\310\311O\315\230\203: \f\313\306O\316\230\204L \f\310\311O\317\230\203d \f\313\306O\320\230\203d \321\322\323\324\f \325 \306\")\"\210\326\305\327!\"P!\202e \f \306\330\331\217,\207" [out in-double in-single force str string nil 2 0 1 "[" -1 "]" "{" "}" "(" ")" 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 reverse (org-babel-read escaped) ((error escaped)) escaped] 7 (#$ . 77848)]) #@316 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) ";\203; \302\232\204; \303!\206< \204$ \304\305O\306\235\203$ \307\310!!\207\304\305O\311\230\2031 \310!\207\312\304G\313$\210\207\207" [cell inhibit-lisp-eval "" org-babel-number-p 0 1 ("(" "'" "`" "[") eval read "\"" set-text-properties nil] 5 (#$ . 78982)]) #@49 If STRING represents a number return its value. (defalias 'org-babel-number-p #[(string) "\301\302\"\205 \303\224\303\225OGGU\205 \304!\207" [string string-match "^-?[0-9]*\\.?[0-9]*$" 0 string-to-number] 3 (#$ . 79639)]) #@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) "\304\305 \306\216\307\310!r\nq\210\311\216\312\313\314\217\210+A\204: @:\2035 @A\2041 \211@@)\202; \202; @\202; +\207" [result #1=#:wconfig #2=#:temp-buffer x nil current-window-configuration ((set-window-configuration #1#)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#2# buffer-name kill-buffer] 2)) err (byte-code "\303 \"\210\304!\210\305\306\307 \"\303\207" [file-name separator result org-table-import delete-file mapcar #[(row) "\301\302\"\207" [row mapcar org-babel-string-read] 3] org-table-to-lisp] 3) ((error (message "Error reading results: %s" err)))] 4 (#$ . 79874)]) #@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 (#$ . 80701)]) #@31 Return the reverse of STRING. (defalias 'org-babel-reverse-string #[(string) "\301\300\302\303\304\")!\"\207" [string apply reverse append nil] 6 (#$ . 80934)]) #@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 (#$ . 81105)]) #@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-babel-reverse-string] 5 (#$ . 81471)]) (defvar org-babel-org-babel-call-process-region-original nil) #@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 ((delete-file tmpfile)) apply process-file buffer display args org-babel-call-process-region-original] 9 (#$ . 81845)]) #@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 (#$ . 82433)]) #@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 (#$ . 82648)]) (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) #@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!\306P\202 \307\301!\203 \310 !\203 \206 \n\311 \312\f#)\207" [default-directory org-babel-temporary-directory temporary-file-directory prefix suffix file-remote-p "/tmp" boundp file-exists-p make-temp-file nil] 4 (#$ . 83642)]) #@59 Remove `org-babel-temporary-directory' on Emacs shutdown. (defalias 'org-babel-remove-temporary-directory #[nil "\301\300!\205 \302!\205 \303\304\305\217\207" [org-babel-temporary-directory boundp file-exists-p nil (byte-code "\301\302\303\304\305#\"\210\306!\207" [org-babel-temporary-directory mapc #[(file) "\301!@\302=\203 \303!\207\304!\207" [file file-attributes t delete-directory delete-file] 2] directory-files full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" delete-directory] 6) ((error (byte-code "\301\302\303\300!\203\f \202 \304\"\207" [org-babel-temporary-directory message "Failed to remove temporary Org-babel directory %s" boundp "[directory not defined]"] 4)))] 3 (#$ . 84188)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook kill-emacs-hook org-babel-remove-temporary-directory provide ob] 3)