From 0d5ba2300e37c7edfdca8faba1ba7a6fae9dc5cb Mon Sep 17 00:00:00 2001
From: Marcus Kammer <2262664-marcus-kammer@users.noreply.gitlab.com>
Date: Sun, 26 Jul 2020 20:14:05 +0200
Subject: [PATCH] Move sbcl settings and update customfile

---
 bundle/bundle--customfile.el |  4 ++++
 bundle/custom_win32.el       |  5 +++++
 init.el                      | 12 ------------
 3 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/bundle/bundle--customfile.el b/bundle/bundle--customfile.el
index 2779acb2..82e23734 100644
--- a/bundle/bundle--customfile.el
+++ b/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"))
diff --git a/bundle/custom_win32.el b/bundle/custom_win32.el
index 72e6b29c..f6991af4 100644
--- a/bundle/custom_win32.el
+++ b/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)
diff --git a/init.el b/init.el
index 9c653ec4..90c3e7e0 100755
--- a/init.el
+++ b/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")