early-init.el

;;; early-init.el --- Initial config load -*- lexical-binding: t -*-

;;; Commentary:
;; Early initial file.

;;; Code:


;; Reduce GC frequency
(let ((normal-gc-cons-threshold (* 64 1024 1024))
      (init-gc-cons-threshold (* 128 1024 1024))
      (normal-read-process-output-max (* 1024 1024)))
  (setq read-process-output-max normal-read-process-output-max)
  (setq gc-cons-threshold init-gc-cons-threshold)
  (add-hook 'emacs-startup-hook
            (lambda () (setq gc-cons-threshold normal-gc-cons-threshold)
              (message "*** Emacs loaded in %s with %d garbage collections."
                       (format "%.2f sseconds"
                               (float-time
                                (time-subtract after-init-time before-init-time)))
                       gcs-done))))


;; Silence compiler warnings
(setq native-comp-async-report-warnings-errors nil)


;;; Bootstrap straight.el
(setq straight-repository-branch "develop")
(defvar bootstrap-version)

(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 6))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))
  
(setq package-enable-at-startup nil)
(setq straight-use-package-by-default t)

(straight-use-package 'use-package)

(let ((my-gnutls-min-prime-bits 4096))
  (setq gnutls-min-prime-bits my-gnutls-min-prime-bits))


;;; early-init.el ends here