37 lines
1.5 KiB
EmacsLisp
37 lines
1.5 KiB
EmacsLisp
(setq doom-font (font-spec :family "Maple Mono" :size 20))
|
|
(add-to-list 'default-frame-alist '(height . 53))
|
|
(add-to-list 'default-frame-alist '(width . 120))
|
|
(setq doom-theme 'doom-one)
|
|
(setq display-line-numbers-type 'relative)
|
|
(setq org-directory "~/org/")
|
|
|
|
(after! yasnippet
|
|
(defun my-yas-try-expanding-auto-snippets ()
|
|
(when yas-minor-mode
|
|
(let ((yas-buffer-local-condition ''(require-snippet-condition . auto)))
|
|
(yas-expand))))
|
|
(add-hook 'post-command-hook #'my-yas-try-expanding-auto-snippets))
|
|
|
|
(after! eat
|
|
(when (eq system-type 'darwin)
|
|
(define-key eat-semi-char-mode-map (kbd "C-h") #'eat-self-input)
|
|
(define-key eat-semi-char-mode-map (kbd "<backspace>") (kbd "C-h"))))
|
|
|
|
;; accept completion from copilot and fallback to company
|
|
(use-package! copilot
|
|
:hook (prog-mode . copilot-mode)
|
|
:bind (:map copilot-completion-map
|
|
("<tab>" . 'copilot-accept-completion)
|
|
("TAB" . 'copilot-accept-completion)
|
|
("C-TAB" . 'copilot-accept-completion-by-word)
|
|
("C-<tab>" . 'copilot-accept-completion-by-word)
|
|
("C-n" . 'copilot-next-completion)
|
|
("C-p" . 'copilot-previous-completion))
|
|
|
|
:config
|
|
(add-to-list 'copilot-indentation-alist '(prog-mode 2))
|
|
(add-to-list 'copilot-indentation-alist '(org-mode 2))
|
|
(add-to-list 'copilot-indentation-alist '(text-mode 2))
|
|
(add-to-list 'copilot-indentation-alist '(clojure-mode 2))
|
|
(add-to-list 'copilot-indentation-alist '(emacs-lisp-mode 2)))
|