Files
.emacs.d/lisp/init-startup.el
Andsy10 0f4ddc392c config: add macOS support with cross-platform compatibility
- Add platform-specific keybindings, paths, and settings for macOS
- Update org-mode templates and agenda files for both Windows and Mac
- Add vterm and lua-ts-mode packages (non-Windows)
- Configure Chinese segmentation for macOS
- Adjust font sizes and encoding settings per platform
2026-03-24 06:34:19 +08:00

63 lines
1.6 KiB
EmacsLisp

;;; init-startup.el
;;; -*- lexical-binding: t -*-
;; mac自动全屏
(when *is-mac*
(toggle-frame-fullscreen)
(global-unset-key (kbd "<f12>"))
(global-set-key (kbd "<f12>") 'toggle-frame-fullscreen))
;; 配置备份文件和自动保存文件目录
(setq backup-directory-alist
`((".*" . ,(expand-file-name "backup/" user-emacs-directory)))
backup-by-copying t
delete-old-versions t
kept-new-versions 6
kept-old-versions 2
version-control t)
(setq auto-save-file-name-transforms
`((".*" ,(expand-file-name "auto-save-list/" user-emacs-directory) t)))
;; 开启水平滚动
(put 'scroll-left 'disabled nil)
;; 关闭lock文件
(setq create-lockfiles nil)
;; 关闭提示音
(setq ring-bell-function 'ignore)
;; 同步scoop目录
(when *is-windows*
(add-to-list 'exec-path (expand-file-name "H/appppppppppp/scoop/apps/"))
(setenv "PATH" (concat (expand-file-name "H/appppppppppp/scoop/apps/") ";" (getenv "PATH"))))
;; 同步brew目录
(when *is-mac*
(add-to-list 'exec-path (expand-file-name "/opt/homebrew/bin/"))
(setenv "PATH" (concat (expand-file-name "/opt/homebrew/bin/") ":" (getenv "PATH"))))
;; 当文件被外部修改时自动刷新
(global-auto-revert-mode 1)
;; 开启rencent file mode
(recentf-mode)
(setq recentf-max-saved-items 30) ;; 最大保存数量
;; 启用select delete
(delete-selection-mode)
;; 启用winner mode
(winner-mode)
;; 自定义scratch
(setq initial-scratch-message
";; SCRATCH SCRATCH SCRATCH\n\n")
;; 开启server mode
(unless *is-mac*
(server-start))
(provide 'init-startup)