91 lines
1.9 KiB
VimL
91 lines
1.9 KiB
VimL
" http://www.lingua-systems.com/knowledge/unicode-mappings/cp850-to-unicode.html
|
||
" http://www.obliquity.com/computer/html/unicode2500.html
|
||
|
||
map c1 :call CharDraw_blocks()<CR>
|
||
map c2 :call CharDraw_lines()<CR>
|
||
map c3 :call CharDraw_doublelines()<CR>
|
||
map c4 :call CharDraw_arrows()<CR>
|
||
map c5 :call CharDraw_extrachars()<CR>
|
||
map c0 :call CharDraw_clear()<CR>
|
||
|
||
function! CharDraw_clear ()
|
||
mapclear!
|
||
set laststatus=2
|
||
echo 'N to create 80,25 empty drawing. Select chars and draw with numpad'
|
||
map N 80i <Esc>yy24p(
|
||
set statusline=%f\ %=\ \[c1-1:chars\ c0:clr]\ (%v,%l)\ HEX:%B
|
||
endfunction
|
||
call CharDraw_clear()
|
||
|
||
function! CharDraw_blocks ()
|
||
mapclear!
|
||
map! 1 ░
|
||
map! 2 ▀
|
||
map! 3 ▒
|
||
map! 4 ▐
|
||
map! 5 ■
|
||
map! 6 ▌
|
||
map! 7 ▓
|
||
map! 8 ▄
|
||
map! 9 █
|
||
map! - ▞
|
||
map! + ▚
|
||
set statusline=%f\ %=\ [░▀▒▐■▌▓▄█▞▚]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_lines ()
|
||
mapclear!
|
||
map! 1 └
|
||
map! 2 ┴
|
||
map! 3 ┘
|
||
map! 4 ├
|
||
map! 5 ┼
|
||
map! 6 ┤
|
||
map! 7 ┌
|
||
map! 8 ┬
|
||
map! 9 ┐
|
||
map! - ─
|
||
map! + │
|
||
set statusline=%f\ %=\ [└┴┘├┼┤┌┬┐─│]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_doublelines ()
|
||
mapclear!
|
||
map! 1 ╚
|
||
map! 2 ╩
|
||
map! 3 ╝
|
||
map! 4 ╠
|
||
map! 5 ╬
|
||
map! 6 ╣
|
||
map! 7 ╔
|
||
map! 8 ╦
|
||
map! 9 ╗
|
||
map! - ═
|
||
map! + ║
|
||
set statusline=%f\ %=\ [╚╩╝╠╬╣╔╦╗═║]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_extrachars ()
|
||
mapclear!
|
||
map! 1 ©
|
||
map! 2 ·
|
||
map! 3 ×
|
||
map! 4 «
|
||
map! 5 °
|
||
map! 6 »
|
||
map! 7 ╲
|
||
map! 8 ╳
|
||
map! 9 ╱
|
||
set statusline=%f\ %=\ [©·×«°»╲╳╱]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_arrows ()
|
||
mapclear!
|
||
map! 2 ▼
|
||
map! 4 ◀
|
||
map! 5 ◆
|
||
map! 6 ▶
|
||
map! 8 ▲
|
||
set statusline=%f\ %=\ [▲▶▼◀◆]\(%v,%l)\ HEX:%B
|
||
endfunction
|