我的Emacs配置

环境

使用 Windows Terminal + WSL2

配置

Windows Terminal

Windows Terminal 中打开设置，选择打开 JSON 文件，在 schemes 中添加配色方案

"schemes":
    [
        {
            "background": "#0D1117",
            "black": "#484F58",
            "blue": "#58A6FF",
            "brightBlack": "#6E7681",
            "brightBlue": "#79C0FF",
            "brightCyan": "#56D4DD",
            "brightGreen": "#56D364",
            "brightPurple": "#D2A8FF",
            "brightRed": "#FFA198",
            "brightWhite": "#FFFFFF",
            "brightYellow": "#E3B341",
            "cursorColor": "#2F81F7",
            "cyan": "#39C5CF",
            "foreground": "#E6EDF3",
            "green": "#3FB950",
            "name": "GitHub-Dark-Default",
            "purple": "#BC8CFF",
            "red": "#FF7B72",
            "selectionBackground": "#E6EDF3",
            "white": "#B1BAC4",
            "yellow": "#D29922"
        }
    ],

• 在 archlinux 的配置中选择 外观 选项卡
  • 配色方案选择 GitHub-Dark-Default
  • 字体选择 FiraCode Nerd Font
  • 背景不透明度 86%，选择启用亚克力材料
• 在 archlinux 的配置中选择 高级 选项卡
  • 铃声通知样式取消勾选声音，选择闪烁窗口和闪烁任务栏

Arch Linux

archlinux 需要下载一些软件包

pacman -Sy emacs-nox
pacman -Sy clang clangd clang-format rust-analyzer nvm
# 下载yay，然后
yay -S jdtls

source /usr/share/nvm/init-nvm.sh
nvm list-remote
nvm install v20.19.4
nvm use v20.19.4
npm i -g pyright bash-language-server

rm ~/.cargo/bin/rust-analyzer

ln -s /usr/bin/rust-analyzer ~/.cargo/bin/rust-analyzer

cargo install --git https://github.com/bergercookie/asm-lsp asm-lsp

# 创建配置文件，也可以用默认配置

asm-lsp gen-config

sudo pacman -S exa

echo 'alias ll="ls -alF"' >> ~/.bashrc
echo 'alias ls="exa --icons"' >> ~/.bashrc
source ~/.bashrc

Emacs 配置

(menu-bar-mode -1)
;;显示行号
(global-display-line-numbers-mode t)
;;在ModeLine显示列号
(add-hook 'prog-mode-hook 'column-number-mode)
;;代码的折叠
(add-hook 'prog-mode-hook 'hs-minor-mode)
;; 自动重载更改的文件
(global-auto-revert-mode 1)
;; 基本设置
(setq-default
 window-combination-resize t                      ;; 新窗口平均其他左右窗口
 x-stretch-cursor t                               ;; 将光标拉伸到字形宽度
 )

(setq ring-bell-function 'ignore
      initial-scratch-message nil
      inhibit-startup-message t
      auto-save-file-name-transforms '((".*" "~/.emacs.d/data/backup/" t)) ;; Write auto-save files to a separate directory
      backup-directory-alist '(("." . "~/.emacs.d/data/backup/"))          ;; Write backup files to a separate directory
      create-lockfiles nil                                                 ;; Disable lockfiles as I use only one Emacs instance
      scroll-conservatively 10000 ;;防止页面滚动时跳动
      undo-limit 80000000           ;; 提升撤销限制
      display-time-default-load-average nil ;; 不显示系统负载
      )

;; 时间显示设置
;; (setq display-time-24hr-format t   ;; 时间使用24小时制
;;       display-time-day-and-date t   ;; 时间显示包括日期和具体时间
;;       display-time-interval 10   ;; 时间的变化频率
;;       display-time-format "%Y-%m-%d %A %H:%M") ;; 显示完整日期
;; ;; 启用时间显示设置,在minibuffer上面的那个杠上
;; (display-time-mode 1)
;; ;; 立即强制刷新一次时间
;; (display-time-update)

