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

Move internal functions 

To get rid of compiler warnings.
hello-test 0.1.4
Allard Hendriksen 2018-07-17 10:59:26 +02:00
parent fb4333a59e
commit eab05445f2
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ob-tmux.el
View File

@ -104,16 +104,19 @@ Argument PARAMS the org parameters of the code block."
window
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)
"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)."
(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
:session (ob-tmux--tmux-session org-session)