;;=======================================
;; 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
;;======================

;; dark theme
(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))


;;========================
;; Package settings
;;========================

;; ----  simplec-mode -----------
(add-to-list 'load-path  (expand-file-name "vendor/simpc-mode" user-emacs-directory))
(require 'simpc-mode)
(add-to-list 'auto-mode-alist '("\\.[hc]\\(pp\\)?\\'" . simpc-mode))
;; --- end of simplec-mode ------