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

M- left/right click to insert worksheet (tab)

Browse source
This commit is contained in:
Takafumi Arakaki 2012-10-09 23:54:40 +02:00
parent a8aecc52d7
commit 80bbd6d7b0
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/ein-notification.el
View file

@ -232,6 +232,8 @@ insert-prev insert-next)"
;;; Header line
(let ((map ein:header-line-map))
(define-key map [header-line M-mouse-1] 'ein:header-line-insert-prev-tab)
(define-key map [header-line M-mouse-3] 'ein:header-line-insert-next-tab)
(define-key map [header-line mouse-1] 'ein:header-line-switch-to-this-tab)
(define-key map [header-line mouse-2] 'ein:header-line-delete-this-tab)
(define-key map [header-line mouse-3] 'ein:header-line-pop-to-this-tab))
@ -269,6 +271,16 @@ insert-prev insert-next)"
(funcall (oref (oref ein:%notification% :tab) :delete)
(ein:header-line-key-event-get-worksheet key-event)))
(defun ein:header-line-insert-prev-tab (key-event)
(interactive "e")
(funcall (oref (oref ein:%notification% :tab) :insert-prev)
(ein:header-line-key-event-get-worksheet key-event)))
(defun ein:header-line-insert-next-tab (key-event)
(interactive "e")
(funcall (oref (oref ein:%notification% :tab) :insert-next)
(ein:header-line-key-event-get-worksheet key-event)))
(defun ein:header-line ()
(format
"IP[%s]: %s"