;; 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) ;; (add-to-list 'exec-path "C:/msys64/mingw64/bin") ;; (add-to-list 'exec-path "C:/msys64/usr/bin") ;; (setenv "PATH" (concat "C:\\msys64\\mingw64\\bin;" (getenv "PATH"))) (setq sql-sqlite-program "c:/msys64/mingw64/bin/sqlite3.exe" ispell-program-name "c:/msys64/mingw64/bin/aspell.exe" nov-unzip-program "c:/msys64/usr/bin/unzip.exe" custom-file "~/.emacs.d/bundle/custom_win32.el" org-babel-python-command "python" 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)))) (use-package powershell) (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)