style(config): Reformat Emacs Lisp code for consistency

Standardize formatting across multiple init files: expand
single-line use-package keywords onto separate lines, fix
indentation, remove outdated comments, and clean up whitespace. Also
adds mc/keymap <return> binding and improves fcitx5 startup logic in
EXWM.
This commit is contained in:
2026-05-11 03:40:06 +08:00
parent 71a57a6922
commit aa4dea523e
11 changed files with 89 additions and 67 deletions

View File

@@ -16,21 +16,21 @@
(async-bytecomp-package-mode 1)
(setq async-bytecomp-allowed-packages '(all)))
;; 安装multiple-cursors
;; multiple-cursors
(use-package multiple-cursors
:config
(setq mc/insert-numbers-default 1))
;; 安装crux增强快捷键快捷键配置在init-kbd.el中
;; crux实用函数
(use-package crux)
;; 安装hungry-delete
;; hungry-delete,快速删除
(use-package hungry-delete)
;; 安装drag-stuff拖动字符
;; drag-stuff拖动字符
(use-package drag-stuff)
;; 安装which-key快捷键提示
;; which-key快捷键提示
(use-package which-key
:delight
:defer 0
@@ -40,22 +40,22 @@
;; ripgrep
(use-package rg)
;; 安装vertico
;; verticominibuffer补全
(use-package vertico
:init
(vertico-mode))
;; 安装orderless用于模糊搜索
;; orderless模糊搜索
(use-package orderless
:custom
(completion-styles '(orderless basic)))
;; 安装marginalia用于命令注释
;; marginalia命令注释
(use-package marginalia
:init
(marginalia-mode))
;; 安装consult增强搜索和其他菜单
;; consult搜索与导航
(use-package consult
:config
;; everything
@@ -74,7 +74,7 @@
(when *is-linux*
(setq consult-locate-args "plocate --basename --ignore-case")))
;; embark
;; embark,快捷指令
(use-package embark
:config
(setq prefix-help-command 'embark-prefix-help-command)
@@ -87,7 +87,6 @@
(let ((embark-quit-after-action nil))
(embark-dwim)))))
;; Hide the mode line of the Embark live/completions buffers
(add-to-list 'display-buffer-alist
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
nil
@@ -140,10 +139,10 @@ targets."
'embark-collect-mode-hook
#'consult-preview-at-point-mode))
;; wgrep
;; wgrepwritable grep
(use-package wgrep)
;; anzu
;; anzu显示isearch匹配数字
(use-package anzu
:delight
:init
@@ -162,12 +161,12 @@ targets."
savehist-autosave-interval 300)
(savehist-mode))
;; saveplace保存光标位置
;; 启用saveplace保存光标位置
(use-package saveplace
:init
(save-place-mode))
;; undo增强
;; 撤回增强和跨会话历史
(use-package undo-fu)
(use-package undo-fu-session
@@ -184,7 +183,7 @@ targets."
;; expand-region快速展开选中
(use-package expand-region)
;; projectile
;; projectile,项目管理
(use-package projectile
:delight
:init
@@ -239,11 +238,11 @@ targets."
(modify-syntax-entry (+ start i) "_" jinx--syntax-table)))))
(require 'init-jinx)))
;; vterm
;; vterm,终端
;; (unless *is-windows*
;; (use-package vterm))
;; eat
;; eat,终端
(use-package eat
:straight
(eat :type git
@@ -263,7 +262,7 @@ targets."
:config
(setq eat-term-terminfo-directory eat--terminfo-path))
;; general
;; general,键位绑定
(use-package general)
;; hydra
@@ -281,12 +280,12 @@ targets."
(?t "Types" font-lock-type-face)
(?v "Variables" font-lock-variable-name-face)))))))
;; perspective
;; perspective,工作区管理
(use-package perspective
:bind
("C-x M-b" . persp-list-buffers) ; or use a nicer switcher, see below
("C-x M-b" . persp-list-buffers)
:custom
(persp-mode-prefix-key (kbd "C-c p")) ; pick your own prefix key here
(persp-mode-prefix-key (kbd "C-c p"))
:init
(persp-mode)
:config