1(add-to-list 'load-path (locate-user-emacs-file "site-lisp"))
 2
 3;; Do not initialize installed packages
 4(setopt package-enable-at-startup nil
 5	package-archives nil
 6	package-quickstart nil)
 7(setopt use-package-ensure-function 'ignore)
 8
 9;; Do not resize the frame at this early stage
10(setopt frame-inhibit-implied-resize t
11	frame-resize-pixelwise t
12	frame-title-format '("%b")) ;; do not add "GNU Emacs at …"
13
14;; Disable GUI elements
15(push '(menu-bar-lines . 0) default-frame-alist)
16(push '(tool-bar-lines . 0) default-frame-alist)
17(push '(vertical-scroll-bars) default-frame-alist)
18(menu-bar-mode -1)
19(tool-bar-mode -1)
20(scroll-bar-mode -1)
21(horizontal-scroll-bar-mode -1)
22
23(setopt use-dialog-box nil   ;; never use dialog-box (no mouse)
24	use-file-dialog nil  ;; never use file dialog (gtk)
25	use-short-answers t  ;; replace defalias yes-or-no-p
26	read-answer-short t) ;; accepts single-character answer, similar to above
27
28(setopt inhibit-startup-message t
29	inhibit-startup-screen t
30	inhibit-startup-echo-area-message user-login-name ; read the docstring
31	inhibit-startup-buffer-menu t)
32
33(setq gc-cons-threshold most-positive-fixnum
34      gc-cons-percentage 0.5)
35
36(defvar vde--file-name-handler-alist file-name-handler-alist)
37(defvar vde--vc-handled-backends vc-handled-backends)
38(setq file-name-handler-alist nil
39      vc-handled-backends nil)
40
41;; Ignore X resources; its settings would be redundant with the other settings
42;; in this file and can conflict with later config (particularly where the
43;; cursor color is concerned).
44(advice-add #'x-apply-session-resources :override #'ignore)
45(setopt inhibit-x-resources t)
46
47;;
48(when (getenv-internal "DEBUG")
49  (setq init-file-debug t
50	debug-on-error t))
51
52;; - Resetting garbage collection and file-name-handler values.
53(add-hook 'after-init-hook
54          `(lambda ()
55             (setq gc-cons-threshold 67108864 ; 64mb
56                   gc-cons-percentage 0.1
57                   file-name-handler-alist vde--file-name-handler-alist
58		   vc-handled-backends vde--vc-handled-backends)
59             (garbage-collect)) t)