mirrors
/
ob-tmux
mirror of https://github.com/ahendriksen/ob-tmux.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Disable window renaming from within tmux 

Session renaming would frustrate sessions where you would SSH into
some machine and then no be able to use ob-tmux anymore to control the
session.
hello-test
Allard Hendriksen 2018-07-16 10:41:00 +02:00
parent c8ee803a5f
commit 5ccf47725e
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ob-tmux.el
View File

@ -64,6 +64,8 @@ In case you want to use a different tmux than one selected by your $PATH")
;; Prepare session unless both the tmux session and window exist.
(unless (and session-alive window-alive)
(org-babel-prep-session:tmux session params))
;; Disable window renaming from within tmux
(org-babel-tmux-disable-renaming session)
(org-babel-tmux-session-execute-string
session (org-babel-expand-body:generic body params)))))
@ -121,10 +123,34 @@ must be created."
(unless (org-babel-tmux-window-alive-p session)
(start-process "tmux-create-window" "*Messages*"
org-babel-tmux-location "new-window"
"-c" (expand-file-name "~/") ;; start in home directory
"-c" (expand-file-name "~") ;; start in home directory
"-n" (org-babel-tmux-window-default session)
"-t" (org-babel-tmux-session session))))
(defun org-babel-tmux-set-window-option (session option value)
"If SESSION exists, set option for window."
(let ((alive (org-babel-tmux-session-alive-p session)))
(when alive
(start-process "tmux-window-options"
"*Messages*"
"tmux"
"set-window-option"
"-t"
(concat (org-babel-tmux-session session)
":"
(org-babel-tmux-window-default session))
option
value))))
(defun org-babel-tmux-disable-renaming (session)
"Disable renaming features for tmux window.
Disabling renaming improves the chances that ob-tmux will be able
to find the window again later."
(progn
(org-babel-tmux-set-window-option session "allow-rename" "off")
(org-babel-tmux-set-window-option session "automatic-rename" "off")))
(defun org-babel-tmux-send-keys (session line)
"If SESSION exists, send a line of text to it."
(let ((alive (org-babel-tmux-session-alive-p session)))