Maciej Szlosarczyk
b0361861b4
Some checks failed
/ Test config on 20 (push) Failing after 53s
Make the editor load faster by deferring as much as possible until later use. For example, LSP load is now deferred until first use and no longer blocking. Use only elixir-format from elixir-mode, for similar speed reasons. The rest of the package has been taken over by the treesitter version of the mode.
90 lines
3.5 KiB
EmacsLisp
90 lines
3.5 KiB
EmacsLisp
;;; icejam-company-yasnippet.el -- summary -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;; Company completion framework configuration
|
|
;;; Code:
|
|
(require 'icejam-blocking)
|
|
|
|
(use-package yasnippet :ensure t :defer t
|
|
:hook ((elpaca-after-init . yas-global-mode))
|
|
:config
|
|
(unbind-key "C-c & C-n" yas-minor-mode-map)
|
|
(unbind-key "C-c & C-s" yas-minor-mode-map)
|
|
(unbind-key "C-c & C-v" yas-minor-mode-map))
|
|
|
|
(use-package yasnippet-snippets :ensure t :after (yasnippet))
|
|
(use-package company-box :ensure t :after (company)
|
|
:hook (company-mode . company-box-mode))
|
|
|
|
(with-eval-after-load 'company
|
|
(global-company-mode t)
|
|
|
|
;; Hacks for orderless
|
|
(defun just-one-face (fn &rest args)
|
|
(let ((orderless-match-faces [completions-common-part]))
|
|
(apply fn args)))
|
|
|
|
(advice-add 'company-capf--candidates :around #'just-one-face)
|
|
|
|
(defun company-completion-styles (capf-fn &rest args)
|
|
(let ((completion-styles '(partial-completion basic)))
|
|
(apply capf-fn args)))
|
|
|
|
(advice-add 'company-capf :around #'company-completion-styles)
|
|
|
|
(setq-default
|
|
company-minimum-prefix-length 3 ;; minimum prefix character number for auto complete.
|
|
company-idle-delay 0.1
|
|
company-require-match nil
|
|
company-echo-delay 0 ;;;; company-show-numbers t
|
|
company-tooltip-align-annotations t ;; align annotations to the right tooltip border.
|
|
company-tooltip-flip-when-above t
|
|
company-tooltip-limit 10 ;; tooltip candidates max limit.
|
|
company-tooltip-minimum 2 ;; minimum candidates limit.
|
|
company-tooltip-minimum-width 10 ;; The minimum width of the tooltip's inner area.
|
|
;; This doesn't include the margins and the scroll bar.
|
|
company-tooltip-margin 2 ;; width of margin columns to show around the tooltip
|
|
company-tooltip-offset-display 'lines ;; 'lines - how to show tooltip unshown candidates number.
|
|
company-show-numbers nil ;; t: show quick-access numbers for the first ten candidates.
|
|
company-selection-wrap-around t ;; loop over candidates
|
|
company-dabbrev-other-buffers t ;; Only offer dabbrev from the same major mode
|
|
company-dabbrev-downcase nil ;; Preserve case of candidates
|
|
company-format-margin-function nil
|
|
;; company-async-wait 0.03
|
|
;; company-async-timeout 2
|
|
)
|
|
|
|
;; Absolute defaults for company mode
|
|
(setopt company-backends
|
|
'((company-files ; files & directory
|
|
company-keywords ; keywords
|
|
company-capf
|
|
)
|
|
(company-dabbrev company-abbrev)
|
|
))
|
|
|
|
;; Use standard emacs next and previous bindings for navigating company
|
|
;; suggestions
|
|
(define-key company-active-map (kbd "C-p") 'company-select-previous-or-abort)
|
|
(define-key company-active-map (kbd "C-n") 'company-select-next-or-abort)
|
|
|
|
(defun icejam-insert-space-and-complete ()
|
|
"Insert space before trying to complete a section."
|
|
(interactive)
|
|
(save-excursion
|
|
(insert " "))
|
|
(company-indent-or-complete-common))
|
|
|
|
;; Only use RETURN for completion in company
|
|
(unbind-key "TAB" company-active-map)
|
|
|
|
;; Yasnippet configuration
|
|
(define-key prog-mode-map (kbd "C-c y") 'company-yasnippet)
|
|
(define-key prog-mode-map (kbd "<f13>") 'icejam-insert-space-and-complete)
|
|
(define-key prog-mode-map (kbd "TAB") 'company-indent-or-complete-common)
|
|
|
|
(define-key text-mode-map (kbd "C-c y") 'company-yasnippet)
|
|
(define-key text-mode-map (kbd "<f13>") 'icejam-insert-space-and-complete)
|
|
(define-key text-mode-map (kbd "TAB") 'company-indent-or-complete-common))
|
|
|
|
(provide 'icejam-company-yasnippet)
|
|
;;; icejam-company-yasnippet.el ends here
|