Skip to content

Commit f8611b7

Browse files
authored
Add 'cps' for eval symbol under cursor (#50)
1 parent dff1520 commit f8611b7

File tree

3 files changed

+7
-4
lines changed

3 files changed

+7
-4
lines changed

lua/acid/features.lua

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -60,6 +60,8 @@ features.eval_expr = function(mode, ns)
6060
if mode == nil then
6161
local form = forms.form_under_cursor()
6262
payload.code = table.concat(form, "\n")
63+
elseif mode == "symbol" then
64+
payload.code = forms.symbol_under_cursor()
6365
else
6466
local lines = forms.form_from_motion(mode)
6567
payload.code = table.concat(lines, "\n")

lua/acid/forms.lua

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,6 @@ forms.motion = function(bufnr, mode)
6262
}
6363
end
6464

65-
6665
forms.extract = function(coordinates)
6766
local lines = vim.api.nvim_buf_get_lines(coordinates.bufnr, coordinates.from[1] - 1, coordinates.to[1], 0)
6867

plugin/acid.vim

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -54,6 +54,7 @@ map <Plug>(acid-go-to) <Cmd>lua require("acid.features").go_to()<CR>
5454
map <Plug>(acid-docs) <Cmd>lua require("acid.features").docs()<CR>
5555
map <Plug>(acid-eval-cmdline) <Cmd>call AcidSendEval("eval_cmdline")<CR>
5656
map <Plug>(acid-motion-op) <Cmd>set opfunc=AcidMotion<CR>g@
57+
map <Plug>(acid-eval-symbol) <Cmd>call AcidMotion("symbol")<CR>
5758
map <Plug>(acid-eval-visual) <Cmd>call AcidMotion("visual")<CR>
5859
map <Plug>(acid-eval-expr) <Cmd>lua require("acid.features").eval_expr()<CR>
5960
map <Plug>(acid-eval-print) <Cmd>call AcidSendEval("eval_print")<CR>
@@ -82,10 +83,11 @@ if !g:acid_no_default_keymappings
8283
autocmd FileType clojure nmap <buffer> <silent> K <Plug>(acid-docs)
8384
autocmd FileType clojure nmap <buffer> <silent> <C-c>x <Plug>(acid-eval-cmdline)
8485
autocmd FileType clojure imap <buffer> <silent> <C-c>x <Plug>(acid-eval-cmdline)
85-
autocmd FileType clojure map <buffer> <silent> cp <Plug>(acid-motion-op)
86+
autocmd FileType clojure nmap <buffer> <silent> cp <Plug>(acid-motion-op)
8687
autocmd FileType clojure vmap <buffer> <silent> cp <Plug>(acid-eval-visual)
87-
autocmd FileType clojure map <buffer> <silent> cpp <Plug>(acid-eval-expr)
88-
autocmd FileType clojure map <buffer> <silent> cqp <Plug>(acid-eval-print)
88+
autocmd FileType clojure nmap <buffer> <silent> cps <Plug>(acid-eval-symbol)
89+
autocmd FileType clojure nmap <buffer> <silent> cpp <Plug>(acid-eval-expr)
90+
autocmd FileType clojure nmap <buffer> <silent> cqp <Plug>(acid-eval-print)
8991
9092
autocmd FileType clojure map <buffer> <silent> <C-c>ll <Plug>(acid-virtualtext-clear-line)
9193
autocmd FileType clojure map <buffer> <silent> <C-c>ln <Plug>(acid-virtualtext-toggle)

0 commit comments

Comments
 (0)