;; 使用 Fira Code Nerd Font 字体
(set-face-attribute 'default nil
                    :font "FiraCode Nerd Font"
                    :height 120)  ;; 120=12pt，可根据需求调整

;; wsl与windos共享剪切版
(defun my/clipboard-to-windows (text &optional push)
  (let ((process-connection-type nil))
    (with-temp-buffer
      (insert text)
      (call-process-region (point-min) (point-max) "win32yank.exe" nil nil nil "-i"))))

(defun my/clipboard-from-windows ()
  (string-trim-right
   (with-output-to-string
     (call-process "win32yank.exe" nil standard-output nil "-o"))))

(setq interprogram-cut-function 'my/clipboard-to-windows)
(setq interprogram-paste-function 'my/clipboard-from-windows)



(defalias 'yes-or-no-p 'y-or-n-p)
;;不要创建备份文件
(setq make-backup-files nil)
;;不要创建lock文件
(setq create-lockfiles nil)
;; 不使用 TAB 字符，使用空格
(setq-default indent-tabs-mode nil)
;; tab 宽度设为 2 空格
(setq-default tab-width 4)
;; 当光标移动到边缘时，窗口每次只滚动一行
(setq scroll-step 1)

;;开启可视化换行，自动折行
(global-visual-line-mode 1)
;; 括号匹配
(electric-pair-mode 1)

(add-hook 'prog-mode-hook 'hs-minor-mode) ;代码的折叠

(global-set-key (kbd "C-/") 'undo-only)
(global-set-key (kbd "C-?") 'undo-redo)
;; 快捷键绑定：使用调整窗口大小
(global-set-key (kbd "M-<up>")    'enlarge-window)
(global-set-key (kbd "M-<down>")  'shrink-window)
(global-set-key (kbd "M-<left>")  'shrink-window-horizontally)
(global-set-key (kbd "M-<right>") 'enlarge-window-horizontally)

;; 中文显示
(set-language-environment "utf-8")
(set-buffer-file-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-clipboard-coding-system 'utf-8)
(modify-coding-system-alist 'process "*" 'utf-8)
(prefer-coding-system 'utf-8)
(setq-default pathname-coding-system 'utf-8)
(setq
 default-process-coding-system '(utf-8 . utf-8)
 locale-coding-system 'utf-8
 file-name-coding-system 'utf-8
 default-buffer-file-coding-system 'utf-8
 slime-net-coding-system 'utf-8-unix)

(setenv "LC_CTYPE" "UTF-8")
(setenv "LC_ALL" "en_US.UTF-8")
(setenv "LANG" "en_US.UTF-8")

(setq find-file-encoding 'auto)
(setq-default coding-system-for-read 'utf-8)
(setq-default coding-system-for-write 'utf-8)

;; 设置镜像源
;;(setq package-archives
;;      '(("melpa" . "https://melpa.org/packages/")
;;        ("gnu"   . "https://elpa.gnu.org/packages/")))
(setq package-archives '(("gnu"    . "https://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/")
                         ("nongnu" . "https://mirrors.tuna.tsinghua.edu.cn/elpa/nongnu/")
                         ("melpa"  . "https://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/")))

(use-package package
  :config
  (unless (bound-and-true-p package--initialized)
    (package-initialize)))

(setq use-package-always-ensure t)

;;doom主题
(use-package doom-themes
  :ensure t
  :init
  :config
  (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
        doom-themes-enable-italic t) ; if nil, italics is universally disable
  ;; 加载主题（例如 doom-one）
  (load-theme 'doom-tomorrow-night t)
  ;; 启用可选配置
  ;; 高亮当前行
  (doom-themes-visual-bell-config)
  ;; 改善 Org-mode 颜色
  (doom-themes-org-config))

(defun my/kill-scratch-buffer ()
  "在 Emacs 启动时关闭 *scratch* buffer."
  (when (get-buffer "*scratch*")
    (kill-buffer "*scratch*")))
(add-hook 'emacs-startup-hook #'my/kill-scratch-buffer)

;; tab栏显示buffer

 (use-package centaur-tabs
    :ensure t
    :demand
    :init
    :config
    (defun centaur-tabs-hide-tab (x)
      "自定义隐藏规则：隐藏特殊或无文件 buffer，但保留 vterm buffer."
      (let ((name (format "%s" x)))
        (or
         ;; 隐藏无文件 buffer，但保留 *vterm* buffer
         (and (not (buffer-file-name x)))
         ;; 专用窗口
         (window-dedicated-p (selected-window))
         ;; 临时 buffer
         (string-prefix-p "*" name)
         (string-prefix-p " " name)
         ;; Magit 非文件 buffer
         (and (string-prefix-p "magit" name)
              (not (file-name-extension name))))))

  (setq centaur-tabs-style "bar"
        centaur-tabs-set-bar 'over
        centaur-tabs-enable-key-bindings nil
        centaur-tabs-set-icons t
        centaur-tabs-icon-type 'nerd-icons
        centaur-tabs-set-close-button nil
        centaur-tabs-show-new-tab-button nil
        centaur-tabs-cycle-scope 'tabs)
  ;;启用插件
  (centaur-tabs-mode t)
  :bind
  ("C-<left>" . centaur-tabs-backward)
  ("C-<right>" . centaur-tabs-forward))

;; 虚拟终端
(use-package vterm
  :ensure t)


;; modeline主题
(use-package doom-modeline
  :ensure t
  :after nyan-mode
  :custom
  (doom-modeline-buffer-file-name-style 'truncate-all)
  :init (doom-modeline-mode 1))

;;显示进度条
(use-package nyan-mode
  :ensure t
  :init
  (nyan-mode 1))

;;文件导航栏
(use-package neotree
  :ensure t
  :bind (("<f8>" . neotree-toggle))
  :config
  (setq neo-theme 'nerd-icons)
  (setq neo-smart-open t)       ;;  打开时自动跳到当前文件路径
  (setq neo-show-hidden-files t);;  显示隐藏文件
  )

;; (use-package nerd-icons
;;   :custom
;;   ;; The Nerd Font you want to use in GUI
;;   ;; "Symbols Nerd Font Mono" is the default and is recommended
;;   ;; but you can use any other Nerd Font if you want
;;    (nerd-icons-font-family "FiraCode Nerd Font")
;;   )


;;预览要跳转的行
(use-package goto-line-preview :ensure t
  :bind (("M-g g" . goto-line-preview)))


;;代码整行上移下移
(use-package move-dup
  :bind (("C-M-p"   . move-dup-move-lines-up)
     ;;    ("C-M-p" . move-dup-duplicate-up)
         ("C-M-n"   . move-dup-move-lines-down)
     ;;    ("C-M-n" . move-dup-duplicate-down)
         ))

(use-package exec-path-from-shell
  :ensure t
  :config
  (when (memq window-system '(mac ns x))
    (exec-path-from-shell-initialize)))

;; Git工具
(use-package magit
  :ensure t
  :defer t
  :bind (("C-x g" . magit-log-all))
)
;; 语法解析
(use-package tree-sitter
  :when (and (fboundp 'treesit-available-p)
             (treesit-available-p))
  :config (setq treesit-font-lock-level 4)
  :init
  (setq treesit-language-source-alist
        '((bash       . ("https://github.com/tree-sitter/tree-sitter-bash"))
          (c          . ("https://github.com/tree-sitter/tree-sitter-c"))
          (cpp        . ("https://github.com/tree-sitter/tree-sitter-cpp"))
          (python     . ("https://github.com/tree-sitter/tree-sitter-python"))
          (rust       . ("https://github.com/tree-sitter/tree-sitter-rust"))
          (toml       . ("https://github.com/tree-sitter/tree-sitter-toml"))
          (elisp      . ("https://github.com/Wilfred/tree-sitter-elisp"))
          (cmake      . ("https://github.com/uyha/tree-sitter-cmake"))
          (dockerfile . ("https://github.com/camdencheek/tree-sitter-dockerfile"))
          (make       . ("https://github.com/alemuller/tree-sitter-make"))
          (yaml       . ("https://github.com/ikatyang/tree-sitter-yaml"))
          (json       . ("https://github.com/tree-sitter/tree-sitter-json"))
          (java       . ("https://github.com/tree-sitter/tree-sitter-java.git"))
          (markdown   . ("https://github.com/MDeiml/tree-sitter-markdown" nil "tree-sitter-markdown/src"))
          ))

  ;;没有内置<languate>-mode的需要添加
  (add-to-list 'auto-mode-alist '("\\.y[a]?ml\\'" . yaml-ts-mode))
  (add-to-list 'auto-mode-alist '("\\(?:Dockerfile\\(?:\\..*\\)?\\|\\.[Dd]ockerfile\\)\\'" . dockerfile-mode))
)

;; 安装 tree-sitter 语法解析器（仅 Emacs 29+）
(dolist (lang '(bash c cpp python rust toml elisp cmake dockerfile make yaml json java markdown))
  (unless (treesit-language-available-p lang)
    (treesit-install-language-grammar lang)))

;; 优先使用 Tree-sitter mode
(setq major-mode-remap-alist
      '((bash-mode        . bash-ts-mode)
        (c-mode           . c-ts-mode)
        (c++-mode         . c++-ts-mode)
        (python-mode      . python-ts-mode)
        (rust-mode        . rust-ts-mode)
        (conf-toml-mode   . toml-ts-mode)
        (elisp-mode  . elisp-ts-mode)
        (cmake-mode       . cmake-ts-mode)
        (dockerfile-mode  . dockerfile-ts-mode)
        (json-mode        . json-ts-mode)
        (java-mode        . java-ts-mode)
        (yaml-mode        . yaml-ts-mode)
        (makefile-mode    . makefile-ts-mode)
        ))

;; lsp语言服务器配置
(require 'eglot)

(setq eglot-server-programs
      '(((c++-mode c-mode c++-ts-mode c-ts-mode)     . ("clangd"))
        ((rust-mode rust-ts-mode)                    . ("rust-analyzer"))
        ((asm-mode nasm-mode)                        . ("asm-lsp"))
        ((python-mode python-ts-mode)                . ("pyright-langserver" "--stdio"))
        ((java-mode java-ts-mode)                    . ("jdtls"))
        ((bash-mode bash-ts-mode sh-mode sh-ts-mode) . ("bash-language-server" "start"))
        ))
(global-set-key (kbd "M-n") #'flymake-goto-next-error)
(global-set-key (kbd "M-p") #'flymake-goto-prev-error)

;; eglot快捷键
(global-set-key (kbd "M-,") 'xref-find-definitions)  ;; 跳转到定义
(global-set-key (kbd "M-.") 'xref-pop-marker-stack)  ;; 跳回
(global-set-key (kbd "M-?") 'xref-find-references)   ;; 查找引用

;;自动打开eglot
(dolist (hook '(c-mode-hook c-ts-mode-hook
                c++-mode-hook c++-ts-mode-hook
                rust-mode-hook rust-ts-mode-hook
                asm-mode-hook nasm-mode-hook
                python-mode-hook python-ts-mode-hook
                java-mode-hook java-ts-mode-hook
                bash-mode-hook bash-ts-mode-hook
                sh-mode-hook sh-ts-mode-hook))
  (add-hook hook 'eglot-ensure))

;; comment
(defun my-cpp-line-comments ()
  "Use // comments instead of /* */ in C/C++."
  (setq-local comment-start "// "
              comment-end ""
              comment-start-skip "//+\\s-*"))

(dolist (hook '(c-mode-hook c++-mode-hook c-ts-mode-hook c++-ts-mode-hook
                rust-mode-hook rust-ts-mode-hook python-mode-hook python-ts-mode-hook java-mode-hook java-ts-mode-hook))
  (add-hook hook #'my-cpp-line-comments))

;; 自动补全
(use-package company :ensure t :defer t
  :hook (after-init . global-company-mode))

;; 格式化
(use-package format-all
  :ensure t
  :commands format-all-mode
  :hook (prog-mode . format-all-mode)
  :config
  (setq-default format-all-formatters
                '(("C" (clang-format))
                  ("C++"     (clang-format))
                  ("rust" (rustfmt))
                  )))

(global-set-key (kbd "C-x f") 'format-all-buffer)


;; which-key 显示键绑定提示
(use-package which-key
  :ensure t
  :config
  (which-key-mode))
;; 窗格切换
(use-package ace-window
  :ensure t
  :bind (("M-o" . ace-window)))
;; 窗格移动
(use-package buffer-move
  :ensure t
  :bind (("C-c <up>"    . buf-move-up)
         ("C-c <down>"  . buf-move-down)
         ("C-c <left>"  . buf-move-left)
         ("C-c <right>" . buf-move-right)))
;; 智能按键C-a C-c k
(use-package crux
  :bind (("C-a" . 'crux-move-beginning-of-line)
         ("C-c k" . 'crux-smart-kill-line)))
;; 项目识别,通过创建.projectile文件识别为一个项目
(use-package projectile
  :ensure t
  :init
  (projectile-mode +1)
  :bind-keymap
  ("C-c p" . projectile-command-map)
  :config
  (setq projectile-project-search-path '("~/repository"))
  (setq projectile-completion-system 'auto))  ;; 或 ivy / helm / default

(defun my-vscode-layout ()
  "Neotree 左侧，右侧上下分为代码和 eshell，放大代码窗口，焦点回代码。"
  (interactive)
  (let ((orig-buffer (current-buffer)))
    ;; 删除所有窗口，统一布局
    (delete-other-windows)
    ;; 打开 Neotree（会自动左右分割）
    (neotree-show)
    ;; 选中右侧工作区
    (select-window (next-window))
    ;; 上下分割：上是代码，下是 eshell
    (split-window-below)
    ;; 当前是上窗口，记录下来
    (let ((code-win (selected-window)))
      ;; 选中下窗口并打开 eshell
      (other-window 1)
      (vterm)
      ;; 回到上窗口并还原 buffer
      (select-window code-win)
      (switch-to-buffer orig-buffer)
      ;; 放大代码区窗口，让 eshell 更小（例如放大 10 行）
      (enlarge-window 10)
      )))

(global-set-key (kbd "C-c v") #'my-vscode-layout)

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages nil))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

预览

快捷键配置总览

快捷键	功能描述	来源配置
C-/	撤销（undo-only）	手动绑定
C-?	重做（undo-redo）	手动绑定
M-	增大当前窗口高度	手动绑定
M-	减小当前窗口高度	手动绑定
M-	减小当前窗口宽度	手动绑定
M-	增大当前窗口宽度	手动绑定
C-	切换到前一个 Tab（Centaur Tabs）	centaur-tabs
C-	切换到下一个 Tab	centaur-tabs
M-g g	预览跳转到指定行（goto-line-preview）	goto-line-preview
M-C-p	将当前行上移	move-dup
M-C-n	将当前行下移	move-dup
M-p	下一个错误	flymake
M-n	上一个错误	flymake
f8	打开/关闭文件树侧边栏（neotree）	neotree
C-x g	查看当前 Git 仓库的所有提交	magit
C-x f	格式化当前 buffer（clang-format / rustfmt）	format-all
M-,	跳转到定义（xref-find-definitions，需 LSP 支持）	手动绑定
M-.	跳回上一个位置（xref-pop-marker-stack）	手动绑定
M-?	查找引用（xref-find-references，需 LSP 支持）	手动绑定
M-o	在多个窗口间切换焦点	ace-window
C-c	当前 buffer 上移到另一个窗口	buffer-move
C-c	当前 buffer 下移到另一个窗口	buffer-move
C-c	当前 buffer 左移到另一个窗口	buffer-move
C-c	当前 buffer 右移到另一个窗口	buffer-move
C-a	智能移动光标到行首（再次按可回到代码开始处）	crux
C-c k	智能删除一行（不会破坏缩进）	crux
C-c p	Projectile 项目命令前缀	projectile
C-x SPC	矩形选择模式，可以选择某些列	内置