VIM stuff to be added as scripts

vim/ansi.vim

@@ -0,0 +1,95 @@
+" 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>
+
+map cr :so ansi.vim<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
+