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

Create sbcl specific settings file

Browse source
This commit is contained in:
Marcus Kammer 2019-11-17 11:21:50 +01:00
parent 79d107066d
commit fa44962577
3 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bundle/os.el
View file

@ -1,13 +1,3 @@
;; ++++++++++++++++++++ OS
(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"))
(setq sbcl-core (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.core"))
(setq inferior-lisp-program "sbcl")
(setq slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core)))))
(defun evo-load-paths () (defun evo-load-paths ()
(add-to-list 'load-path (expand-file-name "~/.emacs.d/__evo")) (add-to-list 'load-path (expand-file-name "~/.emacs.d/__evo"))
(unless (file-directory-p (expand-file-name "~/Documents")) (unless (file-directory-p (expand-file-name "~/Documents"))
@ -19,7 +9,6 @@
(add-to-list 'default-frame-alist '(ns-appearance . dark)))) (add-to-list 'default-frame-alist '(ns-appearance . dark))))
(when (eq system-type 'windows-nt) (when (eq system-type 'windows-nt)
(win-set-sbcl)
(setq python-shell-interpreter "python") (setq python-shell-interpreter "python")
(add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets")) (add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets"))
(cd "~/opt") (cd "~/opt")
@ -33,5 +22,4 @@
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3") (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
(when (string= (system-name) "XPS-13-9380"))) (when (string= (system-name) "XPS-13-9380")))
;; ++++++++++++++++++++ OS
(provide 'os) (provide 'os)

12
bundle/sbcl-settings.el Normal file
View file

@ -0,0 +1,12 @@
(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))
(provide 'sbcl-settings)

1
init.el
View file

@ -37,6 +37,7 @@ There are two things you can do about this warning:
(require 'os) (require 'os)
(require 'calendar-settings) (require 'calendar-settings)
(require 'org-mode-settings) (require 'org-mode-settings)
(require 'sbcl-settings)
(require 'display) (require 'display)
(require 'hooks) (require 'hooks)