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

Add other-window option to ein:pytools-jump-to-source-command

Browse source
This commit is contained in:
Takafumi Arakaki 2012-06-08 14:26:46 +02:00
parent 7c04c3927f
commit 9ecca23f2e
1 changed files with 31 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
ein-pytools.el
View file

@ -48,7 +48,7 @@
kernel
(format "__import__('sys').path.append('%s')" ein:source-dir)))
(defun ein:pytools-jump-to-source (kernel object)
(defun ein:pytools-jump-to-source (kernel object other-window)
(ein:log 'info "Jumping to the source of %s..." object)
(ein:kernel-execute
kernel
@ -56,37 +56,42 @@
(list
:output
(cons
(lambda (object msg-type content)
(ein:case-equal msg-type
(("stream")
(ein:aif (plist-get content :data)
(if (or (string-match "^WARNING: .*" it)
(string-match
"^Traceback (most recent call last):\n" it)
(string-match "^.*<ipython-input-[^>\n]+>\n" it))
(ein:log 'info
"Jumping to the source of %s...Not found" object)
(let* ((filename-lineno (split-string it "\n"))
(filename (car filename-lineno))
(lineno (string-to-number (cadr filename-lineno))))
(unless (equal filename "")
(find-file-other-window filename)
(goto-char (point-min))
(forward-line (1- lineno))
(lambda (packed msg-type content)
(let ((object (nth 0 packed))
(other-window (nth 1 packed)))
(ein:case-equal msg-type
(("stream")
(ein:aif (plist-get content :data)
(if (or (string-match "^WARNING: .*" it)
(string-match
"^Traceback (most recent call last):\n" it)
(string-match "^.*<ipython-input-[^>\n]+>\n" it))
(ein:log 'info
"Jumping to the source of %s...Done" object))))))
(("pyerr")
(ein:log 'info
"Jumping to the source of %s...Not found" object))))
object))))
"Jumping to the source of %s...Not found" object)
(let* ((filename-lineno (split-string it "\n"))
(filename (car filename-lineno))
(lineno (string-to-number (cadr filename-lineno))))
(unless (equal filename "")
(funcall (if other-window
#'find-file-other-window
#'find-file)
filename)
(goto-char (point-min))
(forward-line (1- lineno))
(ein:log 'info
"Jumping to the source of %s...Done" object))))))
(("pyerr")
(ein:log 'info
"Jumping to the source of %s...Not found" object)))))
(list object other-window)))))
(defun ein:pytools-jump-to-source-command ()
(interactive)
(defun ein:pytools-jump-to-source-command (&optional other-window)
(interactive "P")
(let ((kernel (ein:pytools-get-kernel))
(object (ein:object-at-point)))
(assert (ein:kernel-ready-p kernel) nil "Kernel is not ready.")
(assert object nil "Object at point not found.")
(ein:pytools-jump-to-source kernel object)))
(ein:pytools-jump-to-source kernel object other-window)))
(provide 'ein-pytools)