ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-table.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ob-core)
#@145 Replace newline character with ellipses.
If STRING ends in a newline character, then remove the newline
character and replace it with ellipses.
(defalias 'org-babel-table-truncate-at-newline #[(string) ";\203 \301\302\"\203 \303\211\224O\304\305\"\205 \306P\207\207" [string string-match "[\n
]\\(.\\)?" 0 match-string 1 "..."] 4 (#$ . 430)])
#@1005 Return the results of calling SOURCE-BLOCK with VARIABLES.
Each element of VARIABLES should be a two
element list, whose first element is the name of the variable and
second element is a string of its value. The following call to
`org-sbe' would be equivalent to the following source code block.
(org-sbe \='source-block (n $2) (m 3))
#+begin_src emacs-lisp :var results=source-block(n=val_at_col_2, m=3) :results silent
results
#+end_src
NOTE: by default string variable names are interpreted as
references to source-code blocks, to force interpretation of a
cell's value as a string, prefix the identifier a "$" (e.g.,
"$$2" instead of "$2" or "$@2$2" instead of "@2$2").
NOTE: it is also possible to pass header arguments to the code
block. In this case a table cell should hold the string value of
the header argument which can then be passed before all variables
as shown in the example below.
| 1 | 2 | :file nothing.png | nothing.png |
#+TBLFM: @1$4=\='(org-sbe test-sbe $3 (x $1) (y $2))
(defalias 'org-sbe '(macro . #[(source-block &rest variables) "@;\203 @\202\f \306@;\203 A\202 \307\310\311\" ;\204* \312 ! \203_ G\313V\203_ \314\315\316\317 \320 \321\322\323\324\302D\325BBB\326BBBBBBBBD! \327\307\330\331\fE\332#)\202` \306 \333
;\203k
\202o \334\335
\"!-\207" [variables header-args quote source-block params result "" nil mapcar #[(var) "@\301\302\303\304A\"\"B\207" [var delq nil mapcar #[(el) "\305=\203\n \306\307\207 \203 \310\311\"\202L ;\203K \306\312\313!\203/ \313\314 G\306 $\210\202F \n\203> \315\314 G\f $\210\202F \313\314 G\306 $\210 *\202L \306\207" [el quote restricted s org-rm-props $ nil t format "\"%s\"" fboundp set-text-properties 0 remove-text-properties] 5]] 6] symbol-name 0 eval org-babel-parse-header-arguments concat ":var results=" "[" "]" "(" mapconcat (lambda (var-spec) (if (> (length (cdr var-spec)) 1) (format "%S='%S" (car var-spec) (mapcar #'read (cdr var-spec))) (format "%S=%s" (car var-spec) (cadr var-spec)))) (", ") (")") org-babel-execute-src-block "emacs-lisp" "results" ((:results . "silent")) org-babel-trim format "%S"] 13 (#$ . 789)]))
(byte-code "\300\301\302\303#\210\304\305!\207" [put org-sbe edebug-form-spec (form form) provide ob-table] 4)
Kontol Shell Bypass