From eab05445f2b63afb33d24f6d919a9ec50acebe02 Mon Sep 17 00:00:00 2001 From: Allard Hendriksen Date: Tue, 17 Jul 2018 10:59:26 +0200 Subject: [PATCH] Move internal functions To get rid of compiler warnings. --- ob-tmux.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/ob-tmux.el b/ob-tmux.el index dfaebe7..f6d897e 100644 --- a/ob-tmux.el +++ b/ob-tmux.el @@ -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)