parent
fb4333a59e
commit
eab05445f2
17
ob-tmux.el
17
ob-tmux.el
|
@ -104,16 +104,19 @@ Argument PARAMS the org parameters of the code block."
|
||||||
window
|
window
|
||||||
socket)
|
socket)
|
||||||
|
|
||||||
|
(defun ob-tmux--tmux-session (org-session)
|
||||||
|
"Extract tmux session from ORG-SESSION string."
|
||||||
|
(let* ((session (car (split-string org-session ":"))))
|
||||||
|
(concat org-babel-tmux-session-prefix
|
||||||
|
(if (string-equal "" session) "default" session))))
|
||||||
|
(defun ob-tmux--tmux-window (org-session)
|
||||||
|
"Extract tmux window from ORG-SESSION string."
|
||||||
|
(let* ((window (cadr (split-string org-session ":"))))
|
||||||
|
(if (string-equal "" window) nil window)))
|
||||||
|
|
||||||
(defun ob-tmux--from-org-session (org-session &optional socket)
|
(defun ob-tmux--from-org-session (org-session &optional socket)
|
||||||
"Create a new ob-tmux-session object from ORG-SESSION specification.
|
"Create a new ob-tmux-session object from ORG-SESSION specification.
|
||||||
Optional argument SOCKET: the location of the tmux socket (only use if non-standard)."
|
Optional argument SOCKET: the location of the tmux socket (only use if non-standard)."
|
||||||
(defun ob-tmux--tmux-session (org-session)
|
|
||||||
(let* ((session (car (split-string org-session ":"))))
|
|
||||||
(concat org-babel-tmux-session-prefix
|
|
||||||
(if (string-equal "" session) "default" session))))
|
|
||||||
(defun ob-tmux--tmux-window (org-session)
|
|
||||||
(let* ((window (cadr (split-string org-session ":"))))
|
|
||||||
(if (string-equal "" window) nil window)))
|
|
||||||
|
|
||||||
(ob-tmux--create
|
(ob-tmux--create
|
||||||
:session (ob-tmux--tmux-session org-session)
|
:session (ob-tmux--tmux-session org-session)
|
||||||
|
|
Loading…
Reference in New Issue