148 lines
3.4 KiB
VimL
148 lines
3.4 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_doublehorlines()<CR>
|
||
map c5 :call CharDraw_doubleverlines()<CR>
|
||
map c6 :call CharDraw_arrows()<CR>
|
||
map c7 :call CharDraw_extrachars()<CR>
|
||
map c0 :call CharDraw_clear()<CR>
|
||
map ck :call CharDraw_noNumPad()<CR>
|
||
|
||
function! CharDraw_clear ()
|
||
imapclear
|
||
set laststatus=2
|
||
echo 'N to create 80,25 empty drawing. Select ANSI 437 chars and draw with numpad, ck to assign t-m "keypad"'
|
||
map N 80i <Esc>yy24p(
|
||
set statusline=%f\ %=\ \[c1-1:chars\ c0:clr\ ck:key]\ (%v,%l)\ HEX:%B
|
||
endfunction
|
||
call CharDraw_clear()
|
||
|
||
function! CharDraw_noNumPad ()
|
||
imap b 1
|
||
imap n 2
|
||
imap m 3
|
||
imap g 4
|
||
imap h 5
|
||
imap j 6
|
||
imap t 7
|
||
imap y 8
|
||
imap u 9
|
||
imap i -
|
||
imap k +
|
||
endfunction
|
||
|
||
function! CharDraw_blocks ()
|
||
imapclear
|
||
imap 1 ░
|
||
imap 2 ▀
|
||
imap 3 ▒
|
||
imap 4 ▐
|
||
imap 5 ■
|
||
imap 6 ▌
|
||
imap 7 ▓
|
||
imap 8 ▄
|
||
imap 9 █
|
||
imap 0
|
||
imap - ▞
|
||
imap + ▚
|
||
set statusline=%f\ %=\ [░▀▒▐■▌▓▄█ ▞▚]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_lines ()
|
||
imapclear
|
||
imap 1 └
|
||
imap 2 ┴
|
||
imap 3 ┘
|
||
imap 4 ├
|
||
imap 5 ┼
|
||
imap 6 ┤
|
||
imap 7 ┌
|
||
imap 8 ┬
|
||
imap 9 ┐
|
||
imap - ─
|
||
imap + │
|
||
set statusline=%f\ %=\ [└┴┘├┼┤┌┬┐─│]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_doublehorlines ()
|
||
imapclear
|
||
imap 7 ╒
|
||
imap 8 ╤
|
||
imap 9 ╕
|
||
imap 4 ╞
|
||
imap 5 ╪
|
||
imap 6 ╡
|
||
imap 1 ╘
|
||
imap 2 ╧
|
||
imap 3 ╛
|
||
imap - ═
|
||
imap + │
|
||
set statusline=%f\ %=\ [╘╧╛╞╪╡╒╤╕═│]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_doubleverlines ()
|
||
imapclear
|
||
imap 7 ╓
|
||
imap 8 ╥
|
||
imap 9 ╖
|
||
imap 4 ╟
|
||
imap 5 ╫
|
||
imap 6 ╢
|
||
imap 1 ╙
|
||
imap 2 ╨
|
||
imap 3 ╜
|
||
imap + ║
|
||
imap - ─
|
||
set statusline=%f\ %=\ [╙╨╜╟╫╢╓╥╖─║]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_doublelines ()
|
||
imapclear
|
||
imap 1 ╚
|
||
imap 2 ╩
|
||
imap 3 ╝
|
||
imap 4 ╠
|
||
imap 5 ╬
|
||
imap 6 ╣
|
||
imap 7 ╔
|
||
imap 8 ╦
|
||
imap 9 ╗
|
||
imap - ═
|
||
imap + ║
|
||
set statusline=%f\ %=\ [╚╩╝╠╬╣╔╦╗═║]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_extrachars ()
|
||
imapclear
|
||
imap 1 ©
|
||
imap 2 ·
|
||
imap 3 ×
|
||
imap 4 «
|
||
imap 5 °
|
||
imap 6 »
|
||
imap 7 ╲
|
||
imap 8 ╳
|
||
imap 9 ╱
|
||
set statusline=%f\ %=\ [©·×«°»╲╳╱]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
function! CharDraw_arrows ()
|
||
imapclear
|
||
imap 2 ▼
|
||
imap 4 ◀
|
||
imap 5 ◆
|
||
imap 6 ▶
|
||
imap 8 ▲
|
||
set statusline=%f\ %=\ [▲▶▼◀◆]\(%v,%l)\ HEX:%B
|
||
endfunction
|
||
|
||
"U+254x ╀ ╁ ╂ ╃ ╄ ╅ ╆ ╇ ╈ ╉ ╊ ╋ ╌ ╍ ╎ ╏
|
||
"U+255x ═ ║ ╒ ╓ ╔ ╕ ╖ ╗ ╘ ╙ ╚ ╛ ╜ ╝ ╞ ╟
|
||
"U+256x ╠ ╡ ╢ ╣ ╤ ╥ ╦ ╧ ╨ ╩ ╪ ╫ ╬ ╭ ╮ ╯
|
||
"U+257x ╰ ╱ ╲ ╳ ╴ ╵ ╶ ╷ ╸ ╹ ╺ ╻ ╼ ╽ ╾ ╿
|
||
"U+258x ▀ ▁ ▂ ▃ ▄ ▅ ▆ ▇ █ ▉ ▊ ▋ ▌ ▍ ▎ ▏
|
||
"U+259x ▐ ░ ▒ ▓ ▔ ▕ ▖ ▗ ▘ ▙ ▚ ▛ ▜ ▝ ▞ ▟
|