36 lines
975 B
EmacsLisp
36 lines
975 B
EmacsLisp
;;; Complete symbols at point using Pymacs.
|
|
|
|
;;; See pycomplete.py for the Python side of things and a short description
|
|
;;; of what to expect.
|
|
|
|
(require 'pymacs)
|
|
(require 'python-mode)
|
|
|
|
(pymacs-load "pycomplete")
|
|
|
|
(defun py-complete ()
|
|
(interactive)
|
|
(let ((pymacs-forget-mutability t))
|
|
(insert (pycomplete-pycomplete (py-symbol-near-point)
|
|
(py-find-global-imports)))))
|
|
|
|
(defun py-find-global-imports ()
|
|
(save-excursion
|
|
(let (first-class-or-def imports)
|
|
(goto-char (point-min))
|
|
(setq first-class-or-def
|
|
(re-search-forward "^ *\\(def\\|class\\) " nil t))
|
|
(goto-char (point-min))
|
|
(setq imports nil)
|
|
(while (re-search-forward
|
|
"^\\(import \\|from \\([A-Za-z_][A-Za-z_0-9]*\\) import \\).*"
|
|
nil t)
|
|
(setq imports (append imports
|
|
(list (buffer-substring
|
|
(match-beginning 0)
|
|
(match-end 0))))))
|
|
imports)))
|
|
|
|
(define-key py-mode-map "\M-\C-i" 'py-complete)
|
|
|
|
(provide 'pycomplete)
|