34 lines
1.3 KiB
EmacsLisp
34 lines
1.3 KiB
EmacsLisp
;; OS SETTINGS
|
|
(when (eq system-type 'gnu/linux)
|
|
(load "bundle--email")
|
|
(setq custom-file "~/.emacs.d/bundle/custom_gnu.el"
|
|
browse-url-secondary-browser-function 'browse-url-firefox))
|
|
|
|
(when (eq system-type 'windows-nt)
|
|
(setenv "PATH" (string-join `("C:\\msys64\\usr\\bin" ,(getenv "PATH")) ":"))
|
|
|
|
(setq custom-file "~/.emacs.d/bundle/custom_win32.el"
|
|
org-babel-python-command "python")
|
|
|
|
(setq sbcl-exe (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe")
|
|
sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core")
|
|
inferior-lisp-program "sbcl"
|
|
slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))
|
|
|
|
(defun powershell (&optional buffer)
|
|
"Launches a powershell in buffer *powershell* and switches to it."
|
|
(interactive)
|
|
(let ((buffer (or buffer "*powershell*"))
|
|
(powershell-prog "C:\\Program Files\\PowerShell\\7\\pwsh.exe"))
|
|
(make-comint-in-buffer "shell" "*powershell*" powershell-prog)
|
|
(switch-to-buffer buffer)))
|
|
|
|
(when (string= (system-name) "EVG02667NB")
|
|
(cd "d:/opt")
|
|
(setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el"))
|
|
|
|
(when (string= (system-name) "XPS-8930")
|
|
(cd "d:/visua/sync/Documents/")))
|
|
|
|
;; CUSTOM_FILE
|
|
(load custom-file :noerror)
|