25 lines
768 B
EmacsLisp
25 lines
768 B
EmacsLisp
|
;;; No GUI
|
||
|
|
(dolist (mode '(menu-bar-mode tool-bar-mode scroll-bar-mode))
|
||
|
|
(when (fboundp mode) (funcall mode -1)))
|
||
|
|
|
||
|
|
;; A big contributor to startup times is garbage collection.
|
||
|
|
|
||
|
|
;; We up the gc threshold to temporarily prevent it from running, then
|
||
|
|
;; reset it later by enabling `gcmh-mode'. Not resetting it will cause
|
||
|
|
;; stuttering/freezes.
|
||
|
|
|
||
|
|
(setq gc-cons-threshold most-positive-fixnum)
|
||
|
|
|
||
|
|
;; When both .el and .elc / .eln files are available,
|
||
|
|
;; load the latest one.
|
||
|
|
|
||
|
|
(setq load-prefer-newer t)
|
||
|
|
|
||
|
|
;; Ensure that `describe-package' does not require a
|
||
|
|
;; `package-refresh-contents'.
|
||
|
|
(setq package-enable-at-startup t)
|
||
|
|
|
||
|
|
;; Name the default frame
|
||
|
|
;; You can select a frame with M-x select-frame-by-name
|
||
|
|
(add-hook 'after-init-hook (lambda () (set-frame-name "unravel")))
|