mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-12-24 10:38:41 +00:00
babel: small change in API.
* lisp/ob-core.el (org-babel--get-vars): New function. (org-babel-get-header): Delete. * lisp/ob-C.el (org-babel-C-expand-C): (org-babel-C-expand-D): * lisp/ob-R.el (org-babel-variable-assignments:R): * lisp/ob-abc.el (org-babel-expand-body:abc): * lisp/ob-asymptote.el (org-babel-variable-assignments:asymptote): * lisp/ob-awk.el (org-babel-execute:awk): * lisp/ob-calc.el (org-babel-execute:calc): * lisp/ob-clojure.el (org-babel-expand-body:clojure): * lisp/ob-dot.el (org-babel-expand-body:dot): * lisp/ob-emacs-lisp.el (org-babel-expand-body:emacs-lisp): * lisp/ob-fortran.el (org-babel-expand-body:fortran): (org-babel-fortran-ensure-main-wrap): * lisp/ob-gnuplot.el (org-babel-gnuplot-process-vars): * lisp/ob-haskell.el (org-babel-variable-assignments:haskell): * lisp/ob-js.el (org-babel-variable-assignments:js): * lisp/ob-latex.el (org-babel-expand-body:latex): * lisp/ob-lilypond.el (org-babel-expand-body:lilypond): * lisp/ob-lisp.el (org-babel-expand-body:lisp): * lisp/ob-maxima.el (org-babel-maxima-expand): * lisp/ob-ocaml.el (org-babel-variable-assignments:ocaml): * lisp/ob-octave.el (org-babel-variable-assignments:octave): * lisp/ob-org.el (org-babel-expand-body:org): * lisp/ob-perl.el (org-babel-variable-assignments:perl): * lisp/ob-picolisp.el (org-babel-expand-body:picolisp): * lisp/ob-processing.el (org-babel-variable-assignments:processing): * lisp/ob-python.el (org-babel-variable-assignments:python): * lisp/ob-ruby.el (org-babel-variable-assignments:ruby): * lisp/ob-scheme.el (org-babel-expand-body:scheme): * lisp/ob-shell.el (org-babel-variable-assignments:shell): * lisp/ob-shen.el (org-babel-expand-body:shen): * lisp/ob-sql.el (org-babel-expand-body:sql): * lisp/ob-sqlite.el (org-babel-expand-body:sqlite): Adapt to change. * etc/ORG-NEWS: Document change.
This commit is contained in:
parent
a42b4609c2
commit
0d000f5680
@ -54,6 +54,8 @@ for upcoming anniversaries (default: 7 days).
|
|||||||
Use ~org-agenda-today-p~ instead.
|
Use ~org-agenda-today-p~ instead.
|
||||||
*** ~org-element-remove-indentation~ is deprecated.
|
*** ~org-element-remove-indentation~ is deprecated.
|
||||||
Use ~org-remove-indentation~ instead.
|
Use ~org-remove-indentation~ instead.
|
||||||
|
*** ~org-babel-get-header~ is removed.
|
||||||
|
Use ~org-babel--get-vars~ or ~assq~ instead.
|
||||||
** Removed options
|
** Removed options
|
||||||
*** Remove ~org-list-empty-line-terminates-plain-lists~
|
*** Remove ~org-list-empty-line-terminates-plain-lists~
|
||||||
Two consecutive blank lines always terminate all levels of current
|
Two consecutive blank lines always terminate all levels of current
|
||||||
|
@ -181,8 +181,8 @@ it's header arguments."
|
|||||||
(defun org-babel-C-expand-C (body params)
|
(defun org-babel-C-expand-C (body params)
|
||||||
"Expand a block of C or C++ code with org-babel according to
|
"Expand a block of C or C++ code with org-babel according to
|
||||||
it's header arguments."
|
it's header arguments."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
(let ((vars (org-babel--get-vars params))
|
||||||
(colnames (cdar (org-babel-get-header params :colname-names)))
|
(colnames (cdr (assq :colname-names params)))
|
||||||
(main-p (not (string= (cdr (assoc :main params)) "no")))
|
(main-p (not (string= (cdr (assoc :main params)) "no")))
|
||||||
(includes (org-babel-read
|
(includes (org-babel-read
|
||||||
(or (cdr (assoc :includes params))
|
(or (cdr (assoc :includes params))
|
||||||
@ -230,8 +230,8 @@ it's header arguments."
|
|||||||
(defun org-babel-C-expand-D (body params)
|
(defun org-babel-C-expand-D (body params)
|
||||||
"Expand a block of D code with org-babel according to
|
"Expand a block of D code with org-babel according to
|
||||||
it's header arguments."
|
it's header arguments."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
(let ((vars (org-babel--get-vars params))
|
||||||
(colnames (cdar (org-babel-get-header params :colname-names)))
|
(colnames (cdr (assq :colname-names params)))
|
||||||
(main-p (not (string= (cdr (assoc :main params)) "no")))
|
(main-p (not (string= (cdr (assoc :main params)) "no")))
|
||||||
(imports (or (cdr (assoc :imports params))
|
(imports (or (cdr (assoc :imports params))
|
||||||
(org-babel-read (org-entry-get nil "imports" t)))))
|
(org-babel-read (org-entry-get nil "imports" t)))))
|
||||||
|
@ -209,7 +209,7 @@ This function is called by `org-babel-execute-src-block'."
|
|||||||
|
|
||||||
(defun org-babel-variable-assignments:R (params)
|
(defun org-babel-variable-assignments:R (params)
|
||||||
"Return list of R statements assigning the block's variables."
|
"Return list of R statements assigning the block's variables."
|
||||||
(let ((vars (mapcar 'cdr (org-babel-get-header params :var))))
|
(let ((vars (org-babel--get-vars params)))
|
||||||
(mapcar
|
(mapcar
|
||||||
(lambda (pair)
|
(lambda (pair)
|
||||||
(org-babel-R-assign-elisp
|
(org-babel-R-assign-elisp
|
||||||
|
@ -42,7 +42,7 @@
|
|||||||
|
|
||||||
(defun org-babel-expand-body:abc (body params)
|
(defun org-babel-expand-body:abc (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
|
(let ((vars (org-babel--get-vars params)))
|
||||||
(mapc
|
(mapc
|
||||||
(lambda (pair)
|
(lambda (pair)
|
||||||
(let ((name (symbol-name (car pair)))
|
(let ((name (symbol-name (car pair)))
|
||||||
|
@ -86,7 +86,7 @@ Asymptote does not support sessions"
|
|||||||
(defun org-babel-variable-assignments:asymptote (params)
|
(defun org-babel-variable-assignments:asymptote (params)
|
||||||
"Return list of asymptote statements assigning the block's variables."
|
"Return list of asymptote statements assigning the block's variables."
|
||||||
(mapcar #'org-babel-asymptote-var-to-asymptote
|
(mapcar #'org-babel-asymptote-var-to-asymptote
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
(defun org-babel-asymptote-var-to-asymptote (pair)
|
(defun org-babel-asymptote-var-to-asymptote (pair)
|
||||||
"Convert an elisp value into an Asymptote variable.
|
"Convert an elisp value into an Asymptote variable.
|
||||||
|
@ -74,7 +74,7 @@ called by `org-babel-execute-src-block'"
|
|||||||
(cadr pair)
|
(cadr pair)
|
||||||
(org-babel-awk-var-to-awk
|
(org-babel-awk-var-to-awk
|
||||||
(cddr pair))))
|
(cddr pair))))
|
||||||
(org-babel-get-header params :var))
|
(org-babel--get-vars params))
|
||||||
(list in-file))
|
(list in-file))
|
||||||
" ")))
|
" ")))
|
||||||
(org-babel-reassemble-table
|
(org-babel-reassemble-table
|
||||||
|
@ -48,7 +48,7 @@
|
|||||||
"Execute a block of calc code with Babel."
|
"Execute a block of calc code with Babel."
|
||||||
(unless (get-buffer "*Calculator*")
|
(unless (get-buffer "*Calculator*")
|
||||||
(save-window-excursion (calc) (calc-quit)))
|
(save-window-excursion (calc) (calc-quit)))
|
||||||
(let* ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
(let* ((vars (org-babel--get-vars params))
|
||||||
(org--var-syms (mapcar #'car vars))
|
(org--var-syms (mapcar #'car vars))
|
||||||
(var-names (mapcar #'symbol-name org--var-syms)))
|
(var-names (mapcar #'symbol-name org--var-syms)))
|
||||||
(mapc
|
(mapc
|
||||||
|
@ -67,7 +67,7 @@
|
|||||||
|
|
||||||
(defun org-babel-expand-body:clojure (body params)
|
(defun org-babel-expand-body:clojure (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let* ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
(let* ((vars (org-babel--get-vars params))
|
||||||
(result-params (cdr (assoc :result-params params)))
|
(result-params (cdr (assoc :result-params params)))
|
||||||
(print-level nil) (print-length nil)
|
(print-level nil) (print-length nil)
|
||||||
(body (org-babel-trim
|
(body (org-babel-trim
|
||||||
|
@ -212,14 +212,14 @@ This string must include a \"%s\" which will be replaced by the results."
|
|||||||
"{\\([^\f\n\r\v]+?\\)}\\)")
|
"{\\([^\f\n\r\v]+?\\)}\\)")
|
||||||
"Regexp used to identify inline src-blocks.")
|
"Regexp used to identify inline src-blocks.")
|
||||||
|
|
||||||
(defun org-babel-get-header (params key &optional others)
|
(defun org-babel--get-vars (params)
|
||||||
"Select only header argument of type KEY from a list.
|
"Return the babel variable assignments in PARAMS.
|
||||||
Optional argument OTHERS indicates that only the header that do
|
|
||||||
not match KEY should be returned."
|
PARAMS is a quasi-alist of header args, whcih may contain
|
||||||
(delq nil
|
multiple entries for the key `:var'. This function returns a
|
||||||
(mapcar
|
list of the cdr of all the `:var' entries."
|
||||||
(lambda (p) (when (funcall (if others #'not #'identity) (eq (car p) key)) p))
|
(mapcar #'cdr
|
||||||
params)))
|
(org-remove-if (lambda (x) (not (eq (car x) :var))) params)))
|
||||||
|
|
||||||
(defun org-babel-get-inline-src-block-matches ()
|
(defun org-babel-get-inline-src-block-matches ()
|
||||||
"Set match data if within body of an inline source block.
|
"Set match data if within body of an inline source block.
|
||||||
@ -1571,7 +1571,7 @@ shown below.
|
|||||||
(if (consp (cdr el))
|
(if (consp (cdr el))
|
||||||
(cdr el)
|
(cdr el)
|
||||||
(org-babel-ref-parse (cdr el))))
|
(org-babel-ref-parse (cdr el))))
|
||||||
(org-babel-get-header params :var)))
|
(org-babel--get-vars params)))
|
||||||
(vars-and-names (if (and (assoc :colname-names params)
|
(vars-and-names (if (and (assoc :colname-names params)
|
||||||
(assoc :rowname-names params))
|
(assoc :rowname-names params))
|
||||||
(list processed-vars)
|
(list processed-vars)
|
||||||
|
@ -46,7 +46,7 @@
|
|||||||
|
|
||||||
(defun org-babel-expand-body:dot (body params)
|
(defun org-babel-expand-body:dot (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
|
(let ((vars (org-babel--get-vars params)))
|
||||||
(mapc
|
(mapc
|
||||||
(lambda (pair)
|
(lambda (pair)
|
||||||
(let ((name (symbol-name (car pair)))
|
(let ((name (symbol-name (car pair)))
|
||||||
|
@ -33,7 +33,7 @@
|
|||||||
|
|
||||||
(defun org-babel-expand-body:emacs-lisp (body params)
|
(defun org-babel-expand-body:emacs-lisp (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let* ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
(let* ((vars (org-babel--get-vars params))
|
||||||
(result-params (cdr (assoc :result-params params)))
|
(result-params (cdr (assoc :result-params params)))
|
||||||
(print-level nil) (print-length nil)
|
(print-level nil) (print-length nil)
|
||||||
(body (if (> (length vars) 0)
|
(body (if (> (length vars) 0)
|
||||||
|
@ -78,7 +78,7 @@
|
|||||||
(defun org-babel-expand-body:fortran (body params)
|
(defun org-babel-expand-body:fortran (body params)
|
||||||
"Expand a block of fortran or fortran code with org-babel according to
|
"Expand a block of fortran or fortran code with org-babel according to
|
||||||
it's header arguments."
|
it's header arguments."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
(let ((vars (org-babel--get-vars params))
|
||||||
(main-p (not (string= (cdr (assoc :main params)) "no")))
|
(main-p (not (string= (cdr (assoc :main params)) "no")))
|
||||||
(includes (or (cdr (assoc :includes params))
|
(includes (or (cdr (assoc :includes params))
|
||||||
(org-babel-read (org-entry-get nil "includes" t))))
|
(org-babel-read (org-entry-get nil "includes" t))))
|
||||||
@ -107,7 +107,7 @@ it's header arguments."
|
|||||||
(defun org-babel-fortran-ensure-main-wrap (body params)
|
(defun org-babel-fortran-ensure-main-wrap (body params)
|
||||||
"Wrap body in a \"program ... end program\" block if none exists."
|
"Wrap body in a \"program ... end program\" block if none exists."
|
||||||
(if (string-match "^[ \t]*program[ \t]*.*" (capitalize body))
|
(if (string-match "^[ \t]*program[ \t]*.*" (capitalize body))
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
|
(let ((vars (org-babel--get-vars params)))
|
||||||
(if vars (error "Cannot use :vars if `program' statement is present"))
|
(if vars (error "Cannot use :vars if `program' statement is present"))
|
||||||
body)
|
body)
|
||||||
(format "program main\n%s\nend program main\n" body)))
|
(format "program main\n%s\nend program main\n" body)))
|
||||||
|
@ -94,7 +94,7 @@ code."
|
|||||||
(if tablep val (mapcar 'list val)))
|
(if tablep val (mapcar 'list val)))
|
||||||
(org-babel-temp-file "gnuplot-") params)
|
(org-babel-temp-file "gnuplot-") params)
|
||||||
val))))
|
val))))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var)))))
|
(org-babel--get-vars params))))
|
||||||
|
|
||||||
(defun org-babel-expand-body:gnuplot (body params)
|
(defun org-babel-expand-body:gnuplot (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
|
@ -130,7 +130,7 @@ then create one. Return the initialized session."
|
|||||||
(format "let %s = %s"
|
(format "let %s = %s"
|
||||||
(car pair)
|
(car pair)
|
||||||
(org-babel-haskell-var-to-haskell (cdr pair))))
|
(org-babel-haskell-var-to-haskell (cdr pair))))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
(defun org-babel-haskell-var-to-haskell (var)
|
(defun org-babel-haskell-var-to-haskell (var)
|
||||||
"Convert an elisp value VAR into a haskell variable.
|
"Convert an elisp value VAR into a haskell variable.
|
||||||
|
@ -134,7 +134,7 @@ specifying a variable of the same value."
|
|||||||
(mapcar
|
(mapcar
|
||||||
(lambda (pair) (format "var %s=%s;"
|
(lambda (pair) (format "var %s=%s;"
|
||||||
(car pair) (org-babel-js-var-to-js (cdr pair))))
|
(car pair) (org-babel-js-var-to-js (cdr pair))))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
(defun org-babel-js-initiate-session (&optional session)
|
(defun org-babel-js-initiate-session (&optional session)
|
||||||
"If there is not a current inferior-process-buffer in SESSION
|
"If there is not a current inferior-process-buffer in SESSION
|
||||||
|
@ -80,7 +80,7 @@
|
|||||||
(regexp-quote (format "%S" (car pair)))
|
(regexp-quote (format "%S" (car pair)))
|
||||||
(if (stringp (cdr pair))
|
(if (stringp (cdr pair))
|
||||||
(cdr pair) (format "%S" (cdr pair)))
|
(cdr pair) (format "%S" (cdr pair)))
|
||||||
body))) (mapcar #'cdr (org-babel-get-header params :var)))
|
body))) (org-babel--get-vars params))
|
||||||
(org-babel-trim body))
|
(org-babel-trim body))
|
||||||
|
|
||||||
(defun org-babel-execute:latex (body params)
|
(defun org-babel-execute:latex (body params)
|
||||||
|
@ -123,7 +123,7 @@ blocks.")
|
|||||||
|
|
||||||
(defun org-babel-expand-body:lilypond (body params)
|
(defun org-babel-expand-body:lilypond (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
|
(let ((vars (org-babel--get-vars params)))
|
||||||
(mapc
|
(mapc
|
||||||
(lambda (pair)
|
(lambda (pair)
|
||||||
(let ((name (symbol-name (car pair)))
|
(let ((name (symbol-name (car pair)))
|
||||||
|
@ -54,7 +54,7 @@ current directory string."
|
|||||||
|
|
||||||
(defun org-babel-expand-body:lisp (body params)
|
(defun org-babel-expand-body:lisp (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let* ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
(let* ((vars (org-babel--get-vars params))
|
||||||
(result-params (cdr (assoc :result-params params)))
|
(result-params (cdr (assoc :result-params params)))
|
||||||
(print-level nil) (print-length nil)
|
(print-level nil) (print-length nil)
|
||||||
(body (org-babel-trim
|
(body (org-babel-trim
|
||||||
|
@ -48,7 +48,7 @@
|
|||||||
|
|
||||||
(defun org-babel-maxima-expand (body params)
|
(defun org-babel-maxima-expand (body params)
|
||||||
"Expand a block of Maxima code according to its header arguments."
|
"Expand a block of Maxima code according to its header arguments."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
|
(let ((vars (org-babel--get-vars params)))
|
||||||
(mapconcat 'identity
|
(mapconcat 'identity
|
||||||
(list
|
(list
|
||||||
;; graphic output
|
;; graphic output
|
||||||
|
@ -121,7 +121,7 @@
|
|||||||
(mapcar
|
(mapcar
|
||||||
(lambda (pair) (format "let %s = %s;;" (car pair)
|
(lambda (pair) (format "let %s = %s;;" (car pair)
|
||||||
(org-babel-ocaml-elisp-to-ocaml (cdr pair))))
|
(org-babel-ocaml-elisp-to-ocaml (cdr pair))))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
(defun org-babel-ocaml-elisp-to-ocaml (val)
|
(defun org-babel-ocaml-elisp-to-ocaml (val)
|
||||||
"Return a string of ocaml code which evaluates to VAL."
|
"Return a string of ocaml code which evaluates to VAL."
|
||||||
|
@ -111,7 +111,7 @@ end")
|
|||||||
(format "%s=%s;"
|
(format "%s=%s;"
|
||||||
(car pair)
|
(car pair)
|
||||||
(org-babel-octave-var-to-octave (cdr pair))))
|
(org-babel-octave-var-to-octave (cdr pair))))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
(defalias 'org-babel-variable-assignments:matlab
|
(defalias 'org-babel-variable-assignments:matlab
|
||||||
'org-babel-variable-assignments:octave)
|
'org-babel-variable-assignments:octave)
|
||||||
|
@ -41,7 +41,7 @@
|
|||||||
"Default header inserted during export of org blocks.")
|
"Default header inserted during export of org blocks.")
|
||||||
|
|
||||||
(defun org-babel-expand-body:org (body params)
|
(defun org-babel-expand-body:org (body params)
|
||||||
(dolist (var (mapcar #'cdr (org-babel-get-header params :var)))
|
(dolist (var (org-babel--get-vars params))
|
||||||
(setq body (replace-regexp-in-string
|
(setq body (replace-regexp-in-string
|
||||||
(regexp-quote (format "$%s" (car var)))
|
(regexp-quote (format "$%s" (car var)))
|
||||||
(format "%s" (cdr var))
|
(format "%s" (cdr var))
|
||||||
|
@ -63,7 +63,7 @@ This function is called by `org-babel-execute-src-block'."
|
|||||||
(mapcar
|
(mapcar
|
||||||
(lambda (pair)
|
(lambda (pair)
|
||||||
(org-babel-perl--var-to-perl (cdr pair) (car pair)))
|
(org-babel-perl--var-to-perl (cdr pair) (car pair)))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
;; helper functions
|
;; helper functions
|
||||||
|
|
||||||
|
@ -80,7 +80,7 @@
|
|||||||
|
|
||||||
(defun org-babel-expand-body:picolisp (body params)
|
(defun org-babel-expand-body:picolisp (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var)))
|
(let ((vars (org-babel--get-vars params))
|
||||||
(print-level nil)
|
(print-level nil)
|
||||||
(print-length nil))
|
(print-length nil))
|
||||||
(if (> (length vars) 0)
|
(if (> (length vars) 0)
|
||||||
|
@ -142,7 +142,7 @@ Processing does not support sessions"
|
|||||||
(defun org-babel-variable-assignments:processing (params)
|
(defun org-babel-variable-assignments:processing (params)
|
||||||
"Return list of processing statements assigning the block's variables."
|
"Return list of processing statements assigning the block's variables."
|
||||||
(mapcar #'org-babel-processing-var-to-processing
|
(mapcar #'org-babel-processing-var-to-processing
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
(defun org-babel-processing-var-to-processing (pair)
|
(defun org-babel-processing-var-to-processing (pair)
|
||||||
"Convert an elisp value into a Processing variable.
|
"Convert an elisp value into a Processing variable.
|
||||||
|
@ -125,7 +125,7 @@ VARS contains resolved variable references"
|
|||||||
(format "%s=%s"
|
(format "%s=%s"
|
||||||
(car pair)
|
(car pair)
|
||||||
(org-babel-python-var-to-python (cdr pair))))
|
(org-babel-python-var-to-python (cdr pair))))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
(defun org-babel-python-var-to-python (var)
|
(defun org-babel-python-var-to-python (var)
|
||||||
"Convert an elisp value to a python variable.
|
"Convert an elisp value to a python variable.
|
||||||
|
@ -121,7 +121,7 @@ This function is called by `org-babel-execute-src-block'."
|
|||||||
(format "%s=%s"
|
(format "%s=%s"
|
||||||
(car pair)
|
(car pair)
|
||||||
(org-babel-ruby-var-to-ruby (cdr pair))))
|
(org-babel-ruby-var-to-ruby (cdr pair))))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var))))
|
(org-babel--get-vars params)))
|
||||||
|
|
||||||
(defun org-babel-ruby-var-to-ruby (var)
|
(defun org-babel-ruby-var-to-ruby (var)
|
||||||
"Convert VAR into a ruby variable.
|
"Convert VAR into a ruby variable.
|
||||||
|
@ -55,7 +55,7 @@
|
|||||||
|
|
||||||
(defun org-babel-expand-body:scheme (body params)
|
(defun org-babel-expand-body:scheme (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
|
(let ((vars (org-babel--get-vars params)))
|
||||||
(if (> (length vars) 0)
|
(if (> (length vars) 0)
|
||||||
(concat "(let ("
|
(concat "(let ("
|
||||||
(mapconcat
|
(mapconcat
|
||||||
|
@ -142,7 +142,7 @@ This function is called by `org-babel-execute-src-block'."
|
|||||||
(car pair) (cdr pair) sep hline)
|
(car pair) (cdr pair) sep hline)
|
||||||
(org-babel-variable-assignments:sh-generic
|
(org-babel-variable-assignments:sh-generic
|
||||||
(car pair) (cdr pair) sep hline)))
|
(car pair) (cdr pair) sep hline)))
|
||||||
(mapcar #'cdr (org-babel-get-header params :var)))))
|
(org-babel--get-vars params))))
|
||||||
|
|
||||||
(defun org-babel-sh-var-to-sh (var &optional sep hline)
|
(defun org-babel-sh-var-to-sh (var &optional sep hline)
|
||||||
"Convert an elisp value to a shell variable.
|
"Convert an elisp value to a shell variable.
|
||||||
|
@ -43,7 +43,7 @@
|
|||||||
|
|
||||||
(defun org-babel-expand-body:shen (body params)
|
(defun org-babel-expand-body:shen (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"Expand BODY according to PARAMS, return the expanded body."
|
||||||
(let ((vars (mapcar #'cdr (org-babel-get-header params :var))))
|
(let ((vars (org-babel--get-vars params)))
|
||||||
(if (> (length vars) 0)
|
(if (> (length vars) 0)
|
||||||
(concat "(let "
|
(concat "(let "
|
||||||
(mapconcat (lambda (var)
|
(mapconcat (lambda (var)
|
||||||
|
@ -78,7 +78,7 @@
|
|||||||
(defun org-babel-expand-body:sql (body params)
|
(defun org-babel-expand-body:sql (body params)
|
||||||
"Expand BODY according to the values of PARAMS."
|
"Expand BODY according to the values of PARAMS."
|
||||||
(org-babel-sql-expand-vars
|
(org-babel-sql-expand-vars
|
||||||
body (mapcar #'cdr (org-babel-get-header params :var))))
|
body (org-babel--get-vars params)))
|
||||||
|
|
||||||
(defun org-babel-sql-dbstring-mysql (host port user password database)
|
(defun org-babel-sql-dbstring-mysql (host port user password database)
|
||||||
"Make MySQL cmd line args for database connection. Pass nil to omit that arg."
|
"Make MySQL cmd line args for database connection. Pass nil to omit that arg."
|
||||||
|
@ -53,7 +53,7 @@
|
|||||||
(defun org-babel-expand-body:sqlite (body params)
|
(defun org-babel-expand-body:sqlite (body params)
|
||||||
"Expand BODY according to the values of PARAMS."
|
"Expand BODY according to the values of PARAMS."
|
||||||
(org-babel-sqlite-expand-vars
|
(org-babel-sqlite-expand-vars
|
||||||
body (mapcar #'cdr (org-babel-get-header params :var))))
|
body (org-babel--get-vars params)))
|
||||||
|
|
||||||
(defvar org-babel-sqlite3-command "sqlite3")
|
(defvar org-babel-sqlite3-command "sqlite3")
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user