在Emacs刚启动，还未加载主要配置文件时的配置文件。
;;; early-init.el --- Emacs pre-initialization config -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; 设置垃圾回收参数
(setq gc-cons-threshold most-positive-fixnum)
(setq gc-cons-percentage 0.6)
;; 启动早期不加载`package.el'包管理器
(setq package-enable-at-startup nil)
;; 不从包缓存中加载
(setq package-quickstart nil)
;; 禁止展示菜单栏、工具栏和纵向滚动条
(push '(menu-bar-lines . 0) default-frame-alist)
(push '(tool-bar-lines . 0) default-frame-alist)
(push '(vertical-scroll-bars) default-frame-alist)
;; 禁止自动缩放窗口先
(setq frame-inhibit-implied-resize t)
;; 禁止菜单栏、工具栏、滚动条模式，禁止启动屏幕和文件对话框
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(setq inhibit-splash-screen t)
(setq use-file-dialog nil)
;; 在这个阶段不编译
(setq comp-deferred-compilation nil)
(provide 'early-init)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; early-init.el ends hereinit.el 是Emacs的主要配置文件。
;;; init.el --- The main init entry for Emacs -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'package)
(setq package-archives
'(("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(package-initialize)use-package 是一个让Emacs配置更加结构化更加清晰的一个宏插件。
;; 安装 `use-package'
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
;; 配置 `use-package'
(eval-and-compile
(setq use-package-always-ensure nil)
(setq use-package-always-defer nil)
(setq use-package-expand-minimally nil)
(setq use-package-enable-imenu-support t)
(if (daemonp)
(setq use-package-always-demand t)))
(eval-when-compile
(require 'use-package))
;; 安装 `use-package' 的集成模块
(use-package use-package-ensure-system-package
:ensure t)
(use-package diminish
:ensure t)
(use-package bind-key
:ensure t)quelpa 是配合 package.el 使用的，基于git的一个包管理器。
;; 安装 `quelpa'
(use-package quelpa
:ensure t
:commands quelpa
:config
:custom
(quelpa-git-clone-depth 1)
(quelpa-update-melpa-p nil)
(quelpa-self-upgrade-p nil)
(quelpa-checkout-melpa-p nil))
;; `quelpa' 与 `use-package' 集成
(use-package quelpa-use-package
:ensure t);; 将lisp目录放到加载路径的前面以加快启动速度
(let ((dir (locate-user-emacs-file "lisp")))
(add-to-list 'load-path (file-name-as-directory dir)))
;; 加载各模块化配置
;; 不要在`*message*'缓冲区显示加载模块化配置的信息
(with-temp-message ""
(require 'init-ui) ; UI交互
(require 'init-edit) ; 编辑行为
(require 'init-org) ; org相关设置
(require 'init-completion) ; 补全系统
)(provide 'init)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init.el ends here;;; init-ui.el --- UI settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
ef themes 是我非常喜欢的一个主题包。
(use-package ef-themes
:ensure t
:bind ("C-c t" . ef-themes-toggle)
:init
;; set two specific themes and switch between them
(setq ef-themes-to-toggle '(ef-summer ef-winter))
;; set org headings and function syntax
(setq ef-themes-headings
'((0 . (bold 1))
(1 . (bold 1))
(2 . (rainbow bold 1))
(3 . (rainbow bold 1))
(4 . (rainbow bold 1))
(t . (rainbow bold 1))))
(setq ef-themes-region '(intense no-extend neutral))
;; Disable all other themes to avoid awkward blending:
(mapc #'disable-theme custom-enabled-themes)
;; Load the theme of choice:
;; The themes we provide are recorded in the `ef-themes-dark-themes',
;; `ef-themes-light-themes'.
;; 如果你不喜欢随机主题，也可以直接固定选择一个主题，如下：
;; (ef-themes-select 'ef-summer)
;; 随机挑选一款主题，如果是命令行打开Emacs，则随机挑选一款黑色主题
(if (display-graphic-p)
(ef-themes-load-random)
(ef-themes-load-random 'dark))
:config
;; auto change theme, aligning with system themes.
(defun my/apply-theme (appearance)
"Load theme, taking current system APPEARANCE into consideration."
(mapc #'disable-theme custom-enabled-themes)
(pcase appearance
('light (if (display-graphic-p) (ef-themes-load-random 'light) (ef-themes-load-random 'dark)))
('dark (ef-themes-load-random 'dark))))
(if (eq system-type 'darwin)
;; only for emacs-plus
(add-hook 'ns-system-appearance-change-functions #'my/apply-theme)
(ef-themes-select 'ef-summer)
)
)fontaine 插件可以根据需要高度定制字体。
这篇文章可以作为字体设置的参考： http://xahlee.info/emacs/emacs/emacs_list_and_set_font.html
(use-package fontaine
:ensure t
:when (display-graphic-p)
;; :hook (kill-emacs . fontaine-store-latest-preset)
:config
(setq fontaine-latest-state-file
(locate-user-emacs-file "etc/fontaine-latest-state.eld"))
(setq fontaine-presets
'((regular
:default-height 140
:default-weight regular
:fixed-pitch-height 1.0
:variable-pitch-height 1.0
)
(large
:default-height 180
:default-weight normal
:fixed-pitch-height 1.0
:variable-pitch-height 1.05
)
(t
:default-family "Source Code Pro"
:fixed-pitch-family "Source Code Pro"
:variable-pitch-family "Source Code Pro"
:italic-family "Source Code Pro"
:variable-pitch-weight normal
:bold-weight normal
:italic-slant italic
:line-spacing 0.1)
))
;; (fontaine-set-preset (or (fontaine-restore-latest-preset) 'regular))
(fontaine-set-preset 'regular)
;; set emoji font
(set-fontset-font
t
(if (version< emacs-version "28.1")
'(#x1f300 . #x1fad0)
'emoji)
(cond
((member "Noto Emoji" (font-family-list)) "Noto Emoji")
((member "Symbola" (font-family-list)) "Symbola")
((member "Apple Color Emoji" (font-family-list)) "Apple Color Emoji")
((member "Noto Color Emoji" (font-family-list)) "Noto Color Emoji")
((member "Segoe UI Emoji" (font-family-list)) "Segoe UI Emoji")
))
;; set Chinese font
(dolist (charset '(kana han symbol cjk-misc bopomofo))
(set-fontset-font
(frame-parameter nil 'font)
charset
(font-spec :family
(cond
((eq system-type 'darwin)
(cond
((member "Sarasa Mono SC Nerd" (font-family-list)) "Sarasa Mono SC Nerd")
((member "PingFang SC" (font-family-list)) "PingFang SC")
((member "WenQuanYi Zen Hei" (font-family-list)) "WenQuanYi Zen Hei")
((member "Microsoft YaHei" (font-family-list)) "Microsoft YaHei")
))
((eq system-type 'gnu/linux)
(cond
((member "Sarasa Mono SC Nerd" (font-family-list)) "Sarasa Mono SC Nerd")
((member "WenQuanYi Micro Hei" (font-family-list)) "WenQuanYi Micro Hei")
((member "WenQuanYi Zen Hei" (font-family-list)) "WenQuanYi Zen Hei")
((member "Microsoft YaHei" (font-family-list)) "Microsoft YaHei")
))
(t
(cond
((member "Sarasa Mono SC Nerd" (font-family-list)) "Sarasa Mono SC Nerd")
((member "Microsoft YaHei" (font-family-list)) "Microsoft YaHei")
)))
)))
;; set Chinese font scale
(setq face-font-rescale-alist `(
("Symbola" . 1.3)
("Microsoft YaHei" . 1.2)
("WenQuanYi Zen Hei" . 1.2)
("Sarasa Mono SC Nerd" . 1.2)
("PingFang SC" . 1.16)
("Lantinghei SC" . 1.16)
("Kaiti SC" . 1.16)
("Yuanti SC" . 1.16)
("Apple Color Emoji" . 0.91)
))
)| 中文 | |
| abcd |
在Mac下，我的默认启动窗口大小
;; 设置窗口大小，仅仅在图形界面需要设置
(when (display-graphic-p)
(let ((top 0) ; 顶不留空
(left (/ (x-display-pixel-width) 10)) ; 左边空10%
(height (round (* 0.8 ; 窗体高度为0.8倍的显示高度
(/ (x-display-pixel-height)
(frame-char-height))))))
(let ((width (round (* 2.5 height)))) ; 窗体宽度为2.5倍高度
(setq default-frame-alist nil)
(add-to-list 'default-frame-alist (cons 'top top))
(add-to-list 'default-frame-alist (cons 'left left))
(add-to-list 'default-frame-alist (cons 'height height))
(add-to-list 'default-frame-alist (cons 'width width)))));; 禁用一些GUI特性
(setq use-dialog-box nil) ; 鼠标操作不使用对话框
(setq inhibit-default-init t) ; 不加载 `default' 库
(setq inhibit-startup-screen t) ; 不加载启动画面
(setq inhibit-startup-message t) ; 不加载启动消息
(setq inhibit-startup-buffer-menu t) ; 不显示缓冲区列表
;; 草稿缓冲区默认文字设置
(setq initial-scratch-message (concat ";; Happy hacking, "
(capitalize user-login-name) " - Emacs ♥ you!\n\n"))
;; 设置缓冲区的文字方向为从左到右
(setq bidi-paragraph-direction 'left-to-right)
;; 禁止使用双向括号算法
;; (setq bidi-inhibit-bpa t)
;; 设置自动折行宽度为80个字符，默认值为70
(setq-default fill-column 80)
;; 设置大文件阈值为100MB，默认10MB
(setq large-file-warning-threshold 100000000)
;; 以16进制显示字节数
(setq display-raw-bytes-as-hex t)
;; 有输入时禁止 `fontification' 相关的函数钩子，能让滚动更顺滑
(setq redisplay-skip-fontification-on-input t)
;; 禁止响铃
(setq ring-bell-function 'ignore)
;; 禁止闪烁光标
(blink-cursor-mode -1)
;; 在光标处而非鼠标所在位置粘贴
(setq mouse-yank-at-point t)
;; 拷贝粘贴设置
(setq select-enable-primary nil) ; 选择文字时不拷贝
(setq select-enable-clipboard t) ; 拷贝时使用剪贴板
;; 鼠标滚动设置
(setq scroll-step 2)
(setq scroll-margin 2)
(setq hscroll-step 2)
(setq hscroll-margin 2)
(setq scroll-conservatively 101)
(setq scroll-up-aggressively 0.01)
(setq scroll-down-aggressively 0.01)
(setq scroll-preserve-screen-position 'always)
;; 对于高的行禁止自动垂直滚动
(setq auto-window-vscroll nil)
;; 设置新分屏打开的位置的阈值
(setq split-width-threshold (assoc-default 'width default-frame-alist))
(setq split-height-threshold nil)
;; TAB键设置，在Emacs里不使用TAB键，所有的TAB默认为4个空格
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
;; yes或no提示设置，通过下面这个函数设置当缓冲区名字匹配到预设的字符串时自动回答yes
(setq original-y-or-n-p 'y-or-n-p)
(defalias 'original-y-or-n-p (symbol-function 'y-or-n-p))
(defun default-yes-sometimes (prompt)
"automatically say y when buffer name match following string"
(if (or
(string-match "has a running process" prompt)
(string-match "does not exist; create" prompt)
(string-match "modified; kill anyway" prompt)
(string-match "Delete buffer using" prompt)
(string-match "Kill buffer of" prompt)
(string-match "still connected. Kill it?" prompt)
(string-match "Shutdown the client's kernel" prompt)
(string-match "kill them and exit anyway" prompt)
(string-match "Revert buffer from file" prompt)
(string-match "Kill Dired buffer of" prompt)
(string-match "delete buffer using" prompt)
(string-match "Kill all pass entry" prompt)
(string-match "for all cursors" prompt)
(string-match "Do you want edit the entry" prompt))
t
(original-y-or-n-p prompt)))
(defalias 'yes-or-no-p 'default-yes-sometimes)
(defalias 'y-or-n-p 'default-yes-sometimes)
;; 设置剪贴板历史长度300，默认为60
(setq kill-ring-max 200)
;; 在剪贴板里不存储重复内容
(setq kill-do-not-save-duplicates t)
;; 设置位置记录长度为6，默认为16
;; 可以使用 `counsel-mark-ring' or `consult-mark' (C-x j) 来访问光标位置记录
;; 使用 C-x C-SPC 执行 `pop-global-mark' 直接跳转到上一个全局位置处
;; 使用 C-u C-SPC 跳转到本地位置处
(setq mark-ring-max 6)
(setq global-mark-ring-max 6)
;; 设置 emacs-lisp 的限制
(setq max-lisp-eval-depth 10000) ; 默认值为 800
(setq max-specpdl-size 10000) ; 默认值为 1600
;; 启用 `list-timers', `list-threads' 这两个命令
(put 'list-timers 'disabled nil)
(put 'list-threads 'disabled nil)
;; 在命令行里支持鼠标
(xterm-mouse-mode 1)
;; 退出Emacs时进行确认
(setq confirm-kill-emacs 'y-or-n-p)
;; 在模式栏上显示当前光标的列号
(column-number-mode t)统一使用 UTF-8 编码。
;; 配置所有的编码为UTF-8，参考：
;; https://thraxys.wordpress.com/2016/01/13/utf-8-in-emacs-everywhere-forever/
(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-language-environment 'utf-8)
(set-clipboard-coding-system 'utf-8)
(set-file-name-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(modify-coding-system-alist 'process "*" 'utf-8)
(when (display-graphic-p)
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)))doom-modeline 是一个模式栏美化插件。
(use-package doom-modeline
:ensure t
:hook (after-init . doom-modeline-mode)
:custom
(doom-modeline-irc nil)
(doom-modeline-mu4e nil)
(doom-modeline-gnus nil)
(doom-modeline-github nil)
(doom-modeline-buffer-file-name-style 'truncate-upto-root) ; : auto
(doom-modeline-persp-name nil)
(doom-modeline-unicode-fallback t)
(doom-modeline-enable-word-count nil))minions 插件能让模式栏变得清爽，将次要模式隐藏起来。
(use-package minions
:ensure t
:hook (after-init . minions-mode))keycast mode 插件可以在模式栏上展示所有的按键，以及对应的函数。
(use-package keycast
:ensure t
:hook (after-init . keycast-mode)
:config
;; set for doom-modeline support
;; With the latest change 72d9add, mode-line-keycast needs to be modified to keycast-mode-line.
(define-minor-mode keycast-mode
"Show current command and its key binding in the mode line (fix for use with doom-mode-line)."
:global t
(if keycast-mode
(progn
(add-hook 'pre-command-hook 'keycast--update t)
(add-to-list 'global-mode-string '("" keycast-mode-line " ")))
(remove-hook 'pre-command-hook 'keycast--update)
(setq global-mode-string (delete '("" keycast-mode-line " ") global-mode-string))
))
(dolist (input '(self-insert-command
org-self-insert-command))
(add-to-list 'keycast-substitute-alist `(,input "." "Typing…")))
(dolist (event '(mouse-event-p
mouse-movement-p
mwheel-scroll))
(add-to-list 'keycast-substitute-alist `(,event nil)))
(setq keycast-log-format "%-20K%C\n")
(setq keycast-log-frame-alist
'((minibuffer . nil)))
(setq keycast-log-newest-first t)
)(provide 'init-ui)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-ui.el ends here;;; init-edit.el --- Editing settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
不使用Emacs的自动备份设置。
(setq make-backup-files nil) ; 不自动备份
(setq auto-save-default nil) ; 不使用Emacs自带的自动保存将一些不常用的快捷键解除，防止误操作。
;; 解除不常用的快捷键定义
(global-set-key (kbd "C-z") nil)
(global-set-key (kbd "s-q") nil)
(global-set-key (kbd "M-z") nil)
(global-set-key (kbd "M-m") nil)
(global-set-key (kbd "C-x C-z") nil)
(global-set-key [mouse-2] nil)Emacs默认选择文本后直接输入，是不会直接删除所选择的文本进行替换的。通过内置的 delsel 插件来实现这个行为。
;; Directly modify when selecting text
(use-package delsel
:ensure nil
:hook (after-init . delete-selection-mode))当我们的文件发生了改变后，我们希望Emacs里打开的永远是最新的文件，这个时候，我们需要对自动重载进行设置，让我们的Emacs在文件发生改变的时候自动重载文件。
(use-package autorevert
:ensure nil
:hook (after-init . global-auto-revert-mode)
:bind ("s-u" . revert-buffer)
:custom
(auto-revert-interval 10)
(auto-revert-avoid-polling t)
(auto-revert-verbose nil)
(auto-revert-remote-files t)
(auto-revert-check-vc-info t)
(global-auto-revert-non-file-buffers t));; (message "init-base configuration: %.2fs"
;; (float-time (time-subtract (current-time) my/init-base-start-time)))
(provide 'init-edit)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-edit.el ends here;;; init-org.el --- Org mode settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
org-auto-tangle 插件可以在Org mode下自动进行tangle。
(use-package org-auto-tangle
:ensure t
:hook (org-mode . org-auto-tangle-mode)
:config
(setq org-auto-tangle-default t)
)(provide 'init-org)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-org.el ends hereEmacs的补全设置。
;;; init-completion.el --- Completion settings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
vertico 插件提供了一个垂直样式的补全系统。
(use-package vertico
:ensure t
:hook (after-init . vertico-mode)
:bind (:map minibuffer-local-map
("M-<DEL>" . my/minibuffer-backward-kill)
:map vertico-map
("M-q" . vertico-quick-insert)) ; use C-g to exit
:config
(defun my/minibuffer-backward-kill (arg)
"When minibuffer is completing a file name delete up to parent
folder, otherwise delete a word"
(interactive "p")
(if minibuffer-completing-file-name
;; Borrowed from https://github.com/raxod502/selectrum/issues/498#issuecomment-803283608
(if (string-match-p "/." (minibuffer-contents))
(zap-up-to-char (- arg) ?/)
(delete-minibuffer-contents))
(backward-kill-word arg)))
;; Do not allow the cursor in the minibuffer prompt
(setq minibuffer-prompt-properties
'(read-only t cursor-intangible t face minibuffer-prompt))
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
(setq vertico-cycle t) ; cycle from last to first
:custom
(vertico-count 15) ; number of candidates to display, default is 10
)oderless 插件提供一种无序的补全新姿势，将一个搜索的范式变成数个以空格分隔的部分，各部分之间没有顺序，你要做的就是根据记忆输入关键词、空格、关键词。
;; support Pinyin first character match for orderless, avy etc.
(use-package pinyinlib
:ensure t)
;; orderless 是一种哲学思想
(use-package orderless
:ensure t
:init
(setq completion-styles '(orderless partial-completion basic))
(setq orderless-component-separator "[ &]") ; & is for company because space will break completion
(setq completion-category-defaults nil)
(setq completion-category-overrides nil)
:config
;; make completion support pinyin, refer to
;; https://emacs-china.org/t/vertico/17913/2
(defun completion--regex-pinyin (str)
(orderless-regexp (pinyinlib-build-regexp-string str)))
(add-to-list 'orderless-matching-styles 'completion--regex-pinyin)
)marginalia 插件给迷你缓冲区的补全候选条目添加一些提示。
;; minibuffer helpful annotations
(use-package marginalia
:ensure t
:hook (after-init . marginalia-mode)
:custom
(marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil)))consult 插件基于Emacs自带的补全机制，提供了一系列的补全命令。
For locate on MacOS:
locateis not enabled in MacOS by default. We need to enable it via: sudo launchctl load -w /System/Library/LaunchDaemons/com.apple.locate.plist- Then we need to wait
locateto build db for the whole file system.- If there is something wrong with updating locate db, we can update it manually via: chomd 755 ~/Library ~/Downloads ~/Documents ~/Desktop sudo /usr/libexec/locate.updatedb
(use-package consult
:ensure t
:after org
:bind (([remap goto-line] . consult-goto-line)
([remap isearch-forward] . consult-line-symbol-at-point) ; my-consult-ripgrep-or-line
([remap switch-to-buffer] . consult-buffer)
([remap switch-to-buffer-other-window] . consult-buffer-other-window)
([remap switch-to-buffer-other-frame] . consult-buffer-other-frame)
([remap yank-pop] . consult-yank-pop)
([remap apropos] . consult-apropos)
([remap bookmark-jump] . consult-bookmark)
([remap goto-line] . consult-goto-line)
([remap imenu] . consult-imenu)
([remap multi-occur] . consult-multi-occur)
([remap recentf-open-files] . consult-recent-file)
("C-x j" . consult-mark)
("C-c g" . consult-ripgrep)
("C-c f" . consult-find)
("\e\ef" . consult-locate) ; need to enable locate first
("C-c n h" . my/consult-find-org-headings)
:map org-mode-map
("C-c C-j" . consult-org-heading)
:map minibuffer-local-map
("C-r" . consult-history)
:map isearch-mode-map
("C-;" . consult-line)
:map prog-mode-map
("C-c C-j" . consult-outline)
)
:hook (completion-list-mode . consult-preview-at-point-mode)
:init
;; Optionally configure the register formatting. This improves the register
;; preview for `consult-register', `consult-register-load',
;; `consult-register-store' and the Emacs built-ins.
(setq register-preview-delay 0
register-preview-function #'consult-register-format)
;; Optionally tweak the register preview window.
;; This adds thin lines, sorting and hides the mode line of the window.
(advice-add #'register-preview :override #'consult-register-window)
;; Use Consult to select xref locations with preview
(setq xref-show-xrefs-function #'consult-xref
xref-show-definitions-function #'consult-xref)
;; MacOS locate doesn't support `--ignore-case --existing' args.
(setq consult-locate-args (pcase system-type
('gnu/linux "locate --ignore-case --existing --regex")
('darwin "mdfind -name")))
:config
(consult-customize
consult-theme
:preview-key '(:debounce 0.2 any)
consult-ripgrep consult-git-grep consult-grep
consult-bookmark consult-recent-file consult-xref
consult--source-recent-file consult--source-project-recent-file consult--source-bookmark
:preview-key (kbd "M-."))
;; Optionally configure the narrowing key.
;; Both < and C-+ work reasonably well.
(setq consult-narrow-key "<") ;; (kbd "C-+")
(autoload 'projectile-project-root "projectile")
(setq consult-project-root-function #'projectile-project-root)
;; Use `consult-ripgrep' instead of `consult-line' in large buffers
(defun consult-line-symbol-at-point ()
"Consult line the synbol where the point is"
(interactive)
(consult-line (thing-at-point 'symbol)))
)corfu 通过弹窗进行补全。
(use-package corfu
:ensure t
:hook (after-init . global-corfu-mode)
:bind
(:map corfu-map
("SPC" . corfu-insert-separator) ; configure space for separator insertion
("M-q" . corfu-quick-complete) ; use C-g to exit
("TAB" . corfu-next)
([tab] . corfu-next)
("S-TAB" . corfu-previous)
([backtab] . corfu-previous))
:config
;; TAB cycle if there are only few candidates
(setq completion-cycle-threshold 0)
(setq tab-always-indent 'complete)
(defun corfu-enable-always-in-minibuffer ()
"Enable Corfu in the minibuffer if Vertico/Mct are not active."
(unless (or (bound-and-true-p mct--active)
(bound-and-true-p vertico--input))
;; (setq-local corfu-auto nil) Enable/disable auto completion
(corfu-mode 1)))
(add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
;; enable corfu in eshell
(add-hook 'eshell-mode-hook
(lambda ()
(setq-local corfu-auto nil)
(corfu-mode)))
;; For Eshell
;; ===========
;; avoid press RET twice in Eshell
(defun corfu-send-shell (&rest _)
"Send completion candidate when inside comint/eshell."
(cond
((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input))
(eshell-send-input))
((and (derived-mode-p 'comint-mode) (fboundp 'comint-send-input))
(comint-send-input))))
(advice-add #'corfu-insert :after #'corfu-send-shell)
:custom
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
)Cape 提供了一系列开箱即用的补全后端，跟corfu联合使用。
(use-package cape
:ensure t
:init
;; Add `completion-at-point-functions', used by `completion-at-point'.
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
(add-to-list 'completion-at-point-functions #'cape-keyword) ; programming language keyword
(add-to-list 'completion-at-point-functions #'cape-ispell)
(add-to-list 'completion-at-point-functions #'cape-dict)
(add-to-list 'completion-at-point-functions #'cape-symbol) ; elisp symbol
(add-to-list 'completion-at-point-functions #'cape-line)
:config
(setq cape-dict-file (expand-file-name "etc/hunspell_dict.txt" user-emacs-directory))
;; for Eshell:
;; ===========
;; Silence the pcomplete capf, no errors or messages!
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
;; Ensure that pcomplete does not write to the buffer
;; and behaves as a pure `completion-at-point-function'.
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)
)yasnippet 插件是一个非常强大的模板补全系统。
;; yasnippet settings
(use-package yasnippet
:ensure t
:diminish yas-minor-mode
:hook ((after-init . yas-reload-all)
((prog-mode LaTeX-mode org-mode) . yas-minor-mode))
:config
;; Suppress warning for yasnippet code.
(require 'warnings)
(add-to-list 'warning-suppress-types '(yasnippet backquote-change))
(setq yas-prompt-functions '(yas-x-prompt yas-dropdown-prompt))
(defun smarter-yas-expand-next-field ()
"Try to `yas-expand' then `yas-next-field' at current cursor position."
(interactive)
(let ((old-point (point))
(old-tick (buffer-chars-modified-tick)))
(yas-expand)
(when (and (eq old-point (point))
(eq old-tick (buffer-chars-modified-tick)))
(ignore-errors (yas-next-field))))))(provide 'init-completion)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-completion.el ends here