From 757f4039e47d7a55bf699939ba2a9c2988eeba36 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <2262664-marcus-kammer@users.noreply.gitlab.com>
Date: Sat, 21 Sep 2019 13:54:13 +0200
Subject: [PATCH] Update windows settings

---
 init.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/init.el b/init.el
index 04ac46c4..748f89c6 100755
--- a/init.el
+++ b/init.el
@@ -64,7 +64,7 @@ There are two things you can do about this warning:
  '(default-frame-alist
     (quote
      ((fullscreen . maximized)
-      (width . 86)
+      (width . 90)
       (height . 46)
       (font . "Iosevka Term-13.0")
       (vertical-scroll-bars)
@@ -203,12 +203,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")
-  (add-to-list 'load-path (expand-file-name "~/.emacs.d/__evo"))
   (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")
   (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")
-      (add-to-list 'default-frame-alist '(undecorated . nil))
-      (add-to-list 'default-frame-alist '(font . "Iosevka Term-11")))))
+        (add-to-list 'load-path (expand-file-name "~/.emacs.d/__evo")))
+    (when (string= (system-name) "XPS-8930"))))
 
 (when (eq system-type 'gnu/linux)
   (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")