159 lines
5.7 KiB
EmacsLisp
159 lines
5.7 KiB
EmacsLisp
;;; early-init.el --- Early Init -*- lexical-binding: t; -*-
|
||
|
||
;;; Startup time
|
||
(defvar rs/show-startup-time t
|
||
"If non-nil, display startup time after Emacs loads.")
|
||
|
||
(defun rs/display-startup-time ()
|
||
"Display startup time in milliseconds and seconds."
|
||
(when rs/show-startup-time
|
||
(let* ((time (float-time (time-subtract after-init-time before-init-time)))
|
||
(ms (* time 1000)))
|
||
(message "Emacs loaded in %.0fms (%.2fs) with %d garbage collections."
|
||
ms time gcs-done))))
|
||
|
||
(add-hook 'emacs-startup-hook #'rs/display-startup-time 110)
|
||
|
||
;;; GC optimization
|
||
(defvar rs/backup-gc-cons-threshold gc-cons-threshold)
|
||
(defvar rs/backup-gc-cons-percentage gc-cons-percentage)
|
||
(setq gc-cons-threshold most-positive-fixnum)
|
||
(setq gc-cons-percentage 1.0)
|
||
|
||
;;; Directories
|
||
(defvar rs/emacs-dir user-emacs-directory)
|
||
(defvar rs/lib-dir (expand-file-name "lib/" rs/emacs-dir))
|
||
(defvar rs/var-dir (expand-file-name "var/" rs/emacs-dir))
|
||
|
||
(setq package-user-dir (expand-file-name "elpa/" rs/var-dir))
|
||
(setq user-emacs-directory rs/var-dir)
|
||
(setq custom-file null-device)
|
||
(setq custom-theme-directory (expand-file-name "themes/" rs/emacs-dir))
|
||
|
||
;;; Restore GC after startup
|
||
(add-hook 'emacs-startup-hook
|
||
(lambda ()
|
||
(setq gc-cons-threshold (* 64 1024 1024))
|
||
(setq gc-cons-percentage 0.1)) 105)
|
||
|
||
;;; Native compilation
|
||
(when (and (featurep 'native-compile)
|
||
(fboundp 'native-comp-available-p)
|
||
(native-comp-available-p))
|
||
(setq package-native-compile t)
|
||
(setq native-comp-async-report-warnings-errors 'silent)
|
||
(setq native-compile-prune-cache t)
|
||
(startup-redirect-eln-cache (expand-file-name "eln-cache/" rs/var-dir)))
|
||
|
||
(setq native-comp-warning-on-missing-source nil)
|
||
(setq jka-compr-verbose nil)
|
||
(setq byte-compile-warnings nil)
|
||
(setq byte-compile-verbose nil)
|
||
|
||
;;; GCC paths for macOS
|
||
(when-let* ((gcc-base "/opt/homebrew/opt/gcc/lib/gcc/current")
|
||
((file-directory-p gcc-base)))
|
||
(setenv "LIBRARY_PATH"
|
||
(string-join
|
||
(delq nil
|
||
(list gcc-base
|
||
(let ((jit-path "/opt/homebrew/opt/libgccjit/lib/gcc/current"))
|
||
(when (file-directory-p jit-path) jit-path))
|
||
(car (last (file-expand-wildcards
|
||
(concat gcc-base "/gcc/aarch64-apple-darwin*/*"))))))
|
||
":")))
|
||
|
||
;;; Misc performance
|
||
(setq load-prefer-newer t)
|
||
(setq read-process-output-max (* 2 1024 1024))
|
||
(setq process-adaptive-read-buffering nil)
|
||
(setq ffap-machine-p-known 'reject)
|
||
(setq ad-redefinition-action 'accept)
|
||
(setq warning-suppress-types '((lexical-binding)))
|
||
(setq inhibit-compacting-font-caches t)
|
||
|
||
(when (boundp 'pgtk-wait-for-event-timeout)
|
||
(setq pgtk-wait-for-event-timeout 0.001))
|
||
|
||
;;; File name handler optimization
|
||
(defvar rs/old-file-name-handler-alist (default-toplevel-value 'file-name-handler-alist))
|
||
|
||
(defun rs/restore-file-name-handler-alist ()
|
||
(set-default-toplevel-value
|
||
'file-name-handler-alist
|
||
(delete-dups (append file-name-handler-alist rs/old-file-name-handler-alist))))
|
||
|
||
(unless (daemonp)
|
||
(set-default-toplevel-value
|
||
'file-name-handler-alist
|
||
(if (locate-file-internal "calc-loaddefs.el" load-path)
|
||
nil
|
||
(list (rassq 'jka-compr-handler rs/old-file-name-handler-alist))))
|
||
(put 'file-name-handler-alist 'initial-value rs/old-file-name-handler-alist)
|
||
(add-hook 'emacs-startup-hook #'rs/restore-file-name-handler-alist 101))
|
||
|
||
;;; UI - disable before frame creation
|
||
(setq default-frame-alist '((background-color . "#072626")
|
||
(ns-appearance . dark)
|
||
(ns-transparent-titlebar . t)
|
||
(menu-bar-lines . 0)
|
||
(tool-bar-lines . 0)
|
||
(vertical-scroll-bars . nil)
|
||
(horizontal-scroll-bars . nil)
|
||
(frame-resize-pixelwise . t)))
|
||
|
||
(setq frame-resize-pixelwise t)
|
||
(setq frame-inhibit-implied-resize t)
|
||
(setq auto-mode-case-fold nil)
|
||
|
||
(setq inhibit-splash-screen t)
|
||
(setq inhibit-startup-screen t)
|
||
(setq inhibit-startup-echo-area-message user-login-name)
|
||
(setq inhibit-startup-buffer-menu t)
|
||
(setq inhibit-x-resources t)
|
||
(setq initial-buffer-choice nil)
|
||
(setq initial-scratch-message nil)
|
||
(setq initial-major-mode 'fundamental-mode)
|
||
|
||
(setq menu-bar-mode nil)
|
||
(setq tool-bar-mode nil)
|
||
(setq scroll-bar-mode nil)
|
||
|
||
(setq frame-title-format "%b – Emacs")
|
||
(setq icon-title-format frame-title-format)
|
||
|
||
;; Bidirectional text optimization
|
||
(setq-default bidi-display-reordering 'left-to-right)
|
||
(setq-default bidi-paragraph-direction 'left-to-right)
|
||
(setq bidi-inhibit-bpa t)
|
||
|
||
;; Suppress startup messages
|
||
(advice-add 'display-startup-echo-area-message :override #'ignore)
|
||
(advice-add 'display-startup-screen :override #'ignore)
|
||
|
||
;; Unset irrelevant command line options
|
||
(unless (eq system-type 'darwin)
|
||
(setq command-line-ns-option-alist nil))
|
||
(unless (memq initial-window-system '(x pgtk))
|
||
(setq command-line-x-option-alist nil))
|
||
|
||
;;; Security
|
||
(setq gnutls-verify-error t)
|
||
(setq tls-checktrust t)
|
||
(setq gnutls-min-prime-bits 3072)
|
||
|
||
;;; Package archives
|
||
(setq package-enable-at-startup nil)
|
||
(setq use-package-always-ensure t)
|
||
(setq use-package-enable-imenu-support t)
|
||
(setq use-package-expand-minimally t)
|
||
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
||
("gnu" . "https://elpa.gnu.org/packages/")
|
||
("nongnu" . "https://elpa.nongnu.org/nongnu/")
|
||
("melpa-stable" . "https://stable.melpa.org/packages/")))
|
||
(setq package-archive-priorities '(("gnu" . 99)
|
||
("nongnu" . 80)
|
||
("melpa" . 70)
|
||
("melpa-stable" . 50)))
|
||
|
||
;;; early-init.el ends here
|