My Emacs Configuration

even629

2025-01-12 (Updated: 2025-12-15)

tools

GNU, emacs, tools

Timeline

2025-01-12

init

2025-10-17

add clang-format

2025-12-03

modify indent style

2025-12-15

add desktop-save-mode, add ibuffer, add magit

This article introduces the Emacs configuration scheme in the Windows Terminal and WSL2 (Arch Linux and Ubuntu) environment, discussing in detail the terminal appearance settings, system dependency preparation, and the Emacs installation process. At the same time, it summarizes custom key bindings for common shortcuts such as code formatting, window adjustment, and LSP code navigation.

Environment

Using Windows Terminal + WSL2

Configuration

Windows Terminal

Open settings in Windows Terminal, select to open the JSON file, and add a color scheme in 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"
        }
    ],

In the archlinux configuration, select the Appearance tab
- Select GitHub-Dark-Default as the color scheme
- Select FiraCode Nerd Font as the font
- Background opacity 86%, select to enable acrylic material
In the archlinux configuration, select the Advanced tab
- Uncheck sound for bell notification style, select flash window and flash taskbar
Install win32yank.exe and add it to the environment variables so that it can be accessed directly from the command line.

If acrylic fails, simply turn off Windows power-saving mode.

Arch Linux

Arch Linux needs to download some packages.

Download yay reference.

archlinuxInstall.yay

https://wiki.archlinuxcn.org/wiki/Yay

Note that after downloading, it is best to change the sources for pacman and yay, otherwise the speed will be extremely slow.

# Set locale.
sudo nano /etc/locale.gen
# Find #en_US.UTF-8 UTF-8 and uncomment it.
sudo locale-gen

sudo pacman -Sy emacs-nox
sudo pacman -Sy clang nvm ripgrep bear pandoc

# python/bash development
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 devicetree-language-server prettier

# rust development
curl --proto '=https' --tlsv1.2 -sSf https://sh.rustup.rs | sh
rustup component add rust-analyzer

# Replace the system ls command with the exa command.
sudo pacman -S exa
# If using zsh, write it into zshrc.
echo 'alias ll="ls -alF"' >> ~/.bashrc
echo 'alias ls="exa --icons"' >> ~/.bashrc
source ~/.bashrc

mkdir -p ~/.emacs.d/data/backup
mkdir -p ~/.emacs.d/data/autosave

git config --global core.editor "emacs"

Ubuntu20.04

Reference:

WSL ubuntu20.04Installation and configuration.

https://even629.com/posts/2512299/

Emacs

Install.

Arch Linux can be installed directly via pacman; if using Ubuntu, consider compiling it yourself. Reference:

WSL ubuntu20.04Installation and configuration.

https://even629.com/posts/2512299/

Configuration

.emacs(Click to expand)

;;不显示menu-bar
(menu-bar-mode -1)
;;显示行号
(global-display-line-numbers-mode t)
;;在ModeLine显示列号
(column-number-mode 1)
;;代码的折叠
(add-hook 'prog-mode-hook 'hs-minor-mode)
;; 自动重载更改的文件
(global-auto-revert-mode 1)
;;开启可视化换行，自动折行
(global-visual-line-mode 1)
;; 括号匹配
(electric-pair-mode 1)
;; 自动缩进
(electric-indent-mode 1)

;; 鼠标模式
(xterm-mouse-mode 1)

;; 中文显示
(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
      )

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


;; 基本设置
(setq-default window-combination-resize t                      ;; 新窗口平均其他左右窗口
              x-stretch-cursor t                               ;; 将光标拉伸到字形宽度
              indent-tabs-mode nil
              tab-width 8
              )

(setq ring-bell-function 'ignore
      initial-scratch-message nil
      inhibit-startup-message t
      auto-save-file-name-transforms '((".*" "~/.emacs.d/data/autosave/" 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
      scroll-conservatively 10000 ;;防止页面滚动时跳动
      scroll-step 1               ;; 当光标移动到边缘时，窗口每次只滚动一行
      undo-limit 80000         ;; 提升撤销限制
      display-time-default-load-average nil ;; 不显示系统负载
      use-short-answers t
      comp-deferred-compilation t ;; Emacs 28+
      native-comp-async-report-warnings-errors nil
      )



(defun my/kill-unwanted-buffers ()
  "在 Emacs 启动时关闭一些不想要的 buffer."
  (dolist (buf-name '("*scratch*"
                      ;;"*Async-native-compile-log*" ;; can't be killed
                      ;;"*Messages*"
                      ))
    (when (get-buffer buf-name)
      (kill-buffer buf-name))))

(add-hook 'emacs-startup-hook #'my/kill-unwanted-buffers)

;; 启动速度统计
(add-hook 'emacs-startup-hook
          (lambda ()
            (message "Emacs ready in %s with %d garbage collections."
                     (format "%.2f seconds"
                             (float-time
                              (time-subtract after-init-time before-init-time)))
                     gcs-done)))

