Merge pull request #17 from KaiHa/pr14

Support variables (fixes #14)
master
Allard Hendriksen 2022-10-05 22:25:16 +02:00 committed by GitHub
commit e672ca5a95
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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)