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_src
pull/17/head
Kai Harries 2022-09-28 22:18:57 +02:00
parent 3687ed7b87
commit 155ffea48e
1 changed files with 4 additions and 1 deletions

View File

@ -92,6 +92,9 @@ Argument PARAMS the org parameters of the code block."
(save-window-excursion
(let* ((org-session (cdr (assq :session 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))
(socket (cdr (assq :socket params)))
(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
(ob-tmux--disable-renaming ob-session)
(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
;; header arguments is going to be deprecated.
(message "ob-tmux terminal: %s" org-header-terminal)