(setq auth-source-save-behavior nil
      auto-save-default nil
      change-major-mode-with-file-name nil
      custom-buffer-indent 4
      custom-file (file-name-concat user-emacs-directory "custom.el")
      custom-theme-directory (file-name-concat user-emacs-directory "themes/")
      debugger 'edebug
      initial-buffer-choice (lambda ()
                       (let ((initial-file (file-name-concat
                                            user-emacs-directory
                                            "initial-buffer")))
                         (if (file-exists-p initial-file)
                             (find-file initial-file)
                           (get-buffer-create "*scratch*"))))
      enable-local-variables :safe
      inferior-lisp-program "sbcl"
      inhibit-splash-screen t
      make-backup-files nil
      scheme-program-name "guile"
      tab-width 4
      temporary-file-directory (file-name-concat (getenv "HOME") "tmp" ".emacs"))

(setq-default display-fill-column-indicator-column 120
              indent-tabs-mode nil)

(let* ((init-modules-wildcard
        (file-name-concat user-emacs-directory "init" "*"))
       (lisp-modules-wildcard
        (file-name-concat user-emacs-directory "lisp" "*"))
       (init-modules-files
        (file-expand-wildcards init-modules-wildcard t))
       (lisp-modules-files
        (file-expand-wildcards lisp-modules-wildcard t))
       (files
        (append init-modules-files lisp-modules-files))
       (directories
        (seq-filter 'file-directory-p files)))
  (mapc (lambda (directory)
          (add-to-list 'load-path directory))
        directories))

(mkdir temporary-file-directory t)

(require 'init-garbage-collection)

(when (and (>= emacs-major-version 29) (native-comp-available-p))
  (require 'init-native-comp))