Fix for issue Olical#497 Scheme client

russtoku · May 25, 2023 · 4dd024c · 4dd024c
1 parent 1dd96d9
commit 4dd024c
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/doc/conjure-client-scheme-stdio.txt b/doc/conjure-client-scheme-stdio.txt
@@ -37,6 +37,9 @@ options relevant to these mappings.
 
 <localleader>cS          Stop any existing Scheme REPL.
 
+<localleader>ei          Interrupt running command. Same as pressing Ctrl-C
+                         in a cmdline REPL.
+
 ==============================================================================
 CONFIGURATION                      *conjure-client-scheme-stdio-configuration*
 

diff --git a/fnl/conjure/client/scheme/stdio.fnl b/fnl/conjure/client/scheme/stdio.fnl
@@ -15,7 +15,8 @@
    {:scheme
     {:stdio
      {:mapping {:start "cs"
-                :stop "cS"}
+                :stop "cS"
+                :interrupt "ei"}
       :command "mit-scheme"
       ;; Match "]=> " or "error> "
       :prompt_pattern "[%]e][=r]r?o?r?> "
@@ -119,6 +120,12 @@
          (fn [msg]
            (log.append (format-msg msg)))}))))
 
+(defn interrupt []
+  (with-repl-or-warn
+    (fn [repl]
+      (log.append ["; Sending interrupt signal."] {:break? true})
+      (repl.send-signal 2))))
+
 (defn on-load []
   (start))
 
@@ -131,7 +138,13 @@
   (mapping.buf
     :SchemeStop (cfg [:mapping :stop])
     stop
-    {:desc "Stop the REPL"}))
+    {:desc "Stop the REPL"})
+
+  (mapping.buf
+    :SchemeInterrupt (cfg [:mapping :interrupt])
+    interrupt
+    {:desc "Interrupt the REPL"}))
 
 (defn on-exit []
   (stop))
+