diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-12-05 18:56:42 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-12-05 18:56:42 -0500 |
| commit | 599ab41d95ec61b0458b0fe3301fbc7a34947239 (patch) | |
| tree | ab7124567c9a7eb3c7ef74f22c82098a8d2382db | |
| parent | 1474cabdefce280309f91ba7fca4b5c968ba301f (diff) | |
emacs: Remove geiser hack that recent versions make unnecessary.
| -rw-r--r-- | dotfiles/.emacs.d/init.el | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/dotfiles/.emacs.d/init.el b/dotfiles/.emacs.d/init.el index d168e85..629ea0b 100644 --- a/dotfiles/.emacs.d/init.el +++ b/dotfiles/.emacs.d/init.el @@ -303,17 +303,6 @@ might be bad." (use-package flycheck-guile :config (add-hook 'scheme-mode-hook #'flycheck-mode)) - ;; Use project-aware REPL buffer naming so it's clear which REPL - ;; belongs to which project. - (defun repl-buffer-name (impl) - (let ((repl-name (geiser-repl--repl-name impl)) - (current-project (funcall geiser-repl-current-project-function))) - (if (and geiser-repl-per-project-p current-project) - (let ((project-name (file-name-nondirectory - (directory-file-name current-project)))) - (format "*Geiser %s: %s*" repl-name project-name)) - (format "*Geiser %s*" repl-name)))) - (setq geiser-repl-buffer-name-function #'repl-buffer-name) :custom ((geiser-active-implementations '(guile)) ;; One REPL per project, please! (geiser-repl-per-project-p t))) |