include-yy's emacs config file

init.el

;;; init.el --- include-yy's emacs config -*- lexical-binding:t;no-byte-compile:t; -*-

;; Copyright (C) 2023 include-yy <yy@egh0bww1.com>

;; Author: include-yy <yy@egh0bww1.com>
;; Created: 17 Jun 2023

;; Version: 0.1
;; Keywords: config
;; URL: https://gist.github.com/include-yy/e70dcbfc1a80403814d0b7a7357971d9

;; Everyone is permitted to copy and distribute verbatim or modified
;; copies of this license document, and changing it is allowed as long
;; as the name is changed.

;;            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
;;   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION

;;  0. You just DO WHAT THE FUCK YOU WANT TO.

;;; Commentary:

;; 建议创建 early-init.el 并添加如下代码：
;; ;; -*- lexical-binding: t; -*-
;; (setopt package-user-dir
;;      (expand-file-name
;;       (format "elpa-%s"
;;               emacs-major-version)
;;          user-emacs-directory))

;; 请将本文件放在 ~/.emacs.d 目录，并删除可能存在的 ~/.emacs 文件

;; ;;@1 基础设置, ;;@2 内置包的设置, ;;@3 外部包的设置
;; ;;@4 一些零散的配置, ;;@5 详细的语言特定配置
;; ;;@@NAME 某包的配置, ;;@@ 一些无名配置, ;;te 需要手动配置的项

;; 一些可供参考的配置
;; https://github.com/purcell/emacs.d
;; https://github.com/manateelazycat/lazycat-emacs
;; https://github.com/redguardtoo/emacs.d
;; https://github.com/seagle0128/.emacs.d
;; https://github.com/lynnux/.emacs.d

;;; Code:
;;@1 基础配置
;;@@ emacs 版本必须大于等于 29.1
(when (version< emacs-version "29.1")
  (error "init.el: emacs version must >= 29.1"))

;;@@ 调整 emacs 的默认 GC 大小
;; https://github.com/purcell/emacs.d/blob/master/init.el#L27
(let ((normal-gc-cons-threshold (* 20 1024 1024))
      (init-gc-cons-threshold (* 128 1024 1024)))
  (setq gc-cons-threshold init-gc-cons-threshold)
  (add-hook 'emacs-startup-hook
            (lambda () (setq gc-cons-threshold normal-gc-cons-threshold))))

