org-babel-comint.el 2.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576
  1. ;;; org-babel-comint.el --- org-babel functions for interaction with comint buffers
  2. ;; Copyright (C) 2009 Eric Schulte
  3. ;; Author: Eric Schulte
  4. ;; Keywords: literate programming, reproducible research, comint
  5. ;; Homepage: http://orgmode.org
  6. ;; Version: 0.01
  7. ;;; License:
  8. ;; This program is free software; you can redistribute it and/or modify
  9. ;; it under the terms of the GNU General Public License as published by
  10. ;; the Free Software Foundation; either version 3, or (at your option)
  11. ;; any later version.
  12. ;;
  13. ;; This program is distributed in the hope that it will be useful,
  14. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  16. ;; GNU General Public License for more details.
  17. ;;
  18. ;; You should have received a copy of the GNU General Public License
  19. ;; along with GNU Emacs; see the file COPYING. If not, write to the
  20. ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  21. ;; Boston, MA 02110-1301, USA.
  22. ;;; Commentary:
  23. ;; These functions build on comint to ease the sending and receiving
  24. ;; of commands and results from comint buffers.
  25. ;;
  26. ;; Note that the buffers in this file are analogous to sessions in
  27. ;; org-babel at large.
  28. ;;; Code:
  29. (require 'org-babel)
  30. (require 'comint)
  31. (defun org-babel-comint-buffer-livep (buffer)
  32. (and (buffer-live-p buffer) (get-buffer buffer) (get-buffer-process buffer)))
  33. (defmacro org-babel-comint-in-buffer (buffer &rest body)
  34. "Check BUFFER with `org-babel-comint-buffer-livep' then execute
  35. body inside the protection of `save-window-excursion' and
  36. `save-match-data'."
  37. (declare (indent 1))
  38. `(save-window-excursion
  39. (save-match-data
  40. (unless (org-babel-comint-buffer-livep buffer)
  41. (error (format "buffer %s doesn't exist or has no process" buffer)))
  42. (set-buffer buffer)
  43. ,@body)))
  44. (defun org-babel-comint-input-command (buffer cmd)
  45. "Pass CMD to BUFFER The input will not be echoed."
  46. (org-babel-comint-in-buffer buffer
  47. (goto-char (process-mark (get-buffer-process buffer)))
  48. (insert cmd)
  49. (comint-send-input)
  50. (org-babel-comint-wait-for-output buffer)))
  51. (defun org-babel-comint-wait-for-output (buffer)
  52. "Wait until output arrives. Note: this is only safe when
  53. waiting for the result of a single statement (not large blocks of
  54. code)."
  55. (org-babel-comint-in-buffer buffer
  56. (while (progn
  57. (goto-char comint-last-input-end)
  58. (not (and (re-search-forward comint-prompt-regexp nil t)
  59. (goto-char (match-beginning 0))
  60. (string= (face-name (face-at-point))
  61. "comint-highlight-prompt"))))
  62. (accept-process-output (get-buffer-process buffer)))))
  63. (provide 'org-babel-comint)
  64. ;;; org-babel-comint.el ends here