vimrc: Make IndTxtObj script local.

[config/dotfiles.git] / vimrc

diff --git a/vimrc b/vimrc
index dd6ba12077dd45a3c4e1e482fb2b6ba47c11b10b..04cae913b00a108a09a499a82e637a86eb08bb06 100644 (file)
--- a/vimrc
+++ b/vimrc
@@ -468,6 +468,8 @@ if has('autocmd')
                                  \ setlocal textwidth=72
 " Use the same comment string as for Vim files in Vimperator files.
         autocmd FileType vimperator setlocal commentstring=\"%s
+" Use tex compiler for (La)TeX files.
+        autocmd FileType tex compiler tex
 
 " FTDETECT AUTO COMMANDS
 
@@ -487,3 +489,52 @@ if has('autocmd')
 
     augroup END
 endif
+
+
+" CUSTOM FUNCTIONS
+
+if has('eval')
+    " New text-objects ii and ai to work on text with the same indentation.
+    " Thanks to
+    " http://vim.wikia.com/index.php?title=Indent_text_object&oldid=27126
+    " (visited on 2011-11-19).
+    onoremap <silent>ai :<C-U>call <SID>IndTxtObj(0)<CR>
+    onoremap <silent>ii :<C-U>call <SID>IndTxtObj(1)<CR>
+    vnoremap <silent>ai :<C-U>call <SID>IndTxtObj(0)<CR><Esc>gv
+    vnoremap <silent>ii :<C-U>call <SID>IndTxtObj(1)<CR><Esc>gv
+
+    function! s:IndTxtObj(inner)
+        let curline = line(".")
+        let lastline = line("$")
+        let i = indent(line(".")) - &shiftwidth * (v:count1 - 1)
+        let i = i < 0 ? 0 : i
+        if getline(".") !~ "^\\s*$"
+            let p = line(".") - 1
+            let nextblank = getline(p) =~ "^\\s*$"
+            while p > 0
+                    \ && ((i == 0 && !nextblank)
+                        \ || (i > 0 && ((indent(p) >= i
+                            \ && !(nextblank && a:inner))
+                            \ || (nextblank && !a:inner))))
+                -
+                let p = line(".") - 1
+                let nextblank = getline(p) =~ "^\\s*$"
+            endwhile
+            normal! 0V
+            call cursor(curline, 0)
+            let p = line(".") + 1
+            let nextblank = getline(p) =~ "^\\s*$"
+            while p <= lastline
+                    \ && ((i == 0 && !nextblank)
+                        \ || (i > 0 && ((indent(p) >= i
+                            \ && !(nextblank && a:inner))
+                            \ || (nextblank && !a:inner))))
+                +
+                let p = line(".") + 1
+                let nextblank = getline(p) =~ "^\\s*$"
+            endwhile
+            normal! $
+        endif
+    endfunction
+
+endif