;; OS SETTINGS (when (eq system-type 'gnu/linux) (setq custom-file "~/.emacs.d/bundle/custom_gnu.el")) (when (eq system-type 'windows-nt) (setq custom-file "~/.emacs.d/bundle/custom_win32.el") (add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets")) (cd "d:/opt") (setq sbcl-exe (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\2.0.0\\sbcl.exe") sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\2.0.0\\sbcl.core") inferior-lisp-program "sbcl" slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core)))) (when (string= (system-name) "EVG02667NB") (add-to-list 'Info-default-directory-list "~/Info") (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el") (setq plantuml-jar-path "c:/Users/Marcus.Kammer/AppData/Local/Programs/plantuml/plantuml.jar") (setq plantuml-default-exec-mode 'jar)) (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) "XPS-8930"))) ;; CUSTOM_FILE (load custom-file :noerror)