andsy10
2162b34007
- Remove consult-dir, nerd-icons-completion, org-contrib and some other unused package - Delete init-org-refile.el and related keybindings - Prune EMMS config - Remove EXWM flatpak launcher helpers (vscodium, localsend, steam) - Extract Windows dirvish video preview fix to standalone module - Drop built-in settings moved elsewhere (startup defaults, whitespace, etc.) - Clean up trailing whitespace / process list prettify configs
44 lines
1.5 KiB
EmacsLisp
44 lines
1.5 KiB
EmacsLisp
;;; init-const.el --- constant and system stuff -*- lexical-binding: t -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
;; 识别操作系统
|
|
(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)))
|
|
|
|
(if *is-windows*
|
|
(progn
|
|
;; 设置默认编码环境
|
|
(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))
|
|
|
|
;; Windows 文件名 Unicode 支持
|
|
(setq w32-unicode-filenames t)
|
|
(setq w32-system-coding-system 'utf-8)
|
|
|
|
;; 为特定程序设置编码
|
|
(add-to-list 'process-coding-system-alist '("rg" utf-8 . gbk))
|
|
(add-to-list 'process-coding-system-alist '("ripgrep" utf-8 . gbk)))
|
|
(progn
|
|
(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))
|
|
|
|
(provide 'init-const)
|
|
|
|
;;; init-const.el ends here
|