nixos-config/extraFiles/config/emacs/early-init.el

;;; -*- lexical-binding: t; -*-

(defvar materus/init-early t
  "Is emacs using materus early init")                                                    ; Var to ensure early-init loaded, not used anymore but keeping it anyway
(setq materus/init-early t)                                                               ; Probably useless

(setenv "LSP_USE_PLISTS" "true")                                                          ; Make lsp-mode use plists
;; 
(setq c-default-style nil)                                                                ; Clear default styles for languages, will set them up later
(setq default-input-method nil)                                                           ; Disable default input method, I'm not using them anyway so far
(setq initial-major-mode 'fundamental-mode)                                               ; Use fundamental mode in scratch buffer, speed up loading, not really important when emacs used as daemon
(setq auto-save-default nil)                                                              ; TODO: configure auto saves, disable for now
(setq backup-directory-alist
      `((".*" . ,(concat user-emacs-directory "var/backups/"))))                          ; Set backup location
(setq auto-save-file-name-transforms
      `((".*" ,(concat user-emacs-directory "var/recovery/") t)))                         ; Set auto-save location  
(setq auto-save-list-file-prefix (concat user-emacs-directory "var/auto-save/sessions/")) ; Set auto-save-list location
(setq load-prefer-newer t)                                                                ; Prefer newer files to load

;; Packages
(setq package-enable-at-startup t)                                                        ; Ensure packages are enable since I'm either using built in package manager or nix
(setq package-quickstart nil)                                                             ; Disable package quickstart, it's annoying if forget to update it and doesn't speed up much
(add-to-list 'load-path (concat user-emacs-directory "etc/materus/extra"))                ; Extra load path for packages
(setq package-user-dir (concat user-emacs-directory "var/elpa/" emacs-version "/" ))      ; Set elpa path for this emacs version, should use nix packages anyway so keeping just in case
(setq package-gnupghome-dir (concat user-emacs-directory "var/elpa/gnupg/" ))             ; Set path to gnupg for elpa
(add-to-list 'package-archives 
             '("nongnu-devel" . "https://elpa.nongnu.org/nongnu-devel/"))                 ; Add nongnu-devel repo to package manager
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)              ; Add melpa repo to package manager
(customize-set-variable 'package-archive-priorities '(("gnu"    . 99)
                                                      ("nongnu" . 80)
                                                      ("nongnu-devel" . 70)
                                                      ("melpa"  . 0)))                      ; Repository priority
;;

(setq inhibit-compacting-font-caches t)                                                   ; Don't compact fonts

(set-language-environment "UTF-8")                                                        ; Use UTF-8

(setq custom-file (concat user-emacs-directory "etc/custom.el"))                          ; Set custom file location, don't want clutter in main directory
(setq custom-theme-directory
      (expand-file-name "/etc/materus/themes/" user-emacs-directory))                       ; Set custom themes location

(setq ring-bell-function 'ignore)                                                         ; Disable bell


(defvar materus-emacs-gc-cons-threshold (* 32 1024 1024)
  "The value of `gc-cons-threshold' after Emacs startup.")                                ; Define after init garbage collector threshold

(setq gc-cons-threshold most-positive-fixnum)                                             ; Set `gc-cons-threshold' so it won't collectect during initialization 

(add-hook 'emacs-startup-hook
          (lambda ()
            (setq gc-cons-threshold materus-emacs-gc-cons-threshold)))                    ; Set `gc-cons-threshold' to desired value after startup

(setq frame-inhibit-implied-resize t)
(setq frame-resize-pixelwise t)
(setq window-resize-pixelwise t)                                ; Allow pixelwise resizing of window and frame

(unless (daemonp)
  (add-to-list 'initial-frame-alist '(fullscreen . maximized))) ; Start first frame maximized if not running as daemon, daemon frame are set up later in config
(setq default-frame-alist                                       ; Set default size for frames
      '((width . 130)   
        (height . 40)))                 

(advice-add #'tty-run-terminal-initialization :override #'ignore)
(add-hook 'window-setup-hook
          (lambda ()
            (unless (display-graphic-p)
              (advice-remove #'tty-run-terminal-initialization #'ignore) 
              (tty-run-terminal-initialization (selected-frame) nil t)
              )))

(setq native-comp-async-report-warnings-errors nil) ; Silence warnings
(setq native-comp-speed 3)                          ; Set native-comp speed

(setq native-comp-jit-compilation t
      ;native-comp-deferred-compilation t 
      package-native-compile t)


;; Setting up native-comp cache location

(when (and (fboundp 'startup-redirect-eln-cache)
           (fboundp 'native-comp-available-p)
           (native-comp-available-p))
  (startup-redirect-eln-cache
   (convert-standard-filename
    (expand-file-name  "var/eln-cache/" user-emacs-directory))))