From 875683421dc47b3f332b65a4a54fc9720202261a Mon Sep 17 00:00:00 2001
From: Marcus Kammer <2262664-marcus-kammer@users.noreply.gitlab.com>
Date: Sat, 21 Sep 2019 18:25:41 +0200
Subject: [PATCH] Update windows settings

---
 init.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/init.el b/init.el
index 748f89c6..753fd87a 100755
--- a/init.el
+++ b/init.el
@@ -202,13 +202,17 @@ There are two things you can do about this warning:
 
 (when (eq system-type 'windows-nt)
   ;; %USERPROFILE%\AppData\Local\Programs\emacs-26.2-x86_64\bin\emacsclientw.exe -c -n -a runemacs.exe
-  (cd "~/opt")
+  ;; (setq inferior-lisp-program (executable-find "sbcl"))
+  (setq local-data (concat (getenv "UserProfile") "\\AppData\\Local"))
+  (setq local-programs (concat local-data "\\Programs"))
+  (setq sbcl-exe (concat local-programs "\\Steel Bank Common Lisp\\1.4.14\\sbcl.exe"))
+  (setq sbcl-core (concat local-programs "\\Steel Bank Common Lisp\\1.4.14\\sbcl.core"))
+  (setq slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))
   (setq python-shell-interpreter "python")
-  (setq slime-lisp-implementations '((sbcl ("C:\\Program Files\\Steel Bank Common Lisp\\1.4.14\\sbcl.exe" "--core" "C:\\Program Files\\Steel Bank Common Lisp\\1.4.14\\sbcl.core"))))
-  ;;(setq inferior-lisp-program (executable-find "sbcl"))
   (setq inferior-lisp-program "sbcl")
+  (add-to-list 'load-path (expand-file-name (concat local-data "\\Roaming\\__secrets")))
+  (cd "~/opt")
   (when (display-graphic-p)
-    (add-to-list 'default-frame-alist '(fullscreen . nil))
     (add-to-list 'default-frame-alist '(undecorated . nil))
     (add-to-list 'default-frame-alist '(font . "Iosevka Term-11"))
     (when (string= (system-name) "EVG01788WS")