Group Janet send args into a table

Author: Olical

fnl/conjure/client/janet/netrepl.fnl

@@ -48,12 +48,13 @@
       (display-conn-status :disconnected)
       (a.assoc (state) :conn nil))))
 
-(defn- send [msg cb row col file-path]
-  (with-conn-or-warn
-    (fn [conn]
-      (remote.send conn (.. "\xFF(parser/where (dyn :parser) " row " " col ")"))
-      (remote.send conn (.. "\xFEsource \"" file-path "\"") nil true)
-      (remote.send conn msg cb true))))
+(defn- send [opts]
+  (let [{: msg : cb : row : col : file-path} opts]
+    (with-conn-or-warn
+      (fn [conn]
+        (remote.send conn (.. "\xFF(parser/where (dyn :parser) " row " " col ")"))
+        (remote.send conn (.. "\xFEsource \"" file-path "\"") nil true)
+        (remote.send conn msg cb true)))))
 
 (defn connect [opts]
   (let [opts (or opts {})
@@ -91,18 +92,18 @@
 (defn eval-str [opts]
   (try-ensure-conn)
   (send
-    (.. opts.code "\n")
-    (fn [msg]
-      (let [clean (text.trim-last-newline msg)]
-        (when opts.on-result
-          ;; ANSI escape trimming happens here AND in log append (if enabled)
-          ;; so that "eval and replace form" won't end up inserting ANSI codes.
-          (opts.on-result (text.strip-ansi-escape-sequences clean)))
-        (when (not opts.passive?)
-          (log.append (text.split-lines clean)))))
-    (or (a.get-in opts.range [:start 1]) 1)
-    (or (a.get-in opts.range [:start 2]) 1)
-    opts.file-path))
+    {:msg (.. opts.code "\n")
+     :cb (fn [msg]
+           (let [clean (text.trim-last-newline msg)]
+             (when opts.on-result
+               ;; ANSI escape trimming happens here AND in log append (if enabled)
+               ;; so that "eval and replace form" won't end up inserting ANSI codes.
+               (opts.on-result (text.strip-ansi-escape-sequences clean)))
+             (when (not opts.passive?)
+               (log.append (text.split-lines clean)))))
+     :row (a.get-in opts.range [:start 1] 1)
+     :col (a.get-in opts.range [:start 2] 1)
+     :file-path opts.file-path}))
 
 (defn doc-str [opts]
   (try-ensure-conn)

lua/conjure/client/janet/netrepl.lua

@@ -65,13 +65,19 @@ local function disconnect()
   return with_conn_or_warn(_5_)
 end
 _2amodule_2a["disconnect"] = disconnect
-local function send(msg, cb, row, col, file_path)
-  local function _6_(conn)
+local function send(opts)
+  local _let_6_ = opts
+  local msg = _let_6_["msg"]
+  local cb = _let_6_["cb"]
+  local row = _let_6_["row"]
+  local col = _let_6_["col"]
+  local file_path = _let_6_["file-path"]
+  local function _7_(conn)
     remote.send(conn, ("\255(parser/where (dyn :parser) " .. row .. " " .. col .. ")"))
     remote.send(conn, ("\254source \"" .. file_path .. "\""), nil, true)
     return remote.send(conn, msg, cb, true)
   end
-  return with_conn_or_warn(_6_)
+  return with_conn_or_warn(_7_)
 end
 _2amodule_locals_2a["send"] = send
 local function connect(opts)
@@ -82,21 +88,21 @@ local function connect(opts)
     disconnect()
   else
   end
-  local function _8_(err)
+  local function _9_(err)
     display_conn_status(err)
     return disconnect()
   end
-  local function _9_()
+  local function _10_()
     return display_conn_status("connected")
   end
-  local function _10_(err)
+  local function _11_(err)
     if err then
       return display_conn_status(err)
     else
       return disconnect()
     end
   end
-  return a.assoc(state(), "conn", remote.connect({host = host, port = port, ["on-failure"] = _8_, ["on-success"] = _9_, ["on-error"] = _10_}))
+  return a.assoc(state(), "conn", remote.connect({host = host, port = port, ["on-failure"] = _9_, ["on-success"] = _10_, ["on-error"] = _11_}))
 end
 _2amodule_2a["connect"] = connect
 local function try_ensure_conn()
@@ -109,7 +115,7 @@ end
 _2amodule_locals_2a["try-ensure-conn"] = try_ensure_conn
 local function eval_str(opts)
   try_ensure_conn()
-  local function _13_(msg)
+  local function _14_(msg)
     local clean = text["trim-last-newline"](msg)
     if opts["on-result"] then
       opts["on-result"](text["strip-ansi-escape-sequences"](clean))
@@ -121,15 +127,15 @@ local function eval_str(opts)
       return nil
     end
   end
-  return send((opts.code .. "\n"), _13_, (a["get-in"](opts.range, {"start", 1}) or 1), (a["get-in"](opts.range, {"start", 2}) or 1), opts["file-path"])
+  return send({msg = (opts.code .. "\n"), cb = _14_, row = a["get-in"](opts.range, {"start", 1}, 1), col = a["get-in"](opts.range, {"start", 2}, 1), ["file-path"] = opts["file-path"]})
 end
 _2amodule_2a["eval-str"] = eval_str
 local function doc_str(opts)
   try_ensure_conn()
-  local function _16_(_241)
+  local function _17_(_241)
     return ("(doc " .. _241 .. ")")
   end
-  return eval_str(a.update(opts, "code", _16_))
+  return eval_str(a.update(opts, "code", _17_))
 end
 _2amodule_2a["doc-str"] = doc_str
 local function eval_file(opts)