From d4752b9ec197d12aef3020ef0434b72ce159f194 Mon Sep 17 00:00:00 2001 From: Allard Hendriksen Date: Thu, 11 Jan 2018 22:19:44 +0100 Subject: [PATCH] Add xterm support --- ob-tmux.el | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/ob-tmux.el b/ob-tmux.el index 4b89d07..1aed3f8 100644 --- a/ob-tmux.el +++ b/ob-tmux.el @@ -71,8 +71,8 @@ must be created." (cmd (cdr (assq :cmd params))) (terminal (cdr (assq :terminal params))) (session-alive (org-babel-tmux-session-alive-p session)) - (window-alive (org-babel-tmux-window-alive-p session)) - (process-name (concat "org-babel: terminal (" session ")"))) + (window-alive (org-babel-tmux-window-alive-p session))) + ;; First create tmux session and windows (unless session-alive (org-babel-tmux-create-session session)) (unless window-alive (org-babel-tmux-create-window session)) @@ -87,6 +87,20 @@ must be created." ;; helper functions +(defun org-babel-tmux-start-terminal-window (session terminal) + "Starts a terminal window with tmux attached to session." + (let* ((process-name (concat "org-babel: terminal (" session ")"))) + (if (string-equal terminal "xterm") + (start-process process-name "*Messages*" + terminal + "-T" (org-babel-tmux-target-session session) + "-e" org-babel-tmux-location "attach-session" + "-t" (org-babel-tmux-target-session session)) + (start-process process-name "*Messages*" + terminal "--" + org-babel-tmux-location "attach-session" + "-t" (org-babel-tmux-target-session session))))) + (defun org-babel-tmux-create-session (session) "Creates a tmux session if it does not yet exist." (unless (org-babel-tmux-session-alive-p session)