This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/auto-completion/funcs.el
2016-01-11 21:42:17 -05:00

152 lines
5.9 KiB
EmacsLisp

;;; funcs.el --- Auto-completion functions File
;;
;; Copyright (c) 2012-2016 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
(spacemacs|add-toggle auto-completion
:status
(if (boundp 'auto-completion-front-end)
(if (eq 'company auto-completion-front-end)
company-mode
auto-complete-mode)
;; default completion hardcoded to be company for now
(setq auto-completion-front-end 'company)
nil)
:on
(progn
(if (eq 'company auto-completion-front-end)
(company-mode)
(auto-complete-mode))
(message "Enabled auto-completion (using %S)."
auto-completion-front-end))
:off
(progn
(if (eq 'company auto-completion-front-end)
(company-mode -1)
(auto-complete-mode -1))
(message "Disabled auto-completion."))
:documentation "Enable auto-completion."
:evil-leader "ta")
;; auto-completion key bindings functions
(defun spacemacs//auto-completion-set-RET-key-behavior (package)
"Bind RET key appropriately for the given PACKAGE and value of
`auto-completion-return-key-behavior'."
(cond
((eq 'company package)
(let ((map company-active-map))
(cond
((eq 'complete auto-completion-return-key-behavior)
(define-key map [return] 'company-complete-selection)
(define-key map (kbd "RET") 'company-complete-selection))
(t
(define-key map [return] 'nil)
(define-key map (kbd "RET") 'nil)))))
(t (message "Not yet implemented for package %S" package))))
(defun spacemacs//auto-completion-set-TAB-key-behavior (package)
"Bind TAB key appropriately for the given PACKAGE and value of
`auto-completion-tab-key-behavior'."
(cond
((eq 'company package)
(let ((map company-active-map))
(cond
((eq 'complete auto-completion-tab-key-behavior)
(define-key map (kbd "TAB") 'company-complete-selection)
(define-key map (kbd "<tab>") 'company-complete-selection))
((eq 'cycle auto-completion-tab-key-behavior)
(define-key map (kbd "TAB") 'company-complete-common-or-cycle)
(define-key map (kbd "<tab>") 'company-complete-common-or-cycle)
(define-key map (kbd "<S-tab>")
'spacemacs//company-complete-common-or-cycle-backward)
(define-key map (kbd "<backtab>")
'spacemacs//company-complete-common-or-cycle-backward))
(t
(define-key map (kbd "TAB") nil)
(define-key map (kbd "<tab>") nil)))))
(t (message "Not yet implemented for package %S" package))))
(defun spacemacs//auto-completion-setup-key-sequence (package)
"Setup the key sequence to complete current selection."
(when auto-completion-complete-with-key-sequence
(let ((first-key (elt auto-completion-complete-with-key-sequence 0)))
(cond ((eq 'company package)
(define-key company-active-map (kbd (char-to-string first-key))
'spacemacs//auto-completion-key-sequence-start))
(t (message "Not yet implemented for package %S" package))))))
;; key sequence to complete selection
(defvar spacemacs--auto-completion-time nil)
(defvar spacemacs--auto-completion-complete-last-candidate nil)
(defvar spacemacs--auto-completion-shadowed-insert-binding nil)
(defvar spacemacs--auto-completion-shadowed-emacs-binding nil)
(defun spacemacs//auto-completion-key-sequence-start ()
"Initiate auto-completion sequence."
(interactive)
(self-insert-command 1)
(setq spacemacs--auto-completion-complete-last-candidate
(cond
((bound-and-true-p company-mode)
(nth company-selection company-candidates))))
;; enable second key of the sequence
(let ((second-key (kbd (char-to-string
(elt auto-completion-complete-with-key-sequence 1)))))
(setq spacemacs--auto-completion-shadowed-insert-binding
(lookup-key evil-insert-state-map second-key))
(setq spacemacs--auto-completion-shadowed-emacs-binding
(lookup-key evil-emacs-state-map second-key))
(define-key
evil-insert-state-map
second-key
'spacemacs//auto-completion-key-sequence-end)
(define-key
evil-emacs-state-map
second-key
'spacemacs//auto-completion-key-sequence-end))
;; set a timer to restore the old bindings
(run-at-time auto-completion-complete-with-key-sequence-delay
nil
'spacemacs//auto-completion-key-sequence-restore)
(when spacemacs--auto-completion-complete-last-candidate
(setq spacemacs--auto-completion-time (current-time))))
(defun spacemacs//auto-completion-key-sequence-end ()
"Check if the auto-completion key sequence has been entered."
(interactive)
(if (or (null spacemacs--auto-completion-time)
(< auto-completion-complete-with-key-sequence-delay
(float-time (time-since spacemacs--auto-completion-time))))
(self-insert-command 1)
(cond
((bound-and-true-p company-mode)
(unless company-candidates
;; if the auto-completion menu is still active then we don't need to
;; delete the last inserted first key of the sequence
(delete-char -1))
(let ((company-idle-delay))
(company-auto-begin)
(company-finish spacemacs--auto-completion-complete-last-candidate)))))
(spacemacs//auto-completion-key-sequence-restore)
(setq spacemacs--auto-completion-time nil))
(defun spacemacs//auto-completion-key-sequence-restore ()
"Restore the shadowed key bindings used to auto-complete."
(let ((second-key (kbd (char-to-string
(elt auto-completion-complete-with-key-sequence 1)))))
(define-key
evil-insert-state-map
second-key
spacemacs--auto-completion-shadowed-insert-binding)
(define-key
evil-emacs-state-map
second-key
spacemacs--auto-completion-shadowed-emacs-binding)))