mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-06 09:31:39 -05:00
95 lines
4.1 KiB
EmacsLisp
95 lines
4.1 KiB
EmacsLisp
;;; ein-company.el --- Support for completion using company back-end.
|
|
|
|
;; Copyright (C) 2017 - John Miller
|
|
|
|
;; Author: John Miller <millejoh at mac.com>
|
|
|
|
;; This file is NOT part of GNU Emacs.
|
|
|
|
;; ein-company.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-company.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-company.el. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;
|
|
|
|
;;; Code:
|
|
|
|
(eval-when-compile (require 'cl))
|
|
(require 'company nil t)
|
|
(require 'dash)
|
|
|
|
(require 'ein-core)
|
|
|
|
;;;###autoload
|
|
(defun ein:company-backend (command &optional arg &rest ignore)
|
|
(interactive (list 'interactive))
|
|
(cl-case command
|
|
(interactive (company-begin-backend 'ein:company-backend) )
|
|
(prefix (and (--filter (and (boundp it) (symbol-value it) (eql it 'ein:notebook-minor-mode))
|
|
minor-mode-list)
|
|
(ein:object-at-point)))
|
|
(doc-buffer (lexical-let ((arg arg))
|
|
(cons :async
|
|
(lambda (cb)
|
|
(ein:company-handle-doc-buffer arg cb)))))
|
|
(location (lexical-let ((obj arg))
|
|
(cons :async
|
|
(lambda (cb)
|
|
(ein:pytools-find-source (ein:get-kernel-or-error)
|
|
obj
|
|
cb)))))
|
|
(candidates () (lexical-let ((kernel (ein:get-kernel-or-error))
|
|
(col (current-column)))
|
|
(unless (ein:company-backend--punctuation-check (thing-at-point 'line) col)
|
|
(cons :async
|
|
(lambda (cb)
|
|
(ein:kernel-complete kernel
|
|
(thing-at-point 'line)
|
|
col
|
|
(list :complete_reply
|
|
(cons #'ein:completer-finish-completing-company
|
|
(list :callback cb)))))))))))
|
|
|
|
(defun ein:company-backend--punctuation-check (thing col)
|
|
(let ((query (ein:trim-right (subseq thing 0 col) "[\n]")))
|
|
(string-match "[]()\",[{}'=: ]$" query (- col 2))))
|
|
|
|
(cl-defun ein:completer-finish-completing-company (packed content -metadata-not-used-)
|
|
(ein:log 'debug "EIN:COMPANY-FINISH-COMPLETING: content=%S" content)
|
|
(let* ((beg (point))
|
|
(delta (- (plist-get content :cursor_end)
|
|
(plist-get content :cursor_start)))
|
|
(matched-text (buffer-substring beg (- beg delta)))
|
|
(matches (-filter #'(lambda (s)
|
|
(s-starts-with-p matched-text s))
|
|
(plist-get content :matches))))
|
|
(ein:log 'debug "EIN:COMPANY-FINISH-COMPLETING: matches=%s" matches)
|
|
(funcall (plist-get packed :callback) matches)))
|
|
|
|
(defun ein:company-handle-doc-buffer-finish (packed content -metadata-not-used-)
|
|
(when (plist-get content :found)
|
|
(funcall (plist-get packed :callback) (company-doc-buffer
|
|
(ansi-color-apply (cadr (plist-get content :data)))))))
|
|
|
|
(defun ein:company-handle-doc-buffer (object cb)
|
|
(ein:kernel-object-info-request (ein:get-kernel-or-error)
|
|
object
|
|
(list :inspect_reply
|
|
(cons #'ein:company-handle-doc-buffer-finish
|
|
(list :object object
|
|
:callback cb)))))
|
|
|
|
(setq ein:complete-on-dot nil)
|
|
|
|
(provide 'ein-company)
|