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

Implement org-babel-tmux-test 

Tests the tmux functionality. Also solves some problems in the
original implementation where the temp file would be read directly
after creation, i.e. before the random string could be written to the
file.
hello-test
Allard Hendriksen 2018-01-05 15:01:27 +01:00
parent f7fd2b2301
commit d5deb53751
1 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ob-tmux.el
View File

@ -119,27 +119,30 @@ In case you want to use a different tmux than one selected by your $PATH")
sockets)))))
(when match-socket (car (split-string match-socket ":")))))
;; (defun org-babel-screen-test ()
;; "Test if the default setup works.
;; The terminal should shortly flicker."
;; (interactive)
;; (let* ((random-string (format "%s" (random 99999)))
;; (tmpfile (org-babel-temp-file "ob-screen-test-"))
;; (body (concat "echo '" random-string "' > " tmpfile "\nexit\n"))
;; tmp-string)
;; (org-babel-execute:screen body org-babel-default-header-args:screen)
;; ;; XXX: need to find a better way to do the following
;; (while (not (file-readable-p tmpfile))
;; ;; do something, otherwise this will be optimized away
;; (format "org-babel-screen: File not readable yet."))
;; (setq tmp-string (with-temp-buffer
;; (insert-file-contents-literally tmpfile)
;; (buffer-substring (point-min) (point-max))))
;; (delete-file tmpfile)
;; (message (concat "org-babel-screen: Setup "
;; (if (string-match random-string tmp-string)
;; "WORKS."
;; "DOESN'T work.")))))
(defun org-babel-tmux-open-file (path)
(with-temp-buffer
(insert-file-contents-literally path)
(buffer-substring (point-min) (point-max))))
(defun org-babel-tmux-test ()
"Test if the default setup works. The terminal should shortly flicker."
(interactive)
(let* ((random-string (format "%s" (random 99999)))
(tmpfile (org-babel-temp-file "ob-screen-test-"))
(body (concat "echo '" random-string "' > " tmpfile " ; exit"))
tmp-string)
(org-babel-execute:tmux body org-babel-default-header-args:tmux)
;; XXX: need to find a better way to do the following
(while (or (not (file-readable-p tmpfile))
(= 0 (length (org-babel-tmux-open-file tmpfile))))
;; do something, otherwise this will be optimized away
(format "org-babel-screen: File not readable yet."))
(setq tmp-string (org-babel-tmux-open-file tmpfile))
(delete-file tmpfile)
(message (concat "org-babel-screen: Setup "
(if (string-match random-string tmp-string)
"WORKS."
"DOESN'T work.")))))
(provide 'ob-tmux)