Skip to content

Commit

Permalink
Fix indentation of subforms inside letfn forms
Browse files Browse the repository at this point in the history
  • Loading branch information
axvr committed Jan 14, 2021
1 parent 15ce7f6 commit cd56bf6
Showing 1 changed file with 28 additions and 0 deletions.
28 changes: 28 additions & 0 deletions indent/clojure.vim
Original file line number Diff line number Diff line change
Expand Up @@ -169,7 +169,35 @@ if exists("*searchpairpos")

call search('\S', 'W')
let w = s:strip_namespace_and_macro_chars(s:current_word())

if g:clojure_special_indent_words =~# '\V\<' . w . '\>'

" `letfn` is a special-special-case.
if w ==# 'letfn'
" Earlier code left the cursor at:
" (letfn [...] ...)
" ^

" Search and get coordinates of first `[`
" (letfn [...] ...)
" ^
call search('[', 'W')
let pos = getcurpos()
let letfn_bracket = [pos[1], pos[2]]

" Move cursor to start of the form this function was
" initially called on. Grab the coordinates of the
" closest outer `[`.
call cursor(a:position)
let outer_bracket = s:match_pairs('\[', '\]', 0)

" If the located square brackets are not the same,
" don't use special-case formatting.
if outer_bracket != letfn_bracket
return 0
endif
endif

return 1
endif

Expand Down

0 comments on commit cd56bf6

Please sign in to comment.