admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

style: Convert tabs to spaces across Emacs config

Browse Source
This commit is contained in:
User
2026-07-02 17:36:06 +08:00
parent abe00aa936
commit ddd2ba4905
24 changed files with 384 additions and 379 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
lisp/init-completion.el
View File

@@ -1,4 +1,4 @@
;;; init-completion.el --- completion config -*- lexical-binding: t -*-
;;; init-completion.el --- completion config -*- lexical-binding: t -*-
;;; Commentary:
@@ -26,9 +26,9 @@
(cond
(*is-windows*
(setq consult-locate-args (encode-coding-string "es.exe -i -p -r" 'gbk)
consult-ripgrep-args (encode-coding-string
"rg --null --line-buffered --color=never --max-columns=1000 --path-separator / --smart-case --no-heading --line-number"
'gbk))
consult-ripgrep-args (encode-coding-string
"rg --null --line-buffered --color=never --max-columns=1000 --path-separator / --smart-case --no-heading --line-number"
'gbk))
(add-to-list 'process-coding-system-alist '("es" gbk . gbk)))
(*is-mac*
(setq consult-locate-args "mdfind -name"))
@@ -40,18 +40,18 @@
;; set some buffer filter
(setq consult-buffer-filter
(cl-union consult-buffer-filter
'("^\\*dirvish"
"^PREVIEW"
"^\\*helpful"
"^\\*Help"
"Diff"
"straight"
"\\*Messages\\*"
"\\*Chinese-word-segmentation\\*"
"\\*gptel-reasoning\\*"
"\\*gptel-log\\*")
:test 'equal)))
(cl-union consult-buffer-filter
'("^\\*dirvish"
"^PREVIEW"
"^\\*helpful"
"^\\*Help"
"Diff"
"straight"
"\\*Messages\\*"
"\\*Chinese-word-segmentation\\*"
"\\*gptel-reasoning\\*"
"\\*gptel-log\\*")
:test 'equal)))
;; embark，快捷指令
(use-package embark
@@ -127,7 +127,7 @@ targets."
(add-hook 'eglot-managed-mode-hook
(lambda ()
(when (derived-mode-p 'scheme-mode)
(setq-local completion-at-point-functions
(setq-local completion-at-point-functions
(remq 'eglot-completion-at-point
completion-at-point-functions))))))
@@ -137,7 +137,7 @@ targets."
(corfu-quit consult-completion-in-region)
:bind
(:map corfu-map
("M-d" . corfu-popupinfo-documentation))
("M-d" . corfu-popupinfo-documentation))
:custom
(corfu-auto t)
(corfu-auto-prefix 2)
@@ -147,10 +147,10 @@ targets."
(corfu-auto-delay 0.2)
(corfu-popupinfo-delay '(0.4 . 0.2))
(global-corfu-modes '((not erc-mode
circe-mode
help-mode
gud-mode
vterm-mode)
circe-mode
help-mode
gud-mode
vterm-mode)
t))
:hook
(after-init . global-corfu-mode)
@@ -165,7 +165,7 @@ targets."
(local-set-key (kbd "TAB") 'completion-at-point)))
:bind
(:map corfu-map
("RET" . nil)))
("RET" . nil)))
(if (not (and (display-graphic-p)
(>= emacs-major-version 31)))