init.el

;; Preflight checks
(when (version< emacs-version "28")
  (error "Emacs version is too old for this config."))

;; Raise GC threshold to 32MB
(setq gc-cons-threshold (* 1024 1024 32))

;; Determine if we're in Guix OS or not
(defvar bsb/guix-system-p
  (and (eq system-type 'gnu/linux)
       (file-directory-p "/gnu/store")))

;; Add MELPA and a nice place outside the config for packages to live
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(setq package-user-dir "~/.cache/emacs/packages")
(setq package-gnupghome-dir "~/.cache/emacs/gnupg")
(package-initialize)

;; Use-package is a vast improvement over the old fashioned ways.
(unless (require 'use-package nil t)
  (unless package-archive-contents
    (package-refresh-contents))
  (package-install 'use-package)
  (require 'use-package))

(setq use-package-always-ensure (not bsb/guix-system-p))

;; Add some basic utils for loading the other config files and track
;; where the config root is since I sometimes reset user-emacs-directory
(defvar bsb/config-dir
  user-emacs-directory)

(defvar bsb/site-lisp
  (expand-file-name "site-lisp/" bsb/config-dir))

(defun bsb/init-file (file-name &optional extension)
  (when (null extension)
    (setf extension "el"))
  (format "%s/init/%s.%s" bsb/config-dir file-name extension))

(defun bsb/initialize-config! (modules)
  (dolist (module modules)
    (load-file (bsb/init-file module))))

;; Let 'er rip
(let ((modules '("appearance"
                 "builtins"
                 "core"
                 "development"
                 "email"
                 "feeds"
                 "files"
                 "lang-cc"
                 "lang-lisp"
                 "lang-lua"
                 "lang-ocaml"
                 "lang-ruby"
                 "music"
                 "norns"
                 "torrents"
                 "votd")))
  (bsb/initialize-config! modules))

(message "Initialized in %s with %d garbage collections" (emacs-init-time) gcs-done)