tests/bundled/lh-vim-lib/autoload/lh/position.vim @ c839b22aa015
defer "can't load gundo" warning Only inform that gundo didn't load when an attempt is made to invoke it. Too many hosts still don't have vim 7.3, but I'd like to do a straight update of my vimfiles from my dvcs without needing any fiddly conditionals in order to load vim without a warning message.
| author | Seth Milliken <seth@janrain.com> |
|---|---|
| date | Wed, 29 Dec 2010 15:16:33 -0800 |
| parents | 2b3d5ee5c4a4 |
| children | (none) |
"============================================================================= " $Id: position.vim 246 2010-09-19 22:40:58Z luc.hermitte $ " File: autoload/lh/position.vim {{{1 " Author: Luc Hermitte <EMAIL:hermitte {at} free {dot} fr> " <URL:http://code.google.com/p/lh-vim/> " Version: 2.2.1 " Created: 05th Sep 2007 " Last Update: $Date: 2010-09-19 18:40:58 -0400 (Sun, 19 Sep 2010) $ (05th Sep 2007) "------------------------------------------------------------------------ " Description: «description» " "------------------------------------------------------------------------ " Installation: " Drop it into {rtp}/autoload/lh/ " Vim 7+ required. " History: «history» " v1.0.0: " Creation " TODO: " }}}1 "============================================================================= "============================================================================= let s:cpo_save=&cpo set cpo&vim "------------------------------------------------------------------------ " ## Functions {{{1 " # Debug {{{2 function! lh#position#verbose(level) let s:verbose = a:level endfunction function! s:Verbose(expr) if exists('s:verbose') && s:verbose echomsg a:expr endif endfunction function! lh#position#debug(expr) return eval(a:expr) endfunction "------------------------------------------------------------------------ " # Public {{{2 " Function: lh#position#is_before {{{3 " @param[in] positions as those returned from |getpos()| " @return whether lhs_pos is before rhs_pos function! lh#position#is_before(lhs_pos, rhs_pos) if a:lhs_pos[0] != a:rhs_pos[0] throw "Positions from incompatible buffers can't be ordered" endif "1 test lines "2 test cols let before \ = (a:lhs_pos[1] == a:rhs_pos[1]) \ ? (a:lhs_pos[2] < a:rhs_pos[2]) \ : (a:lhs_pos[1] < a:rhs_pos[1]) return before endfunction function! lh#position#IsBefore(lhs_pos, rhs_pos) return lh#position#is_before(a:lhs_pos, a:rhs_pos) endfunction " Function: lh#position#char_at_mark {{{3 " @return the character at a given mark (|mark|) function! lh#position#char_at_mark(mark) let c = getline(a:mark)[col(a:mark)-1] return c endfunction function! lh#position#CharAtMark(mark) return lh#position#char_at_mark(a:mark) endfunction " Function: lh#position#char_at_pos {{{3 " @return the character at a given position (|getpos()|) function! lh#position#char_at_pos(pos) let c = getline(a:pos[1])[col(a:pos[2])-1] return c endfunction function! lh#position#CharAtPos(pos) return lh#position#char_at_pos(a:pos) endfunction " Functions }}}1 "------------------------------------------------------------------------ let &cpo=s:cpo_save "============================================================================= " vim600: set fdm=marker: