first commit

lisp/init-const.el

@@ -0,0 +1,35 @@
+;;; init-const.el
+;;; -*- lexical-binding: t -*-
+
+;; 识别操作系统
+(defconst *is-mac* (eq system-type 'darwin))
+(defconst *is-linux* (eq system-type 'gnu/linux))
+(defconst *is-windows* (or (eq system-type 'ms-dos)
+                           (eq system-type 'windows-nt)))
+
+;; Windows 系统编码设置
+(when *is-windows*
+  ;; 设置默认编码环境
+  (set-language-environment "UTF-8")
+  (prefer-coding-system 'utf-8)
+  (set-default-coding-systems 'utf-8)
+  (set-terminal-coding-system 'utf-8)
+  (set-keyboard-coding-system 'utf-8)
+  (setq default-buffer-file-coding-system 'utf-8)
+
+  ;; 设置进程通信编码
+  (setq default-process-coding-system '(utf-8 . utf-8))
+
+  ;; 为特定程序设置编码
+  (add-to-list 'process-coding-system-alist '("rg" utf-8 . utf-8))
+  (add-to-list 'process-coding-system-alist '("ripgrep" utf-8 . utf-8))
+  (add-to-list 'process-coding-system-alist '("grep" utf-8 . utf-8))
+  (add-to-list 'process-coding-system-alist '("find" utf-8 . utf-8))
+  (add-to-list 'process-coding-system-alist '("fd" utf-8 . utf-8))
+  (add-to-list 'process-coding-system-alist '("fdfind" utf-8 . utf-8))
+
+  ;; Windows 文件名 Unicode 支持
+  (setq w32-unicode-filenames t)
+  (setq w32-system-coding-system 'utf-8))
+
+(provide 'init-const)