mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
7792cfc965
Instead of stripping away curly brackets at the end of the completion texts, simply insert a closing curly bracket after point when accepting a completion that ends with a curly bracket.
81 lines
2.8 KiB
EmacsLisp
81 lines
2.8 KiB
EmacsLisp
;;; siren-copilot.el --- jimeh's Emacs Siren: copilot configuration.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for copilot. Auto completion on steroids.
|
|
|
|
;;; Code:
|
|
|
|
(use-package copilot
|
|
:straight (:host github :repo "zerolfx/copilot.el"
|
|
:files ("dist" "*.el"))
|
|
:hook
|
|
(prog-mode . copilot-mode)
|
|
|
|
:general
|
|
("C-<tab>" 'siren-copilot-accept-completion-dwim)
|
|
("<backtab>" 'siren-copilot-accept-completion-dwim)
|
|
("M-F" 'siren-copilot-accept-completion-by-word-dwim)
|
|
("M-E" 'siren-copilot-accept-completion-by-line-dwim)
|
|
(:keymaps 'copilot-completion-map
|
|
"M-N" 'copilot-next-completion
|
|
"M-P" 'copilot-previous-completion)
|
|
|
|
:custom
|
|
(copilot-disable-predicates '(siren-copilot-disable-predicate))
|
|
|
|
:preface
|
|
(defun siren-copilot-disable-predicate ()
|
|
(when buffer-file-name
|
|
(let ((base (file-name-nondirectory buffer-file-name))
|
|
(dir (file-name-directory buffer-file-name)))
|
|
(or (string-prefix-p ".env" base)))))
|
|
|
|
(defun siren-copilot-accept-completion-dwim ()
|
|
"Accept the current completion or trigger copilot-compilot."
|
|
(interactive)
|
|
(siren-copilot-complete-or-call
|
|
'siren-copilot-accept-completion-with-balanced-brackets))
|
|
|
|
(defun siren-copilot-accept-completion-by-word-dwim ()
|
|
"Accept the current completion by word, or trigger copilot-compilot."
|
|
(interactive)
|
|
(siren-copilot-complete-or-call 'copilot-accept-completion-by-word 1))
|
|
|
|
(defun siren-copilot-accept-completion-by-line-dwim ()
|
|
"Accept the current completion by word, or trigger copilot-compilot."
|
|
(interactive)
|
|
(siren-copilot-complete-or-call 'copilot-accept-completion-by-line 1))
|
|
|
|
(defun siren-copilot-complete-or-call (f &rest args)
|
|
"Trigger copilot-complete or call F."
|
|
(if (copilot-current-completion)
|
|
(apply f args)
|
|
(copilot-complete)))
|
|
|
|
(defun siren-copilot-accept-completion-with-balanced-brackets ()
|
|
"Accept completion, add '}' after point if completion ends with '{'."
|
|
(interactive)
|
|
(let ((bracket-open nil))
|
|
(copilot-accept-completion (lambda (completion)
|
|
(setq bracket-open
|
|
(string-suffix-p "{" completion))
|
|
completion))
|
|
(when bracket-open
|
|
(insert "}")
|
|
(backward-char))))
|
|
|
|
:config
|
|
(with-eval-after-load 'company
|
|
;; Use company popup even when there's only one result
|
|
(when (member 'company-preview-if-just-one-frontend company-frontends)
|
|
(require 'cl-seq)
|
|
(delq 'company-preview-if-just-one-frontend company-frontends)
|
|
(setf (nth (cl-position 'company-pseudo-tooltip-unless-just-one-frontend
|
|
company-frontends)
|
|
company-frontends)
|
|
'company-pseudo-tooltip-frontend))))
|
|
|
|
(provide 'siren-copilot)
|
|
;;; siren-copilot.el ends here
|