diff --git a/bundle/bundle--customfile.el b/bundle/bundle--customfile.el index 9f368968..bb7d248c 100644 --- a/bundle/bundle--customfile.el +++ b/bundle/bundle--customfile.el @@ -12,13 +12,19 @@ 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")))