1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
;;; jedi.el --- a Python auto-completion for Emacs -*- lexical-binding: t; -*-
;; Copyright (C) 2015 Takafumi Arakaki
;; Author: Takafumi Arakaki <aka.tkf at gmail.com>
;; Package-Requires: ((emacs "24") (jedi-core "0.2.2") (auto-complete "1.4"))
;; Version: 0.2.7
;; This program 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.
;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Code:
(require 'cl-lib)
(require 'auto-complete)
(require 'jedi-core)
;;; AC source
(defun jedi:ac-direct-matches ()
(mapcar
(lambda (x)
(destructuring-bind (&key word doc description symbol)
x
(popup-make-item word
:symbol symbol
:document (unless (equal doc "") doc)
:summary description)))
jedi:complete-reply))
;;;###autoload
(defun jedi:ac-setup ()
"Add Jedi AC sources to `ac-sources'.
If auto-completion is all you need, you can call this function instead
of `jedi:setup', like this::
(add-hook 'python-mode-hook 'jedi:ac-setup)
Note that this function calls `auto-complete-mode' if it is not
already enabled, for people who don't call `global-auto-complete-mode'
in their Emacs configuration."
(interactive)
(add-to-list 'ac-sources 'ac-source-jedi-direct)
(unless auto-complete-mode
(auto-complete-mode)))
(defun jedi:ac-direct-prefix ()
(or (ac-prefix-default)
(when (= jedi:complete-request-point (point))
jedi:complete-request-point)))
(defun jedi:after-change-handler (&rest _)
(unless (or (ac-menu-live-p) (ac-inline-live-p))
(jedi:defined-names--singleton-deferred)))
;; (makunbound 'ac-source-jedi-direct)
(ac-define-source jedi-direct
'((candidates . jedi:ac-direct-matches)
(prefix . jedi:ac-direct-prefix)
(init . jedi:complete-request)
(requires . -1)))
;;;###autoload
(cl-defun jedi:complete (&key (expand ac-expand-on-auto-complete))
"Complete code at point."
(interactive)
(deferred:nextc (jedi:complete-request)
(lambda ()
(let ((ac-expand-on-auto-complete expand))
(ac-start :triggered 'command)))))
;; Calling `auto-complete' or `ac-update-greedy' instead of `ac-start'
;; here did not work.
(defun jedi:dot-complete (nchars)
"Insert dot and complete code at point."
(interactive "p")
(self-insert-command nchars)
(unless (or (/= nchars 1) ;; don't complete if inserted 2+ dots
(ac-cursor-on-diable-face-p)
;; don't complete if the dot is immediately after int literal
(looking-back "\\(\\`\\|[^._[:alnum:]]\\)[0-9]+\\."))
(jedi:complete :expand nil)))
;;;###autoload
(defun jedi:auto-complete-mode ()
(let ((map jedi-mode-map))
(if jedi:complete-on-dot
(define-key map "." 'jedi:dot-complete)
(define-key map "." nil)))
(when jedi:install-imenu
(if jedi-mode
(add-hook 'after-change-functions 'jedi:after-change-handler nil t)
(remove-hook 'after-change-functions 'jedi:after-change-handler t))))
;;;###autoload
(setq jedi:setup-function #'jedi:ac-setup
jedi:mode-function #'jedi:auto-complete-mode)
(provide 'jedi)
;;; jedi.el ends here
|
