From c681e2b2e92da2e856835449d7097bbe67394a52 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 23 Aug 2022 17:18:51 +0100 Subject: Interactive REPL start in C-c C-k and C-c C-l Should address, sort of, issue #46 --- elisp/geiser-repl.el | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 0a1f544..22fbf28 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -18,7 +18,6 @@ (require 'geiser-syntax) (require 'geiser-impl) (require 'geiser-eval) -(require 'geiser-compile) (require 'geiser-connection) (require 'geiser-menu) (require 'geiser-image) @@ -1058,6 +1057,28 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (switch-to-geiser nil nil (or buffer (current-buffer)))) (geiser-repl--send cmd))) +(defun geiser-repl--switch-to-repl (arg) + (if arg + (switch-to-geiser-module (geiser-eval--get-module) (current-buffer)) + (switch-to-geiser nil nil (current-buffer)))) + +(defun geiser-repl--repl-buffer-p () + (and (buffer-live-p geiser-repl--repl) geiser-repl--repl)) + +(defun geiser-repl-restart-repl () + "Restarts the REPL associated with the current buffer." + (interactive) + (let ((b (current-buffer)) + (impl geiser-impl--implementation)) + (when (geiser-repl--repl-buffer-p) + (geiser-repl--switch-to-repl nil) + (comint-kill-subjob) + (sit-for 0.1)) ;; ugly hack; but i don't care enough to fix it + (run-geiser impl) + (sit-for 0.2) + (goto-char (point-max)) + (pop-to-buffer b))) + (defun geiser-repl-import-module (&optional module) "Import a given module in the current namespace of the REPL." (interactive) -- cgit v1.2.3