;;; early-init.el -*- lexical-binding: t -*-

(add-to-list 'load-path
             (file-name-concat user-emacs-directory "lisp"))

(defconst syd-init-load-order-seed
  (or (when-let ((x (getenv "SYD_INIT_LOAD_ORDER_SEED")))
        (string-to-number x))
      (random))
  "Seed used to load top-level modules in pseudo-random order.  Loading modules
in an unpredictable order by default is a tactic to prevent implicit
dependencies between modules.  For debugging purposes, the load-order may be
made deterministic by starting Emacs with the environment variable
SYD_INIT_LOAD_ORDER_SEED set to a non-negative integer.")

;; Log as early as possible to make it difficult to miss.
(message "Top-level modules will be loaded in the order determined by seed %d"
         syd-init-load-order-seed)

(require 'syd/disable-package)
