emacs.d/bundle/bundle--customfile.el

(use-package doom-themes
  :init
  (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
        doom-themes-enable-italic t) ; if nil, italics is universally disabled
  (load-theme 'doom-one t))

(defvar mk/hyperspec-dir-locations
  '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"
    "~/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"
    "~/lisp-docs/HyperSpec-7-0/HyperSpec/"
    "~/sites/HyperSpec/")
  "List of possible locations where the local HyperSpec could reside.")

(defun mk/find-dir (x)
  "Recursively search for a valid directory from a list X of directories.
Returns the first valid directory, or nil if none found."
  (cond ((null x) nil)
        ((file-directory-p (car x)) (car x))
        (t (mk/find-dir (cdr x)))))

(defun mk/hyperspec-dir ()
  "Finds and returns the URI of the local HyperSpec directory.
Uses `mk/hyperspec-dir-locations' to find the directory."
  (let ((dir-prefix (if (eq system-type 'windows-nt)
                        "file:///"  ; windows needs three slashes
                        "file://"))
        (dir (mk/find-dir mk/hyperspec-dir-locations)))
    (if dir
        (concat dir-prefix (expand-file-name dir))
        nil)))

(setq common-lisp-hyperspec-root (mk/hyperspec-dir))

;; OS SETTINGS
(when (eq system-type 'gnu/linux)
  (setq custom-file "~/.emacs.d/bundle/custom_gnu.el"
        browse-url-secondary-browser-function 'browse-url-firefox)
  ;; (setq ispell-hunspell-dict-paths-alist
  ;;       '(("de_DE_frami" "~/Library/Spelling/de_DE_frami.aff")
  ;;         ("en_US" "/usr/share/hunspell/en_US.aff")))
  )

(when (eq system-type 'windows-nt)
  ;; (add-to-list 'exec-path "C:/msys64/mingw64/bin")
  ;; (add-to-list 'exec-path "C:/msys64/usr/bin")
  ;; (setenv "PATH" (concat "C:\\msys64\\mingw64\\bin;" (getenv "PATH")))
  ;; (when (directory-name-p "c:/msys64/")
  ;;   (setq ispell-program-name "c:/msys64/mingw64/bin/hunspell.exe"
  ;;         mpv-executable "c:/msys64/mingw64/bin/mpv.exe"))

  (setq custom-file "~/.emacs.d/bundle/custom_win32.el")
  (setq org-babel-python-command "python")

  ;; (defun powershell (&optional buffer)
  ;;   "Launches a powershell in buffer *powershell* and switches to it."
  ;;   (interactive)
  ;;   (let ((buffer (or buffer "*powershell*"))
  ;;         (powershell-prog "C:\\Program Files\\PowerShell\\7\\pwsh.exe"))
  ;;     (make-comint-in-buffer "shell" "*powershell*" powershell-prog)
  ;;     (switch-to-buffer buffer)))

  (when (string= (system-name) "EVG02667NB")
    (cd "d:/opt")
    (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el")))

;; CUSTOM_FILE
(load custom-file :noerror)