Skip to content

Instantly share code, notes, and snippets.

@tyru

tyru/gist:444017

Created June 18, 2010 18:30
Download ZIP

Revisions

  1. tyru revised this gist Jun 18, 2010. 1 changed file with 2 additions and 2 deletions.
    4 changes: 2 additions & 2 deletions gistfile11
    View file
    Original file line number Diff line number Diff line change
    @@ -38,8 +38,8 @@ endfunction

    function! s:get_current_character()
    if mode() ==# 'c'
    let str = getcmdline('.')
    let cur_idx = getcmdpos('.') - 1
    let str = getcmdline()
    let cur_idx = getcmdpos() - 1
    elseif mode() ==# 'n'
    let str = getline('.')
    let cur_idx = col('.') - 1
  2. tyru revised this gist Jun 18, 2010. 1 changed file with 4 additions and 4 deletions.
    8 changes: 4 additions & 4 deletions gistfile11
    View file
    Original file line number Diff line number Diff line change
    @@ -27,13 +27,13 @@ function! s:get_current_and_next_index(str, cur_idx)
    let cur_idx = a:cur_idx
    let str = a:str

    let endcol = cur_idx + 1
    while s:is_trail_char(str[endcol])
    let endcol += 1
    let end_idx = cur_idx + 1
    while s:is_trail_char(str[end_idx])
    let end_idx += 1
    endwhile

    " NOTE: `cur_idx` is always first index.
    return [cur_idx, endcol]
    return [cur_idx, end_idx]
    endfunction

    function! s:get_current_character()
  3. tyru revised this gist Jun 18, 2010. 1 changed file with 2 additions and 6 deletions.
    8 changes: 2 additions & 6 deletions gistfile11
    View file
    Original file line number Diff line number Diff line change
    @@ -27,17 +27,13 @@ function! s:get_current_and_next_index(str, cur_idx)
    let cur_idx = a:cur_idx
    let str = a:str

    let firstcol = cur_idx
    while s:is_trail_char(str[firstcol])
    let firstcol -= 1
    endwhile

    let endcol = cur_idx + 1
    while s:is_trail_char(str[endcol])
    let endcol += 1
    endwhile

    return [firstcol, endcol]
    " NOTE: `cur_idx` is always first index.
    return [cur_idx, endcol]
    endfunction

    function! s:get_current_character()
  4. tyru revised this gist Jun 18, 2010. 1 changed file with 3 additions and 5 deletions.
    8 changes: 3 additions & 5 deletions gistfile11
    View file
    Original file line number Diff line number Diff line change
    @@ -44,17 +44,15 @@ function! s:get_current_character()
    if mode() ==# 'c'
    let str = getcmdline('.')
    let cur_idx = getcmdpos('.') - 1
    let [begin, end] = s:get_current_and_next_index(str, cur_idx)
    return strpart(str, begin, end - begin)
    elseif mode() ==# 'n'
    let str = getline('.')
    let cur_idx = col('.') - 1
    let [begin, end] = s:get_current_and_next_index(str, cur_idx)
    return strpart(str, begin, end - begin)
    else
    echoerr 'not supported'
    endif
    return char

    let [begin, end] = s:get_current_and_next_index(str, cur_idx)
    return strpart(str, begin, end - begin)
    endfunction

    echom s:get_current_character()
  5. tyru renamed this gist Jun 18, 2010. 1 changed file with 5 additions and 3 deletions.
    8 changes: 5 additions & 3 deletions gistfile1 → gistfile11
    View file
    Original file line number Diff line number Diff line change
    @@ -41,9 +41,11 @@ function! s:get_current_and_next_index(str, cur_idx)
    endfunction

    function! s:get_current_character()
    if 0
    " if mode() ==# 'c'
    " let char = getcmdline('.')[getcmdpos()-1]
    if mode() ==# 'c'
    let str = getcmdline('.')
    let cur_idx = getcmdpos('.') - 1
    let [begin, end] = s:get_current_and_next_index(str, cur_idx)
    return strpart(str, begin, end - begin)
    elseif mode() ==# 'n'
    let str = getline('.')
    let cur_idx = col('.') - 1
  6. tyru created this gist Jun 18, 2010.
    58 changes: 58 additions & 0 deletions gistfile1
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,58 @@

    " For test (Do quickrun on the target character!):
    " aiu
    " あいう

    function! s:char2bits(char)
    let bits = map(range(8), '0')
    let cur_keta = len(bits) - 1
    let nr = char2nr(a:char)
    while cur_keta >= 0
    let cur_num = float2nr(pow(2, cur_keta))
    if nr >= cur_num
    let nr -= cur_num
    let bits[cur_keta] = 1
    endif
    let cur_keta -= 1
    endwhile
    return reverse(bits)
    endfunction

    function! s:is_trail_char(char)
    let bits = s:char2bits(a:char)
    return bits[0] && !bits[1]
    endfunction

    function! s:get_current_and_next_index(str, cur_idx)
    let cur_idx = a:cur_idx
    let str = a:str

    let firstcol = cur_idx
    while s:is_trail_char(str[firstcol])
    let firstcol -= 1
    endwhile

    let endcol = cur_idx + 1
    while s:is_trail_char(str[endcol])
    let endcol += 1
    endwhile

    return [firstcol, endcol]
    endfunction

    function! s:get_current_character()
    if 0
    " if mode() ==# 'c'
    " let char = getcmdline('.')[getcmdpos()-1]
    elseif mode() ==# 'n'
    let str = getline('.')
    let cur_idx = col('.') - 1
    let [begin, end] = s:get_current_and_next_index(str, cur_idx)
    return strpart(str, begin, end - begin)
    else
    echoerr 'not supported'
    endif
    return char
    endfunction

    echom s:get_current_character()