78 lines
2.1 KiB
EmacsLisp
78 lines
2.1 KiB
EmacsLisp
;;=======================================
|
|
;; Local mirror of package archives
|
|
;;=======================================
|
|
(require 'package)
|
|
(setq package-archives '(("gnu" . "https://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/")
|
|
("nongnu" . "https://mirrors.tuna.tsinghua.edu.cn/elpa/nongnu/")
|
|
("melpa" . "https://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/")))
|
|
|
|
|
|
(package-initialize)
|
|
|
|
|
|
;;=======================================
|
|
;; Load local config script
|
|
;; (not git controlled, like .env file)
|
|
;;=======================================
|
|
(setq local-file (expand-file-name "local.el" user-emacs-directory))
|
|
(when (file-exists-p local-file)
|
|
(load-file local-file))
|
|
|
|
|
|
;;===================
|
|
;; Handy settings
|
|
;;===================
|
|
|
|
(tool-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
(global-display-line-numbers-mode 0)
|
|
(global-auto-revert-mode t)
|
|
|
|
(setq mac-command-modifier 'meta)
|
|
(setq confirm-kill-emacs 'y-or-n-p)
|
|
(setq-default cursor-type '(bar . 2))
|
|
|
|
(add-to-list 'default-frame-alist '(fullscreen . maximized))
|
|
|
|
(global-unset-key (kbd "C-SPC"))
|
|
(global-set-key (kbd "M-SPC") 'set-mark-command)
|
|
(global-set-key (kbd "C-x C-b") 'bs-show)
|
|
(global-set-key (kbd "C-,") 'compile)
|
|
|
|
(windmove-default-keybindings 'meta)
|
|
|
|
(let ((font (face-attribute 'default :font)))
|
|
(when font
|
|
(set-face-attribute 'default nil :height 160)))
|
|
|
|
(setq custom-file (expand-file-name "custom-file.el" user-emacs-directory))
|
|
(load custom-file)
|
|
|
|
|
|
;;====================
|
|
;; Backup settings
|
|
;;====================
|
|
|
|
(setq backup-directory-alist `(("." . "~/.emacs.d/backups/")))
|
|
(setq version-control t) ; 开启多版本备份
|
|
(setq kept-old-versions 2) ; 保留最早的2个版本
|
|
(setq kept-new-versions 6) ; 保留最新的6个版本
|
|
(setq delete-old-versions t) ; 自动删除中间的多余版本
|
|
|
|
|
|
;;======================
|
|
;; Important packages
|
|
;;======================
|
|
|
|
(use-package gruber-darker-theme
|
|
:ensure t
|
|
:init
|
|
(load-theme 'gruber-darker t))
|
|
|
|
(use-package dimmer
|
|
:ensure t
|
|
:init
|
|
(setq dimmer-fraction 0.3) ; 调整变暗的程度（0.0 到y 1.0，越大越暗，0.3 刚刚好）
|
|
:config
|
|
(dimmer-mode 1))
|