3 files changed, 216 insertions, 0 deletions

diff --git a/doc/better-text-objs.txt b/doc/better-text-objs.txt
new file mode 100644
index 0000000..7a83d25
--- /dev/null
+++ b/doc/better-text-objs.txt
@@ -0,0 +1,62 @@
+*better-text-objs.txt*  Provide additional text objects
+
+
+==============================================================================
+INTRODUCTION                                         *better-text-objs-intro*
+
+This is a collection of handy text objects I found online,
+written by romainl and habamax. I found these useful and
+decided to package them into a plugin.
+
+==============================================================================
+OVERVIEW                                          *better-text-objs-overview*
+
+Pair    |better-text-objs-pair|
+Line    |better-text-objs-line|
+Number  |better-text-objs-number|
+Buffer  |better-text-objs-buffer|
+Indent  |better-text-objs-indent|
+
+==============================================================================
+PAIR                                          *better-text-objs-pair*
+
+`i_ i. i: i, i; i| i/ i\ i* i+ i- i#`
+`a_ a. a: a, a; a| a/ a\ a* a+ a- a#`
+
+Text objects in and around any two matching pairs of characters on the same
+line.
+
+==============================================================================
+LINE                                          *better-text-objs-line*
+
+`il al`
+
+Text objects to represent in and around the current line.
+
+==============================================================================
+NUMBER                                          *better-text-objs-number*
+
+`in an`
+
+Text objects in and around a number (if present) under the cursor.
+
+==============================================================================
+BUFFER                                          *better-text-objs-number*
+
+`i% a%`
+
+Text objects representing the active buffer, `i%` excludes the first and last
+lines of the buffer, `a%` includes all lines of the buffer.
+
+==============================================================================
+INDENT                                         *better-text-objs-number*
+
+`ii ai`
+
+Text objects to represent the text at the same indent level, useful for indent
+based programming languages, such as Python or Haskell. `ii` includes only
+text at the same indent level, `ai` includes one line before and one line
+after the current indent level.
+
+------------------------------------------------------------------------------
+vim:tw=78:ts=8:ft=help:norl:
diff --git a/plugin/better-text-objs.vim b/plugin/better-text-objs.vim
new file mode 100644
index 0000000..e959e6e
--- /dev/null
+++ b/plugin/better-text-objs.vim
@@ -0,0 +1,148 @@
+" Credits: romainl and habamax
+
+" 24 simple text objects
+" ----------------------
+" i_ i. i: i, i; i| i/ i\ i* i+ i- i#
+" a_ a. a: a, a; a| a/ a\ a* a+ a- a#
+for char in [ '_', '.', ':', ',', ';', '<bar>', '/', '<bslash>', '*', '+', '-', '#' ]
+        execute 'xnoremap i' . char . ' :<C-u>normal! T' . char . 'vt' . char . '<CR>'
+        execute 'onoremap i' . char . ' :normal vi' . char . '<CR>'
+        execute 'xnoremap a' . char . ' :<C-u>normal! F' . char . 'vf' . char . '<CR>'
+        execute 'onoremap a' . char . ' :normal va' . char . '<CR>'
+endfor
+
+" line text objects
+" -----------------
+" il al
+xnoremap il g_o^
+onoremap il :<C-u>normal vil<CR>
+xnoremap al $o0
+onoremap al :<C-u>normal val<CR>
+
+" number text object (integer and float)
+" --------------------------------------
+" in
+function! VisualNumber()
+        call search('\d\([^0-9\.]\|$\)', 'cW')
+        normal v
+        call search('\(^\|[^0-9\.]\d\)', 'becW')
+endfunction
+xnoremap in :<C-u>call VisualNumber()<CR>
+onoremap in :<C-u>normal vin<CR>
+
+" buffer text objects
+" -------------------
+" i% a%
+xnoremap i% :<C-u>let z = @/\|1;/^./kz<CR>G??<CR>:let @/ = z<CR>V'z
+onoremap i% :<C-u>normal vi%<CR>
+xnoremap a% GoggV
+onoremap a% :<C-u>normal va%<CR>
+
+" square brackets text objects
+" ----------------------------
+" ir ar
+xnoremap ir i[
+xnoremap ar a[
+onoremap ir :normal vi[<CR>
+onoremap ar :normal va[<CR>
+
+" C++ style block comment text objects
+" ------------------------------------
+" i? a?
+xnoremap a? [*o]*
+onoremap a? :<C-u>normal va?V<CR>
+xnoremap i? [*jo]*k
+onoremap i? :<C-u>normal vi?V<CR>
+
+" last change text object
+" -----------------------
+" ik ak
+xnoremap ik `]o`[
+onoremap ik :<C-u>normal vik<CR>
+onoremap ak :<C-u>normal vikV<CR>
+
+
+" Indent text object
+" ------------------
+" ii ai
+func! s:indent_textobj(inner)
+    if getline('.') =~ '^\s*$'
+        let ln_start = s:detect_nearest_line()
+        let ln_end = ln_start
+    else
+        let ln_start = line('.')
+        let ln_end = ln_start
+    endif
+
+    let indent = indent(ln_start)
+    if indent > 0
+        while indent(ln_start) >= indent && ln_start > 0
+            let ln_start = prevnonblank(ln_start-1)
+        endwhile
+
+        while indent(ln_end) >= indent && ln_end <= line('$')
+            let ln_end = s:nextnonblank(ln_end+1)
+        endwhile
+    else
+        while indent(ln_start) == 0 && ln_start > 0 && getline(ln_start) !~ '^\s*$'
+            let ln_start -= 1
+        endwhile
+        while indent(ln_start) > 0 && ln_start > 0
+            let ln_start = prevnonblank(ln_start-1)
+        endwhile
+        while indent(ln_start) == 0 && ln_start > 0 && getline(ln_start) !~ '^\s*$'
+            let ln_start -= 1
+        endwhile
+
+        while indent(ln_end) == 0 && ln_end <= line('$') && getline(ln_end) !~ '^\s*$'
+            let ln_end += 1
+        endwhile
+        while indent(ln_end) > 0 && ln_end <= line('$')
+            let ln_end = s:nextnonblank(ln_end+1)
+        endwhile
+    endif
+
+    if a:inner || indent == 0
+        let ln_start = s:nextnonblank(ln_start+1)
+    endif
+
+    if a:inner
+        let ln_end = prevnonblank(ln_end-1)
+    else
+        let ln_end = ln_end-1
+    endif
+
+    if ln_end < ln_start
+        let ln_end = ln_start
+    endif
+
+    exe ln_end
+    normal! V
+    exe ln_start
+endfunc
+
+
+func! s:nextnonblank(lnum) abort
+    let res = nextnonblank(a:lnum)
+    if res == 0
+        let res = line('$')+1
+    endif
+    return res
+endfunc
+
+
+func! s:detect_nearest_line() abort
+    let lnum = line('.')
+    let nline = s:nextnonblank(lnum)
+    let pline = prevnonblank(lnum)
+    if abs(nline - lnum) > abs(pline - lnum) || getline(nline) =~ '^\s*$'
+        return pline
+    else
+        return nline
+    endif
+endfunc
+
+onoremap <silent>ii :<C-u>call <sid>indent_textobj(v:true)<CR>
+onoremap <silent>ai :<C-u>call <sid>indent_textobj(v:false)<CR>
+xnoremap <silent>ii :<C-u>call <sid>indent_textobj(v:true)<CR>
+xnoremap <silent>ai :<C-u>call <sid>indent_textobj(v:false)<CR>
diff --git a/readme.txt b/readme.txt
new file mode 100644
index 0000000..695e391
--- /dev/null
+++ b/readme.txt
@@ -0,0 +1,6 @@
+better-text-objs
+----------------
+
+This is a collection of handy text objects I found online,
+written by romainl and habamax. I found these useful and
+decided to package them into a plugin.