marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update windows settings

Browse source
This commit is contained in:
Marcus Kammer 2019-09-21 18:25:41 +02:00
parent 757f4039e4
commit 875683421d
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
init.el
View file

@ -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")