emacs-ipython-notebook/lisp/ein-jedi.el
2012-12-05 22:12:42 +01:00

97 lines
2.9 KiB
EmacsLisp

;;; ein-jedi.el --- ein Jedi
;; Copyright (C) 2012 Takafumi Arakaki
;; Author: Takafumi Arakaki <aka.tkf at gmail.com>
;; This file is NOT part of GNU Emacs.
;; ein-jedi.el is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; ein-jedi.el is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with ein-jedi.el.
;; If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;;; Code:
(require 'jedi nil t)
(eval-when-compile (require 'ein-connect))
(require 'ein-ac)
(require 'ein-completer)
(defvar ein:jedi-dot-complete-sources
'(ac-source-jedi-direct ac-source-ein-direct))
(defun ein:jedi--completer-complete ()
(lexical-let ((d (deferred:new #'identity)))
(ein:and-let* ((kernel (ein:get-kernel))
((not (ac-cursor-on-diable-face-p)))
((ein:kernel-live-p kernel)))
(ein:completer-complete
kernel
(list :complete_reply
(cons (lambda (_ &rest args) (deferred:callback-post d args))
nil))))
d))
;;;###autoload
(defun ein:jedi-complete ()
"Run completion using candidates calculated by EIN and Jedi."
(interactive)
(deferred:$
(deferred:parallel ; or `deferred:earlier' is better?
(jedi:complete-request)
(ein:jedi--completer-complete))
(deferred:nextc it
(lambda (replies)
(destructuring-bind
(_ ; ignore `jedi:complete-request' what returns.
((&key matched_text matches &allow-other-keys) ; :complete_reply
_)) ; ignore metadata
replies
(if matches
(ein:completer-finish-completing-ac
matched_text matches
ein:jedi-dot-complete-sources)
(auto-complete ein:jedi-dot-complete-sources)))))))
;;;###autoload
(defun ein:jedi-dot-complete ()
"Insert \".\" and run `ein:jedi-complete'."
(interactive)
(insert ".")
(ein:jedi-complete))
(defun ein:jedi-complete-on-dot-install (map)
(ein:complete-on-dot-install map #'ein:jedi-dot-complete))
;;;###autoload
(defun ein:jedi-setup ()
"Setup auto-completion using EIN and Jedi.el_ together.
Jedi.el_ is a Python auto-completion library for Emacs.
To use EIN and Jedi together, add the following in your Emacs setup.::
(add-hook 'ein:connect-mode-hook 'ein:jedi-setup)
.. _Jedi.el: https://github.com/tkf/emacs-jedi"
(let ((map ein:connect-mode-map))
(define-key map "\C-c\C-i" 'ein:jedi-complete)
(ein:jedi-complete-on-dot-install map)))
(provide 'ein-jedi)
;;; ein-jedi.el ends here