spacemacs/layers/+lang/ipython-notebook/packages.el

;;; packages.el --- ipython Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

(setq ipython-notebook-packages '(ein))

(defun ipython-notebook/init-ein ()
  (use-package ein
    :defer t
    :commands ein:notebooklist-open
    :init
    (evil-leader/set-key "ain" 'ein:notebooklist-open)
    :config
    (progn
      (defun spacemacs/ein:worksheet-merge-cell-next ()
        (interactive)
        (ein:worksheet-merge-cell (ein:worksheet--get-ws-or-error) (ein:worksheet-get-current-cell) t t))

      (defvar spacemacs--ipython-notebook-ms-doc-toggle 0
        "Display a short doc when nil, full doc otherwise.")

      (defun spacemacs//ipython-notebook-ms-doc ()
        (if (equal 0 spacemacs--ipython-notebook-ms-doc-toggle)
            "[?] for help"
          "
        [?] toggle this help

        [k,j] prev/next cell               [K,J] move cell up/down
        [h,l] prev/next worksheet          [H,L] move worksheet left/right
        [C-k,C-j] merge cell above/bellow  [O,o] insert cell above/bellow
        [d] kill cell                      [y,p] copy or past cell
        [RET] execute cell                 [u] change cell type

        [C-o]: open console                [t] toggle output
        [C-l,C-S-L] clear/clear all output

        [C-s,C-r] save/rename notebook
        [1..9] open [1st..last] worksheet
        [+,-] create/delete worksheet

        [x] close notebook                 [q] quit micro-state"))

      (defun spacemacs//ipython-notebook-ms-toggle-doc ()
        (interactive)
        (setq spacemacs--ipython-notebook-ms-doc-toggle
              (logxor spacemacs--ipython-notebook-ms-doc-toggle 1)))

      (defun spacemacs//concat-leader (key)
        (if dotspacemacs-major-mode-leader-key
            (concat dotspacemacs-major-mode-leader-key key)
            (concat "," key)
        ))

      (evil-leader/set-key-for-mode 'ein:notebook-multilang-mode
        "my" 'ein:worksheet-copy-cell
        "mp" 'ein:worksheet-yank-cell
        "md" 'ein:worksheet-kill-cell
        "mh" 'ein:notebook-worksheet-open-prev-or-last
        "mi" 'ein:worksheet-insert-cell-below
        "mI" 'ein:worksheet-insert-cell-above
        "mj" 'ein:worksheet-goto-next-input
        "mk" 'ein:worksheet-goto-prev-input
        "ml" 'ein:notebook-worksheet-open-next-or-first
        "mH" 'ein:notebook-worksheet-move-prev
        "mJ" 'ein:worksheet-move-cell-down
        "mK" 'ein:worksheet-move-cell-up
        "mL" 'ein:notebook-worksheet-move-next
        "mt" 'ein:worksheet-toggle-output
        "mR" 'ein:worksheet-rename-sheet
        "m RET" 'ein:worksheet-execute-cell-and-goto-next
        ;; Output
        "m C-l" 'ein:worksheet-clear-output
        "m C-S-l" 'ein:worksheet-clear-all-output
        ;;Console
        "m C-o" 'ein:console-open
        ;; Merge cells
        "m C-k" 'ein:worksheet-merge-cell
        "m C-j" 'spacemacs/ein:worksheet-merge-cell-next
        ;; Notebook
        "m C-s" 'ein:notebook-save-notebook-command
        "m C-r" 'ein:notebook-rename-command
        "m1" 'ein:notebook-worksheet-open-1th
        "m2" 'ein:notebook-worksheet-open-2th
        "m3" 'ein:notebook-worksheet-open-3th
        "m4" 'ein:notebook-worksheet-open-4th
        "m5" 'ein:notebook-worksheet-open-5th
        "m6" 'ein:notebook-worksheet-open-6th
        "m7" 'ein:notebook-worksheet-open-7th
        "m8" 'ein:notebook-worksheet-open-8th
        "m9" 'ein:notebook-worksheet-open-last
        "m+" 'ein:notebook-worksheet-insert-next
        "m-" 'ein:notebook-worksheet-delete
        "mx" 'ein:notebook-close
        "mu" 'ein:worksheet-change-cell-type
        "fs" 'ein:notebook-save-notebook-command)

      ;; keybindings for ipython notebook traceback mode
      (evil-leader/set-key-for-mode 'ein:traceback-mode
        "m RET" 'ein:tb-jump-to-source-at-point-command
        "mn" 'ein:tb-next-item
        "mp" 'ein:tb-prev-item
        "mq" 'bury-buffer)

      ;; keybindings mirror ipython web interface behavior
      (evil-define-key 'insert ein:notebook-multilang-mode-map
        (kbd "<C-return>") 'ein:worksheet-execute-cell
        (kbd "<S-return>") 'ein:worksheet-execute-cell-and-goto-next)

      (evil-define-key 'normal ein:notebook-multilang-mode-map
        ;; keybindings mirror ipython web interface behavior
        (kbd "<C-return>") 'ein:worksheet-execute-cell
        (kbd "<S-return>") 'ein:worksheet-execute-cell-and-goto-next
        "gj" 'ein:worksheet-goto-next-input
        "gk" 'ein:worksheet-goto-prev-input)

      ;; if this is not required then the following keygindings fail
      (require 'ein-multilang)
      (define-key ein:notebook-multilang-mode-map (kbd "M-j") 'ein:worksheet-move-cell-down)
      (define-key ein:notebook-multilang-mode-map (kbd "M-k") 'ein:worksheet-move-cell-up)

      (spacemacs|define-micro-state ipython-notebook
        :doc (spacemacs//ipython-notebook-ms-doc)
        :use-minibuffer t
        :evil-leader "ein"
        :bindings
        ("q" nil :exit t)
        ("?" spacemacs//ipython-notebook-ms-toggle-doc)
        ("h" ein:notebook-worksheet-open-prev-or-last)
        ("j" ein:worksheet-goto-next-input)
        ("k" ein:worksheet-goto-prev-input)
        ("l" ein:notebook-worksheet-open-next-or-first)
        ("H" ein:notebook-worksheet-move-prev)
        ("J" ein:worksheet-move-cell-down)
        ("K" ein:worksheet-move-cell-up)
        ("L" ein:notebook-worksheet-move-next)
        ("t" ein:worksheet-toggle-output)
        ("d" ein:worksheet-kill-cell)
        ("R" ein:worksheet-rename-sheet)
        ("y" ein:worksheet-copy-cell)
        ("p" ein:worksheet-yank-cell)
        ("o" ein:worksheet-insert-cell-below)
        ("O" ein:worksheet-insert-cell-above)
        ("u" ein:worksheet-change-cell-type)
        ("RET" ein:worksheet-execute-cell-and-goto-next)
        ;; Output
        ("C-l" ein:worksheet-clear-output)
        ("C-S-l" ein:worksheet-clear-all-output)
        ;;Console
        ("C-o" ein:console-open)
        ;; Merge cells
        ("C-k" ein:worksheet-merge-cell)
        ("C-j" spacemacs/ein:worksheet-merge-cell-next)
        ;; Notebook
        ("C-s" ein:notebook-save-notebook-command)
        ("C-r" ein:notebook-rename-command)
        ("1" ein:notebook-worksheet-open-1th)
        ("2" ein:notebook-worksheet-open-2th)
        ("3" ein:notebook-worksheet-open-3th)
        ("4" ein:notebook-worksheet-open-4th)
        ("5" ein:notebook-worksheet-open-5th)
        ("6" ein:notebook-worksheet-open-6th)
        ("7" ein:notebook-worksheet-open-7th)
        ("8" ein:notebook-worksheet-open-8th)
        ("9" ein:notebook-worksheet-open-last)
        ("+" ein:notebook-worksheet-insert-next)
        ("-" ein:notebook-worksheet-delete)
        ("x" ein:notebook-close)))))