90 lines
3.5 KiB
EmacsLisp
90 lines
3.5 KiB
EmacsLisp
(provide 'init-auto-complete)
|
|
|
|
(defconst my-dicts-dir (concat my-dir "dict/"))
|
|
|
|
(setq tags-case-fold-search nil)
|
|
|
|
(use-package pos-tip)
|
|
|
|
(use-package auto-complete
|
|
:init
|
|
(progn
|
|
(require 'auto-complete-config)
|
|
|
|
(setq ac-auto-start nil
|
|
ac-auto-show-menu t ; Suggestions box must be invoked manually (see core-keymaps.el)
|
|
ac-use-menu-map t ; Enable ac-menu-map map when menu is open
|
|
ac-use-quick-help nil ; Don't show tooltips unless invoked (see core-keymaps.el)
|
|
ac-use-fuzzy nil
|
|
ac-use-comphist t
|
|
ac-candidate-limit 25)
|
|
(setq ac-comphist-file (concat my-tmp-dir "ac-comphist.dat"))
|
|
|
|
(setq-default ac-sources '(ac-source-yasnippet)))
|
|
:config
|
|
(progn
|
|
;; Redefine this function so auto-complete is available [almost] everywhere
|
|
(defun auto-complete-mode-maybe ()
|
|
(unless (minibufferp (current-buffer))
|
|
(auto-complete-mode 1)))
|
|
|
|
(defun auto-complete--backend (hook &rest backends)
|
|
(add-hook hook
|
|
`(lambda()
|
|
(set (make-local-variable 'ac-sources) (append '(,@backends) ac-sources)))))
|
|
|
|
(global-auto-complete-mode t)
|
|
|
|
(let ((bg (face-attribute 'default :background)))
|
|
(require 'color)
|
|
(custom-set-faces
|
|
;; `(company-scrollbar-bg ((t (:background ,(color-lighten-name bg 15)))))
|
|
;; `(company-scrollbar-fg ((t (:background ,(color-lighten-name bg 5)))))
|
|
`(ac-yasnippet-candidate-face ((t (:inherit ac-candidate-face :background ,(color-lighten-name bg 5)))))
|
|
`(ac-yasnippet-selection-face ((t (:inherit ac-selection-face :background ,(color-lighten-name bg 10)))))
|
|
`(ac-completion-face ((t (:background ,(color-lighten-name bg 15)))))
|
|
`(ac-candidate-face ((t (:inherit font-lock-function-name-face :background ,(color-lighten-name bg 4)))))
|
|
`(ac-selection-face ((t (:background ,(color-lighten-name bg 9)))))))
|
|
|
|
(add-to-list 'ac-dictionary-directories my-dicts-dir)
|
|
|
|
(auto-complete--backend 'emacs-lisp-mode-hook 'ac-source-features 'ac-source-functions 'ac-source-variables 'ac-source-symbols)
|
|
(auto-complete--backend 'scss-mode-hook 'ac-source-css-property)
|
|
|
|
(push '("*Popup Help*" :position bottom :height 0.35 :noselect t) popwin:special-display-config)
|
|
|
|
;; Tell ido not to care about case
|
|
;; (setq completion-ignore-case t)
|
|
|
|
(bind 'insert ac-mode-map
|
|
(kbd "C-x C-k") 'ac-complete-dictionary
|
|
(kbd "C-x C-f") (λ (let ((ac-sources '(ac-source-filename ac-source-files-in-current-dir)))
|
|
(auto-complete)))
|
|
(kbd "C-x C-]") 'ac-complete-etags
|
|
(kbd "C-x s") 'ac-complete-ispell
|
|
(kbd "C-x C-s") 'ac-complete-yasnippet
|
|
(kbd "C-x C-n") 'ac-complete-words-in-all-buffer
|
|
(kbd "C-x C-p") 'ac-complete-words-in-same-mode-buffers
|
|
(kbd "C-x C-o") 'auto-complete
|
|
(kbd "C-SPC") 'auto-complete)
|
|
|
|
(bind ac-completing-map
|
|
(kbd "<tab>") 'ac-complete
|
|
(kbd "C-n") 'ac-next
|
|
(kbd "C-p") 'ac-previous
|
|
(kbd "C-h") 'ac-quick-help
|
|
(kbd "C-S-h") 'ac-help
|
|
(kbd "<ESC>") 'ac-stop
|
|
(kbd "<RET>") 'ac-complete)
|
|
|
|
(use-package ac-etags
|
|
:commands (ac-complete-etags)
|
|
:config (ac-etags-setup))
|
|
|
|
(use-package ac-ispell
|
|
:commands (ac-complete-ispell ac-complete-ispell-fuzzy)
|
|
:config
|
|
(progn (ac-ispell-setup)
|
|
(setq ac-ispell-requires 1
|
|
ac-ispell-fuzzy-limit 25)))))
|