Skip to content

Commit

Permalink
Replace buf with buf2! Success!
Browse files Browse the repository at this point in the history
  • Loading branch information
Olical committed Sep 24, 2022
1 parent f1e346a commit 2355c67
Show file tree
Hide file tree
Showing 26 changed files with 176 additions and 247 deletions.
46 changes: 23 additions & 23 deletions fnl/conjure/client/clojure/nrepl/init.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -130,117 +130,117 @@
(action.connect-host-port opts))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:CljDisconnect (cfg [:mapping :disconnect])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.server :disconnect)
{:desc "Disconnect from the current REPL"})

(mapping.buf2
(mapping.buf
:CljConnectPortFile (cfg [:mapping :connect_port_file])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :connect-port-file)
{:desc "Connect to port specified in .nrepl-port etc"})

(mapping.buf2
(mapping.buf
:CljInterrupt (cfg [:mapping :interrupt])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :interrupt)
{:desc "Interrupt the current evaluation"})

(mapping.buf2
(mapping.buf
:CljLastException (cfg [:mapping :last_exception])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :last-exception)
{:desc "Display the last exception in the log"})

(mapping.buf2
(mapping.buf
:CljResult1 (cfg [:mapping :result_1])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :result-1)
{:desc "Display the most recent result"})

(mapping.buf2
(mapping.buf
:CljResult2 (cfg [:mapping :result_2])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :result-2)
{:desc "Display the second most recent result"})

(mapping.buf2
(mapping.buf
:CljResult3 (cfg [:mapping :result_3])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :result-3)
{:desc "Display the third most recent result"})

(mapping.buf2
(mapping.buf
:CljViewSource (cfg [:mapping :view_source])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :view-source)
{:desc "View the source of the function under the cursor"})

(mapping.buf2
(mapping.buf
:CljSessionClone (cfg [:mapping :session_clone])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :clone-current-session)
{:desc "Clone the current nREPL session"})

(mapping.buf2
(mapping.buf
:CljSessionFresh (cfg [:mapping :session_fresh])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :clone-fresh-session)
{:desc "Create a fresh nREPL session"})

(mapping.buf2
(mapping.buf
:CljSessionClose (cfg [:mapping :session_close])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :close-current-session)
{:desc "Close the current nREPL session"})

(mapping.buf2
(mapping.buf
:CljSessionCloseAll (cfg [:mapping :session_close_all])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :close-all-sessions)
{:desc "Close all nREPL sessions"})

(mapping.buf2
(mapping.buf
:CljSessionList (cfg [:mapping :session_list])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :display-sessions)
{:desc "List the current nREPL sessions"})

(mapping.buf2
(mapping.buf
:CljSessionNext (cfg [:mapping :session_next])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :next-session)
{:desc "Activate the next nREPL session"})

(mapping.buf2
(mapping.buf
:CljSessionPrev (cfg [:mapping :session_prev])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :prev-session)
{:desc "Activate the previous nREPL session"})

(mapping.buf2
(mapping.buf
:CljSessionSelect (cfg [:mapping :session_select])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :select-session-interactive)
{:desc "Prompt to select a nREPL session"})

(mapping.buf2
(mapping.buf
:CljRunAllTests (cfg [:mapping :run_all_tests])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :run-all-tests)
{:desc "Run all loaded tests"})

(mapping.buf2
(mapping.buf
:CljRunCurrentNsTests (cfg [:mapping :run_current_ns_tests])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :run-current-ns-tests)
{:desc "Run loaded tests in the current namespace"})

(mapping.buf2
(mapping.buf
:CljRunAlternateNsTests (cfg [:mapping :run_alternate_ns_tests])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :run-alternate-ns-tests)
{:desc "Run the tests in the *-test variant of your current namespace"})

(mapping.buf2
(mapping.buf
:CljRunCurrentTest (cfg [:mapping :run_current_test])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :run-current-test)
{:desc "Run the test under the cursor"})

(mapping.buf2
(mapping.buf
:CljRefreshChanged (cfg [:mapping :refresh_changed])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :refresh-changed)
{:desc "Refresh changed namespaces"})

(mapping.buf2
(mapping.buf
:CljRefreshAll (cfg [:mapping :refresh_all])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :refresh-all)
{:desc "Refresh all namespaces"})

(mapping.buf2
(mapping.buf
:CljRefreshClear (cfg [:mapping :refresh_clear])
(util.wrap-require-fn-call :conjure.client.clojure.nrepl.action :refresh-clear)
{:desc "Clear the refresh cache"})
Expand Down
4 changes: 2 additions & 2 deletions fnl/conjure/client/common-lisp/swank.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -261,13 +261,13 @@
(a.assoc opts :code (.. "(load \"" opts.file-path "\")"))))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:CommonLispDisconnect
(config.get-in [:client :common_lisp :swank :mapping :disconnect])
disconnect
{:desc "Disconnect from the REPL"})

(mapping.buf2
(mapping.buf
:CommonLispConnect
(config.get-in [:client :common_lisp :swank :mapping :connect])
#(connect {})
Expand Down
8 changes: 4 additions & 4 deletions fnl/conjure/client/fennel/aniseed.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -192,22 +192,22 @@
(wrapped-test ["; run-all-tests"] (ani :test :run-all)))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:FnlRunBufTests (cfg [:mapping :run_buf_tests])
run-buf-tests
{:desc "Run loaded buffer tests"})