;;@@ 定义用户的自定义 group，可以保存一些特定于机器的选项
;; 或者其他的一些选项。配置文件中出现的 option 默认属于该组，无需指定 `:group'
(defgroup yy nil
  "配置文件中的选项，可用来保存一些特定于机器的路径或选项"
  :group 'emacs)
(defmacro yy/defcustom (symbol value doc &rest args)
  "保证使用 `yy/defcustom' 定义的 option 位于 `yy' 组内"
  (declare (doc-string 3) (debug (name body))
           (indent defun))
  (let ((args (if (plist-get args :group) args
		(cons :group (cons ''yy args)))))
    `(defcustom ,symbol ,value ,doc ,@args)))
(defun yy/add-to-group (sym)
  "添加某一 option 到 yy group 中，方便显示"
  (custom-add-to-group 'yy sym 'custom-variable))
(defun yy/customize ()
  (interactive)
  (customize-group 'yy))

;;@@ 额外的配置文件 `yy-local.el'
(when (file-exists-p "~/.emacs.d/yy-local.el")
  (load "~/.emacs.d/yy-local.el"))

;;@@ 设置 custom.el 的位置
(setopt custom-file "~/.emacs.d/custom.el")
(load custom-file t)

;;@@ 查看配置中需要手动配置的部分
(defun yy/occur-te ()
  "使用 `occur' 列出配置文件中需要手动配置的位置 ;;te"
  (interactive)
  (with-current-buffer (get-file-buffer "~/.emacs.d/init.el")
    (occur "^ *;;te")))

;;@@ 设置 changelog file 相关的一些选项
(setopt add-log-full-name "include-yy")
(setopt add-log-mailing-address "yy@egh0bww1.com")
(setopt add-log-time-zone-rule t) ; 使用 UTC+0 时间

;;@@ 启动时不显示 GNU Emacs startup 页面
(setopt inhibit-startup-screen t)
(setopt initial-scratch-message (format ";;Emacs %s" emacs-version))

;;@@ 关闭 C-g, 边界移动命令响铃
(setopt ring-bell-function 'ignore)

;;@@ 不使用对话框
(setopt use-dialog-box nil)

;;@@ 基础补全设置
;; 按下 TAB 时进行补全，可设置为 'complete
;; 使用补全框架则不用设置
;; (setopt tab-always-indent 'complete)
;; 让 C-h f, C-h v 在选词阶段提供更多信息，更好看
(setopt completions-detailed t)
;; Emacs 29 提供了许多不错的补全改进
;; 但是，我们现在有超级好用的 vectico 了，不过加上也不费事
;; https://www.scss.tcd.ie/~sulimanm/posts/default-emacs-completion.html
;; https://robbmann.io/posts/emacs-29-completions/
(setopt completions-format 'one-column) ; 在补全 buffer 中单列显示候选词
(setopt completions-header-format nil)  ; 补全 buffer 中不显示汇总信息
(setopt completions-max-height 20)      ; 补全 buffer 限高为 20 行
(setopt completion-auto-select nil)     ; 触发补全时不移动焦点到补全 buffer
;; 也许可以考虑试试 Protesilaos Stavrou 的时尚小垃圾 -- mct.el
;; https://protesilaos.com/emacs/mct

;;@@ 总是使用 y-or-n-p，可以少打字
;; 也可以设置 `use-short-answers' 为非空值
;; (defalias 'yes-or-no-p 'y-or-n-p)
(setopt use-short-answers t)

;;@@ 关闭一些窗口元素
(tool-bar-mode -1)     ; 关闭工具栏
(scroll-bar-mode -1)   ; 关闭滚动条
(menu-bar-mode -1)     ; 关闭菜单栏
(blink-cursor-mode -1) ; 光标不闪烁

;;@@ backup 与 auto-save 设置
;; 不让 Emacs 生成 backup file，也就是 ~ 结尾的临时文件
(setopt make-backup-files nil)
;; 不进行 auto-save
(setopt auto-save-default nil)
;; 不创建 lock files
;; https://www.gnu.org/software/emacs/manual/html_node/elisp/File-Locks.html
(setopt create-lockfiles nil)

;;@@ 设置默认的 major-mode 为 `text-mode'
(setq-default major-mode 'text-mode)

;;@@ 从子进程读取输出时的最大单次 thunk 读取字节数量，设置为 1MB
;; (setq process-adaptive-read-buffering nil)
(setq read-process-output-max (* 1024 1024))

;;@@ 运行 `run-lisp' 时使用的 Lisp 程序名
;; sbcl 官网：http://www.sbcl.org/index.html
(setopt inferior-lisp-program "sbcl")

;;@@ 单次滚动设置为 1 行
(setopt scroll-step 1)
(setopt scroll-conservatively 10000)

;;@@ 中文智能换行
(setopt word-wrap-by-category t)

;;@@ 时间格式设置为 "C"
(setq system-time-locale "C")

;;@@ 添加一些全局绑定
(bind-keys
  ;; 正则向前和向后搜索的快捷键
  ;; 使用 consult 爽一点
  ;;("C-c s" . isearch-forward-regexp)
  ;;("C-c r" . isearch-backward-regexp)
  ;; 不询问直接杀死 buffer
  ("C-x k" . kill-current-buffer)
  ;; 互换 C-w 和 M-w
  ("M-w" . kill-region)
  ("C-w" . kill-ring-save)
  ;; 防止误触
  ("C-c <f12>" . save-buffers-kill-emacs)
  ;; 中文输入法下的处理，不用切换输入法了
  ("C-x 【" . backward-page)
  ("C-x 】" . forward-page)
  ;; 日文输入法下的处理
  ("C-x 「" . backward-page)
  ("C-x 」" . forward-page)
  ("M-ｘ" . execute-extended-command)
  ("C-x ｂ" . switch-to-buffer)
  ("M-ｗ" . kill-region))

;;@@ 倾向使用 utf-8 作为 buffer 默认编码
(prefer-coding-system 'utf-8)

;;@@ 在关闭关联进程的 buffer 时不提示是否关闭
(setq kill-buffer-query-functions
      (remq 'process-kill-buffer-query-function
            kill-buffer-query-functions))

;;@@ 长行优化，以及一些显示效果优化
;; https://emacs.stackexchange.com/questions/598/how-do-i-prevent-extremely-long-lines-making-emacs-slow
(setq-default bidi-display-reordering 'left-to-right)
(setq-default bidi-paragraph-direction 'left-to-right)
(setq-default bidi-inhibit-bpa t)
(setq-default cursor-in-non-selected-windows nil)
(setopt fast-but-imprecise-scrolling t)

;;@@ kill 时若与 kill-ring 内最后内容重复则不添加入 kill-ring
(setopt kill-do-not-save-duplicates t)

;;@@ 将大文件警告提升至大约 100MB
(setopt large-file-warning-threshold (* 100 1024 1024))

;;@@ 禁止光标移动到 minibuffer 的 prompt
(setopt minibuffer-prompt-properties
	'(read-only t cursor-intangible t face minibuffer-prompt))

;;@@ 默认 80 的 fill-column
(setopt fill-column 80)

;;@@ 解锁一些被禁用的命令
(put 'list-timers 'disabled nil)
(put 'set-goal-column 'disabled nil)
(put 'erase-buffer 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)

;;@@ Windows 相关配置
(when (eq system-type 'windows-nt)
  ;; 为 Windows 添加 Super 和 Hyper 按键
  ;;(setq w32-pass-lwindow-to-system nil)
  ;;(setq w32-lwindow-modifier 'hyper)
  ;;(setq w32-pass-rwindow-to-system nil)
  ;;(setq w32-rwindow-modifier 'super)
  (setq w32-apps-modifier 'hyper)
  ;; 默认的 4KB 管道 buffer 太小了点，给到 64KB
  (setq w32-pipe-buffer-size (* 64 1024))
  ;; 在 Windows 下删除文件时默认移动到垃圾箱/回收站
  (setopt delete-by-moving-to-trash t)
  ;; 在 Windows 上没必要搜索两遍 auto-mode-alist，
  ;; 因为 Windows 文件系统忽略大小写
  (setopt auto-mode-case-fold nil)
  ;; tooltip-mode 在 Windows 下似乎有点卡
  (tooltip-mode -1))

;;@@ 在 Windows 下的 `grep', `find' 和 `xargs' 等命令行工具的位置
;;te 需要 msys2，指定 msys2 的根目录位置
;; 设定后执行 `when' 处的代码即可
(yy/defcustom yy/w32-msys-root-path nil
  "Windows 系统下的 msys2 /usr/bin 路径"
  :type '(choice (const nil)
                 (string :tag "path")))
(when (and (eq system-type 'windows-nt)
           yy/w32-msys-root-path)
  (mapc (lambda (v)
          (let ((sym (car v))
                (val (cdr v)))
            (set sym (file-name-concat
                      yy/w32-msys-root-path "usr/bin" val))))
        '((grep-program . "grep.exe")
          (find-program . "find.exe")
          (xargs-program . "xargs.exe")
          (diff-command . "diff.exe"))))
;; 启动 MSYS2 UCRT64 SHELL 的函数
(defun yy/ucrt-shell ()
  (interactive)
  (if (not yy/w32-msys-root-path)
      (user-error "Path of MSYS2 root is unknown")
    (let* ((env (if (not current-prefix-arg) ; 使用 C-u 选择不同的 MSYS2 环境
		    "-ucrt64"
		  (completing-read
		   "Select a MSYS2 environment"
		   '("-msys" "-ucrt64"
		     "-clang64" "-mingw64"))))
	   (shell (file-name-concat yy/w32-msys-root-path "msys2_shell.cmd"))
	   (args (list "-defterm" "-here" "-no-start" env "-i")))
      (dlet ((explicit-shell-file-name shell)
	     (explicit-msys2_shell.cmd-args args))
	(shell "*msys2-shell*")))))

;;@@ Windows 下的编码设定
;; 建议使用代码页 65001
;;te Windows 10: region setting -> Language -> Administrative language settings
;; -> Change systel locale -> Beta: Use Unicode UTF-8 for worldwide language support
(when (eq system-type 'windows-nt)
  (let* ((codepage (w32-get-console-codepage))
         (coding (pcase codepage
                   (65001 'utf-8-dos)
                   (936 'gbk-dos)
                   (_ nil))))
    (when coding
      (setq process-coding-system-alist
            `(("[pP][lL][iI][nN][kK]" . #1=(,coding . ,coding))
              ("[cC][mM][dD][pP][rR][oO][xX][yY]" . #1#)))
      (setq default-process-coding-system
            `(,coding . ,coding)))))

;;@@ LINUX 额外的执行路径，（如果没有添加到 $PATH 的话）
;; 添加 ~/.local/bin 到 exe-path
(when (eq system-type 'gnu/linux)
  (add-to-list 'exec-path (expand-file-name "~/.local/bin")))

;;@@ 豆腐块消除计划
;;te 字体设置，使 C-h h 可全部正常显示
;; https://qiita.com/styzo/items/28d5d994a293fa704476
(yy/defcustom yy/all-font-available nil
  "是否集齐了可以显示 C-h h 中所有语言的字体"
  :type 'boolean)
(when yy/all-font-available
  (add-hook 'after-init-hook
            (lambda ()
              (run-with-idle-timer
               1 nil
               'yy/all-font-init))))
(defun yy/all-font-init ()
  (set-fontset-font t 'adlam (font-spec :family "Noto Sans Adlam"))
  (set-fontset-font t 'ethiopic (font-spec :family "Noto Serif Ethiopic")) ;; amharic
  (set-fontset-font t 'arabic (font-spec :family "Noto Sans Arabic"))
  (set-fontset-font t 'balinese (font-spec :family "Noto Serif Balinese"))
  (set-fontset-font t 'batak (font-spec :family "Noto Sans Batak"))
  (set-fontset-font t 'bengali (font-spec :family "Nirmala UI"))
  (set-fontset-font t 'brahmi (font-spec :family "Noto Sans Brahmi"))
  (set-fontset-font t 'braille "Symbola")
  (set-fontset-font t 'buginese (font-spec :family "Noto Sans Buginese"))
  (set-fontset-font t 'burmese (font-spec :family "Noto Sans Myanmar"))
  (set-fontset-font t 'cham (font-spec :family "Noto Sans Cham"))
  (set-fontset-font t 'cherokee (font-spec :family "Noto Sans Cherokee"))
  (set-fontset-font t 'coptic (font-spec :family "Noto Sans coptic"))
  (set-fontset-font t 'canadian-aboriginal
                    (font-spec :family "Noto Sans Canadian Aboriginal")) ;; cree
  (set-fontset-font t 'devanagari (font-spec :family "Nirmala UI"))
  (set-fontset-font t 'egyptian (font-spec :family "Noto Sans Egyptian Hieroglyphs"))
  (set-fontset-font t 'emoji (font-spec :family "Symbola"))
  (set-fontset-font t 'georgian (font-spec :family "Noto Serif Georgian"))
  (set-fontset-font t 'gothic (font-spec :family "Noto Sans Gothic"))
  (set-fontset-font t 'grantha (font-spec :family "Noto Serif Grantha"))
  (set-fontset-font t 'gujarati (font-spec :family "Nirmala UI"))
  (set-fontset-font t 'gurmukhi (font-spec :family "Nirmala UI"))
  (set-fontset-font t 'hanifi-rohingya (font-spec :family "Noto Sans Hanifi Rohingya"))
  (set-fontset-font t 'hanunoo (font-spec :family "Noto Sans Hanunoo"))
  (set-fontset-font t 'hebrew "Noto Sans Hebrew")
  (set-fontset-font t 'javanese (font-spec :family "Noto Sans Javanese"))
  (set-fontset-font t 'kaithi (font-spec :family "Noto Sans Kaithi"))
  (set-fontset-font t 'kannada (font-spec :family "Noto Serif Kannada"))
  (set-fontset-font t 'kharoshthi (font-spec :family "Noto Sans Kharoshthi"))
  (set-fontset-font t 'khmer (font-spec :family "Noto Sans Khmer"))
  (set-fontset-font t 'lao (font-spec :family "Noto Sans Lao"))
  (set-fontset-font t 'lepcha (font-spec :family "Noto Sans Lepcha"))
  (set-fontset-font t 'limbu (font-spec :family "Noto Sans Limbu"))
  (set-fontset-font t 'makasar (font-spec :family "Noto Serif Makasar"))
  (set-fontset-font t 'malayalam (font-spec :family "Noto Sans Malayalam"))
  (set-fontset-font t 'thaana (font-spec :family "Noto Sans Thaana")) ;; Maldivian
  (set-fontset-font t 'meetei-mayek (font-spec :family "Noto Sans Meetei Mayek"))
  (set-fontset-font t 'mende-kikakui (font-spec :family "Noto Sans Mende Kikakui"))
  (set-fontset-font t 'modi (font-spec :family "Noto Sans Modi"))
  (set-fontset-font t 'mongolian (font-spec :family "Noto Sans Mongolian"))
  (set-fontset-font t 'tai-tham (font-spec :family "Noto Sans Tai Tham")) ; Northern Thai
  (set-fontset-font t 'oriya (font-spec :family "Noto Sans Oriya")) ;; odia
  (set-fontset-font t 'rejang (font-spec :family "Noto Sans Rejang"))
  (set-fontset-font t 'sharada (font-spec :family "Noto Sans Sharada"))
  (set-fontset-font t 'siddham (font-spec :family "Noto Sans Siddham"))
  (set-fontset-font t 'sinhala (font-spec :family "Noto Sans Sinhala"))
  (set-fontset-font t 'sundanese (font-spec :family "Noto Sans Sundanese"))
  (set-fontset-font t 'syloti-nagri (font-spec :family "Noto Sans Syloti Nagri"))
  (set-fontset-font t 'tamil (font-spec :family "Noto Sans Tamil"))
  (set-fontset-font t 'telugu (font-spec :family "Noto Sans Telugu"))
  (set-fontset-font t 'tagalog (font-spec :family "Noto Sans Tagalog"))
  (set-fontset-font t 'tagbanwa (font-spec :family "Noto Sans Tagbanwa"))
  (set-fontset-font t 'tai-viet (font-spec :family "Noto Sans Tai Viet"))
  (set-fontset-font t 'thai (font-spec :family "Noto Sans Thai"))
  (set-fontset-font t 'tibetan (font-spec :family "Noto Serif Tibetan"))
  (set-fontset-font t 'tirhuta (font-spec :family "Noto Sans Tirhuta"))
  (set-fontset-font t 'wancho (font-spec :family "Noto Sans Wancho"))
  (set-fontset-font t 'hangul (font-spec :family "Noto Serif KR")))

;;@@ 7890 for clash
(defvar yy/proxy-checker
  (make-network-process
   :name "cat checker"
   :service 7890
   :host "127.0.0.1"
   :nowait t))
(run-with-timer
 5.0 nil
 (lambda ()
   (when (process-live-p yy/proxy-checker)
     (setenv "HTTP_PROXY" "127.0.0.1:7890")
     (setenv "HTTPS_PROXY" "127.0.0.1:7890"))
   (delete-process yy/proxy-checker)
   (setq yy/proxy-checker nil)))


;;@2 内置的 emacs 包
;;@@PACKAGE
(use-package package
  :config
  ;; 添加 melpa 源和 yyelpa 源
  ;; 使 yyelpa 具有最大优先级
  (setopt package-archives
          '(("melpa" . "https://melpa.org/packages/")
            ("nongnu" . "https://elpa.nongnu.org/nongnu/")
            ("gnu" . "https://elpa.gnu.org/packages/")
            ("yyelpa" . "https://elpa.egh0bww1.com/packages/")))
  (add-to-list 'package-unsigned-archives "yyelpa")
  (setopt package-check-signature nil)
  (setopt package-archive-priorities
          '(("melpa" . 1) ("nongnu" . 5)
            ("gnu" . 10) ("yyelpa" . 100)))
  (when (version< emacs-version "27.1")
    (package-initialize)))

;;@@DIMINISH 放在最前面
;; 可以用来取消某些 minor-mode 字符在 modeline 的显示
(use-package diminish :ensure t :pin "gnu")

;;@@DISPLAY-LINE-NUMBERS 显示行号
(setopt line-number-display-limit
        large-file-warning-threshold)
;;(setq line-number-display-limit-width 1000)
(add-hook 'prog-mode-hook 'display-line-numbers-mode)

;;@@HL-LINE-MODE 高亮当前行
(add-hook 'prog-mode-hook 'hl-line-mode)

;;@@ELEC-PAIR 括号匹配高亮
(add-hook 'prog-mode-hook 'electric-pair-mode)

;;@@DELETE-SELECTION-MODE 在选中区域时输入内容将删除区域
(delete-selection-mode t)

;;@@UNIQUIFY 路径名显示唯一化
(setopt uniquify-buffer-name-style 'reverse
        uniquify-separator " ← "
        uniquify-ignore-buffers-re "^\\*")

;;@@ISEARCH “智能搜索”
(setopt isearch-allow-scroll t)

;;@@IBUFFER 高级 buffer 列表
(use-package ibuffer
  :bind ("C-x C-b" . yy/ibuffer)
  :config
  (defun yy/ibuffer ()
    (interactive)
    (if (string= (buffer-name) "*Ibuffer*")
        (ibuffer-update nil t)
      (ibuffer)))
  ;; 不显示临时 BUFFER
  ;; 还是显示吧
  ;;(setopt ibuffer-never-show-predicates '("^\\*"))
  ;; 在其他窗口中显示 ibuffer
  (setopt ibuffer-use-other-window t)
  ;; 不显示为空的分组
  (setopt ibuffer-show-empty-filter-groups nil)
  ;; 不显示汇总信息
  (setopt ibuffer-display-summary nil)
  ;; 默认的 filter-group
  (setopt ibuffer-saved-filter-groups
          '(("default"
             ("PROJECT"
              (name . "\\*<p>.+\\*"))
             ("emacs-src-el"
              (and (file-extension . "el")
                   (directory . "share/emacs/.*/lisp")))
             ("emacs-lisp"
              (or (file-extension . "el")
                  (mode . emacs-lisp-mode)))
             ("common-lisp"
              (or (file-extension . "lisp")
                  (mode . lisp-mode)))
             ("scheme/racket"
              (or (mode . scheme-mode)
                  (file-extension . "scm")))
             ("C/C++"
              (or (mode . c-mode)
                  (mode . c++-mode)
                  (filename . ".+\\.\\(c\\|cc\\|cpp\\|h\\|hpp\\)")))
             ("Python"
              (or (mode . python-mode)
                  (mode . python-ts-mode)
                  (file-extension . "py")))
             ("js/css/html"
              (or (mode . js-mode)
                  (mode . js-ts-mode)
                  (mode . json-ts-mode)
                  (filename . ".+\\.\\(cjs\\|mjs\\|js\\|json\\|ts\\)")
                  (mode . html-mode)
                  (mode . css-mode)
                  (filename . ".+\\.wgsl")
                  (filename . ".+\\.html?")
                  (filename . ".+\\.css")))
             ("Rust"
              (or (mode . rust-ts-mode)
                  (file-extension . "rs")))
             ("rescript"
              (or (mode . rescript-mode)
                  (filename . ".+\\.resi?")))
             ("ORG"
              (or (mode . org-mode)
                  (file-extension . "org")))
             ("DIRED"
              (mode . dired-mode))
             ("IMAGES"
              (or (mode . image-mode)
                  (filename . ".+\\.\\(jpe?g\\|png\\|gif\\|webp\\|ppm\\|pgm\\|pbm\\)")))
             ("TEXT"
              (or (mode . text-mode)
                  (filename . ".+\\.txt")))
             ("CONFIG"
              (or (mode . conf-mode)
                  (filename . ".+\\.toml")
                  (filename . ".+\\.yaml")))
             ("LOG"
              (or (filename . "[cC][hH][aA][nN][gG][eE][lL][oO][gG]")
                  (mode . change-log-mode)))
             ("PROCESS"
              (process))
             ("TEMP"
              (name . "\\*.*\\*")))))
  (defun yy/ibuffer-use-default-group ()
    (and (not ibuffer-filter-groups) ;; not use group
         (assoc "default" ibuffer-saved-filter-groups)
         (ibuffer-switch-to-saved-filter-groups "default")))
  (add-hook 'ibuffer-hook 'yy/ibuffer-use-default-group))

;;@@DESKTOP 保存当前 emacs 状态
(use-package desktop
  ;; 在 Windows 上有点太慢了，还是用 recentf 算了
  :disabled
  :config
  (desktop-save-mode 1))

;;@@RECENTF 保留最近文件打开记录
(use-package recentf
  :init
  ;; 可在 `recentf-open-files' 中显示的最大文件数量
  (setopt recentf-max-menu-items 50)
  ;; recentf 保存的文件数量
  (setopt recentf-max-saved-items 2000)
  ;; 不进行保存文件的自动清理
  ;;(setopt recentf-auto-cleanup 'never)
  :config
  (recentf-mode 1)
  ;; 启动时显示 recentf buffer
  ;;(setopt initial-buffer-choice 'recentf-open-files)
  ;; 每三小时保存一次最近文件列表
  (defvar yy/recentf-save-timer nil)
  (unless yy/recentf-save-timer
    (setq yy/recentf-save-timer
          (run-at-time nil (* 2 60 60) 'recentf-save-list)))
  (bind-key "C-c r" 'recentf-open))

;;@@SAVEPLACE 关闭 buffer 时保存光标位置
;; 和 recentf-mode 联动一下，可以保存最近打开文件在关闭时的 point 位置
(save-place-mode 1)

;;@@WINNER 保留窗口配置记录，可回退和前进
(use-package winner
  :config
  (winner-mode 1)
  ;; 给快捷键添加 repeat-mode 支持
  (defvar yy/winner-repear-map
    (let ((map (make-sparse-keymap)))
      (define-key map (kbd "<up>") 'winner-undo)
      (define-key map (kbd "<down>") 'winner-redo)
      map))
  (dolist (cmd '(winner-undo winner-redo))
    (put cmd 'repeat-map 'yy/winner-repear-map))
  :bind (("C-x <up>" . winner-undo)
         ("C-x <down>" . winner-redo)))

;;@@ORG org-mode 基础配置
(use-package org
  :bind (("C-c l" . org-store-link)
         ("C-c a" . org-agenda)
         ("C-c c" . org-capture))
  :config
  (setopt org-tags-column 0)
  (setopt org-startup-truncated nil)
  (setopt org-image-actual-width 400)
  (setopt org-element-cache-persistent nil)
  (setopt org-export-dispatch-use-expert-ui t)
  (add-hook 'org-mode-hook 'visual-line-mode)
  )

;;@@CC-MODE C 系语言基础配置
(use-package cc-mode
  :config
  (setq-default c-default-style
                '((java-mode . "java")
                  (awk-mode . "awk")
                  (other . "linux")))
  (setq-default c-recognize-knr-p nil)
  ;;(setq c-basic-offset 4)
  (setopt c-electric-pound-behavior '(alignleft)))

;;@@HIPPIE 方便的路径补全
(use-package hippie-exp
  :bind ("C-c TAB" . hippie-expand))

;;@@NATIVE-COMP
;; https://misohena.jp/blog/2023-07-31-setup-emacs-29-1-for-windows.html
;;te 在 bin/ 下添加必要库
;; 注意 bin/ 中 libgccjit-0.dll 存在以下依赖项：
;; 可使用 https://github.com/lucasg/Dependencies 获取 DLL 的依赖项
;; system32/{advapi32.dll, kernel32.dll, MSVCRT.dll}
;; libgcc_s_seh-1.dll, libgmp-10.dll
;; libisl-23.dll, libmpc-3.dll, libmpfr-6.dll ; 注意这三个
;; libwinpthread-1.dll, zlib1.dll, libzstd.dll
;; 随后，在 /lib/gcc/ 下添加以下内容：（一共 18 个）
;; mingw64/bin/ 中的 as.exe 和 ld.exe，它们依赖同目录下的 libzstd.dll 和 zlib1.dll
;; mingw64/lib 下的以下文件：
;; crtbegin.o, crtend.o, dllcrt2.o
;; lib{ advapi32.a, gcc_s.a, kernel32.a, mingw32.a
;;      mingwex.a, moldname.a, msvcrt.a, pthread.a
;;      shell32.a, user32.a}
;; mingw64/lib/gcc/x86_64-w64-mingw32/13.1.0 中的 libgcc.a

;; 忽略 native-comp 过程中的 warning
;; (setopt native-comp-async-report-warnings-errors nil)
;; 添加编译的工具和库位置
;; 似乎是不必要的
;; (when (and (fboundp #'native-comp-available-p)
;; 	   (native-comp-available-p)
;; 	   (eq system-type 'windows-nt))
;;   (setopt native-comp-driver-options
;; 	  (list "-B" (expand-file-name (file-name-concat
;; 					invocation-directory
;; 					"../lib/gcc")))))

;;@@TREESIT 基于语法树的 PL 前端工具
;;te 使用 `yy/treesit-install-all-languages' 安装 tree-sitter
;; https://www.nathanfurnal.xyz/posts/building-tree-sitter-langs-emacs/
(use-package treesit
  :when (treesit-available-p)
  :init
  (setq treesit-language-source-alist
        '((bash . ("https://github.com/tree-sitter/tree-sitter-bash"))
          (c . ("https://github.com/tree-sitter/tree-sitter-c"))
          (cmake . ("https://github.com/uyha/tree-sitter-cmake"))
          (cpp . ("https://github.com/tree-sitter/tree-sitter-cpp"))
          (css . ("https://github.com/tree-sitter/tree-sitter-css"))
          (go . ("https://github.com/tree-sitter/tree-sitter-go"))
          (html . ("https://github.com/tree-sitter/tree-sitter-html"))
          (javascript . ("https://github.com/tree-sitter/tree-sitter-javascript"))
	  (typescript . ("https://github.com/tree-sitter/tree-sitter-typescript"
			 nil "typescript/src"))
	  (tsx . ("https://github.com/tree-sitter/tree-sitter-typescript"
			 nil "tsx/src"))
          (json . ("https://github.com/tree-sitter/tree-sitter-json"))
          (lua . ("https://github.com/Azganoth/tree-sitter-lua"))
          (make . ("https://github.com/alemuller/tree-sitter-make"))
          (python . ("https://github.com/tree-sitter/tree-sitter-python"))
          (php . ("https://github.com/tree-sitter/tree-sitter-php" nil "php/src"))
          (ruby . ("https://github.com/tree-sitter/tree-sitter-ruby"))
          (rust . ("https://github.com/tree-sitter/tree-sitter-rust"))
          (sql . ("https://github.com/m-novikov/tree-sitter-sql"))
          (toml . ("https://github.com/tree-sitter/tree-sitter-toml"))
          (zig . ("https://github.com/GrayJack/tree-sitter-zig"))))
  :config
  (defun yy/treesit-install-all-languages ()
    "Install all languages specified by `treesit-language-source-alist'."
    (interactive)
    (let ((languages (mapcar 'car treesit-language-source-alist)))
      (dolist (lang languages)
	(if (treesit-language-available-p lang)
	    (progn (message "`%s' parser already exists" lang)
		   (sit-for 0.5))
          (treesit-install-language-grammar lang)
          (message "`%s' parser was installed." lang)
          (sit-for 0.75))))))

;;@@PIXEL-SCROLL
;; https://emacs-china.org/t/topic/25114/4
;;te 是否使用像素滚动翻页
(yy/defcustom yy/use-pixel-scrool nil
  "是否使用像素滚动"
  :type 'boolean)
(when yy/use-pixel-scrool
  (use-package pixel-scroll
    :config
    (pixel-scroll-precision-mode 1)
    (setq pixel-scroll-precision-interpolate-page t)
    (defun yy/pixel-scroll-interpolate-down (&optional lines)
      (interactive)
      (if lines
          (pixel-scroll-precision-interpolate (* -1 lines (pixel-line-height)))
        (pixel-scroll-interpolate-down)))
    (defun yy/pixel-scroll-interpolate-up (&optional lines)
      (interactive)
      (if lines
          (pixel-scroll-precision-interpolate (* lines (pixel-line-height))))
      (pixel-scroll-interpolate-up))

    (defalias 'scroll-up-command 'yy/pixel-scroll-interpolate-down)
    (defalias 'scroll-down-command 'yy/pixel-scroll-interpolate-up)))

;;@@REPEAT-MODE 反复触发一组命令
;; 重复按键可以使用某个键反复触发，比如 C-x o o o ...
;; 可通过 `describe-repeat-maps' 来了解哪些命令可用
(repeat-mode 1)

;;@@ELDOC echo area 位置的短文档
;; 让 eldoc 显示的快一点
(setopt eldoc-idle-delay 0.3)

;;@@PROJECT 配置项目管理功能
(use-package project
  :bind ("C-x p C-b" . yy/project-list-buffers)
  :config
  ;; 使用 ibuffer 显示属于当前项目的文件
  ;; 可通过 `g' 键更新 ibuffer
  (defun yy/project-list-buffers (&optional arg)
    (interactive "P")
    (let* ((pr (project-current t))
           (root (expand-file-name (project-root pr)))
           (name (format "*<p>%s*"
                         (file-name-nondirectory
                          (directory-file-name root)))))
      (ibuffer t name)
      (ibuffer-filter-disable)
      (ibuffer-filter-by-filename root))))

;;@@WEBJUMP 通过 emacs 触发浏览器搜索
;; 可通过 webjump 直接 google
(use-package webjump
  :config
  (add-to-list 'webjump-sites
               '("Google" .
                 [simple-query "www.google.com"
                               "www.google.com/search?q=" ""])))
(defun yy/google ()
  "谷歌一下"
  (interactive)
  (let ((str (if (region-active-p)
                 (prog1
                     (buffer-substring (region-beginning) (region-end))
                   (deactivate-mark))
               (read-string "Google: "))))
    (browse-url (concat "https://google.com/search?q=" str))))

;;@@AUTO-REVERT-MODE 当文件在外部被修改时，自动更新对应的 buffer
(global-auto-revert-mode)

;;@@FILESETS 可用于保存一系列常用的文件，方便打开
;;te 添加一组自己常用的文件来让 emacs 启动时自动打开
;; 使用 `filesets-add-buffer' 添加 buffer 到 group 中
;; 使用 `filesets-edit' 来编辑 filesets group
(use-package filesets
  :config
  ;;(filesets-init)
  ;; 默认在启动时打开的一组 buffer，它们一般平时很有用
  (when (filesets-get-fileset-from-name "FREQ")
    (with-eval-after-load 'init
      (filesets-open nil "FREQ"))))

;;@@WINDMOVE 提供根据位置在 window 间移动 point 的方法
(use-package windmove
  :init
  (setopt windmove-wrap-around t)
  :config
  (windmove-mode t)
  ;; 使用 Hyper + wasd 在窗口间移动光标
  ;;(windmove-default-keybindings 'hyper)
  :bind (("H-a" . windmove-left)
         ("H-d" . windmove-right)
         ("H-w" . windmove-up)
         ("H-s" . windmove-down)))

;;@@TAB-BAR 多个窗口配置空间
(use-package tab-bar
  :config
  ;; 不使用默认配色，根本区分不了，草
  ;; 2024-05-02，modus 自带了 tab-bar 的 face，不用自己设置了
  ;; (custom-set-faces
  ;;  '(tab-bar-tab ((t (:box (:line-width (1 . 1) :style released-button) :background "pale green" :inherit tab-bar))))
  ;;  '(tab-bar-tab-inactive ((t (:background "gray75" :inherit tab-bar-tab)))))
  ;; 给 tab-bar 添加更大的加号和删除号
  ;; https://www.reddit.com/r/emacs/comments/16yeb5x/comment/k39fyta/?utm_source=share&utm_medium=web2x&context=3
  (define-icon tab-bar-new nil
    `((image "tabs/new.xpm"
             :width 20 :height 20
             :margin ,tab-bar-button-margin
             :ascent center)
      ;; (emoji "➕")
      ;; (symbol "＋")
      (text " + "))
    "Icon for creating a new tab."
    :version "29.1"
    :help-echo "New tab"
    :group tab-bar)
  (define-icon tab-bar-close nil
    `((image "tabs/close.xpm"
             :width 20
             :height 20
             :margin ,tab-bar-button-margin
             :ascent center)
      ;; (emoji " ❌")
      ;; (symbol "✕") ;; "ⓧ"
      (text " x"))
    "Icon for closing the clicked tab."
    :version "29.1"
    :help-echo "Click to close tab"
    :group tab-bar)
  (define-icon tab-bar-menu-bar nil
    '(;; (emoji "🍔")
      (symbol "☰")
      (text "Menu" :face tab-bar-tab-inactive))
    "Icon for the menu bar."
    :version "29.1"
    :help-echo "Menu bar"
    :group tab-bar)
  (tab-bar-mode 1))

;;@@SAVEHIST-MODE 保存 minibuffer 的 s 表达式求值历史
(savehist-mode t)

;;@@PRETTIFY-SYMBOLS-MODE 优化某些符号的显示
;; 全局打开
(global-prettify-symbols-mode)

;;@@EGLOT
;; 加载 eglot
(require 'eglot)
(setopt eglot-report-progress nil)
;; 关掉 flymake 的一些提示信息，太吵了
(add-to-list 'eglot-stay-out-of 'flymake)
;; 取消 eglot 的 log 消息，我不是 LSP server 的开发者
(setopt eglot-events-buffer-size 0)

;;@@DABBREV 根据 buffer 内容进行补全
(require 'dabbrev)
(defun yy/dabbrev-capf ()
  "对 `dabbrev-capf' 的简单包装"
  (dabbrev--reset-global-variables)
  (setq dabbrev--check-other-buffers nil)
  (setq dabbrev--check-all-buffers nil)
  (let* ((abbrev (dabbrev--abbrev-at-point))
         (beg (progn (search-backward abbrev) (point)))
         (end (progn (search-forward abbrev) (point)))
         (ignore-case-p (dabbrev--ignore-case-p abbrev))
         (list 'uninitialized)
         (table
          (lambda (s p a)
            (if (eq a 'metadata)
                `(metadata (cycle-sort-function . ,#'identity)
                           (category . dabbrev))
              (when (eq list 'uninitialized)
                (save-excursion
                  ;;--------------------------------
                  ;; New abbreviation to expand.
                  ;;--------------------------------
                  (setq dabbrev--last-abbreviation abbrev)
                  ;; Find all expansion
                  (with-temp-message (current-message)
                    (let* ((inhibit-message t)
                           (completion-list
                            (dabbrev--find-all-expansions abbrev ignore-case-p))
                           (completion-ignore-case ignore-case-p))
                      (setq list
                            (cond
                             ((not (and ignore-case-p dabbrev-case-replace))
                              completion-list)
                             ((string= abbrev (upcase abbrev))
                              (mapcar #'upcase completion-list))
                             ((string= (substring abbrev 0 1)
                                       (upcase (substring abbrev 0 1)))
                              (mapcar #'capitalize completion-list))
                             (t
                              (mapcar #'downcase completion-list))))))))
              (complete-with-action a list s p)))))
    (list beg end table)))
;; 将 dabbrev-capf 作为默认的 capf 之一，提供最基础的补全功能
;; (add-to-list 'completion-at-point-functions 'yy/dabbrev-capf)

;;@@ISPELL, 30 里面的某些设置
(setopt text-mode-ispell-word-completion nil)

;;@@MODUS-THEME 试试 Emacs 内置的 modus 主题
(dolist (c (copy-sequence custom-enabled-themes))
  (disable-theme c))
(cond
 ((>= emacs-major-version 30)
  (load-theme 'modus-operandi-tinted nil t)
  (load-theme 'modus-vivendi-deuteranopia nil t)
  (if (or (>= (nth 2 (decode-time (current-time))) 18) (<= (nth 2 (decode-time (current-time))) 6))
      (enable-theme 'modus-vivendi-deuteranopia)
    (enable-theme 'modus-operandi-tinted)))
 ((>= emacs-major-version 29)
  (load-theme 'modus-operandi nil t)
  (enable-theme 'modus-operandi))
 (t nil))

(when (>= emacs-major-version 30)
  (defun yy/toggle-modus-theme ()
    "切换 modus 主题"
    (interactive)
    (let ((theme (car custom-enabled-themes)))
      (cond
       ((eq theme 'modus-operandi-tinted)
	(disable-theme theme)
	(enable-theme 'modus-vivendi-deuteranopia))
       ((eq theme 'modus-vivendi-deuteranopia)
	(disable-theme theme)
	(enable-theme 'modus-operandi-tinted))
       (t (message "Seems current theme is not modus's series"))))))

;;@@PAREN 配置 Emacs 内置的括号显示功能
;; 让光标在紧贴括号内部时也显示高亮
(setopt show-paren-when-point-inside-paren t)
;; 让光标在一行时，高亮显示该行的最外层括号
(setopt show-paren-when-point-in-periphery t)
;; 使用 overlay 显示当前屏幕内不可见的括号上下文
;; 可以使用 t(echo-area), 'overlay, 'child-frame
(setopt show-paren-context-when-offscreen 'overlay)


;;@3 外部安装的 elisp 包

;;@@ 指定需要安装的包
(setopt package-selected-packages
        '(;; 安装的包列表
	  markdown-mode ; 提供 emacs 中的 markdown 支持
	  ;;parrot ; modeline 上的沙雕鹦鹉，点击播放 gif
	  cnfonts ; 中英文字体对其，通过 `cnfonts-edit-profile' 进行设定
	  find-file-in-project ; ffip，查找项目中的文件
	  winum ; 快速的窗口间跳转
	  pyim ; 拼音输入法
	  pyim-basedict ; pyim 依赖项
	  popup ; pyim 依赖项
	  asmd ; yyelpa 上的第一个包
          ;;moe-theme ; 萌主题
	  vertico ; M-x 补全
	  ;;company ; company 补全
	  ;;company-posframe ; company 的 childframe 补全界面
          eldoc-box ; 提供悬浮的 eldoc 补全
	  vundo ; 可视化 undo，undo-tree 的替代品
	  magit ; 强大的 git UI
	  ibuffer-vc ; 为 ibuffer 添加基于项目的分组
	  orderless ; 乱序补全后端
	  consult ; 异步查询框架
          wgrep ; 基于 grep 的批量替换工具
	  haskell-mode ; haskell 语言支持
	  igist ; emacs 的一个 gist 客户端
	  devdocs ; 提供来自 devdocs 的文档支持
	  buffer-env ; 提供基于 direnv 的 buffer-local 环境
          expand-region ; 选中扩展
	  which-key ; 按键辅助，提示按键对应的命令
	  diminish ; 让某些 mode 标识不在 modeline 显示
	  ;;yasnippet ; 强大的代码模板工具
          breadcrumb ; 面包屑导航
	  blacken ; python blacken 的 emacs 集成
	  shrface ; 更美观的 HTML 渲染
	  docker ; emacs 的 docker 集成
	  ;;benchmark-init ; 收集 emacs 的启动信息
          ;;tabspaces ; 提供基于 tab-bar 的 session 管理
	  ;;popwin ; 快速关闭各种临时 buffer
	  ;;hyperbole ; 远古插件，也许很强大
	  embark ; DWIM 工具
	  embark-consult
          popper ; 类似 popwin 但更好用
	  expreg ; 类似 expand-region，但更好
	  corfu ; corfu 补全前端，company 的替代品
	  tempel ; 代码模板引擎
	  cape ; 为 corfu 提供一些后端
	  envrc ; 类似 buffer-env
	  citre ; ctags 的 emacs 前端
	  powershell ; 在 Emacs 中打开 powershell, windows 下可用
	  zig-mode
	  typescript-mode
	  emacsql ; 统一的 SQL 前端
	  f ; 稍微好用一点的文件 API
	  ))

(package-install-selected-packages)

;;@@ 安装来自 git 仓库的包
(setopt package-vc-selected-packages
        '(
	  (yyorg-bookmark :url "https://github.com/include-yy/yyorg-bookmark")
          (chodf :url "https://github.com/include-yy/chodf")
          (rescript-mode :url "https://github.com/include-yy/rescript-mode")
	  (ox-w3ctr :url "https://github.com/include-yy/ox-w3ctr")
	  (tetosave :url "https://github.com/yyelpa/tetosave") ; 自动保存
          ;;(consult-everything :url "https://github.com/jthaman/consult-everything")
          ;;(wgsl-ts-mode :url "https://github.com/acowley/wgsl-ts-mode")
	  (yynt :url "https://github.com/include-yy/yynt")
	  ))

(package-vc-install-selected-packages)

;;@@ emacs 29 的 package-vc-upgrade 似乎有点问题...
;; https://emacs-china.org/t/package-vc-upgrade-error-file-is-not-under-version-control/27073
;; https://lists.gnu.org/archive/html/bug-gnu-emacs/2024-04/msg01407.html
(when (eq emacs-major-version 29)
  (defun yy/package-vc-upgrade-advice (upfun pkg-desc)
    (with-temp-buffer
      (funcall upfun pkg-desc)))
  (advice-add 'package-vc-upgrade :around 'yy/package-vc-upgrade-advice))

;;@@MARKDOWN-MODE
(use-package markdown-mode
  :mode "\\.\\(?:md\\|markdown\\|mkd\\|mdown\\|mkdn\\|mdwn\\|mdx\\)\\'")

;;@@PARROT 沙雕鹦鹉
;; (parrot-mode 1)

;;@@CNFONTS 中英文字体对齐
(cnfonts-mode 1)

;;@@FIND-FILE-IN-PROJECT 方便的项目内文件搜索
;;te 设置 ffip 在 Windows 下的相关选项
;; 在 Windows 上需要设定 `ffip-find-executable' 为 find
;; 也可考虑使用 rust 编写的 fd，设置 `ffip-use-rust-fd' 为 `t'
;; 并设定 `ffip-find-executable' 为 fd 路径
;; 注意：使用 fd 必须设定 `ffip-use-rust-fd'，fd 与 find 命令行参数不一致
(use-package find-file-in-project
  :bind ("C-c f" . find-file-in-project)
  :config
  (yy/add-to-group 'ffip-find-executable)
  (yy/add-to-group 'ffip-use-rust-fd))

;;@@WINUM 窗口间跳转
(use-package winum
  :config
  (set-face-attribute 'winum-face nil
                      :foreground "DeepPink"
                      :underline "DeepPink"
                      :weight 'bold)
  (winum-set-keymap-prefix (kbd "C-c"))
  (winum-mode 1))

;;@@PYIM elisp 实现的中文输入法
(use-package pyim
  :init (setopt default-input-method "pyim")
  :defer t
  :config
  (use-package pyim-basedict)
  (use-package popup)
  (pyim-basedict-enable)
  (pyim-default-scheme 'microsoft-shuangpin))

;;@@MOE-THEME 萌主题
(use-package moe-theme
  :disabled
  :config
  (moe-light))

;;@@VERTICO 更好的 icomplete 和 ido
;;(ido-mode 1)
;;(icomplete-mode 1)
;;(icomplete-vertical-mode 1)
(vertico-mode 1)

;;@@COMPANY company 补全前端
(use-package company
  :diminish company-mode
  :disabled
  :config
  (global-company-mode 1)
  (setq company-global-modes '(not shell-mode eshell-mode org-mode))
  ;; front-end configure
  (setq company-mininum-prefix-length 3) ; 3 char to pop up menu
  (setq company-idle-delay 0)            ; set pop-up delay to 0s
  (setq company-echo-delay 0)            ; remove annoying blink
  (setq company-require-match nil)       ; allow string don't match candidate words
  (setq company-show-numbers t)          ; show candidates order number 1 ~ 9 and 0
  (setq company-selection-wrap-around t) ; loop over candidates
  (setq company-auto-commit nil)         ; don't use auto-complete
  ;; Use the tab-and-go frontend
  ;; Allow TAB to select and complete at the same time
  (company-tng-configure-default)
  (setq company-frontends
        '(company-tng-frontend
          company-pseudo-tooltip-frontend
          company-echo-metadata-frontend))
  ;;Customize company backends
  (setq company-backends (delete 'company-bbdb company-backends))
  (setq company-backends (delete 'company-oddmuse company-backends))
  ;; Don't downcase the returned candidate
  (setq company-dabbrev-downcase nil)
  (setq company-dabbrev-ignore-case t))

;;@@COMPANY-POSFRAME 为 company 提供浮动子窗口支持
(use-package company-posframe
  :diminish company-posframe-mode
  :after company
  :config
  (company-posframe-mode 1)
  ;;dont display annoying quickhelper
  (setq company-posframe-quickhelp-delay nil))

;;@@CORFU 试试更加轻量和现代的 corfu
(use-package corfu
  :init
  ;; 允许 cycle
  (setopt corfu-cycle t)
  ;; 允许自动触发 corfu 补全
  (setopt corfu-auto t)
  ;; 在补全时若候选项小于 3 则不弹出选项
  (setopt completion-cycle-threshold 3)
  ;; 在输入字符 0.1 秒后触发 corfu
  (setopt corfu-auto-delay 0.1)
  ;; 无候选项不显示 no match
  (setopt corfu-quit-no-match t)
  :config
  (global-corfu-mode)
  (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)
                (eq (current-local-map) read-passwd-map))
      ;; (setq-local corfu-auto nil) ;; Enable/disable auto completion
      (setq-local corfu-echo-delay nil ;; Disable automatic echo and popup
                  corfu-popupinfo-delay nil)
      (corfu-mode 1)))
  (add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
  (add-hook 'eshell-mode-hook
            (lambda ()
              (setq-local corfu-auto nil)
              (corfu-mode))))

;;@@ELDOC-BOX 悬浮式 ELDOC
(add-hook 'eglot-managed-mode-hook
          #'eldoc-box-hover-mode)

;;@@VUNDO 可视化 undo，比 undo-tree 更好
(use-package vundo
  :bind ("C-?" . vundo))

;;@@ORDERLESS 好用的模糊搜索插件
(use-package orderless
  :config
  (setopt completion-styles '(orderless basic))
  (setopt completion-category-overrides
          '((file (styles basic partial-completion))))
  ;; 让 company 使用 basic
  ;; We follow a suggestion by company maintainer u/hvis:
  ;; https://www.reddit.com/r/emacs/comments/nichkl/comment/gz1jr3s/
  (defun company-completion-styles (capf-fn &rest args)
    (let ((completion-styles '(basic partial-completion)))
      (apply capf-fn args)))
  (advice-add 'company-capf :around #'company-completion-styles))

;;@@CONSULT 异步搜索框架
;;te 配置 consult 的 grep 和 ripgrep 位置
;; 在 Windows 下，注意修改 consult-grep-args 中的 grep 为 msys2 路径
;; 非常奇怪，在 customzie 中这个选项无法显示
;; 只能打个补丁 `yy/consult-grep-args'
;; `consult-ripgrep-args' 可以正常显示，所以就不在这里改了
;; 常用命令：
;; - `consult-grep', `consult-ripgrep'，`consult-git-grep' grep 当前项目的内容
;; - `consult-line', 可视化 buffer 搜索
;; - `consult-buffer', 强化版切换 `switch-to-buffer'
;; - `consult-goto-line', 可视化切换行
;; 似乎又能够正常显示了，暂时用不到这个 option 了
(yy/defcustom yy/consult-grep-args nil
  "用于 consult 的 grep 命令行参数"
  :type 'boolean)
(use-package consult
  :bind
  (("C-c s" . consult-line)
   ("M-g g" . consult-goto-line))
  :config
  (when yy/consult-grep-args
    (setq consult-grep-args yy/consult-grep-args)))

;;@@WGREP 可对 grep 结果进行编辑
;; C-c C-p 进入编辑模式, C-x C-s 应用编辑结果, C-x C-q 结束编辑
;; C-c C-d 标记删除某行
;; C-c C-k 撤销所有变化并退出
(use-package wgrep)

;;@@TETOSAVE 自动保存 buffer，无需频繁使用 C-x C-s 了
(use-package tetosave
  :config
  (setopt tetosave-idle 0.5)
  (tetosave-enable))

;;@@IGIST 好用的 gist 管理工具
;;te 需要设置 `igist-auth-marker' 为 oauth token
;; token 的获取参考 https://github.com/KarimAziev/igist/tree/main#auth
(use-package igist
  :after tetosave
  :bind ("M-o" . igist-dispatch)
  :config
  (setopt igist-current-user-name "include-yy")
  ;; disable tetosave for igist-edit-mode
  (add-to-list 'tetosave-disable-predicates
               (defun igist/teto-pred () igist-edit-mode))
  ;; disable tetosave for gpg file
  (add-to-list 'tetosave-disable-predicates
               (defun igist/teto-pred-authinfo ()
                 (eq major-mode 'authinfo-mode))))

;;@@EXPAND-REGION 方便的 region 扩展工具
(use-package expand-region
  ;; 现在可以试试 Yuan fu 的 expreg
  :when (not (treesit-available-p))
  :bind ("C-=" . er/expand-region))

;;@@EXPREG 可以使用 tree sitter 的 expand-region
(use-package expreg
  :when (treesit-available-p)
  :bind ("C-=" . expreg-expand))

;;@@WHICH-KEY 显示某个按键绑定的 keymap 中的命令
(use-package which-key
  :diminish which-key-mode
  :init
  ;; 通过 C-h 或 ? 才显示 which-key buffer
  ;; 如果某些命令使用了 C-h 或 ? 可能会冲突
  (setopt which-key-show-early-on-C-h t)
  ;; 仅通过 C-h 触发
  (setopt which-key-idle-delay 10000.0)
  ;; 在随后的按键中迅速响应
  (setopt which-key-idle-secondary-delay 0.05)
  :config
  ;; 启动全局 which-key-mode
  (which-key-mode))

;;@@BREADCRUMB 面包屑导航
(breadcrumb-mode)

;;@@YASNIPPET 代码模板系统，提供好用的代码模板
(use-package yasnippet
  ;; 试试 tempo 去
  :disabled)

;;@@SHRFACE，更好看的 html 渲染
(use-package shrface
  :config
  :disabled
  (shrface-basic)
  (shrface-trial)
  (shrface-default-keybindings)
  (setopt shrface-href-versatile t))

;;@@DOCKER 方便的 docker emacs 集成
(use-package docker
  :if (eq system-type 'gnu/linux)
  :bind ("C-c d" . docker))

;;@@TABSPACE 使用 tab-bar-mode 和 project.el 管理项目
(use-package tabspaces
  :disabled
  :init
  (setopt tabspaces-default-tab "Default")
  (setopt tabspaces-initialize-project-with-todo nil)
  ;;(setopt tabspaces-use-filtered-buffers-as-default t)
  ;; sessions
  (setopt tabspaces-session t)
  (setopt tabspaces-session-auto-restore t)
  :config
  (tabspaces-mode))

;;@@POPWIN 方便地从 *Help*, *Completions* 等临时 buffer 中通过 C-g 退出
(use-package popwin
  ;; 感觉不如 popper
  :disabled
  :config
  (popwin-mode))

;;@@EMBARK 归一化的动作执行者
(use-package embark
  :bind
  (("C-." . embark-act)
   ("C-;" . embark-dwim)))

;;@@EMBARK-CONSULT 联动 embark 与 consult
(use-package embark-consult
  :hook
  (embark-collect-mode . consult-preview-at-point-mode))

;;@@HYPERBOLE 暂时不知道怎么用
;; 它会占用 C-h h ，原本用于打开 Hello buffer
(use-package hyperbole
  :disabled)

;;@@POPPER 管理弹出的各种临时 buffer
;; 这样就不会打破 Window 布局
(use-package popper
  :bind (("C-`" . popper-toggle)
         ("M-`" . popper-cycle)
         ("C-M-`" . popper-toggle-type))
  :init
  (setopt popper-reference-buffers
          '("\\*Messages\\*" "Output\\*$"
            "\\*Async Shell Command\\*"
            "\\*Completions\\*"
            "\\*eshell.*\\*" eshell-mode
            "\\*Occur\\*"
            help-mode
            compilation-mode
            shell-mode "^\\*shell.*\\*"
            "\\*xref\\*"))
  :config
  (popper-mode 1)
  (popper-echo-mode 1))

;;@@ENVRC Linux 上管理开发环境
;; 可以执行 `envrc-allow' 和 `envrc-deny' 来开启和关闭某目录下的 .envrc
(use-package envrc
  :when (eq system-type 'gnu/linux)
  :config
  (envrc-global-mode))

;;@@TEMPEL 好用的代码模板工具
(use-package templ
  :bind (("M-+" . tempel-complete)
         ("M-*" . tempel-insert))
  :init
  (defun tempel-setup-capf ()
    ;; Add the Tempel Capf to `completion-at-point-functions'.
    ;; `tempel-expand' only triggers on exact matches. Alternatively use
    ;; `tempel-complete' if you want to see all matches, but then you
    ;; should also configure `tempel-trigger-prefix', such that Tempel
    ;; does not trigger too often when you don't expect it. NOTE: We add
    ;; `tempel-expand' *before* the main programming mode Capf, such
    ;; that it will be tried first.
    (setq-local completion-at-point-functions
                (cons #'tempel-expand
                      completion-at-point-functions)))
  (add-hook 'prog-mode-hook 'tempel-setup-capf))

;;@@CITRE 先进的 ctags 前端
(use-package citre
  :init
  (use-package citre-config))

;;@@OX-W3CTR 我写的 org 导出后端
(require 'ox-w3ctr)

;;@4 一些零散的小函数和设定
;;@@ 打开 init 文件
(defun yy/open-init ()
  "Open my init file"
  (interactive)
  (find-file "~/.emacs.d/init.el"))

;;@@ 执行 yynt.el 的初始化
(defun yy/open-yynt ()
  "eval yynt2.el whole buffer"
  (interactive)
  (if-let* ((buf (get-buffer "yy.el")))
      (with-current-buffer buf
        (eval-buffer))
    (message "yy.el not open")))

;;@@ 增强 C-x <num> 系列的 Window 管理功能
(defun yy/split-and-move-to-other-window (fun)
  (lambda (&optional arg)
    (interactive "P")
    (funcall fun)
    (let ((target-window (next-window)))
      (set-window-buffer target-window (other-buffer))
      (unless arg
        (select-window target-window)))))
(defalias 'yy/split-window-below (yy/split-and-move-to-other-window
                                  'split-window-below))
(defalias 'yy/split-window-right (yy/split-and-move-to-other-window
                                  'split-window-right))

(defun yy/delete-other-windows ()
  (interactive)
  (if (and winner-mode
           (equal (selected-window) (next-window)))
      (winner-undo)
    (delete-other-windows)))

(defun yy/split-change-place (fun)
  "Kill any other windows and re-split current window in one way.
the current window is on the left/top half of the frame.
way-func can be | or _"
  (lambda ()
    (interactive)
    (let ((other-buf (and (next-window) (window-buffer (next-window)))))
      (delete-other-windows)
      (funcall fun)
      (when other-buf
        (set-window-buffer (next-window) other-buf)))))
(defalias 'yy/split-change-right (yy/split-change-place 'split-window-right))
(defalias 'yy/split-change-below (yy/split-change-place 'split-window-below))

(bind-key "C-x 1" 'yy/delete-other-windows)
(bind-key "C-x 2" 'yy/split-window-below)
(bind-key "C-x 3" 'yy/split-window-right)
(bind-key "C-x |" 'yy/split-change-right)
(bind-key "C-x _" 'yy/split-change-below)

;;@@ 显示修改过的按键绑定
(defun yy/show-keys ()
  "显示所有通过 `use-package' 或 `bind-key' 修改的按键绑定"
  (interactive)
  (describe-personal-keybindings))

;;@@ 文字计数，可以处理中文和英文
;; Author: Andy Stewart <lazycat.manatee@gmail.com>
;; http://www.emacswiki.org/emacs/download/basic-toolkit.el
(defun count-ce-words (beg end)
  "Count Chinese and English words in marked region."
  (interactive "r")
  (let ((cn-word 0)
        (en-word 0)
        (total-word 0)
        (total-byte 0))
    (setq cn-word (count-matches "\\cc" beg end)
          en-word (count-matches "\\w+\\W" beg end))
    (setq total-word (+ cn-word en-word)
          total-byte (+ cn-word (abs (- beg end))))
    (message (format "Total: %d (CN: %d, EN: %d) words, %d bytes."
                     total-word cn-word en-word total-byte))))

;;@@ 删除 *{name}* 的 buffer
(defun kill-unused-buffers ()
  (interactive)
  (ignore-errors
    (save-excursion
      (dolist (buf (buffer-list))
        (set-buffer buf)
        (if (and (string-prefix-p "*" (buffer-name))
                 (string-suffix-p "*" (buffer-name)))
            (kill-buffer buf))))))

;;@@ 对整个 buffer 进行缩进
(defun indent-buffer ()
  "Automatic format current buffer."
  (interactive)
  (save-excursion
    (indent-region (point-min) (point-max) nil)
    (delete-trailing-whitespace)
    (untabify (point-min) (point-max))))

;;@@IGIST 使用 igist 管理 init.el 配置文件
(require 'igist)
(require 'transient)

(defun yy/upload-init-file ()
  "将 init.el 更新到对应 gist"
  (interactive)
  (when-let* ((initbuf (get-file-buffer (file-name-concat user-emacs-directory "init.el")))
              (gistbuf (current-buffer)))
    (if (not (with-current-buffer gistbuf
               (bound-and-true-p yy-init-file)))
        (user-error "not in igist buffer init.el")
      (let ((inhibit-read-only t))
        (with-current-buffer initbuf
          (copy-to-buffer gistbuf (point-min) (point-max)))
        (with-current-buffer gistbuf
          (igist-save-current-gist-and-exit))))))

(defun yy/update-init-file ()
  "将 igist init buffer 中的内容更新到本地的 init.el"
  (interactive)
  (when-let* ((initbuf (get-file-buffer (file-name-concat user-emacs-directory "init.el")))
              (gistbuf (current-buffer)))
    (if (not (with-current-buffer gistbuf
               (bound-and-true-p yy-init-file)))
        (user-error "not in igist buffer init.el")
      (let ((inhibit-read-only t))
        (with-current-buffer gistbuf
          (copy-to-buffer initbuf (point-min) (point-max)))
        (kill-buffer gistbuf)))))

(defun yy/diff-init-and-igist (&optional reverse)
  "对 init.el 和 igist init buffer 调用 `diff-buffers'"
  (interactive)
  (when-let* ((initbuf (get-file-buffer (file-name-concat user-emacs-directory "init.el")))
              (gistbuf (current-buffer)))
    (if (not (with-current-buffer gistbuf
               (bound-and-true-p yy-init-file)))
        (user-error "not in igist buffer init.el")
      (if reverse
          (diff-buffers initbuf gistbuf)
        (diff-buffers gistbuf initbuf)))))

(defalias 'yy/diff-igist-and-init (lambda () (interactive) (yy/diff-init-and-igist t)))

(transient-define-prefix yy/init-file-transient ()
  "用于 igist init buffer 的 transient 按键，简单的界面"
  ["diff"
   ("f" "观察 init 相对 gist 的改动" yy/diff-init-and-igist)
   ("r" "观察 gist 相对 init 的区别" yy/diff-igist-and-init)]
  ["update"
   ("u" "将 init.el 更新到 gist" yy/upload-init-file)
   ("d" "将 gist 内容复制到本地 init" yy/update-init-file)])

(defun yy/get-gist-init-file ()
  "获取来自 gist 的 init.el 文件，可直接复制其中内容，也可修改并 C-c C-c 提交
建议在 init.el 文件中运行该命令，方便对比修改"
  (interactive)
  (yy/open-init)
  (igist-list-load-gists
   "include-yy" t
   (lambda ()
     (with-current-buffer (igist-get-user-buffer-name
                           igist-current-user-name)
       (goto-char (point-min))
       (search-forward "init.el")
       (with-current-buffer (igist-list-edit-gist-at-point)
         (setq-local yy-init-file t)
         ;;https://stackoverflow.com/questions/27321407/how-to-make-a-buffer-local-key-binding-in-emacs
         (use-local-map (copy-keymap (current-local-map)))
         (local-set-key (kbd "C-c c") 'yy/init-file-transient)
         ))
     (kill-buffer (igist-get-user-buffer-name
                   igist-current-user-name)))))

;;@@YYINIT-MODE 用于 init.el 浏览各配置节点的 minor-mode，使用了 outline-minor-mode
(defvar-keymap yyinit-mode-map
  :doc "部分来自 outline-mode 的键绑定"
  "C-c C-n" #'outline-next-visible-heading
  "C-c C-p" #'outline-previous-visible-heading
  "C-c C-u" #'outline-up-heading
  "C-c C-a" #'outline-show-all
  "C-c C-o" #'outline-hide-other
  "C-c C-j" #'consult-outline
  ;; 把打开 gist 上配置的功能顺便放这里算了
  "C-c C-c" #'yy/get-gist-init-file)

(define-minor-mode yyinit-mode
  "用于浏览配置文件各节点的 minor-mode，添加了部分 outline-mode 按键绑定"
  :keymap yyinit-mode-map)

(defun yy/yyinit-setup ()
  (interactive)
  (when (equal (expand-file-name "~/.emacs.d/init.el")
               (buffer-file-name (current-buffer)))
    (setq-local outline-regexp ";;; init.el ---\\|;;; Code\\|;;@+")
    (setq-local outline-heading-alist '((";;; init.el ---" . 1) (";;; Code" . 1)
                                        (";;@" . 2) (";;@@" . 3)))
    (setq-local outline-minor-mode-use-buttons 'in-margins)
    (setq-local outline-minor-mode-highlight 'override)
    (setq-local outline-minor-mode-cycle t)
    (setq-local outline-level 'outline-level)
    (outline-minor-mode)
    (yyinit-mode)))

;;@@EAF, lazycat 的 Emacs 应用框架
;;te 从 eaf github 拉取仓库，在目录下创建名为 eaf-venv 的 python 虚拟环境
;; 在虚拟环境下运行 install-eaf.py
(yy/defcustom yy/use-eaf nil "是否使用 eaf")
(when (and (eq system-type 'windows-nt) yy/use-eaf)
  (let ((path (file-name-concat user-emacs-directory "emacs-application-framework")))
    (when (file-exists-p path)
      (add-to-list 'load-path path)
      (require 'eaf)
      (require 'eaf-browser)
      (setq eaf-python-command (file-name-concat path "eaf-venv" "Scripts" "python.exe")))))


;;@5 专门的语言特定配置区域
;;@@PYTHON 配置
;; 默认使用 python-ts-mode，需要安装 python 的 treesitter
(add-to-list 'eglot-server-programs
             '((python-mode python-ts-mode) . ("pyright-langserver" "--stdio")))
;; 启用 treesit
(yy/defcustom yy-use-python-treesit nil
  "是否使用 emacs 的 treesit python 支持
当前，treesit 似乎还是不够稳定")
(when (and (treesit-available-p)
	   yy-use-python-treesit
	   (treesit-ready-p 'python))
  (add-to-list 'major-mode-remap-alist '(python-mode . python-ts-mode)))
;; linux 下的 python 是 python3, Windows 还是用 python
(when (equal system-type 'windows-nt)
  (setopt python-shell-interpreter "python"))
(use-package python
  :init
  (defun yy/python-devdocs-current-docs ()
    (setq-local devdocs-current-docs '("python~3.11")))
  :bind
  ;; 设置 C-c r 来使用 eglot-rename，提供简单的重构功能
  (:map python-base-mode-map
        ("C-c r" . eglot-rename) ;; 重命名
        ("C-+" . hs-toggle-hiding) ;; 折叠代码
        ("C-c d" . devdocs-lookup) ;; 查找文档
        ("C-c f" . blacken-buffer) ;; black 格式化
        )
  :hook
  ;; 使用 pyright 作为 lsp server
  ;;te 通过 pip/pipx install pyright 来安装 pyright，使用 npm 也行
  (python-base-mode . eglot-ensure)
  ;; 使用 prettify ，将 lambda -> λ, and -> ∧, or -> ∨
  (python-base-mode . prettify-symbols-mode)
  ;; 使用 hs-minor-mode 来折叠代码
  (python-base-mode . hs-minor-mode)
  ;; 默认使用 python3.11 的文档
  (python-base-mode . yy/python-devdocs-current-docs))

;;@@JAVASCRIPT 配置
;; 添加 treesit 支持，替换 js-mode 和 js-json-mode
;; 草，怎么感觉有时候还不如原始的 js-mode
(yy/defcustom yy/use-js-treesit nil
  "是否使用 js 的 `js-ts-mode'"
  :type 'boolean)
(if (and (treesit-available-p)
	 yy/use-js-treesit)
    (progn
      (when (treesit-language-available-p 'javascript)
	(add-to-list 'major-mode-remap-alist '(javascript-mode . js-ts-mode)))
      (when (treesit-language-available-p 'json)
	(add-to-list 'major-mode-remap-alist '(js-json-mode . json-ts-mode)))
      (when (treesit-language-available-p 'typescript)
	(require 'typescript-ts-mode)))
  (require 'typescript-mode))
;; 默认开启 LSP： typescript-language-server
;;te 可通过 npm install -g typescript 安装
(yy/defcustom yy/use-js-lsp nil
  "是否使用 js 的 LSP"
  :type 'boolean)
(when yy/use-js-lsp
  (add-hook 'js-base-mode-hook 'eglot-ensure))
;; 设置 M-. 使用 xref
(use-package js
  :config
  (keymap-set js-mode-map "M-." 'xref-find-definitions)
  (when (treesit-available-p)
    (keymap-set js-ts-mode-map "M-." 'xref-find-definitions)))
;; 将 cjs mjs 和 ts（根据是否有 tree-sitter-ts）添加到 `auto-mode-alist'
(add-to-list 'auto-mode-alist '("\\.\\(cjs\\|mjs\\)\\'" . javascript-mode))

;;@@RESCRIPT 配置
;;te 配置 rescript lsp
;; 从 https://github.com/rescript-lang/rescript-vscode/releases/tag/1.18.0
;; 获取 lsp-server，然后解压缩将其中的 extension 文件夹放在 rescript-mode 目录下
;; 也许可以考虑添加 tree-sitter 支持
;; 项目在编译后才会有 LSP 提示
;; 从 rescript 11 开始，提供了独立的 lsp 包，可通过以下方式安装
;; npm install -g @rescript/language-server
;; npx rescript-language-server --stdio
(yy/defcustom yy/use-rescript-lsp nil
  "是否使用 rescript 的 LSP"
  :type '(choice (boolean)
		 (string :tag "Path")))
(use-package rescript-mode
  ;;:disabled
  )
(when yy/use-rescript-lsp
  (let ((cmd (if (booleanp yy/use-js-lsp)
		 (list "rescript-language-server" "--stdio")
	       (list "node" yy/use-rescript-lsp "--stdio"))))
    (add-to-list
     'eglot-server-programs
     `(rescript-mode . ,cmd)))
  (add-hook 'rescript-mode-hook 'eglot-ensure))

;;@@WGSL 配置
;; 添加 treesit 支持
;;te 需要从安装 libtree-sitter-wgsl 与 wgsl-ts-mode
;; 可自行从 https://github.com/szebniok/tree-sitter-wgsl 获取库并在 src 目录使用命令：
;; gcc -fPIC -c -I. parser.c && gcc -fPIC -c -I. scanner.c
;; gcc -fPIC -shared *.o -o libtree-sitter-wgsl.dll
;; 可使用 M-x package-vc-install https://github.com/acowley/wgsl-ts-mode 安装 ts mode
;;te 安装 wgsl lsp
;; cargo install --git https://github.com/wgsl-analyzer/wgsl-analyzer wgsl_analyzer
;; 当前似乎与 eglot 的配合存在一些问题
(use-package wgsl-ts-mode
  :disabled
  :config
  (add-hook 'wgsl-ts-mode-hook
            (defun yy/set-dabbrev-capf ()
              (setq-local completion-at-point-functions
                          '(yy/dabbrev-capf t)))))
(yy/defcustom yy/use-wgsl-lsp nil
  "是否使用 wgsl 的 LSP"
  :type 'boolean)
(when (and (fboundp 'wgsl-ts-mode)
           yy/use-wgsl-lsp)
  (add-to-list 'eglot-server-programs
               '(wgsl-ts-mode "wgsl_analyzer"))
  (add-hook 'wgsl-ts-mode-hook 'eglot-ensure))

;;@@RUST 配置
(when (treesit-available-p)
  (require 'rust-ts-mode))

(yy/defcustom yy/use-rust-lsp nil
  "是否使用 rust lsp"
  :type 'boolean)
(when yy/use-rust-lsp
  ;; https://gist.github.com/casouri/0ad2c6e58965f6fd2498a91fc9c66501
  (add-to-list 'eglot-server-programs
               `(rust-ts-mode . ("rust-analyzer" :initializationOptions
                                 ( :procMacro (:enable t)
                                   :cargo ( :buildScripts (:enable t)
                                            :features "all")))))
  (add-hook 'rust-ts-mode-hook 'eglot-ensure))

;;@@C/C++ 配置
;; 可以使用 cmake . -DCMAKE_EXPORT_COMPILE_COMMANDS=1 生成 LSP 可用的文件
(yy/defcustom yy/use-msys2-ucrt-clangd nil
  "是否使用 msys2 的 ucrt 中的 clangd LSP server"
  :type 'boolean)
(when (and (treesit-available-p)
	   (treesit-ready-p 'c)
           (treesit-ready-p 'cpp))
  (dolist (a '((c-mode . c-ts-mode)
               (c++-mode . c++-ts-mode)
               (c-or-c++-mode . c-or-c++-ts-mode)))
    (add-to-list 'major-mode-remap-alist a))
  (setopt c-ts-mode-indent-style 'bsd)
  (setopt c-ts-mode-indent-offset 4))

(if yy/use-msys2-ucrt-clangd
    (progn (add-to-list 'eglot-server-programs
			`((c++-ts-mode c-ts-mode c-or-c++-mode)
			  ;; https://stackoverflow.com/a/76077729
			  ,(file-name-concat yy/w32-msys-root-path
					     "msys2_shell.cmd")
			  "-defterm" "-no-start" "-ucrt64" "-here"
			  "-c" "\"clangd\""))
	   (add-hook 'c-ts-mode-hook 'eglot-ensure)
	   (add-hook 'c++-ts-mode-hook 'eglot-ensure))
  (when (executable-find "clangd")
    (add-to-list 'eglot-server-programs
                 '((c++-ts-mode c-ts-mode c-or-c++-mode) "clangd"))
    (add-hook 'c-ts-mode-hook 'eglot-ensure)
    (add-hook 'c++-ts-mode-hook 'eglot-ensure)))

;; 加载一下 cmake-ts-mode 里面的 `auto-mode-alist' 设定表达式
(when (and
       (treesit-available-p)
       (treesit-language-available-p 'cmake))
  (require 'cmake-ts-mode))


;;@@ 文件尾，file-local 变量
(run-with-idle-timer
 1.0 nil
 (lambda () (message "hello world, emacs-init-time is %s" (emacs-init-time))))
(provide 'init)
;; Local Variables:
;; eval: (when (fboundp 'yy/yyinit-setup) (yy/yyinit-setup))
;; End:

;;; init.el ends here

templates

;; -*- mode: emacs-lisp; lexical-binding:t; -*-

fundamental-mode


org-mode

(quote "#+BEGIN_QUOTE" n r> n "#+END_QUOTE")
(q "{{{q(" p ")}}}")
(src "#+BEGIN_SRC " q n r n "#+END_SRC")
(isrc "src_" p "{" q "}")
(link "[[" p "]]")