;; 如果用emacs打开文件则只打开文件，如果直接打开emacs则开启上次退出的非空界面
;; (add-hook 'after-init-hook
;;           (defun if-desktop-read ()
;; 	    (setq desktop-dirname             "~/.emacs.d/desktop/"
;; 		  desktop-base-file-name      "emacs.desktop"
;; 		  desktop-base-lock-name      "lock"
;; 		  desktop-path                (list desktop-dirname)
;; 		  desktop-save                t
;; 		  desktop-files-not-to-save   "^$" ;reload tramp paths
;; 		  desktop-load-locked-desktop nil
;; 		  desktop-auto-save-timeout   10)
;; 	    (desktop-save-mode 1)
;; 	    (if (< (length command-line-args) 2)
;; 		(desktop-read)))
;;           'if-desktop-read)

;; 使用 Fira Code Nerd Font 字体
(when (display-graphic-p)
  (set-face-attribute 'default nil
                      :font "FiraCode Nerd Font"
                      :height 120))


;; 剪贴板与系统共享：根据环境自动选择 WSL(Windows) 或 Ubuntu(Wayland/X11) 方案
(cond
 ;; 1. WSL 与 Windows 共享剪贴板（win32yank.exe）
 ((executable-find "win32yank.exe")
  (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))

 ;; 2. Ubuntu (Wayland) 终端环境（必须同时满足有 wl-copy 且环境变量存在）
 ((and (getenv "WAYLAND_DISPLAY")
       (executable-find "wl-copy") 
       (executable-find "wl-paste"))
  (defun my/clipboard-to-wayland (text &optional push)
    (let ((process-connection-type nil))
      (with-temp-buffer
        (insert text)
        (call-process-region (point-min) (point-max) "wl-copy" nil nil nil))))
  (defun my/clipboard-from-wayland ()
    (string-trim-right
     (with-output-to-string
       (call-process "wl-paste" nil standard-output nil))))
  (setq interprogram-cut-function 'my/clipboard-to-wayland)
  (setq interprogram-paste-function 'my/clipboard-from-wayland))

 ;; 3. Ubuntu (X11) 终端环境（备用方案，针对非 Wayland 环境）
 ((and (getenv "DISPLAY")
       (executable-find "xclip"))
  (defun my/clipboard-to-x11 (text &optional push)
    (let ((process-connection-type nil))
      (with-temp-buffer
        (insert text)
        (call-process-region (point-min) (point-max) "xclip" nil nil nil "-selection" "clipboard"))))
  (defun my/clipboard-from-x11 ()
    (string-trim-right
     (with-output-to-string
       (call-process "xclip" nil standard-output nil "-selection" "clipboard" "-o"))))
  (setq interprogram-cut-function 'my/clipboard-to-x11)
  (setq interprogram-paste-function 'my/clipboard-from-x11)))


;;设置镜像源
;; (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-verbose t
      use-package-always-ensure t
      use-package-minimum-reported-time 0.01)


;;通过github下载包
;; (unless (package-installed-p 'quelpa)
;;   (with-temp-buffer
;;     (url-insert-file-contents "https://raw.githubusercontent.com/quelpa/quelpa/master/quelpa.el")
;;     (eval-buffer)
;;     (quelpa-self-upgrade)))

;; ;; 关闭自动升级和 verbose（减少启动开销）
;; (setq quelpa-upgrade-p nil
;;       quelpa-verbose nil
;;       quelpa-checkout-melpa-p nil)

;; (quelpa
;;  '(quelpa-use-package
;;    :fetcher git
;;    :url "https://github.com/quelpa/quelpa-use-package.git"))

;; (require 'quelpa-use-package)

;; 防止 GC 触发太频繁
(use-package benchmark-init
  :ensure t
  :config
  ;; To disable collection of benchmark data after init is done.
  (add-hook 'after-init-hook 'benchmark-init/deactivate))

(setq gc-cons-threshold (* 128 1024 1024 ))
(add-hook 'after-init-hook (lambda () (setq gc-cons-threshold (* 5 1024 1024))))

;; 最近打开的文件
(use-package recentf
  :ensure t
  ;; Loads after 2 second of idle time.
  :defer 2)

(use-package nerd-icons
  :defer t
  :custom
  (nerd-icons-font-family "FiraCode Nerd Font")
  )

;;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 nil  ; if nil, italics is universally disable
        )
  ;; 加载主题（例如 doom-one）
  (load-theme 'doom-tomorrow-night t)
  (global-hl-line-mode 1)
  (doom-themes-visual-bell-config) ;; 视觉提示“响铃”（visual bell）
  )

;; dire 高亮
(use-package diredfl
  :ensure t
  :defer t
  :hook ((dired-mode . diredfl-mode)
         (dirvish-directory-view-mode . diredfl-mode))
  :config (set-face-attribute 'diredfl-dir-name nil :bold t))

(setq dired-free-space nil)
(setq dired-listing-switches
      "-l --almost-all --human-readable --group-directories-first --no-group")
(add-hook 'dired-mode-hook #'dired-hide-details-mode)

(use-package dirvish
  :ensure t
  :config
  (setq dirvish-default-layout '(main preview 0.75))  ; 移除 parent 面板
  (setq dirvish-mode-line-bar-image-width 0) ; hide the leading bar image

  (setq dirvish-mode-line-format
        '(:left (sort symlink) :right (omit yank index)))
  (setq dirvish-attributes           ; The order *MATTERS* for some attributes
        '(vc-state subtree-state nerd-icons git-msg)
        dirvish-side-attributes
        '(vc-state nerd-icons))
  ;; 修复:为 Dirvish 预览缓冲区开启行号
  (defun my-dirvish-preview-enable-line-numbers ()
    (unless (derived-mode-p 'dirvish-special-preview-mode)
      (display-line-numbers-mode 1)))

  ;; 将行号函数添加到预览缓冲区的钩子中
  (add-hook 'dirvish-preview-setup-hook #'my-dirvish-preview-enable-line-numbers)
  :hook (after-init . dirvish-override-dired-mode)
  :bind ("C-x C-j" . dirvish))

;; (use-package nerd-icons-dired
;;   :defer t
;;   :quelpa (nerd-icons-dired :fetcher github :repo "rainstormstudio/nerd-icons-dired")
;;   :vc (:url "https://github.com/rainstormstudio/nerd-icons-dired" :rev :newest)
;;   :after nerd-icons
;;   :hook (dired-mode . nerd-icons-dired-mode))

;;(add-hook 'dired-mode-hook 'nerd-icons-dired-mode)


;; Enable rich annotations using the Marginalia package
(use-package marginalia
  ;; Bind `marginalia-cycle' locally in the minibuffer.  To make the binding
  ;; available in the *Completions* buffer, add it to the
  ;; `completion-list-mode-map'.
  :defer t
  ;;:quelpa (marginalia :fetcher github :repo "")
  :vc (:url "https://github.com/minad/marginalia" :rev :newest)
  :bind (:map minibuffer-local-map
              ("M-A" . marginalia-cycle))

  ;; The :init section is always executed.
  :init
  ;; Marginalia must be activated in the :init section of use-package such that
  ;; the mode gets enabled right away. Note that this forces loading the
  ;; package.
  (marginalia-mode))

(use-package nerd-icons-completion
  :after marginalia
  :config
  (nerd-icons-completion-mode)
  (add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup))

(use-package nerd-icons-ibuffer
  :ensure t
  :config
  (setq  nerd-icons-ibuffer-human-readable-size t)
  :hook (ibuffer-mode . nerd-icons-ibuffer-mode))

(use-package ibuffer :ensure nil
  :config
  (setq ibuffer-expert t)
  (setq ibuffer-display-summary nil)
  (setq ibuffer-use-other-window nil)
  (setq ibuffer-show-empty-filter-groups nil)
  (setq ibuffer-default-sorting-mode 'filename/process)
  (setq ibuffer-title-face 'font-lock-doc-face)
  (setq ibuffer-use-header-line t)
  (setq ibuffer-default-shrink-to-minimum-size nil)
  (setq ibuffer-formats
        '((mark modified read-only locked " "
                (name 40 40 :left :elide) " "
                (size 9 -1 :right) " "
                (mode 16 16 :left :elide) " "
                filename-and-process)
          (mark " "
                (name 16 -1) " "
                filename)))
  (setq ibuffer-saved-filter-groups
        '(("Main"
           ("Directories" (mode . dired-mode))
           ("C/C++" (or
                     (mode . c++-mode)
                     (mode . c++-ts-mode)
                     (mode . c-mode)
                     (mode . c-ts-mode)
                     (mode . c-or-c++-ts-mode)))
           ("Devicetree" (or
                          (mode . dts-mode)
                          ))
           ("Python" (or
                      (mode . python-ts-mode)
                      (mode . c-mode)
                      (mode . python-mode)))
           ("Build" (or
                     (mode . make-mode)
                     (mode . makefile-gmake-mode)
                     (name . "^Makefile$")
                     (mode . change-log-mode)))
           ("Scripts" (or
                       (mode . shell-script-mode)
                       (mode . shell-mode)
                       (mode . sh-mode)
                       (mode . lua-mode)
                       (mode . bat-mode)))
           ("Config" (or
                      (mode . conf-mode)
                      (mode . conf-toml-mode)
                      (mode . toml-ts-mode)
                      (mode . conf-windows-mode)
                      (name . "^\\.clangd$")
                      (name . "^\\.gitignore$")
                      (name . "^Doxyfile$")
                      (name . "^config\\.toml$")
                      (mode . yaml-mode)))
           ("Web" (or
                   (mode . mhtml-mode)
                   (mode . html-mode)
                   (mode . web-mode)
                   (mode . nxml-mode)))
           ("CSS" (or
                   (mode . css-mode)
                   (mode . sass-mode)))
           ("JS" (or
                  (mode . js-mode)
                  (mode . rjsx-mode)))
           ("Markup" (or
                      (mode . markdown-mode)
                      (mode . adoc-mode)))
           ("Org" (mode . org-mode))
           ("LaTeX" (name . "\.tex$"))
           ("Magit" (or
                     (mode . magit-blame-mode)
                     (mode . magit-cherry-mode)
                     (mode . magit-diff-mode)
                     (mode . magit-log-mode)
                     (mode . magit-process-mode)
                     (mode . magit-status-mode)))
           ("Apps" (or
                    (mode . elfeed-search-mode)
                    (mode . elfeed-show-mode)))
           ("Claude Code" (and
                           (mode . vterm-mode)
                           (name . "^\\*claude\\*$")))
           ("Fundamental" (or
                           (mode . fundamental-mode)
                           (mode . text-mode)))
           ("Emacs" (or
                     (mode . emacs-lisp-mode)
                     (name . "^\\*Help\\*$")
                     (name . "^\\*Custom.*")
                     (name . "^\\*Org Agenda\\*$")
                     (name . "^\\*info\\*$")
                     (name . "^\\*scratch\\*$")
                     (name . "^\\*Backtrace\\*$")
                     (name . "^\\*Messages\\*$"))))))
  :hook
  (ibuffer-mode . (lambda ()
                    (ibuffer-switch-to-saved-filter-groups "Main")))
  )

;;tab栏显示buffer
;; (use-package centaur-tabs
;;   :ensure t
;;   :demand
;;   :init
;;   :config
;;   (defun centaur-tabs-hide-tab (x)
;;     "隐藏特殊 buffer，保留 GUD/GDB buffer."
;;     (let ((name (format "%s" x)))
;;       (cond
;;        ;; 保留所有 GDB/GUD 相关 buffer
;;        ((string-match-p
;;          "^\\*\\(gud\\|gdb\\)" name)
;;         nil)
;;        ;; 隐藏 *Messages*、*Async-native-compile-log* 等内部 buffer
;;        ((string-prefix-p "*" name) t)
;;        ;; Magit buffer
;;        ((and (string-prefix-p "magit" name)
;;              (not (file-name-extension name))) t)
;;        ;;非文件不显示
;;        ((not (buffer-file-name x)) t)
;;        ;; 其他 buffer 显示
;;        (t nil))))

;;   (defun centaur-tabs-buffer-groups ()
;;     "`centaur-tabs-buffer-groups' control buffers' group rules."
;;     (list
;;      (cond
;;       ((or (string-equal "*" (substring (buffer-name) 0 1))
;;            (memq major-mode '(magit-process-mode
;;                               magit-status-mode
;;                               magit-diff-mode
;;                               magit-log-mode
;;                               magit-file-mode
;;                               magit-blob-mode
;;                               magit-blame-mode
;;                               ))) "Emacs")
;;       ((memq major-mode '(helpful-mode
;;                           help-mode)) "Help")
;;       (t
;;        (centaur-tabs-get-group-name (current-buffer))))))

;;   (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-set-modified-marker t
;;         centaur-tabs-modified-marker "M"
;;         centaur-tabs-cycle-scope 'tabs)

;;   (centaur-tabs-mode t)
;;   :bind
;;   ("C-<left>" . centaur-tabs-backward)
;;   ("C-<right>" . centaur-tabs-forward)
;;   :hook
;;   (dired-mode . centaur-tabs-local-mode)
;;   )


;; modeline主题
(use-package doom-modeline
  :ensure t
  :custom
  (doom-modeline-buffer-file-name-style 'truncate-except-project) ; 更智能的文件名截断
  (doom-modeline-env-version t) ; 显示 Python/Rust 版本等
  (doom-modeline-major-mode-icon t)
  :init (doom-modeline-mode 1))


;;文件导航栏
;; (use-package neotree
;;   :defer t
;;   :ensure t
;;   :bind (("<f8>" . neotree-toggle))
;;   :config
;;   (setq neo-theme 'nerd-icons)
;;   (setq neo-smart-open t)       ;;  打开时自动跳到当前文件路径
;;   (setq neo-show-hidden-files t);;  显示隐藏文件
;;   )
;; ;; neotree buffer 中强制截断长行
;; (add-hook 'neo-after-create-hook
;;           (lambda (_)
;;             ;; 不换行，禁用 visual-line（你全局开了的话）
;;             (visual-line-mode -1)
;;             (setq-local truncate-lines t)

;;             ;; 用 “…” 代替右侧的 $ 截断标记
;;             (let ((tbl (or buffer-display-table (make-display-table))))
;;               (set-display-table-slot tbl 'truncation (make-glyph-code ?…))
;;               (setq-local buffer-display-table tbl))))
;; ;; 允许 neotree 窗口宽度可调整
;; (with-eval-after-load 'neotree
;;   (setq neo-window-fixed-size nil))


(use-package undo-tree
  :ensure t
  :init (global-undo-tree-mode)
  :config
  ;;将undo-tree生成的文件,都写入到~/.emacs.d/.cache,方便管理.
  (setq undo-tree-history-directory-alist `(("." . "~/.emacs.d/.cache")))
  )


;; enhancement for amx
;; 命令按历史排序
(use-package amx
  :ensure t
  :defer t
  :init (amx-mode))


(use-package exec-path-from-shell
  :ensure t
  :init
  :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-status))
  )

(use-package markdown-mode
  :ensure t
  :defer t
  :mode ("\\.md\\'" . markdown-mode)
  :init (setq markdown-command "pandoc")
  ;; 额外添加 README/readme 等文件的关联
  (add-to-list 'auto-mode-alist '("README\\'" . markdown-mode))
  (add-to-list 'auto-mode-alist '("readme\\'" . markdown-mode))
  ;; 可选：也支持 README.md, Readme.md 等大小写变体
  (add-to-list 'auto-mode-alist '("[Rr]eadme\\(?:\\.md\\)?\\'" . markdown-mode)))

(use-package dts-mode
  :ensure t
  :defer t
  )

;; 语法解析
(use-package tree-sitter
  :ensure t
  ;; :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" "v0.20.0"))
          (c          . ("https://github.com/tree-sitter/tree-sitter-c" "v0.21.3"))
          (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"))
	  (html       . ("https://github.com/tree-sitter/tree-sitter-html"))
	  (javascript . ("https://github.com/tree-sitter/tree-sitter-javascript"))
	  (css        . ("https://github.com/tree-sitter/tree-sitter-css"))
	  (go         . ("https://github.com/tree-sitter/tree-sitter-go"))
          ))

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

  )

;; 安装 tree-sitter 语法解析器（仅 Emacs 29+）
(run-with-idle-timer 3 nil  ; 启动后3秒空闲时执行
                     (lambda ()
                       (dolist (lang '(bash c cpp python rust toml elisp cmake dockerfile make yaml json java html javascript css go))
                         (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)

        (mhtml-mode       . html-ts-mode)
	(html-mode        . html-ts-mode)
        ;;(js-mode          . js-ts-mode)
        (css-mode         . css-ts-mode)
        ;;(go-mode          . go-ts-mode)
	))

;; 设置 C/C++ 模式的缩进为 8 个空格
(defun my-c-cpp-indent-setup ()
  "Customize C/C++ mode."
  (setq c-ts-mode-indent-offset 8)        ;; 缩进单位为 8
  (setq c-ts-mode-indent-style 'linux))

(dolist (hook '(c-mode-hook
                c++-mode-hook
                c-ts-mode-hook
                c++-ts-mode-hook))
  (add-hook hook #'my-c-cpp-indent-setup))



;; lsp语言服务器配置
(use-package eglot
  :ensure t
  :defer 1
  :config
  (setq eglot-server-programs
        '(((c-mode-hook c++-mode-hook c++-ts-mode c-ts-mode)
           . ("clangd"
              ;; "-j=4"
              "--enable-config"
              "--background-index"
              ;; "--background-index-priority=low"
              "--clang-tidy"
              "--completion-style=detailed"
              "--ranking-model=decision_forest"
              "--header-insertion=never"
              ;; "--all-scopes-completion"
              "--pretty"
              ;; "--fallback-style=none"
              ;;"--query-driver=aarch64-linux-gnu-*"
              ;;"--query-driver=gcc,g++"
              "--query-driver=/usr/bin/g++,/usr/bin/gcc"
              ))
          ((dts-mode)                                  . ("devicetree-language-server" "--stdio"))
          ((rust-mode rust-ts-mode)                    . ("rust-analyzer" :initializationOptions
                                                          (:cargo (:buildScripts (:enable t))
                                                                  :procMacro (:enable t))))

          ((python-mode python-ts-mode)                . ("pyright-langserver" "--stdio"))

          ;; ((bash-mode bash-ts-mode sh-mode sh-ts-mode) . ("bash-language-server" "start"))
          ;; ((toml-mode toml-ts-mode)                    . ("taplo" "lsp" "stdio"))
          ;; ((yaml-mode yaml-ts-mode)                    . ("yaml-language-server" "--stdio"))
          ;; ((markdown-mode markdown-ts-mode)            . ("marksman"))

          ))

  ;; 关闭lsp自动格式化
  (setq eglot-ignored-server-capabilities '(:documentOnTypeFormattingProvider))
  )

;;自动打开eglot
(dolist (hook '(c-mode-hook c-ts-mode-hook c++-mode-hook c++-ts-mode-hook
                            dts-mode-hook
                            rust-mode-hook rust-ts-mode-hook
                            python-mode-hook python-ts-mode-hook
                            ;;bash-mode-hook bash-ts-mode-hook
                            ;;sh-mode-hook sh-ts-mode-hook
                            ;; markdown-mode-hook markdown-ts-mode-hook
                            ;; toml-mode-hook toml-ts-mode-hook
                            ;; yaml-mode-hook yaml-ts-mode-hook
			    ))
  (add-hook hook 'eglot-ensure))


;; 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)   ;; 查找引用

;; 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 yasnippet
  :ensure t
  :hook (after-init . yas-global-mode)
  :config
  ;; 可选：设置 snippet 目录（默认已包含 ～/.emacs.d/snippets）
  ;; (setq yas-snippet-dirs '("～/.emacs.d/snippets"))
  )


;; 自动补全
(use-package company
  :defer 1
  :ensure t
  :hook (after-init . global-company-mode)
  :config
  ;; 光标停留 0 秒立即弹出补全
  (setq company-idle-delay 0)
  ;; 后端
  (setq company-backends '((company-capf :with company-yasnippet)
                           company-keywords
                           company-files))
  ;; 最少 1 个字符触发补全，0 表示空白处也可以触发
  (setq company-minimum-prefix-length 1)
  ;; 补全候选最多显示 30 个
  (setq company-tooltip-limit 30)
  (setq eldoc-idle-delay 0.3)
  ;; GDB配置
  (add-hook 'gud-mode-hook (lambda () (company-mode -1))) ;; gud模式下禁用 company
  ;; 在 eshell 模式下禁用 company-mode
  (add-hook 'eshell-mode-hook (lambda () (company-mode -1)))
  )

;; 格式化
(use-package format-all
  :ensure t
  :defer t
  :commands format-all-mode
  ;; :hook (prog-mode . format-all-mode) ;; 禁用自动保存格式化
  :config
  (setq-default format-all-formatters
                '(("C" (clang-format))
                  ("C++"     (clang-format))
                  ;; ("Java" (clang-format))
                  ("Rust" (rustfmt))
                  ("JavaScript" (prettier))
                  ("Markdown" (prettier))
                  ("YAML" (prettier))
                  ;;("TOML" (taplo-fmt))
                  ;;("Devicetree" (dtsfmt))
                  )))

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

;; claude code
;; install required inheritenv dependency:
(use-package inheritenv
  :vc (:url "https://github.com/purcell/inheritenv" :rev :newest))

(use-package monet
  :vc (:url "https://github.com/stevemolitor/monet" :rev :newest))

;; for vterm terminal backend:
(use-package vterm :ensure t)

;; install claude-code.el
(use-package claude-code :ensure t
  :vc (:url "https://github.com/stevemolitor/claude-code.el" :rev :newest)
  :config
  ;; optional IDE integration with Monet
  (add-hook 'claude-code-process-environment-functions #'monet-start-server-function)
  (monet-mode 1)
  (setq claude-code-terminal-backend 'vterm)
  (claude-code-mode)
  :bind-keymap ("C-c c" . claude-code-command-map)
  ;; Optionally define a repeat map so that "M" will cycle thru Claude auto-accept/plan/confirm modes after invoking claude-code-cycle-mode / C-c M.
  :bind
  (:repeat-map my-claude-code-map ("M" . claude-code-cycle-mode)))

;; which-key 显示键绑定提示
(use-package which-key
  :ensure t
  :defer t
  :config
  (which-key-mode))

;; 窗格切换
(use-package ace-window
  :ensure t
  :defer t
  :bind (("M-o" . ace-window)))

;; 窗格移动
(use-package buffer-move
  :ensure t
  :defer 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
  :ensure t
  :defer t
  :bind (("C-a" . 'crux-move-beginning-of-line)
         ("C-c k" . 'crux-smart-kill-line)))

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


;;代码整行上移下移
(use-package move-dup
  :ensure t
  :defer t
  :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)
         ))

;; 项目识别,通过创建.projectile文件识别为一个项目
(setq project-find-functions nil)

(use-package projectile
  :ensure t
  ;;:init
  ;; :bind-keymap
  ;; ("C-c p" . projectile-command-map)
  :config
  (projectile-mode +1)
  (setq projectile-enable-caching t)
  (setq projectile-project-search-path '("~/repository"))
  (setq projectile-completion-system 'auto) ;; 或 ivy / helm / default

  (use-package rg
    :defer t
    :ensure t))

(use-package multiple-cursors
  :ensure t
  :config
  (global-set-key (kbd "C-c m") 'mc/mark-all-dwim))

;; 快捷键定义必须放在后面否则容易被其他插件覆盖

;; next error
(global-set-key (kbd "M-n") #'flymake-goto-next-error)
(global-set-key (kbd "M-p") #'flymake-goto-prev-error)

;; 快捷键绑定：使用调整窗口大小
(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)

;;撤销
(global-set-key (kbd "C-/") 'undo-only)

;;全局搜索
(global-set-key (kbd "C-c C-s") 'projectile-ripgrep)

(defun k-insert-timestamp ()
  (interactive)
  (insert (format-time-string "%Y-%m-%d %H:%M")))

(defun k-insert-date ()
  (interactive)
  (insert (format-time-string "%Y-%m-%d")))

(global-set-key (kbd "C-c t") 'k-insert-timestamp)
(global-set-key (kbd "C-c d") 'k-insert-date)

(global-unset-key (kbd "C-x C-b"))
(global-set-key (kbd "C-x C-b") 'ibuffer)

(global-set-key (kbd "TAB") 'tab-to-tab-stop)

(global-set-key (kbd "C-x k")
                (lambda ()
                  (interactive)
                  (kill-this-buffer)))

(add-hook 'prog-mode-hook
          (lambda ()
            (local-set-key (kbd "C-c p") #'flymake-show-buffer-diagnostics) ;; problem
            (local-set-key (kbd "C-c f") #'eglot-code-actions))) ;; fix

(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)
 '(package-vc-selected-packages
   '((claude-code :url "https://github.com/stevemolitor/claude-code.el"))))
(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.
 )

Shortcut Key Configuration Overview

“C” in Emacs representsCtrl
“M” in Emacs representsAlt

Shortcut Key	Function Description	Source Configuration
C-/	Undo (undo-only)	Manual Binding
M-<up>	Increase current window height	Manual Binding
M-<down>	Decrease current window height	Manual Binding
M-<left>	Decrease current window width	Manual binding
M-<right>	Increase current window width	Manual binding
C-<left>	Switch to previous tab (Centaur Tabs)	`centaur-tabs`
C-<right>	Switch to next tab	`centaur-tabs`
M-g g	Preview jump to specified line (goto-line-preview)	`goto-line-preview`
M-C-p	Move current line up	`move-dup`
M-C-n	Move current line down	`move-dup`
M-p	Next error	`flymake`
M-n	Previous error	`flymake`
C-c p	Show all errors	`flymake`
C-c f	Fix code using LSP (eglot-code-actions)	`eglot`
C-x C-j	Open file browser (dirvish)	`dirvish`
C-x C-f	Find file and open	Built-in
C-x C-b	Open buffer browser	`Ibuffer`
C-x g	magit status	`magit`
C-x f	Format current buffer (clang-format / rustfmt)	`format-all`
M-,	Jump to definition (xref-find-definitions, requires LSP support)	Manual binding
M-.	Jump back to previous position (xref-pop-marker-stack)	Manual binding
M-?	Find references (xref-find-references, requires LSP support)	Manual binding
M-o	Switch focus between multiple windows	`ace-window`
C-c <up>	Move current buffer up to another window	`buffer-move`
C-c <down>	Move current buffer down to another window	`buffer-move`
C-c <left>	Move current buffer left to another window	`buffer-move`
C-c <right>	Move current buffer right to another window	`buffer-move`
C-a	Smart move cursor to beginning of line (press again to go to code start)	`crux`
C-c k	Smart delete a line (does not break indentation)	`crux`
C-x SPC	Rectangle selection mode, can select certain columns	Built-in
M-<	Move to beginning of buffer	Built-in
M->	Move to end of buffer	Built-in
C-c t	Insert timestamp	Manual binding
C-c d	Insert date	Manual binding
C-x u	Open undo-tree	undo-tree

M-X projectile-ripgrepGlobal search with ripgrep
C-c C-sGlobal search in project
M-x recenterCenter current line in window
M-x eglot-renameRename symbol while programming
M-x man, then enter the function to search for, e.g.shmget(2)where 2 means search for syscall, then in*Man*buffer, use:
- M-n→ next man page
- M-p→ previous man page

The following key operations are available:

Key	Function
`Enter`or`f`	Switch to the buffer at the cursor line
`o`	Switch to that buffer and keep`Buffer List`
`d`	Mark this buffer as “to be deleted” (not immediately deleted)
`x`	Actually deleteall marked buffers
`s`	Save this buffer (if modified)
`u`	Unmark (if previously pressed`d`）
`q`	Close`Buffer List`Window
`g`	Refresh list (reload latest status)

After marking deletion with d, press x to actually delete

magit

Magit’s design philosophy is:One key = one action。

Key	Function
`s`	StageFile/region under cursor (equivalent to`git add`）
`u`	Unstage(Unstage)
`c`	Commit(Commit) → then press`c`Confirm
`P`	PushPush to remote
`F`	FetchPull updates from remote
`p`	Pull(Pull and merge)
`b`	Branch operations (create/switch/merge)
`l`	Viewlog(Commit history)
`L`	View log with graph (similar to`git log --graph`）
`d`	DiffView changes
`=`	Press on commit`=`View diff of that commit
`q`	QuitClose current Magit buffer

⚠️ Note: These commands are only valid in the Magit status buffer (*magit: xxx*)!

After pressing a key, press Ctrl-g to cancel

Programming settings

For projects with a Makefile, use bear to generate compile_commands.json for clangd indexing

# Create in the project root directory to mark it as a project
touch .projectile

# Generate compile_command.json
make clean
bear -- make

For Linux kernel related settings, refer to

MinimumLinuxSystem compile and run

https://even629.com/posts/42869

.clang-format configuration

Directly used the Linux Kernel configuration, but used spaces instead of tabs, and increased ColumnLimit to 100

.clang-format

# SPDX-License-Identifier: GPL-2.0
#
# clang-format configuration file. Intended for clang-format >= 11.
#
# For more information, see:
#
#   Documentation/dev-tools/clang-format.rst
#   https://clang.llvm.org/docs/ClangFormat.html
#   https://clang.llvm.org/docs/ClangFormatStyleOptions.html
#
---
AccessModifierOffset: -4
AlignAfterOpenBracket: Align
AlignConsecutiveAssignments: false
AlignConsecutiveDeclarations: false
AlignEscapedNewlines: Left
AlignOperands: true
AlignTrailingComments: false
AllowAllParametersOfDeclarationOnNextLine: false
AllowShortBlocksOnASingleLine: false
AllowShortCaseLabelsOnASingleLine: false
AllowShortFunctionsOnASingleLine: None
AllowShortIfStatementsOnASingleLine: false
AllowShortLoopsOnASingleLine: false
AlwaysBreakAfterDefinitionReturnType: None
AlwaysBreakAfterReturnType: None
AlwaysBreakBeforeMultilineStrings: false
AlwaysBreakTemplateDeclarations: false
BinPackArguments: true
BinPackParameters: true
BraceWrapping:
  AfterClass: false
  AfterControlStatement: false
  AfterEnum: false
  AfterFunction: true
  AfterNamespace: true
  AfterObjCDeclaration: false
  AfterStruct: false
  AfterUnion: false
  AfterExternBlock: false
  BeforeCatch: false
  BeforeElse: false
  IndentBraces: false
  SplitEmptyFunction: true
  SplitEmptyRecord: true
  SplitEmptyNamespace: true
BreakBeforeBinaryOperators: None
BreakBeforeBraces: Custom
BreakBeforeInheritanceComma: false
BreakBeforeTernaryOperators: false
BreakConstructorInitializersBeforeComma: false
BreakConstructorInitializers: BeforeComma
BreakAfterJavaFieldAnnotations: false
BreakStringLiterals: false
ColumnLimit: 100
CommentPragmas: "^ IWYU pragma:"
CompactNamespaces: false
ConstructorInitializerAllOnOneLineOrOnePerLine: false
ConstructorInitializerIndentWidth: 8
ContinuationIndentWidth: 8
Cpp11BracedListStyle: false
DerivePointerAlignment: false
DisableFormat: false
ExperimentalAutoDetectBinPacking: false
FixNamespaceComments: false
IncludeBlocks: Preserve
IncludeCategories:
  - Regex: ".*"
    Priority: 1
IncludeIsMainRegex: "(Test)?$"
IndentCaseLabels: false
IndentGotoLabels: false
IndentPPDirectives: None
IndentWidth: 8
IndentWrappedFunctionNames: false
JavaScriptQuotes: Leave
JavaScriptWrapImports: true
KeepEmptyLinesAtTheStartOfBlocks: false
MacroBlockBegin: ""
MacroBlockEnd: ""
MaxEmptyLinesToKeep: 1
NamespaceIndentation: None
ObjCBinPackProtocolList: Auto
ObjCBlockIndentWidth: 8
ObjCSpaceAfterProperty: true
ObjCSpaceBeforeProtocolList: true

# Taken from git's rules
PenaltyBreakAssignment: 10
PenaltyBreakBeforeFirstCallParameter: 30
PenaltyBreakComment: 10
PenaltyBreakFirstLessLess: 0
PenaltyBreakString: 10
PenaltyExcessCharacter: 100
PenaltyReturnTypeOnItsOwnLine: 60

PointerAlignment: Right
ReflowComments: false
SortIncludes: false
SortUsingDeclarations: false
SpaceAfterCStyleCast: false
SpaceAfterTemplateKeyword: true
SpaceBeforeAssignmentOperators: true
SpaceBeforeCtorInitializerColon: true
SpaceBeforeInheritanceColon: true
SpaceBeforeParens: ControlStatementsExceptForEachMacros
SpaceBeforeRangeBasedForLoopColon: true
SpaceInEmptyParentheses: false
SpacesBeforeTrailingComments: 1
SpacesInAngles: false
SpacesInContainerLiterals: false
SpacesInCStyleCastParentheses: false
SpacesInParentheses: false
SpacesInSquareBrackets: false
Standard: Cpp03
TabWidth: 8
UseTab: false

Run Emacs as a daemon

systemd

Requires systemd

1 2	systemctl --user enable --now emacs emacsclient file.txt

Shell

1 2	emacs --daemon emacsclient file.txt

After finishing editing, pressCtrl+x, then#to exit, Emacs will mark the buffer as finished, and then emacsclient will exit. If no other buffers are in use, the LSP (e.g., clangd) started for that buffer will also exit.

But if you pressCtrl+xto exit, thenc, Emacs will consider that this buffer cannot be closed yet

Environment

Configuration

Windows Terminal

Arch Linux

Ubuntu20.04

Emacs

Install.

Configuration

Shortcut Key Configuration Overview

buffer-menu

magit

Programming settings

.clang-format configuration

Run Emacs as a daemon

systemd

Shell