2019-02-08 21:14:49 -05:00
|
|
|
;; Needs to be commented or else it will be added back
|
|
|
|
|
; (package-initialize)
|
2019-09-10 19:27:25 -04:00
|
|
|
(defvar jf-config-org-file (expand-file-name "config.org" user-emacs-directory))
|
|
|
|
|
(defvar jf-config-file (expand-file-name "config.el" user-emacs-directory))
|
2019-02-10 11:52:14 -05:00
|
|
|
(defvar jf-init-file (expand-file-name "init.el" user-emacs-directory))
|
|
|
|
|
(defvar jf-load-path (expand-file-name "lisp/" user-emacs-directory))
|
2019-02-10 14:34:50 -05:00
|
|
|
(defvar jf-gc-threshold 20000000) ; 20MB up from 800KB
|
2019-02-10 11:52:14 -05:00
|
|
|
|
2019-02-10 14:34:50 -05:00
|
|
|
(defun jf-inhibit-gc ()
|
|
|
|
|
(setq gc-cons-threshold most-positive-fixnum))
|
|
|
|
|
(defun jf-resume-gc ()
|
|
|
|
|
(setq gc-cons-threshold jf-gc-threshold))
|
|
|
|
|
|
|
|
|
|
(message "-> Initializing Electronic Macs...")
|
|
|
|
|
|
|
|
|
|
;; Don't garbage collect during init
|
|
|
|
|
(jf-inhibit-gc)
|
2019-09-10 19:27:25 -04:00
|
|
|
(org-babel-load-file jf-config-org-file)
|
2019-02-10 14:34:50 -05:00
|
|
|
(jf-resume-gc)
|
|
|
|
|
|
2019-02-10 15:14:26 -05:00
|
|
|
(message "-> Initialized in %s with %d GCs."
|
2019-09-07 11:06:02 -04:00
|
|
|
(float-time (time-subtract after-init-time before-init-time))
|
|
|
|
|
gcs-done)
|
