Show message when eval-ing code using ein-connect

This commit is contained in:
Takafumi Arakaki 2012-05-24 17:56:01 +02:00
parent 7d01c8dc80
commit fc98886e49

View file

@ -75,10 +75,15 @@
(defun ein:connect-eval-buffer ()
(interactive)
(ein:connect-eval-region (point-min) (point-max)))
(ein:connect-eval-region-internal (point-min) (point-max))
(ein:log 'info "Whole buffer is sent to the kernel."))
(defun ein:connect-eval-region (start end)
(interactive "r")
(ein:connect-eval-region-internal start end)
(ein:log 'info "Selected region is sent to the kernel."))
(defun ein:connect-eval-region-internal (start end)
(let ((cell (ein:shared-output-get-cell))
(kernel (ein:connect-get-kernel))
(code (ein:trim-indent (buffer-substring start end))))