36 lines
1.2 KiB
EmacsLisp
36 lines
1.2 KiB
EmacsLisp
;;; 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)
|