blob: 6e9430916bc26305dc7e8edd9c0df8affb5d457c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
" Quote lines in mail and mail-based formats: Markdown, Git commits, etc
" Operator function wrapper for the mapping to call
function! quote#Quote() abort
set operatorfunc=quote#QuoteOpfunc
return 'g@'
endfunction
" Quoting operator function
function! quote#QuoteOpfunc(type) abort
" May as well make this configurable
let l:char = exists('b:quote_char')
\ ? b:quote_char
\ : '>'
" Iterate over each matched line
for l:li in range(line('''['), line(''']'))
" Only add a space after the quote character if this line isn't already
" quoted with the same character
let l:cur = getline(l:li)
let l:new = stridx(l:cur, l:char) == 0
\ ? l:char.l:cur
\ : l:char.' '.l:cur
call setline(l:li, l:new)
endfor
endfunction
|