Move sbcl settings and update customfile

bundle/bundle--customfile.el

@@ -6,6 +6,10 @@
   (setq custom-file "~/.emacs.d/bundle/custom_win32.el")
   (add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets"))
   (cd "~/opt")
+  (setq sbcl-exe (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.exe")
+        sbcl-core (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.core")
+	inferior-lisp-program "sbcl"
+	slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))
   (when (string= (system-name) "EVG02667NB")
     (add-to-list 'Info-default-directory-list "~/Info")
     (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el"))

bundle/custom_win32.el

@@ -9,6 +9,11 @@
  '(custom-safe-themes
    (quote
     ("37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8" "7f6d4aebcc44c264a64e714c3d9d1e903284305fd7e319e7cb73345a9994f5ef" default)))
+ '(default-frame-alist
+    (quote
+     ((font . "Fira Code-11")
+      (vertical-scroll-bars)
+      (fullscreen . maximized))))
  '(inhibit-startup-buffer-menu t)
  '(initial-buffer-choice "~/Documents/Journal/notes.org")
  '(menu-bar-mode nil)

init.el

@@ -28,16 +28,4 @@
 (put 'narrow-to-region 'disabled nil)
 (put 'narrow-to-page 'disabled nil)
 
-;; SBCL
-(defun win-set-sbcl ()
-  ;; %USERPROFILE%\AppData\Local\Programs\emacs-26.2-x86_64\bin\emacsclientw.exe -c -n -a runemacs.exe
-  ;; (setq inferior-lisp-program (executable-find "sbcl"))
-  (setq sbcl-exe (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.exe")
-        sbcl-core (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.core")
-        inferior-lisp-program "sbcl"
-        slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core)))))
-
-(when (eq system-type 'windows-nt)
-  (win-set-sbcl))
-
 (load "bundle--mk")