First commit.

lisp/init-emacs.el

@@ -0,0 +1,40 @@
+;;; init-emacs.el --- initializes basic Emacs settings -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(defconst *user-custom-file* (path-join *user-data-directory* "custom.el"))
+
+(when (version< emacs-version "25.3")
+  ;; Plug security hole in enriched text mode.
+  (eval-after-load "enriched"
+    '(defun enriched-decode-display-prop (start end &optional param)
+       (list start end))))
+
+;; Improve init performance.
+(setq
+ ;; Increase garbage collection threshold.
+ gc-cons-threshold (* 128 1024 1024))
+
+;; Restore garbage collection threshold while Emacs is idle.
+(run-with-idle-timer
+ 2 nil
+ (lambda ()
+   (validate-setq
+    ;; Reduce number of pauses due to garbage collection.
+    gc-cons-threshold (* 50 1024 1024)
+    gc-cons-percentage 0.5)))
+
+
+;; Create data and cache directories
+(make-directory *user-cache-directory* t)
+(make-directory *user-data-directory* t)
+
+(setq
+ ;; Lines of history in the message buffer.
+ message-log-max 10000
+ ;; Path to custom-file
+ custom-file *user-custom-file*)
+
+
+(provide 'init-emacs)
+;;; init-emacs.el ends here