(mapping.buf2
(mapping.buf
:FnlRunAllTests (cfg [:mapping :run_all_tests])
run-all-tests
{:desc "Run all loaded tests"})

(mapping.buf2
(mapping.buf
:FnlResetREPL (cfg [:mapping :reset_repl])
reset-repl
{:desc "Reset the current REPL state"})

(mapping.buf2
(mapping.buf
:FnlResetAllREPLs (cfg [:mapping :reset_all_repls])
reset-all-repls
{:desc "Reset all REPL states"}))
Expand Down
6 changes: 3 additions & 3 deletions fnl/conjure/client/fennel/stdio.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -130,19 +130,19 @@
(stop))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:FnlStart
(cfg [:mapping :start])
start
{:desc "Start the REPL"})

(mapping.buf2
(mapping.buf
:FnlStop
(cfg [:mapping :stop])
stop
{:desc "Stop the REPL"})

(mapping.buf2
(mapping.buf
:FnlEvalReload
(cfg [:mapping :eval_reload])
eval-reload
Expand Down
4 changes: 2 additions & 2 deletions fnl/conjure/client/guile/socket.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -148,12 +148,12 @@
(disconnect))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:GuileConnect (cfg [:mapping :connect])
#(connect)
{:desc "Connect to a REPL"})

(mapping.buf2
(mapping.buf
:GuileDisconnect (cfg [:mapping :disconnect])
disconnect
{:desc "Disconnect from the REPL"}))
6 changes: 3 additions & 3 deletions fnl/conjure/client/hy/stdio.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -156,17 +156,17 @@
(uv.kill repl.pid uv.constants.SIGINT)))))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:HyStart (cfg [:mapping :start])
start
{:desc "Start the REPL"})

(mapping.buf2
(mapping.buf
:HyStop (cfg [:mapping :stop])
stop
{:desc "Stop the REPL"})

(mapping.buf2
(mapping.buf
:HyInterrupt (cfg [:mapping :interrupt])
interrupt
{:desc "Interrupt the current evaluation"}))
4 changes: 2 additions & 2 deletions fnl/conjure/client/janet/netrepl.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -119,13 +119,13 @@
"\" :env (fiber/getenv (fiber/current))) nil)"))))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:JanetDisconnect
(config.get-in [:client :janet :netrepl :mapping :disconnect])
disconnect
{:desc "Disconnect from the REPL"})

(mapping.buf2
(mapping.buf
:JanetConnect
(config.get-in [:client :janet :netrepl :mapping :connect])
#(connect)
Expand Down
6 changes: 3 additions & 3 deletions fnl/conjure/client/julia/stdio.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -143,17 +143,17 @@
(uv.kill repl.pid uv.constants.SIGINT)))))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:JuliaStart (cfg [:mapping :start])
start
{:desc "Start the REPL"})

(mapping.buf2
(mapping.buf
:JuliaStop (cfg [:mapping :stop])
stop
{:desc "Stop the REPL"})

(mapping.buf2
(mapping.buf
:JuliaInterrupt (cfg [:mapping :interrupt])
interrupt
{:desc "Interrupt the evaluation"}))
4 changes: 2 additions & 2 deletions fnl/conjure/client/lua/neovim.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -41,11 +41,11 @@
(log.append [(.. comment-prefix "Reset all environments")] {:break? true}))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:LuaResetEnv (cfg [:mapping :reset_env])
#(reset-env))

(mapping.buf2
(mapping.buf
:LuaResetAllEnvs (cfg [:mapping :reset_all_envs])
#(reset-all-envs)))

Expand Down
6 changes: 3 additions & 3 deletions fnl/conjure/client/python/stdio.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -253,17 +253,17 @@
(uv.kill repl.pid uv.constants.SIGINT)))))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:PythonStart (cfg [:mapping :start])
start
{:desc "Start the Python REPL"})

(mapping.buf2
(mapping.buf
:PythonStop (cfg [:mapping :stop])
stop
{:desc "Stop the Python REPL"})

(mapping.buf2
(mapping.buf
:PythonInterrupt (cfg [:mapping :interrupt])
interrupt
{:desc "Interrupt the current evaluation"}))
6 changes: 3 additions & 3 deletions fnl/conjure/client/racket/stdio.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -147,17 +147,17 @@
conjure-racket-stdio-bufenter
(autocmd :BufEnter (.. :* buf-suffix) (viml->fn :enter)))

(mapping.buf2
(mapping.buf
:RktStart (cfg [:mapping :start])
start
{:desc "Start the REPL"})

(mapping.buf2
(mapping.buf
:RktStop (cfg [:mapping :stop])
stop
{:desc "Stop the REPL"})

(mapping.buf2
(mapping.buf
:RktInterrupt (cfg [:mapping :interrupt])
interrupt
{:desc "Interrupt the current evaluation"}))
Expand Down
4 changes: 2 additions & 2 deletions fnl/conjure/client/scheme/stdio.fnl
Original file line number Diff line number Diff line change
Expand Up @@ -123,12 +123,12 @@
(start))

(defn on-filetype []
(mapping.buf2
(mapping.buf
:SchemeStart (cfg [:mapping :start])
start
{:desc "Start the REPL"})

(mapping.buf2
(mapping.buf
:SchemeStop (cfg [:mapping :stop])
stop
{:desc "Stop the REPL"}))
Expand Down
Loading

0 comments on commit 2355c67

Please sign in to comment.