2020-01-13 18:52:23 +01:00

242 lines
5.9 KiB

;;; init.el --- -*- lexical-binding: t -*-
;; Filename: init.el
;; Description: Initialize M-EMACS
;; Author: Mingde (Matthew) Zeng
;; Copyright (C) 2019 Mingde (Matthew) Zeng
;; Created: Thu Mar 14 10:15:28 2019 (-0400)
;; Version: 2.0.0
;; Last-Updated: Sat Dec 28 18:41:54 2019 (+0100)
;; By: Mikaël Capelle
;; URL: https://github.com/MatthewZMD/.emacs.d
;; Keywords: M-EMACS .emacs.d init
;; Compatibility: emacs-version >= 26.1
;;; Commentary:
;; This is the init.el file for M-EMACS
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or (at
;; your option) any later version.
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Code:
(setenv "PATH"
"C:/Softwares/Git/usr/bin" ";"
(getenv "PATH")))
;; CheckVer
(cond ((version< emacs-version "26.1")
(warn "M-EMACS requires Emacs 26.1 and above!"))
((let* ((early-init-f (expand-file-name "early-init.el" user-emacs-directory))
(expand-file-name "early-init-do-not-edit/" user-emacs-directory))
(expand-file-name "early-init.el" early-init-do-not-edit-d)))
(and (version< emacs-version "27")
(or (not (file-exists-p early-init-do-not-edit-f))
(file-newer-than-file-p early-init-f early-init-do-not-edit-f)))
(make-directory early-init-do-not-edit-d t)
(copy-file early-init-f early-init-do-not-edit-f t t t t)
(add-to-list 'load-path early-init-do-not-edit-d)
(require 'early-init))))
;; -CheckVer
;; BetterGC
(defvar better-gc-cons-threshold 67108864 ; 64mb
"The default value to use for `gc-cons-threshold'.
If you experience freezing, decrease this. If you experience stuttering,
increase this.")
(add-hook 'emacs-startup-hook
(lambda ()
(setq gc-cons-threshold better-gc-cons-threshold)
(setq file-name-handler-alist file-name-handler-alist-original)
(makunbound 'file-name-handler-alist-original)))
;; -BetterGC
;; AutoGC
(add-hook 'emacs-startup-hook
(lambda ()
(if (boundp 'after-focus-change-function)
(add-function :after after-focus-change-function
(lambda ()
(unless (frame-focus-state)
(add-hook 'after-focus-change-function 'garbage-collect))
;; -AutoGC MinibufferGC
(defun gc-minibuffer-setup-hook ()
(setq gc-cons-threshold (* better-gc-cons-threshold 2)))
(defun gc-minibuffer-exit-hook ()
(setq gc-cons-threshold better-gc-cons-threshold))
(add-hook 'minibuffer-setup-hook #'gc-minibuffer-setup-hook)
(add-hook 'minibuffer-exit-hook #'gc-minibuffer-exit-hook)))
;; -MinibufferGC
;; LoadPath
(defun update-to-load-path (folder)
"Update FOLDER and its subdirectories to `load-path'."
(let ((base folder))
(unless (member base load-path)
(add-to-list 'load-path base))
(dolist (f (directory-files base))
(let ((name (concat base "/" f)))
(when (and (file-directory-p name)
(not (equal f ".."))
(not (equal f ".")))
(unless (member base load-path)
(add-to-list 'load-path name)))))))
(update-to-load-path (expand-file-name "elisp" user-emacs-directory))
(update-to-load-path (expand-file-name "one-file-mode" user-emacs-directory))
;; -LoadPath
;; Constants
(require 'init-const)
;; Packages
;; Package Management
(require 'init-package)
;; Global Functionalities
(require 'init-global-config)
(require 'init-func)
(require 'init-search)
(require 'init-crux)
(require 'init-avy)
(require 'init-winner)
(require 'init-which-key)
(require 'init-popup-kill-ring)
(require 'init-undo-tree)
(require 'init-discover-my-major)
(require 'init-ace-window)
(require 'init-shell)
(require 'init-dired)
;; User Interface Enhancements
(require 'init-ui-config)
(require 'init-all-the-icons)
(require 'init-theme)
(require 'init-dashboard)
(require 'init-fonts)
(require 'init-scroll)
;; General Programming
(require 'init-magit)
(require 'init-projectile)
(require 'init-treemacs)
(require 'init-yasnippet)
(require 'init-flycheck)
(require 'init-dumb-jump)
(require 'init-parens)
(require 'init-indent)
(require 'init-quickrun)
(require 'init-format)
(require 'init-comment)
(require 'init-edit)
(require 'init-header)
(require 'init-ein)
;; (require 'init-lsp)
(require 'init-company)
;; Programming
(require 'init-java)
(require 'init-cc)
(require 'init-python)
(require 'init-latex)
(require 'init-langs)
(require 'init-ess)
;; Web Development
(require 'init-webdev)
;; Miscellaneous
(require 'init-org)
(require 'init-eaf)
(require 'init-erc)
(require 'init-eww)
;; (require 'init-mu4e)
(require 'init-tramp)
(require 'init-pdf)
(require 'init-leetcode)
(require 'init-pyim)
(require 'init-epaint)
(require 'init-games)
(require 'init-zone)
(provide 'init)
;;; init.el ends here