hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 09:31:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Option to specify command for ein:connect-run-buffer

Browse source
This commit is contained in:
Takafumi Arakaki 2012-06-09 22:32:46 +02:00
parent b2c7de8782
commit 238f35f986
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
ein-connect.el
View file

@ -60,9 +60,9 @@ of OPTION:
;;; Variable/class
(defcustom ein:connect-run-options "-n"
"Default %run option for `ein:connect-run-buffer'."
:type '(string :tag "Option" "-n -i -t -d")
(defcustom ein:connect-run-command "%run -n"
"%run command used for `ein:connect-run-buffer'."
:type '(string :tag "Command" "%run -n -i -t -d")
:group 'ein)
(defcustom ein:connect-save-before-run 'yes
@ -116,18 +116,18 @@ of OPTION:
(ein:connect-eval-string-internal (buffer-string))
(ein:log 'info "Whole buffer is sent to the kernel."))
(defun ein:connect-run-buffer (&optional ask-option)
(defun ein:connect-run-buffer (&optional ask-command)
"Run buffer using %run. Ask for option if the prefix (C-u) is given.
Variable `ein:connect-run-options' sets the default option."
(interactive "P")
;; FIXME: this should be more intelligent than just `buffer-file-name'
;; to support connecting IPython over ssh.
(ein:aif (buffer-file-name)
(let* ((option (if ask-option
(read-from-minibuffer "Option for %run: "
ein:connect-run-options)
ein:connect-run-options))
(cmd (format "%%run %s %s" option it)))
(let* ((command (if ask-command
(read-from-minibuffer "Command: "
ein:connect-run-command)
ein:connect-run-command))
(cmd (format "%s %s" command it)))
(if (ein:maybe-save-buffer ein:connect-save-before-run)
(progn
(ein:connect-eval-string-internal cmd)