init.el

;;; SpringHan's Emacs Configuration

;;; Mirror Config
(require 'package)
(require 'comp)
(require 'cl-lib) ; Common Lisp
;;; Package Require
(setq package-archives '(("gnu" . "http://mirrors.ustc.edu.cn/elpa/gnu/")
                         ("melpa" . "http://mirrors.ustc.edu.cn/elpa/melpa/")))

;;; Native comp
(setq native-comp-async-report-warnings-errors nil)
(add-to-list 'native-comp-eln-load-path "~/.emacs.d/eln-cache/" nil #'string-equal)


;;; Theme
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")

;; GC
(setq gc-cons-threshold (* 60 1024 1024))

;;; Variables
(defvar spring/unwanted-buffer
  '("notes.org" "tasks.org" "user-init.el" "*Help*" "*Backtrace*" "*Compile-Log*"
    "*Async Shell Command*" "TAGS" "*lsp-log*" "*vc*" "*Calendar*" "*cargo-run*"
    "*cargo-test*" "*cargo-build*" "*Shell Command Output*" "*Async-native-compile-log*"
    "*Disabled Command*" "*rustic-compilation*" "spring-notepad" "*lsp-bridge-code-action-preview*"
    "*Buffer List*" "*Native-compile-log*" "*Ediff Registry*")
  "The buffers that I don't need.")

(defvar spring/my-child-frame nil
  "My child frame.")

(defvar spring/extra-native-compile-items nil
  "The items need extra natively compilation.")

(defvar spring/extra-items-compiled nil
  "If the extra items compiled.")

(load-file "~/.emacs.d/etc/init-config.el")

(put 'narrow-to-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'erase-buffer 'disabled nil)