Support variables (fixes #14)
Forward the variables that are set in the org-babel-header. E.g #+begin_src tmux :var name="Ismael" echo hello ${name} #+end_srcpull/17/head
parent
3687ed7b87
commit
155ffea48e
|
@ -92,6 +92,9 @@ Argument PARAMS the org parameters of the code block."
|
||||||
(save-window-excursion
|
(save-window-excursion
|
||||||
(let* ((org-session (cdr (assq :session params)))
|
(let* ((org-session (cdr (assq :session params)))
|
||||||
(org-header-terminal (cdr (assq :terminal params)))
|
(org-header-terminal (cdr (assq :terminal params)))
|
||||||
|
(vars (mapcar
|
||||||
|
(lambda (y) (format "%s=\"%s\"" (cadr y) (cddr y)))
|
||||||
|
(seq-filter (lambda (x) (eq :var (car x))) params)))
|
||||||
(terminal (or org-header-terminal org-babel-tmux-terminal))
|
(terminal (or org-header-terminal org-babel-tmux-terminal))
|
||||||
(socket (cdr (assq :socket params)))
|
(socket (cdr (assq :socket params)))
|
||||||
(socket (when socket (expand-file-name socket)))
|
(socket (when socket (expand-file-name socket)))
|
||||||
|
@ -109,7 +112,7 @@ Argument PARAMS the org parameters of the code block."
|
||||||
;; Disable window renaming from within tmux
|
;; Disable window renaming from within tmux
|
||||||
(ob-tmux--disable-renaming ob-session)
|
(ob-tmux--disable-renaming ob-session)
|
||||||
(ob-tmux--send-body
|
(ob-tmux--send-body
|
||||||
ob-session (org-babel-expand-body:generic body params))
|
ob-session (org-babel-expand-body:generic body params vars))
|
||||||
;; Warn that setting the terminal from the org source block
|
;; Warn that setting the terminal from the org source block
|
||||||
;; header arguments is going to be deprecated.
|
;; header arguments is going to be deprecated.
|
||||||
(message "ob-tmux terminal: %s" org-header-terminal)
|
(message "ob-tmux terminal: %s" org-header-terminal)
|
||||||
|
|
Loading…
Reference in New Issue