Add an interrupt mapping for Racket, fixes #213

Author: Olical

doc/conjure-client-racket-stdio.txt

@@ -37,6 +37,9 @@ options relevant to these mappings.
 
 <localleader>cS          Stop any existing Racket REPL.
 
+<localleader>ei          Send an interrupt signal to the REPL. Useful for
+                         hanging processes or unbalanced parenthesis.
+
 ==============================================================================
 CONFIGURATION                      *conjure-client-racket-stdio-configuration*
 
@@ -53,6 +56,12 @@ All configuration can be set as described in |conjure-configuration|.
             Stop any existing Racket REPL.
             Default: `"cS"`
 
+                             *g:conjure#client#racket#stdio#mapping#interrupt*
+`g:conjure#client#racket#stdio#mapping#interrupt`
+            Send an interrupt signal to the REPL. Useful for hanging processes
+            or unbalanced parenthesis.
+            Default: `"ei"`
+
                                        *g:conjure#client#racket#stdio#command*
 `g:conjure#client#racket#stdio#command`
             Command used to start the Racket REPL, you can modify this to add

fnl/conjure/client/racket/stdio.fnl

@@ -15,7 +15,8 @@
    {:racket
     {:stdio
      {:mapping {:start "cs"
-                :stop "cS"}
+                :stop "cS"
+                :interrupt "ei"}
       :command "racket"
       :prompt_pattern "\n?[\"%w%-./_]*> "}}}})
 
@@ -65,6 +66,15 @@
           (a.run! display-result msgs))
         {:batch? true}))))
 
+(defn interrupt []
+  (with-repl-or-warn
+    (fn [repl]
+      (log.append ["; Sending interrupt signal."] {:break? true})
+
+      ;; SIGINT C-c
+      ;; https://github.com/Olical/conjure/issues/213
+      (repl.send-signal 2))))
+
 (defn eval-file [opts]
   (eval-str (a.assoc opts :code (.. ",require-reloadable " opts.file-path))))
 
@@ -135,7 +145,8 @@
 
 (defn on-filetype []
   (mapping.buf :n :RktStart (cfg [:mapping :start]) *module-name* :start)
-  (mapping.buf :n :RktStop (cfg [:mapping :stop]) *module-name* :stop))
+  (mapping.buf :n :RktStop (cfg [:mapping :stop]) *module-name* :stop)
+  (mapping.buf :n :RktInterrupt (cfg [:mapping :interrupt]) *module-name* :interrupt))
 
 (defn on-exit []
   (stop))

fnl/conjure/remote/stdio.fnl

@@ -108,6 +108,10 @@
       (next-in-queue)
       nil)
 
+    (fn send-signal [signal]
+      (uv.process_kill repl.handle signal)
+      nil)
+
     (let [{: cmd : args} (parse-cmd opts.cmd)
           (handle pid-or-err)
           (uv.spawn cmd {:stdio [stdin stdout stderr]
@@ -129,6 +133,7 @@
              :pid pid-or-err
              :send send
              :opts opts
+             :send-signal send-signal
              :destroy destroy}))
         (do
           (client.schedule #(opts.on-error pid-or-err))

lua/conjure/client/racket/stdio.lua

@@ -48,7 +48,7 @@ local text = _local_0_[9]
 local _2amodule_2a = _0_
 local _2amodule_name_2a = "conjure.client.racket.stdio"
 do local _ = ({nil, _0_, nil, {{nil}, nil, nil, nil}})[2] end
-config.merge({client = {racket = {stdio = {command = "racket", mapping = {start = "cs", stop = "cS"}, prompt_pattern = "\n?[\"%w%-./_]*> "}}}})
+config.merge({client = {racket = {stdio = {command = "racket", mapping = {interrupt = "ei", start = "cs", stop = "cS"}, prompt_pattern = "\n?[\"%w%-./_]*> "}}}})
 local cfg
 do
   local v_0_ = config["get-in-fn"]({"client", "racket", "stdio"})
@@ -189,6 +189,26 @@ do
   t_0_["eval-str"] = v_0_
   eval_str = v_0_
 end
+local interrupt
+do
+  local v_0_
+  do
+    local v_0_0
+    local function interrupt0()
+      local function _3_(repl)
+        log.append({"; Sending interrupt signal."}, {["break?"] = true})
+        return repl["send-signal"](2)
+      end
+      return with_repl_or_warn(_3_)
+    end
+    v_0_0 = interrupt0
+    _0_["interrupt"] = v_0_0
+    v_0_ = v_0_0
+  end
+  local t_0_ = (_0_)["aniseed/locals"]
+  t_0_["interrupt"] = v_0_
+  interrupt = v_0_
+end
 local eval_file
 do
   local v_0_
@@ -349,7 +369,8 @@ do
     local v_0_0
     local function on_filetype0()
       mapping.buf("n", "RktStart", cfg({"mapping", "start"}), _2amodule_name_2a, "start")
-      return mapping.buf("n", "RktStop", cfg({"mapping", "stop"}), _2amodule_name_2a, "stop")
+      mapping.buf("n", "RktStop", cfg({"mapping", "stop"}), _2amodule_name_2a, "stop")
+      return mapping.buf("n", "RktInterrupt", cfg({"mapping", "interrupt"}), _2amodule_name_2a, "interrupt")
     end
     v_0_0 = on_filetype0
     _0_["on-filetype"] = v_0_0

lua/conjure/remote/stdio.lua

@@ -205,6 +205,10 @@ do
         next_in_queue()
         return nil
       end
+      local function send_signal(signal)
+        uv.process_kill(repl.handle, signal)
+        return nil
+      end
       local _let_0_ = parse_cmd(opts.cmd)
       local args = _let_0_["args"]
       local cmd = _let_0_["cmd"]
@@ -216,7 +220,7 @@ do
           return opts["on-success"]()
         end
         client.schedule(_3_)
-        return a["merge!"](repl, {destroy = destroy, handle = handle, opts = opts, pid = pid_or_err, send = send})
+        return a["merge!"](repl, {["send-signal"] = send_signal, destroy = destroy, handle = handle, opts = opts, pid = pid_or_err, send = send})
       else
         local function _3_()
           return opts["on-error"](pid_or_err)