;; OS SETTINGS (when (eq system-type 'gnu/linux) (setq custom-file "~/.emacs.d/bundle/custom_gnu.el" org-directory "~/Documents/journal/" org-agenda-files '("~/Documents/journal/") org-default-notes-file "notes.org" org-babel-python-command "python3" browse-url-secondary-browser-function 'browse-url-firefox python-shell-interpreter "ipython" python-shell-interpreter-args "--simple-prompt -i") (add-to-list 'Info-default-directory-list "~/Documents/info/")) (when (eq system-type 'windows-nt) (setq custom-file "~/.emacs.d/bundle/custom_win32.el") (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)))) (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"))) ;; CUSTOM_FILE (load custom-file :noerror)