aboutsummaryrefslogtreecommitdiff
path: root/vim/autoload
diff options
context:
space:
mode:
Diffstat (limited to 'vim/autoload')
-rw-r--r--vim/autoload/DrawIt.vim2921
-rw-r--r--vim/autoload/pathogen.vim344
2 files changed, 0 insertions, 3265 deletions
diff --git a/vim/autoload/DrawIt.vim b/vim/autoload/DrawIt.vim
deleted file mode 100644
index 89f6ad5..0000000
--- a/vim/autoload/DrawIt.vim
+++ /dev/null
@@ -1,2921 +0,0 @@
-" DrawIt.vim: a simple way to draw things in Vim
-"
-" Maintainer: Charles E. Campbell
-" Authors: Charles E. Campbell <NdrOchipS@PcampbellAfamily.Mbiz> - NOSPAM
-" Sylvain Viart (molo@multimania.com)
-" Version: 13
-" Date: Nov 25, 2013
-"
-" Quick Setup: {{{1
-" tar -oxvf DrawIt.tar
-" Should put DrawItPlugin.vim in your .vim/plugin directory,
-" put DrawIt.vim in your .vim/autoload directory
-" put DrawIt.txt in your .vim/doc directory.
-" Then, use \di to start DrawIt,
-" \ds to stop Drawit, and
-" draw by simply moving about using the cursor keys.
-"
-" You may also use visual-block mode to select endpoints and
-" draw lines, arrows, and ellipses.
-"
-" Copyright: Copyright (C) 1999-2012 Charles E. Campbell {{{1
-" Permission is hereby granted to use and distribute this code,
-" with or without modifications, provided that this copyright
-" notice is copied with it. Like anything else that's free,
-" DrawIt.vim is provided *as is* and comes with no warranty
-" of any kind, either expressed or implied. By using this
-" plugin, you agree that in no event will the copyright
-" holder be liable for any damages resulting from the use
-" of this software.
-"
-" Required: THIS SCRIPT REQUIRES VIM 7.0 (or later) {{{1
-" GetLatestVimScripts: 40 1 :AutoInstall: DrawIt.vim
-" GetLatestVimScripts: 1066 1 cecutil.vim
-"
-" Woe to her who is rebellious and polluted, the oppressing {{{1
-" city! She didn't obey the voice. She didn't receive correction.
-" She didn't trust in Yahweh. She didn't draw near to her God. (Zeph 3:1,2 WEB)
-
-" ---------------------------------------------------------------------
-" Load Once: {{{1
-if &cp || exists("g:loaded_DrawIt")
- finish
-endif
-let g:loaded_DrawIt= "v13"
-if v:version < 700
- echohl WarningMsg
- echo "***warning*** this version of DrawIt needs vim 7.0"
- echohl Normal
- finish
-endif
-let s:keepcpo= &cpo
-set cpo&vim
-scriptencoding utf-8
-
-" ---------------------------------------------------------------------
-" Script Variables: {{{1
-if !exists("g:drawit_xstrlen")
- if exists("g:Align_xstrlen")
- let g:drawit_xstrlen= g:Align_xstrlen
- elseif exists("g:netrw_xstrlen")
- let g:drawit_xstrlen= g:netrw_xstrlen
- elseif &enc == "latin1" || !has("multi_byte")
- let g:drawit_xstrlen= 0
- else
- let g:drawit_xstrlen= 1
- endif
-endif
-if !exists("g:drawit_mode")
- let g:drawit_mode= 'N' " other options: =S (single-line utf-*,cp437) or =D (double-line utf-*,cp437)
-endif
-if !exists("s:saveposn_count")
- let s:saveposn_count= 0
-endif
-"DechoTabOn
-
-" =====================================================================
-" DrawIt Functions: (by Charles E. Campbell) {{{1
-" =====================================================================
-
-" ---------------------------------------------------------------------
-" DrawIt#DrawItStart: this function maps the cursor keys, sets up default {{{2
-" drawing characters, and makes some settings
-fun! DrawIt#DrawItStart(...)
-" call Dfunc("DrawItStart()")
-
- if a:0 > 0
- if exists("b:di_gfxchr") && b:di_gfxchr && (a:1 == 'S' || a:1 == 's')
- DIsngl
- elseif exists("b:di_gfxchr") && b:di_gfxchr && (a:1 == 'D' || a:1 == 'd')
- DIdbl
- elseif !exists("g:drawit_mode")
- let g:drawit_mode= 'N'
- endif
- endif
-
- " DrawItStart: report on [DrawIt] mode {{{3
- if exists("b:dodrawit") && b:dodrawit == 1
- " already in DrawIt mode
- echo "[DrawIt] (already on, use ".((exists("mapleader") && mapleader != "")? mapleader : '\')."ds to stop)"
-" call Dret("DrawItStart")
- return
- endif
- let b:dodrawit= 1
-
- " indicate in DrawIt mode
- echo "[DrawIt]"
-
- " DrawItStart: turn on mouse {{{3
- if !exists("b:drawit_keep_mouse")
- let b:drawit_keep_mouse= &mouse
- endif
- setl mouse=a
-
- " DrawItStart: set up DrawIt commands {{{3
- com! -nargs=1 -range SetBrush <line1>,<line2>call DrawIt#SetBrush(<q-args>)
- com! -count Canvas call s:Spacer(line("."),line(".") + <count> - 1,0)
-
- " DrawItStart: set up default drawing characters {{{3
- if !exists("b:di_vert") |let b:di_vert = "|" |endif
- if !exists("b:di_horiz") |let b:di_horiz = "-" |endif
- if !exists("b:di_plus") |let b:di_plus = "+" |endif
- if !exists("b:di_upright")|let b:di_upright = "/" |endif " same as downleft
- if !exists("b:di_upleft") |let b:di_upleft = "\\"|endif " same as downright
- if !exists("b:di_cross") |let b:di_cross = "X" |endif
- if !exists("b:di_ellipse")|let b:di_ellipse = '*' |endif
-
- let b:di_gfxchr= 1
- if &enc == 'utf-8' || &enc == 'utf-16' || &enc == "ucs-4"
- " Box drawing characters using unicode
- " │ ─ ┌ ┐ └ ┘ ┬ ┴ ├ ┤ ┼ ╱ ╲ ╳
- " ║ ═ ╔ ╗ ╚ ╝ ╦ ╩ ╠ ╣ ╬
-" call Decho("box drawing characters using unicode")
- if !exists("b:di_Svert") |let b:di_Svert = '│' |endif
- if !exists("b:di_Dvert") |let b:di_Dvert = '║' |endif
- if !exists("b:di_Shoriz") |let b:di_Shoriz = '─' |endif
- if !exists("b:di_Dhoriz") |let b:di_Dhoriz = '═' |endif
- if !exists("b:di_Sulcorn") |let b:di_Sulcorn = '┌' |endif
- if !exists("b:di_Dulcorn") |let b:di_Dulcorn = '╔' |endif
- if !exists("b:di_Surcorn") |let b:di_Surcorn = '┐' |endif
- if !exists("b:di_Durcorn") |let b:di_Durcorn = '╗' |endif
- if !exists("b:di_Sllcorn") |let b:di_Sllcorn = '└' |endif
- if !exists("b:di_Dllcorn") |let b:di_Dllcorn = '╚' |endif
- if !exists("b:di_Slrcorn") |let b:di_Slrcorn = '┘' |endif
- if !exists("b:di_Dlrcorn") |let b:di_Dlrcorn = '╝' |endif
- if !exists("b:di_Splus") |let b:di_Splus = '┼' |endif
- if !exists("b:di_Dplus") |let b:di_Dplus = '╬' |endif
- if !exists("b:di_Sdnplus") |let b:di_Sdnplus = '┬' |endif
- if !exists("b:di_Ddnplus") |let b:di_Ddnplus = '╦' |endif
- if !exists("b:di_Supplus") |let b:di_Supplus = '┴' |endif
- if !exists("b:di_Dupplus") |let b:di_Dupplus = '╩' |endif
- if !exists("b:di_Slplus") |let b:di_Slplus = '┤' |endif
- if !exists("b:di_Dlplus") |let b:di_Dlplus = '╣' |endif
- if !exists("b:di_Srplus") |let b:di_Srplus = '├' |endif
- if !exists("b:di_Drplus") |let b:di_Drplus = '╠' |endif
- if !exists("b:di_Supright")|let b:di_Supright= "╱" |endif " same as Sdownleft
- if !exists("b:di_Supleft") |let b:di_Supleft = "╲" |endif " same as Sdownright
- if !exists("b:di_Scross") |let b:di_Scross = "╳" |endif
-
- " Mixed Single-Double unicode box drawing characters
- " ╞ ╟ ╡ ╢ ╤ ╥ ╧ ╪ ╫
- if !exists("b:di_DhSd") |let b:di_DhSd = '╤' |endif
- if !exists("b:di_DhSu") |let b:di_DhSu = '╧' |endif
- if !exists("b:di_DuSl") |let b:di_DuSl = '╢' |endif
- if !exists("b:di_DuSlr") |let b:di_DuSlr= '╫' |endif
- if !exists("b:di_DuSr") |let b:di_DuSr = '╟' |endif
- if !exists("b:di_ShDd") |let b:di_ShDd = '╥' |endif
- if !exists("b:di_ShDu") |let b:di_ShDu = '╨' |endif
- if !exists("b:di_SuDl") |let b:di_SuDl = '╡' |endif
- if !exists("b:di_SuDlr") |let b:di_SuDlr= '╪' |endif
- if !exists("b:di_SdDh") |let b:di_SdDh = '╤' |endif
- if !exists("b:di_SuDh") |let b:di_SuDh = '╧' |endif
- if !exists("b:di_SuDr") |let b:di_SuDr = '╞' |endif
-
- " Mixed Single-Double unicode box drawing corner characters
- " ╒ ╓ ╕ ╖ ╘ ╙ ╛ ╜
- if !exists("b:di_cSdDr")| let b:di_cSdDr= '╒'| endif
- if !exists("b:di_cDdSr")| let b:di_cDdSr= '╓'| endif
- if !exists("b:di_cDlSd")| let b:di_cDlSd= '╕'| endif
- if !exists("b:di_cSlDd")| let b:di_cSlDd= '╖'| endif
- if !exists("b:di_cDrSu")| let b:di_cDrSu= '╘'| endif
- if !exists("b:di_cSrDu")| let b:di_cSrDu= '╙'| endif
- if !exists("b:di_cDlSu")| let b:di_cDlSu= '╛'| endif
- if !exists("b:di_cSlDu")| let b:di_cSlDu= '╜'| endif
-
- elseif &enc == 'cp437'
- " Box drawing characters using cp437 (dos)
-" call Decho("box drawing characters using cp437")
- if !exists("b:di_Svert") |let b:di_Svert = nr2char(179) |endif " │
- if !exists("b:di_Dvert") |let b:di_Dvert = nr2char(186) |endif " ║
- if !exists("b:di_Shoriz") |let b:di_Shoriz = nr2char(196) |endif " ─
- if !exists("b:di_Dhoriz") |let b:di_Dhoriz = nr2char(205) |endif " ═
- if !exists("b:di_Sulcorn") |let b:di_Sulcorn = nr2char(218) |endif " ┌
- if !exists("b:di_Dulcorn") |let b:di_Dulcorn = nr2char(201) |endif " ╔
- if !exists("b:di_Surcorn") |let b:di_Surcorn = nr2char(191) |endif " ┐
- if !exists("b:di_Durcorn") |let b:di_Durcorn = nr2char(187) |endif " ╗
- if !exists("b:di_Sllcorn") |let b:di_Sllcorn = nr2char(192) |endif " └
- if !exists("b:di_Dllcorn") |let b:di_Dllcorn = nr2char(200) |endif " ╚
- if !exists("b:di_Slrcorn") |let b:di_Slrcorn = nr2char(217) |endif " ┘
- if !exists("b:di_Dlrcorn") |let b:di_Dlrcorn = nr2char(188) |endif " ╝
- if !exists("b:di_Splus") |let b:di_Splus = nr2char(197) |endif " ┼
- if !exists("b:di_Dplus") |let b:di_Dplus = nr2char(206) |endif " ╬
- if !exists("b:di_Sdnplus") |let b:di_Sdnplus = nr2char(194) |endif " ┬
- if !exists("b:di_Ddnplus") |let b:di_Ddnplus = nr2char(203) |endif " ╦
- if !exists("b:di_Supplus") |let b:di_Supplus = nr2char(193) |endif " ┴
- if !exists("b:di_Dupplus") |let b:di_Dupplus = nr2char(202) |endif " ╩
- if !exists("b:di_Slplus") |let b:di_Slplus = nr2char(180) |endif " ┤
- if !exists("b:di_Dlplus") |let b:di_Dlplus = nr2char(185) |endif " ╣
- if !exists("b:di_Srplus") |let b:di_Srplus = nr2char(195) |endif " ├
- if !exists("b:di_Drplus") |let b:di_Drplus = nr2char(204) |endif " ╠
- if !exists("b:di_Supright")|let b:di_Supright= '/' |endif " ╱
- if !exists("b:di_Supleft") |let b:di_Supleft = '\' |endif " ╲
- if !exists("b:di_Scross") |let b:di_Scross = 'X' |endif " ╳
-
- " Mixed Single-Double cp437 box drawing characters
- if !exists("b:di_DhSd") |let b:di_DhSd = nr2char(209)|endif " ╤
- if !exists("b:di_DhSu") |let b:di_DhSu = nr2char(207)|endif " ╧
- if !exists("b:di_DuSl") |let b:di_DuSl = nr2char(182)|endif " ╢
- if !exists("b:di_DuSlr") |let b:di_DuSlr= nr2char(215)|endif " ╫
- if !exists("b:di_DuSr") |let b:di_DuSr = nr2char(199)|endif " ╟
- if !exists("b:di_ShDd") |let b:di_ShDd = nr2char(210)|endif " ╥
- if !exists("b:di_ShDu") |let b:di_ShDu = nr2char(208)|endif " ╨
- if !exists("b:di_SuDl") |let b:di_SuDl = nr2char(181)|endif " ╡
- if !exists("b:di_SuDlr") |let b:di_SuDlr= nr2char(216)|endif " ╪
- if !exists("b:di_SdDh") |let b:di_SdDh = nr2char(209)|endif " ╤
- if !exists("b:di_SuDh") |let b:di_SuDh = nr2char(207)|endif " ╧
- if !exists("b:di_SuDr") |let b:di_SuDr = nr2char(198)|endif " ╞
-
- " Mixed Single-Double cp437 box drawing corner characters
- if !exists("b:di_cSdDr")| let b:di_cSdDr= nr2char(213)| endif " ╒
- if !exists("b:di_cDdSr")| let b:di_cDdSr= nr2char(214)| endif " ╓
- if !exists("b:di_cDlSd")| let b:di_cDlSd= nr2char(184)| endif " ╕
- if !exists("b:di_cSlDd")| let b:di_cSlDd= nr2char(183)| endif " ╖
- if !exists("b:di_cDrSu")| let b:di_cDrSu= nr2char(212)| endif " ╘
- if !exists("b:di_cSrDu")| let b:di_cSrDu= nr2char(211)| endif " ╙
- if !exists("b:di_cDlSu")| let b:di_cDlSu= nr2char(190)| endif " ╛
- if !exists("b:di_cSlDu")| let b:di_cSlDu= nr2char(189)| endif " ╜
-
- else
-" call Decho("regular box drawing characters only")
- let b:di_gfxchr = 0
- endif
-
- " set up initial DrawIt behavior (as opposed to erase behavior)
- let b:di_erase = 0
-
- call s:DrawItSaveUserSettings()
-
- " DrawItStart: save and unmap user maps {{{3
- let b:lastdir = 1
- if exists("mapleader")
- let usermaplead = mapleader
- else
- let usermaplead = "\\"
- endif
- call SaveUserMaps("bn","","><^v","DrawIt")
- call SaveUserMaps("bv",usermaplead,"abceflsy","DrawIt")
- call SaveUserMaps("bn","","<c-v>","DrawIt")
- call SaveUserMaps("bn",usermaplead,"h><v^","DrawIt")
- call SaveUserMaps("bn","","<left>","DrawIt")
- call SaveUserMaps("bn","","<right>","DrawIt")
- call SaveUserMaps("bn","","<up>","DrawIt")
- call SaveUserMaps("bn","","<down>","DrawIt")
- call SaveUserMaps("bn","","<left>","DrawIt")
- call SaveUserMaps("bn","","<s-right>","DrawIt")
- call SaveUserMaps("bn","","<s-up>","DrawIt")
- call SaveUserMaps("bn","","<s-down>","DrawIt")
- call SaveUserMaps("bn","","<space>","DrawIt")
- call SaveUserMaps("bn","","<home>","DrawIt")
- call SaveUserMaps("bn","","<end>","DrawIt")
- call SaveUserMaps("bn","","<pageup>","DrawIt")
- call SaveUserMaps("bn","","<pagedown>","DrawIt")
- call SaveUserMaps("bn","","<c-leftdrag>","DrawIt")
- call SaveUserMaps("bn","","<c-leftmouse>","DrawIt")
- call SaveUserMaps("bn","","<c-leftrelease>","DrawIt")
- call SaveUserMaps("bn","","<leftdrag>","DrawIt")
- call SaveUserMaps("bn","","<leftmouse>","DrawIt")
- call SaveUserMaps("bn","","<middlemouse>","DrawIt")
- call SaveUserMaps("bn","","<rightmouse>","DrawIt")
- call SaveUserMaps("bn","","<s-leftdrag>","DrawIt")
- call SaveUserMaps("bn","","<s-leftmouse>","DrawIt")
- call SaveUserMaps("bn","","<s-leftrelease>","DrawIt")
- call SaveUserMaps("bv","","<c-leftmouse>","DrawIt")
- call SaveUserMaps("bv","","<leftmouse>","DrawIt")
- call SaveUserMaps("bv","","<middlemouse>","DrawIt")
- call SaveUserMaps("bv","","<rightmouse>","DrawIt")
- call SaveUserMaps("bv","","<s-leftmouse>","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pa","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pb","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pc","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pd","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pe","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pf","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pg","DrawIt")
- call SaveUserMaps("bn",usermaplead,":ph","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pi","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pj","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pk","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pl","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pm","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pn","DrawIt")
- call SaveUserMaps("bn",usermaplead,":po","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pp","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pq","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pr","DrawIt")
- call SaveUserMaps("bn",usermaplead,":ps","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pt","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pu","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pv","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pw","DrawIt")
- call SaveUserMaps("bn",usermaplead,":px","DrawIt")
- call SaveUserMaps("bn",usermaplead,":py","DrawIt")
- call SaveUserMaps("bn",usermaplead,":pz","DrawIt")
- call SaveUserMaps("bn",usermaplead,":ra","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rb","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rc","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rd","DrawIt")
- call SaveUserMaps("bn",usermaplead,":re","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rf","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rg","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rh","DrawIt")
- call SaveUserMaps("bn",usermaplead,":ri","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rj","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rk","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rl","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rm","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rn","DrawIt")
- call SaveUserMaps("bn",usermaplead,":ro","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rp","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rq","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rr","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rs","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rt","DrawIt")
- call SaveUserMaps("bn",usermaplead,":ru","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rv","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rw","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rx","DrawIt")
- call SaveUserMaps("bn",usermaplead,":ry","DrawIt")
- call SaveUserMaps("bn",usermaplead,":rz","DrawIt")
- if exists("g:drawit_insertmode") && g:drawit_insertmode
- call SaveUserMaps("bi","","<left>","DrawIt")
- call SaveUserMaps("bi","","<right>","DrawIt")
- call SaveUserMaps("bi","","<up>","DrawIt")
- call SaveUserMaps("bi","","<down>","DrawIt")
- call SaveUserMaps("bi","","<left>","DrawIt")
- call SaveUserMaps("bi","","<s-right>","DrawIt")
- call SaveUserMaps("bi","","<s-up>","DrawIt")
- call SaveUserMaps("bi","","<s-down>","DrawIt")
- call SaveUserMaps("bi","","<home>","DrawIt")
- call SaveUserMaps("bi","","<end>","DrawIt")
- call SaveUserMaps("bi","","<pageup>","DrawIt")
- call SaveUserMaps("bi","","<pagedown>","DrawIt")
- call SaveUserMaps("bi","","<leftmouse>","DrawIt")
- endif
- call SaveUserMaps("bn","",":\<c-v>","DrawIt")
-
- " DrawItStart: DrawIt maps (Charles Campbell) {{{3
- nmap <silent> <buffer> <script> <left> :set lz<CR>:silent! call <SID>DrawLeft()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <right> :set lz<CR>:silent! call <SID>DrawRight()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <up> :set lz<CR>:silent! call <SID>DrawUp()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <down> :set lz<CR>:silent! call <SID>DrawDown()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <s-left> :set lz<CR>:silent! call <SID>MoveLeft()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <s-right> :set lz<CR>:silent! call <SID>MoveRight()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <s-up> :set lz<CR>:silent! call <SID>MoveUp()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <s-down> :set lz<CR>:silent! call <SID>MoveDown()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <space> :set lz<CR>:silent! call <SID>DrawErase()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> > :set lz<CR>:silent! call <SID>DrawSpace('>',1)<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> < :set lz<CR>:silent! call <SID>DrawSpace('<',2)<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> ^ :set lz<CR>:silent! call <SID>DrawSpace('^',3)<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> v :set lz<CR>:silent! call <SID>DrawSpace('v',4)<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <home> :set lz<CR>:silent! call <SID>DrawSlantUpLeft()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <end> :set lz<CR>:silent! call <SID>DrawSlantDownLeft()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <pageup> :set lz<CR>:silent! call <SID>DrawSlantUpRight()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <pagedown> :set lz<CR>:silent! call <SID>DrawSlantDownRight()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <Leader>> :set lz<CR>:silent! call <SID>DrawFatRArrow()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <Leader>< :set lz<CR>:silent! call <SID>DrawFatLArrow()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <Leader>^ :set lz<CR>:silent! call <SID>DrawFatUArrow()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <Leader>v :set lz<CR>:silent! call <SID>DrawFatDArrow()<CR>:set nolz<CR>
- nmap <silent> <buffer> <script> <Leader>f :call <SID>Flood()<cr>
-
- " DrawItStart: Set up insertmode maps {{{3
- if exists("g:drawit_insertmode") && g:drawit_insertmode
- imap <silent> <buffer> <script> <left> <Esc><left>a
- imap <silent> <buffer> <script> <right> <Esc><right>a
- imap <silent> <buffer> <script> <up> <Esc><up>a
- imap <silent> <buffer> <script> <down> <Esc><down>a
- imap <silent> <buffer> <script> <left> <Esc><left>a
- imap <silent> <buffer> <script> <s-right> <Esc><s-right>a
- imap <silent> <buffer> <script> <s-up> <Esc><s-up>a
- imap <silent> <buffer> <script> <s-down> <Esc><s-down>a
- imap <silent> <buffer> <script> <home> <Esc><home>a
- imap <silent> <buffer> <script> <end> <Esc><end>a
- imap <silent> <buffer> <script> <pageup> <Esc><pageup>a
- imap <silent> <buffer> <script> <pagedown> <Esc><pagedown>a
- endif
-
- " DrawItStart: set up drawing mode mappings (Sylvain Viart) {{{3
- nnoremap <silent> <buffer> <script> <c-v> :call <SID>LeftStart()<CR><c-v>
- vmap <silent> <buffer> <script> <Leader>a :<c-u>call <SID>CallBox('Arrow')<CR>
- vmap <silent> <buffer> <script> <Leader>b :<c-u>call <SID>CallBox('DrawBox')<cr>
- nmap <buffer> <script> <Leader>c :call <SID>Canvas()<cr>
- vmap <silent> <buffer> <script> <Leader>l :<c-u>call <SID>CallBox('DrawPlainLine')<CR>
- vmap <silent> <buffer> <script> <Leader>s :<c-u>call <SID>Spacer(line("'<"), line("'>"),0)<cr>
-
- " DrawItStart: set up drawing mode mappings (Charles Campbell) {{{3
- " \pa ... \pz : blanks are transparent
- " \ra ... \rz : blanks copy over
- vmap <buffer> <silent> <Leader>e :<c-u>call <SID>CallBox('DrawEllipse')<CR>
-
- let allreg= "abcdefghijklmnopqrstuvwxyz"
- while strlen(allreg) > 0
- let ireg= strpart(allreg,0,1)
- exe "nmap <silent> <buffer> <Leader>p".ireg.' :<c-u>set lz<cr>:silent! call <SID>PutBlock("'.ireg.'",0)<cr>:set nolz<cr>'
- exe "nmap <silent> <buffer> <Leader>r".ireg.' :<c-u>set lz<cr>:silent! call <SID>PutBlock("'.ireg.'",1)<cr>:set nolz<cr>'
- let allreg= strpart(allreg,1)
- endwhile
-
- " DrawItStart: mouse maps (Sylvain Viart) {{{3
- " start visual-block with leftmouse
- nnoremap <silent> <buffer> <script> <leftmouse> <leftmouse>:call <SID>LeftStart()<CR><c-v>
- vnoremap <silent> <buffer> <script> <rightmouse> <leftmouse>:<c-u>call <SID>RightStart(1)<cr>
- vnoremap <silent> <buffer> <script> <middlemouse> <leftmouse>:<c-u>call <SID>RightStart(0)<cr>
- vnoremap <silent> <buffer> <script> <c-leftmouse> <leftmouse>:<c-u>call <SID>CLeftStart()<cr>
-
- " DrawItStart: mouse maps (Charles Campbell) {{{3
- " Draw with current brush
- nnoremap <silent> <buffer> <script> <s-leftmouse> <leftmouse>:call <SID>SLeftStart()<CR><c-v>
- nnoremap <silent> <buffer> <script> <c-leftmouse> <leftmouse>:call <SID>CLeftStart()<CR><c-v>
-
- " DrawItStart: Menu support {{{3
- if has("gui_running") && has("menu") && &go =~# 'm'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Stop\ \ DrawIt<tab>\\ds <Leader>ds'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Toggle\ Erase\ Mode<tab><space> <space>'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Arrow<tab>\\a <Leader>a'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Box<tab>\\b <Leader>b'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Make\ Blank\ Zone<tab>\\c <Leader>c'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Ellipse<tab>\\e <Leader>e'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Flood<tab>\\e <Leader>f'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Line<tab>\\l <Leader>l'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Append\ Blanks<tab>\\s <Leader>s'
- exe 'silent! unmenu '.g:DrChipTopLvlMenu.'DrawIt.Start\ DrawIt'
- endif
-" call Dret("DrawItStart")
-endfun
-
-" ---------------------------------------------------------------------
-" DrawIt#DrawItStop: this function unmaps the cursor keys and restores settings {{{2
-fun! DrawIt#DrawItStop()
-" call Dfunc("DrawItStop()")
-
- " DrawItStop: report on [DrawIt off] mode {{{3
- if !exists("b:dodrawit")
- echo "[DrawIt off]"
-" call Dret("DrawItStop")
- return
- endif
-
- " DrawItStop: restore mouse {{{3
- if exists("b:drawit_keep_mouse")
- let &mouse= b:drawit_keep_mouse
- unlet b:drawit_keep_mouse
- endif
- unlet b:dodrawit
- echo "[DrawIt off]"
-
- if exists("b:drawit_canvas_used")
- " DrawItStop: clean up trailing white space {{{3
- call s:SavePosn()
- silent! %s/\s\+$//e
- unlet b:drawit_canvas_used
- call s:RestorePosn()
- endif
-
- " DrawItStop: remove drawit commands {{{3
- delc SetBrush
-
- " DrawItStop: insure that erase mode is off {{{3
- " (thanks go to Gary Johnson for this)
- if b:di_erase == 1
- call s:DrawErase()
- endif
-
- " DrawItStop: restore user map(s), if any {{{3
- call RestoreUserMaps("DrawIt")
-
- call s:DrawItRestoreUserSettings()
-
- " DrawItStop: DrChip menu support: {{{3
- if has("gui_running") && has("menu") && &go =~# 'm'
- exe 'menu '.g:DrChipTopLvlMenu.'DrawIt.Start\ DrawIt<tab>\\di <Leader>di'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Stop\ \ DrawIt'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Toggle\ Erase\ Mode'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Arrow'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Box'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Ellipse'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Flood'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Draw\ Line'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Make\ Blank\ Zone'
- exe 'unmenu '.g:DrChipTopLvlMenu.'DrawIt.Append\ Blanks'
- endif
-" call Dret("DrawItStop")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawItSaveUserSettings: saves user settings, changes them to be safe for DrawIt {{{2
-" Use s:DrawItRestoreUserSettings() to restore.
-fun! s:DrawItSaveUserSettings()
-" call Dfunc("s:DrawItSaveUserSettings()")
- " save user settings
- let b:di_aikeep = &l:ai
- let b:di_cedit = &cedit
- let b:di_cinkeep = &l:cin
- let b:di_cpokeep = &l:cpo
- let b:di_etkeep = &l:et
- let b:di_fokeep = &l:fo
- let b:di_gdkeep = &l:gd
- let b:di_gokeep = &l:go
- let b:di_magickeep = &l:magic
- let b:di_remapkeep = &l:remap
- let b:di_repkeep = &l:report
- let b:di_sikeep = &l:si
- let b:di_stakeep = &l:sta
- let b:di_vekeep = &l:ve
-
- " change user settings to something safe for DrawIt
- setl cpo&vim
- setl nocin noai nosi nogd sta et ve=all report=10000
- setl go-=aA
- setl fo-=a
- setl remap magic
- set cedit&
-" call Dret("s:DrawItSaveUserSettings")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawItRestoreUserSettings: restore user settings {{{2
-fun! s:DrawItRestoreUserSettings()
-" call Dfunc("s:DrawItRestoreUserSettings()")
-
- " restore user's settings
- let &l:ai = b:di_aikeep
- let &l:cin = b:di_cinkeep
- let &l:cpo = b:di_cpokeep
- let &l:et = b:di_etkeep
- let &l:fo = b:di_fokeep
- let &l:gd = b:di_gdkeep
- let &l:go = b:di_gokeep
- let &l:magic = b:di_magickeep
- let &l:remap = b:di_remapkeep
- let &l:report = b:di_repkeep
- let &l:si = b:di_sikeep
- let &l:sta = b:di_stakeep
- let &l:ve = b:di_vekeep
- unlet b:di_aikeep
- unlet b:di_cinkeep
- unlet b:di_cpokeep
- unlet b:di_etkeep
- unlet b:di_fokeep
- unlet b:di_gdkeep
- unlet b:di_gokeep
- unlet b:di_magickeep
- unlet b:di_remapkeep
- unlet b:di_repkeep
- unlet b:di_sikeep
- unlet b:di_stakeep
- unlet b:di_vekeep
-" call Dret("s:DrawItRestoreUserSettings")
-endfun
-
-" ---------------------------------------------------------------------
-" DrawIt#SetMode: sets normal, single, double drawing mode, and ensures that DrawIt mode is on {{{2
-fun! DrawIt#SetMode(mode)
-" call Dfunc("DrawIt#SetMode(mode=".a:mode.")")
- if &enc == 'utf-8' || &enc == 'cp437' || &enc == 'utf-16' || &enc == 'ucs-4'
- let b:di_gfxchr= 1
- else
- let b:di_gfxchr= 0
- endif
- if b:di_gfxchr == 0
- let g:drawit_mode= 'N'
- elseif &enc != 'utf-8' && &enc != 'cp437' && &enc != 'utf-16' && &enc != 'ucs-4'
- let g:drawit_mode = 'N'
- let b:di_gfxchr = 0
- elseif a:mode =~ '^[sS]$'
- let g:drawit_mode= 'S'
- elseif a:mode =~ '^[dD]$'
- let g:drawit_mode= 'D'
- else
- let g:drawit_mode = 'N'
- let b:di_gfxchr = 0
- endif
- if !exists("b:dodrawit") || b:dodrawit == 0
- call DrawIt#DrawItStart()
- endif
-" call Dret("DrawIt#SetMode")
-endfun
-
-" ---------------------------------------------------------------------
-" SetDrawIt: this function allows one to change the drawing characters {{{2
-fun! SetDrawIt(di_vert,di_horiz,di_plus,di_upleft,di_upright,di_cross,di_ellipse)
-" call Dfunc("SetDrawIt(vert<".a:di_vert."> horiz<".a:di_horiz."> plus<".a:di_plus."> upleft<".a:di_upleft."> upright<".a:di_upright."> cross<".a:di_cross."> ellipse<".a:di_ellipse.">)")
- let b:di_vert = a:di_vert
- let b:di_horiz = a:di_horiz
- let b:di_plus = a:di_plus
- let b:di_upleft = a:di_upleft
- let b:di_upright = a:di_upright
- let b:di_cross = a:di_cross
- let b:di_ellipse = a:di_ellipse
-" call Dret("SetDrawIt")
-endfun
-
-" =====================================================================
-" s:DrawLeft: {{{2
-fun! s:DrawLeft()
-" call Dfunc("s:DrawLeft()")
- let curline = getline(".")
- let curcol = virtcol(".")
- let b:lastdir = 2
- let keepatat = @@
-" call Decho("curcol#".curcol." curline<".curline.">")
-
- if curcol > 0
- norm! vy
- let curchar= @@
-" call Decho("curchar<".curchar.">")
-" let curchar = strpart(curline,curcol-1,1)
-
- " step1: Replace
- " step2: Move and Replace
- let step= 1
- while step <= 2
-" call Decho("step#".step)
-
- if step == 2
- if curcol < 2
- break
- endif
-" call Decho("move and replace: curchar<".curchar."> mode<".g:drawit_mode.">")
- call s:MoveLeft()
- norm! vy
- let curchar= @@
-" call Decho("curchar<".curchar.">")
- else
-" call Decho("replace: curchar<".curchar."> mode<".g:drawit_mode.">")
- endif
-
- if s:IsDrawItH(curchar)
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Splus
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dplus
- else
- exe "norm! r".b:di_plus
- endif
-
- else
-
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Shoriz
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dhoriz
- else
- exe "norm! r".b:di_horiz
- endif
-
- endif
- let step= step + 1
- endwhile
-
- norm! l
- call s:DrawCorner()
- norm! h
- call s:DrawCorner()
- endif
- let @@= keepatat
-" call Dret("s:DrawLeft")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawRight: {{{2
-fun! s:DrawRight()
-" call Dfunc("s:DrawRight()")
- let curline = getline(".")
- let curcol = virtcol(".")
- let b:lastdir = 1
- let keepatat = @@
- norm! vy
- let curchar= @@
-" call Decho("curchar<".curchar.">")
-
- " replace
- if curcol == virtcol("$")
- if g:drawit_mode == 'S'
- exe "norm! a".b:di_Shoriz."\<Esc>"
- elseif g:drawit_mode == 'D'
- exe "norm! a".b:di_Dhoriz."\<Esc>"
- else
- exe "norm! a".b:di_horiz."\<Esc>"
- endif
- else
- if s:IsDrawItH(curchar)
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Splus
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dplus
- else
- exe "norm! r".b:di_plus
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Shoriz
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dhoriz
- else
- exe "norm! r".b:di_horiz
- endif
- endif
- endif
-
- " move and replace
- call s:MoveRight()
- if curcol == virtcol("$")
- if g:drawit_mode == 'S'
- exe "norm! i".b:di_Shoriz."\<Esc>"
- elseif g:drawit_mode == 'D'
- exe "norm! i".b:di_Dhoriz."\<Esc>"
- else
- exe "norm! i".b:di_horiz."\<Esc>"
- endif
- else
- norm! vy
- let curchar= @@
-" call Decho("curchar<".curchar.">")
- if s:IsDrawItH(curchar)
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Splus
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dplus
- else
- exe "norm! r".b:di_plus
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Shoriz
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dhoriz
- else
- exe "norm! r".b:di_horiz
- endif
- endif
- endif
-
- norm! h
- call s:DrawCorner()
- norm! l
- call s:DrawCorner()
-
- let @@= keepatat
-" call Dret("s:DrawRight")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawUp: {{{2
-fun! s:DrawUp()
-" call Dfunc("s:DrawUp()")
- let curline = getline(".")
- let curcol = virtcol(".")
- let b:lastdir = 3
- let keepatat = @@
- norm! vy
- let curchar = @@
-" call Decho("curchar<".curchar.">")
-
- " replace
- if curcol == 1 && virtcol("$") == 1
-" call Decho("case curcol#".curcol."==virtcol($): insert")
- if g:drawit_mode == 'S'
- exe "norm! i".b:di_Svert."\<Esc>"
- elseif g:drawit_mode == 'D'
- exe "norm! i".b:di_Dvert."\<Esc>"
- else
- exe "norm! i".b:di_vert."\<Esc>"
- endif
- else
-" call Decho("case curcol#".curcol."!=virtcol($) curchar<".curchar.">: replace")
- if s:IsDrawItV(curchar)
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Splus
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dplus
- else
- exe "norm! r".b:di_plus
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Svert
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dvert
- else
- exe "norm! r".b:di_vert
- endif
- endif
- endif
-
- " move and replace/insert
- call s:MoveUp()
- let curline= getline(".")
-" let curchar= strpart(curline,curcol-1,1)
- norm! vy
- let curchar= @@
-
- if curcol == 1 && virtcol("$") == 1
- if g:drawit_mode == 'S'
- exe "norm! i".b:di_Svert."\<Esc>"
- elseif g:drawit_mode == 'D'
- exe "norm! i".b:di_Dvert."\<Esc>"
- else
- exe "norm! i".b:di_vert."\<Esc>"
- endif
- elseif s:IsDrawItV(curchar)
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Splus
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dplus
- else
- exe "norm! r".b:di_plus
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Svert
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dvert
- else
- exe "norm! r".b:di_vert
- endif
-
- endif
-
- norm! j
- call s:DrawCorner()
- norm! k
- call s:DrawCorner()
-
- let @@= keepatat
-" call Dret("s:DrawUp")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawDown: {{{2
-fun! s:DrawDown()
-" call Dfunc("s:DrawDown()")
- let curline = getline(".")
- let curcol = virtcol(".")
- let keepatat = @@
- norm! vy
- let curchar = @@
-" call Decho("curchar<".curchar.">")
- let b:lastdir = 4
-
- " replace
- if curcol == 1 && virtcol("$") == 1
-" call Decho("curcol=".curcol." $=1"
- if g:drawit_mode == 'S'
- exe "norm! i".b:di_Svert."\<Esc>"
- elseif g:drawit_mode == 'D'
- exe "norm! i".b:di_Dvert."\<Esc>"
- else
- exe "norm! i".b:di_vert."\<Esc>"
- endif
- else
- norm! vy
- let curchar= @@
-" call Decho("curchar<".curchar.">")
- if s:IsDrawItV(curchar)
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Splus
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dplus
- else
- exe "norm! r".b:di_plus
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Svert
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dvert
- else
- exe "norm! r".b:di_vert
- endif
- endif
- endif
-
- " move and replace/insert
- call s:MoveDown()
- let curline= getline(".")
- norm! vy
- let curchar= @@
-" call Decho("curchar<".curchar.">")
- if curcol == 1 && virtcol("$") == 1
- if g:drawit_mode == 'S'
- exe "norm! i".b:di_Svert."\<Esc>"
- elseif g:drawit_mode == 'D'
- exe "norm! i".b:di_Dvert."\<Esc>"
- else
- exe "norm! i".b:di_vert."\<Esc>"
- endif
- elseif s:IsDrawItV(curchar)
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Splus
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dplus
- else
- exe "norm! r".b:di_plus
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Svert
- elseif g:drawit_mode == 'D'
- exe "norm! r".b:di_Dvert
- else
- exe "norm! r".b:di_vert
- endif
-
- endif
-
- norm! k
- call s:DrawCorner()
- norm! j
- call s:DrawCorner()
-
- let @@= keepatat
-" call Dret("s:DrawDown")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawCorner: change a ┼ or a ╬ into an appropriate corner {{{2
-fun! s:DrawCorner()
-" call Dfunc("s:DrawCorner()")
- let keepatat= @@
- norm! vy
- let ctr= @@
- if ctr != b:di_Splus && ctr != b:di_Dplus
- let @@= keepatat
-" call Dret("s:DrawCorner : ctr<".ctr."> (quick return)")
- return
- endif
-
- " cleft: Grab a copy of the character to the left of the cursor
- if virtcol(".") > 1
- norm! hvyl
- let cleft= @@
- else
- let cleft= " "
- endif
-
- " cright: Grab a copy of the character to the right of the cursor
- if virtcol(".") < virtcol("$")
- norm! lvyh
- let cright= @@
- else
- let cright= " "
- endif
-
- " cup: Grab a copy of the character above the cursor
- if line(".") > 1
- norm! kvyj
- let cup= @@
- else
- let cup= " "
- endif
-
- " cdown: Grab a copy of the character below the cursor
- if line(".") < line("$")
- norm! jvyk
- let cdown= @@
- else
- let cdown= " "
- endif
-" call Decho("ctr<".ctr."> cup<".cup."> cright<".cright."> cdown<".cdown."> cleft<".cleft.">")
- " - MIXED SINGLE-DOUBLE CORNERS ----------------------------------------
- " ┼═ ╬═ ╒═
- " │ │ │
- if !s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && !s:IsRightD(cleft)
- exe "norm! r".b:di_cSdDr
-
- " ┼─ ╬─ ╓─
- " ║ ║ ║
- elseif !s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && !s:IsRightS(cleft)
- exe "norm! r".b:di_cDdSr
-
- " ═┼ ═╬ ═╕
- " │ │ │
- elseif !s:IsDnS(cup)
- \ && !s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_cDlSd
-
- " ─┼ ─╬ ─╖
- " ║ ║ ║
- elseif !s:IsDnD(cup)
- \ && !s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_cSlDd
-
- " │ │ │
- " ┼═ ╬═ ╘═
- elseif s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && !s:IsUpS(cdown)
- \ && !s:IsRightD(cleft)
- exe "norm! r".b:di_cDrSu
-
- " ║ ║ ║
- " ┼─ ╬─ ╙─
- elseif s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && !s:IsUpD(cdown)
- \ && !s:IsRightS(cleft)
- exe "norm! r".b:di_cSrDu
-
- " │ │ │
- " ═┼ ═╬ ═╛
- elseif s:IsDnS(cup)
- \ && !s:IsLeftD(cright)
- \ && !s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_cDlSu
-
- " ║ ║ ║
- " ─┼ ─╬ ─╜
- elseif s:IsDnD(cup)
- \ && !s:IsLeftS(cright)
- \ && !s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_cSlDu
-
- " - SINGLE LINE --------------------------------------------------------
- elseif ctr == b:di_Splus
- " ─┼ ─┐
- " │ │
- if !s:IsDnS(cup)
- \ && !s:IsLeftS(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_Surcorn
-
- " ┼─ ┌─
- " │ │
- elseif !s:IsDnS(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpS(cdown)
- \ && !s:IsRightS(cleft)
- exe "norm! r".b:di_Sulcorn
-
- " │ │
- " ─┼ ─┘
- elseif s:IsDnS(cup)
- \ && !s:IsLeftS(cright)
- \ && !s:IsUpS(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_Slrcorn
-
- " │ │
- " ┼─ └─
- elseif s:IsDnS(cup)
- \ && s:IsLeftS(cright)
- \ && !s:IsUpS(cdown)
- \ && !s:IsRightS(cleft)
- exe "norm! r".b:di_Sllcorn
-
- " │ │
- " ┼─ ├─
- " │ │
- elseif s:IsDnS(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpS(cdown)
- \ && !s:IsRightS(cleft)
- exe "norm! r".b:di_Srplus
-
- " │ │
- " ─┼ ─┤
- " │ │
- elseif s:IsDnS(cup)
- \ && !s:IsLeftS(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_Slplus
-
- " ─┼─ ─┬─
- " │ │
- elseif !s:IsDnS(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_Sdnplus
-
- " ─┼─ ─╥─
- " ║ ║
- elseif !s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_ShDd
-
- " ║ ║
- " ─┼─ ─╨─
- elseif s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && !s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_ShDu
-
- " │ │
- " ─┼─ ─┴─
- elseif s:IsDnS(cup)
- \ && s:IsLeftS(cright)
- \ && !s:IsUpS(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_Supplus
-
- " ║ ║
- " ┼─ ╟─
- " ║ ║
- elseif s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && !s:IsRightS(cleft)
- exe "norm! r".b:di_DuSr
-
- " ║ ║
- " ─┼ ─╢
- " ║ ║
- elseif s:IsDnD(cup)
- \ && !s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_DuSl
-
- " │ │
- " ┼═ ╞═
- " │ │
- elseif s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && !s:IsRightD(cleft)
- exe "norm! r".b:di_SuDr
-
- " │ │
- " ═┼ ═╡
- " │ │
- elseif s:IsDnS(cup)
- \ && !s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_SuDl
-
- " ═┼═ ═╤═
- " │ │
- elseif !s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_DhSd
-
- " │ │
- " ═┼═ ═╧═
- elseif s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && !s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_DhSu
-
- " ║ ║
- " ─┼─ ─╫─
- " ║ ║
- elseif s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_DuSlr
-
- " │ │
- " ═┼═ ═╪═
- " │ │
- elseif s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_SuDlr
- endif
-
- " - DOUBLE LINE --------------------------------------------------------
- elseif ctr == b:di_Dplus
- " ═╬ ═╗
- " ║ ║
- if !s:IsDnD(cup)
- \ && !s:IsLeftD(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_Durcorn
-
- " ╬═ ╔═
- " ║ ║
- elseif !s:IsDnD(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpD(cdown)
- \ && !s:IsRightD(cleft)
- exe "norm! r".b:di_Dulcorn
-
- " ║ ║
- " ═╬ ═╝
- elseif s:IsDnD(cup)
- \ && !s:IsLeftD(cright)
- \ && !s:IsUpD(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_Dlrcorn
-
- " ║ ║
- " ╬═ ╚═
- elseif s:IsDnD(cup)
- \ && s:IsLeftD(cright)
- \ && !s:IsUpD(cdown)
- \ && !s:IsRightD(cleft)
- exe "norm! r".b:di_Dllcorn
-
- " ║ ║
- " ╬═ ╠═
- " ║ ║
- elseif s:IsDnD(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpD(cdown)
- \ && !s:IsRightD(cleft)
- exe "norm! r".b:di_Drplus
-
- " ║ ║
- " ═╬ ═╣
- " ║ ║
- elseif s:IsDnD(cup)
- \ && !s:IsLeftD(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_Dlplus
-
- " ║ ║
- " ─╬ ─╢
- " ║ ║
- elseif s:IsDnD(cup)
- \ && !s:IsLeftD(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_DuSl
-
- " ║ ║
- " ╬─ ╟─
- " ║ ║
- elseif s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && !s:IsRightD(cleft)
- exe "norm! r".b:di_DuSr
-
- " ═╬═ ═╦═
- " ║ ║
- elseif !s:IsDnD(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_Ddnplus
-
- " ║ ║
- " ═╬═ ═╩═
- elseif s:IsDnD(cup)
- \ && s:IsLeftD(cright)
- \ && !s:IsUpD(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_Dupplus
-
- " │ │
- " ╬═ ╞═
- " │ │
- elseif s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && !s:IsRightD(cleft)
- exe "norm! r".b:di_SuDr
-
- " │ │
- " ═╬ ═╡
- " │ │
- elseif s:IsDnS(cup)
- \ && !s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_SuDl
-
- " ─╬─ ─╥─
- " ║ ║
- elseif !s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_ShDd
-
- " ║ ║
- " ─╬─ ─╨─
- elseif s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && !s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_ShDu
-
- " │ │
- " ═╬═ ═╪═
- " │ │
- elseif s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_SuDlr
-
- " │ │
- " ═╬═ ═╨═
- elseif s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && !s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_SuDh
-
- " ═╬═ ═╤═
- " │ │
- elseif !s:IsDnS(cup)
- \ && s:IsLeftD(cright)
- \ && s:IsUpS(cdown)
- \ && s:IsRightD(cleft)
- exe "norm! r".b:di_SdDh
-
- " ║ ║
- " ─╬─ ─╫─
- " ║ ║
- elseif s:IsDnD(cup)
- \ && s:IsLeftS(cright)
- \ && s:IsUpD(cdown)
- \ && s:IsRightS(cleft)
- exe "norm! r".b:di_DuSlr
- endif
-
- endif
-
- norm! vy
- let newctr= @@
- let @@= keepatat
-" call Dret("s:DrawCorner : ".((newctr != ctr)? "newctr<".newctr.">" : "unchanged"))
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsDrawItH: moving horizontally {{{2
-fun! s:IsDrawItH(chr)
-" call Dfunc("s:IsDrawItH(chr<".a:chr.">)")
- if a:chr == b:di_vert || a:chr == b:di_plus
-" call Dret("s:IsDrawItH 1")
- return 1
- endif
- if b:di_gfxchr == 0
-" call Dret("s:IsDrawItH 0")
- return 0
- endif
- if a:chr == b:di_Svert || a:chr == b:di_Dvert
- \ || a:chr == b:di_Splus || a:chr == b:di_Dplus
- \ || a:chr == b:di_Surcorn || a:chr == b:di_Durcorn
- \ || a:chr == b:di_Slrcorn || a:chr == b:di_Dlrcorn
- \ || a:chr == b:di_Sllcorn || a:chr == b:di_Dllcorn
- \ || a:chr == b:di_Sulcorn || a:chr == b:di_Dulcorn
- \ || a:chr == b:di_Sdnplus || a:chr == b:di_Ddnplus
- \ || a:chr == b:di_Supplus || a:chr == b:di_Dupplus
- \ || a:chr == b:di_Srplus || a:chr == b:di_Drplus
- \ || a:chr == b:di_Slplus || a:chr == b:di_Dlplus
- \ || a:chr == b:di_DhSd || a:chr == b:di_DhSu
- \ || a:chr == b:di_DuSl || a:chr == b:di_DuSr
- \ || a:chr == b:di_ShDd || a:chr == b:di_ShDu
- \ || a:chr == b:di_SuDl || a:chr == b:di_SuDr
- \ || a:chr == b:di_DuSlr || a:chr == b:di_SuDlr
- \ || a:chr == b:di_cSdDr || a:chr == b:di_cSdDr
- \ || a:chr == b:di_cDdSr || a:chr == b:di_cDdSr
- \ || a:chr == b:di_cDlSd || a:chr == b:di_cDlSd
- \ || a:chr == b:di_cSlDd || a:chr == b:di_cSlDd
- \ || a:chr == b:di_cDrSu || a:chr == b:di_cDrSu
- \ || a:chr == b:di_cSrDu || a:chr == b:di_cSrDu
- \ || a:chr == b:di_cDlSu || a:chr == b:di_cDlSu
- \ || a:chr == b:di_cSlDu || a:chr == b:di_cSlDu
-" call Dret("s:IsDrawItH 1")
- return 1
- endif
-" call Dret("s:IsDrawItH 0")
- return 0
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsDrawItV: moving vertically {{{2
-fun! s:IsDrawItV(chr)
-" call Dfunc("s:IsDrawItV(chr<".a:chr.">)")
- if a:chr == b:di_horiz || a:chr == b:di_plus
-" call Dret("s:IsDrawItH 1")
- return 1
- endif
- if b:di_gfxchr == 0
-" call Dret("s:IsDrawItH 0")
- return 0
- endif
- if a:chr == b:di_Shoriz || a:chr == b:di_Dhoriz
- \ || a:chr == b:di_Splus || a:chr == b:di_Dplus
- \ || a:chr == b:di_Surcorn || a:chr == b:di_Durcorn
- \ || a:chr == b:di_Slrcorn || a:chr == b:di_Dlrcorn
- \ || a:chr == b:di_Sllcorn || a:chr == b:di_Dllcorn
- \ || a:chr == b:di_Sulcorn || a:chr == b:di_Dulcorn
- \ || a:chr == b:di_Sdnplus || a:chr == b:di_Ddnplus
- \ || a:chr == b:di_Supplus || a:chr == b:di_Dupplus
- \ || a:chr == b:di_Srplus || a:chr == b:di_Drplus
- \ || a:chr == b:di_Slplus || a:chr == b:di_Dlplus
- \ || a:chr == b:di_DhSd || a:chr == b:di_DhSu
- \ || a:chr == b:di_DuSl || a:chr == b:di_DuSr
- \ || a:chr == b:di_ShDd || a:chr == b:di_ShDu
- \ || a:chr == b:di_SuDl || a:chr == b:di_SuDr
- \ || a:chr == b:di_DuSlr || a:chr == b:di_SuDlr
- \ || a:chr == b:di_cSdDr || a:chr == b:di_cSdDr
- \ || a:chr == b:di_cDdSr || a:chr == b:di_cDdSr
- \ || a:chr == b:di_cDlSd || a:chr == b:di_cDlSd
- \ || a:chr == b:di_cSlDd || a:chr == b:di_cSlDd
- \ || a:chr == b:di_cDrSu || a:chr == b:di_cDrSu
- \ || a:chr == b:di_cSrDu || a:chr == b:di_cSrDu
- \ || a:chr == b:di_cDlSu || a:chr == b:di_cDlSu
- \ || a:chr == b:di_cSlDu || a:chr == b:di_cSlDu
-" call Dret("s:IsDrawItV 1")
- return 1
- endif
-" call Dret("s:IsDrawItV 0")
- return 0
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsDnS: does the character "chr" have a single-line vertical-down? {{{2
-fun! s:IsDnS(chr)
-" call Dfunc("s:IsDnS(chr<".a:chr.">)")
- let ret= 0
- if b:di_gfxchr
- if a:chr == b:di_Svert |let ret= 1
- elseif a:chr == b:di_Sulcorn|let ret= 1
- elseif a:chr == b:di_Surcorn|let ret= 1
- elseif a:chr == b:di_Splus |let ret= 1
- elseif a:chr == b:di_Sdnplus|let ret= 1
- elseif a:chr == b:di_Slplus |let ret= 1
- elseif a:chr == b:di_Srplus |let ret= 1
- elseif a:chr == b:di_SdDh |let ret= 1
- elseif a:chr == b:di_cDlSd |let ret= 1
- elseif a:chr == b:di_cSdDr |let ret= 1
- endif
- endif
-" call Dret("s:IsDnS ".ret)
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsDnD: does the character "chr" have a double-line vertical-down? {{{2
-fun! s:IsDnD(chr)
-" call Dfunc("s:IsDnD(chr<".a:chr.">)")
- let ret= 0
- if b:di_gfxchr
- if a:chr == b:di_Dvert |let ret= 1
- elseif a:chr == b:di_Dulcorn|let ret= 1
- elseif a:chr == b:di_Durcorn|let ret= 1
- elseif a:chr == b:di_Dplus |let ret= 1
- elseif a:chr == b:di_Ddnplus|let ret= 1
- elseif a:chr == b:di_Dlplus |let ret= 1
- elseif a:chr == b:di_Drplus |let ret= 1
- elseif a:chr == b:di_cDdSr |let ret= 1
- elseif a:chr == b:di_cSlDd |let ret= 1
- endif
- endif
-" call Dret("s:IsDnD ".ret)
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsUpS: does the character "chr" have a single-line vertical-up? {{{2
-fun! s:IsUpS(chr)
-" call Dfunc("s:IsUpS(chr<".a:chr.">)")
- let ret= 0
- if b:di_gfxchr
- if a:chr == b:di_Svert |let ret= 1
- elseif a:chr == b:di_Sllcorn|let ret= 1
- elseif a:chr == b:di_Slrcorn|let ret= 1
- elseif a:chr == b:di_Splus |let ret= 1
- elseif a:chr == b:di_Supplus|let ret= 1
- elseif a:chr == b:di_Slplus |let ret= 1
- elseif a:chr == b:di_Srplus |let ret= 1
- elseif a:chr == b:di_SuDh |let ret= 1
- elseif a:chr == b:di_cDrSu |let ret= 1
- elseif a:chr == b:di_cDlSu |let ret= 1
- endif
- endif
-" call Dret("s:IsUpS ".ret)
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsUpD: does the character "chr" have a double-line vertical-up? {{{2
-fun! s:IsUpD(chr)
-" call Dfunc("s:IsUpD(chr<".a:chr.">)")
- let ret= 0
- if b:di_gfxchr
- if a:chr == b:di_Dvert |let ret= 1
- elseif a:chr == b:di_Dllcorn|let ret= 1
- elseif a:chr == b:di_Dlrcorn|let ret= 1
- elseif a:chr == b:di_Dplus |let ret= 1
- elseif a:chr == b:di_Dupplus|let ret= 1
- elseif a:chr == b:di_Dlplus |let ret= 1
- elseif a:chr == b:di_Drplus |let ret= 1
- elseif a:chr == b:di_cSrDu |let ret= 1
- elseif a:chr == b:di_cSlDu |let ret= 1
- endif
- endif
-" call Dret("s:IsUpD ".ret)
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsLeftS: does the character "chr" have a single-line horizontal-left? {{{2
-fun! s:IsLeftS(chr)
-" call Dfunc("s:IsLeftS(chr<".a:chr.">)")
- let ret= 0
- if b:di_gfxchr
- if a:chr == b:di_Shoriz |let ret= 1
- elseif a:chr == b:di_Surcorn |let ret= 1
- elseif a:chr == b:di_Slrcorn |let ret= 1
- elseif a:chr == b:di_Splus |let ret= 1
- elseif a:chr == b:di_Sdnplus |let ret= 1
- elseif a:chr == b:di_Supplus |let ret= 1
- elseif a:chr == b:di_Slplus |let ret= 1
- elseif a:chr == b:di_cSlDd |let ret= 1
- elseif a:chr == b:di_cSlDu |let ret= 1
- endif
- endif
-" call Dret("s:IsLeftS ".ret)
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsLeftD: does the character "chr" have a double-line horizontal-left? {{{2
-fun! s:IsLeftD(chr)
-" call Dfunc("s:IsLeftD(chr<".a:chr.">)")
- let ret= 0
- if b:di_gfxchr
- if a:chr == b:di_Dhoriz |let ret= 1
- elseif a:chr == b:di_Durcorn |let ret= 1
- elseif a:chr == b:di_Dlrcorn |let ret= 1
- elseif a:chr == b:di_Dplus |let ret= 1
- elseif a:chr == b:di_Ddnplus |let ret= 1
- elseif a:chr == b:di_Dupplus |let ret= 1
- elseif a:chr == b:di_Dlplus |let ret= 1
- elseif a:chr == b:di_cDlSd |let ret= 1
- elseif a:chr == b:di_cDlSu |let ret= 1
- endif
- endif
-" call Dret("s:IsLeftD ".ret)
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsRightS: does the character "chr" have a single-line horizontal-right? {{{2
-fun! s:IsRightS(chr)
-" call Dfunc("s:IsRightS(chr<".a:chr.">)")
- let ret= 0
- if b:di_gfxchr
- if a:chr == b:di_Shoriz |let ret= 1
- elseif a:chr == b:di_Sulcorn |let ret= 1
- elseif a:chr == b:di_Sllcorn |let ret= 1
- elseif a:chr == b:di_Splus |let ret= 1
- elseif a:chr == b:di_Sdnplus |let ret= 1
- elseif a:chr == b:di_Supplus |let ret= 1
- elseif a:chr == b:di_Srplus |let ret= 1
- elseif a:chr == b:di_cDdSr |let ret= 1
- elseif a:chr == b:di_cSrDu |let ret= 1
- endif
- endif
-" call Dret("s:IsRightS ".ret)
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsRightD: does the character "chr" have a double-line horizontal-right? {{{2
-fun! s:IsRightD(chr)
-" call Dfunc("s:IsRightD(chr<".a:chr.">)")
- let ret= 0
- if b:di_gfxchr
- if a:chr == b:di_Dhoriz |let ret= 1
- elseif a:chr == b:di_Dulcorn |let ret= 1
- elseif a:chr == b:di_Dllcorn |let ret= 1
- elseif a:chr == b:di_Dplus |let ret= 1
- elseif a:chr == b:di_Ddnplus |let ret= 1
- elseif a:chr == b:di_Dupplus |let ret= 1
- elseif a:chr == b:di_Drplus |let ret= 1
- elseif a:chr == b:di_cSdDr |let ret= 1
- elseif a:chr == b:di_cDrSu |let ret= 1
- endif
- endif
-" call Dret("s:IsRightD ".ret)
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawErase: toggle [DrawIt on] and [DrawIt erase] modes {{{2
-fun! s:DrawErase()
-" call Dfunc("s:DrawErase() b:di_erase=".b:di_erase)
- if b:di_erase == 0
- let b:di_erase= 1
- echo "[DrawIt erase]"
- let b:di_vert_save = b:di_vert
- let b:di_horiz_save = b:di_horiz
- let b:di_plus_save = b:di_plus
- let b:di_upright_save = b:di_upright
- let b:di_upleft_save = b:di_upleft
- let b:di_cross_save = b:di_cross
- let b:di_ellipse_save = b:di_ellipse
- call SetDrawIt(' ',' ',' ',' ',' ',' ',' ')
- else
- let b:di_erase= 0
- echo "[DrawIt]"
- call SetDrawIt(b:di_vert_save,b:di_horiz_save,b:di_plus_save,b:di_upleft_save,b:di_upright_save,b:di_cross_save,b:di_ellipse_save)
- endif
-" call Dret("s:DrawErase")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawSpace: clear character and move right {{{2
-fun! s:DrawSpace(chr,dir)
-" call Dfunc("s:DrawSpace(chr<".a:chr."> dir<".a:dir.">)")
- let curcol= virtcol(".")
-
- " replace current location with arrowhead/space
- if curcol == virtcol("$")-1
- exe "norm! r".a:chr
- else
- exe "norm! r".a:chr
- endif
-
- if a:dir == 0
- let dir= b:lastdir
- else
- let dir= a:dir
- endif
-
- " perform specified move
- if dir == 1
- call s:MoveRight()
- elseif dir == 2
- call s:MoveLeft()
- elseif dir == 3
- call s:MoveUp()
- else
- call s:MoveDown()
- endif
-" call Dret("s:DrawSpace")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawSlantDownLeft: / {{{2
-fun! s:DrawSlantDownLeft()
-" call Dfunc("s:DrawSlantDownLeft()")
- call s:ReplaceDownLeft() " replace
- call s:MoveDown() " move
- call s:MoveLeft() " move
- call s:ReplaceDownLeft() " replace
-" call Dret("s:DrawSlantDownLeft")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawSlantDownRight: \ {{{2
-fun! s:DrawSlantDownRight()
-" call Dfunc("s:DrawSlantDownRight()")
- call s:ReplaceDownRight() " replace
- call s:MoveDown() " move
- call s:MoveRight() " move
- call s:ReplaceDownRight() " replace
-" call Dret("s:DrawSlantDownRight")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawSlantUpLeft: \ {{{2
-fun! s:DrawSlantUpLeft()
-" call Dfunc("s:DrawSlantUpLeft()")
- call s:ReplaceDownRight() " replace
- call s:MoveUp() " move
- call s:MoveLeft() " move
- call s:ReplaceDownRight() " replace
-" call Dret("s:DrawSlantUpLeft")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawSlantUpRight: / {{{2
-fun! s:DrawSlantUpRight()
-" call Dfunc("s:DrawSlantUpRight()")
- call s:ReplaceDownLeft() " replace
- call s:MoveUp() " move
- call s:MoveRight() " replace
- call s:ReplaceDownLeft() " replace
-" call Dret("s:DrawSlantUpRight")
-endfun
-
-" ---------------------------------------------------------------------
-" s:MoveLeft: {{{2
-fun! s:MoveLeft()
-" call Dfunc("s:MoveLeft()")
- norm! h
- let b:lastdir= 2
-" call Dret("s:MoveLeft : b:lastdir=".b:lastdir)
-endfun
-
-" ---------------------------------------------------------------------
-" s:MoveRight: {{{2
-fun! s:MoveRight()
-" call Dfunc("s:MoveRight()")
- if virtcol(".") >= virtcol("$") - 1
- exe "norm! A \<Esc>"
- else
- norm! l
- endif
- let b:lastdir= 1
-" call Dret("s:MoveRight : b:lastdir=".b:lastdir)
-endfun
-
-" ---------------------------------------------------------------------
-" s:MoveUp: {{{2
-fun! s:MoveUp()
-" call Dfunc("s:MoveUp()")
- if line(".") == 1
- let curcol= virtcol(".") - 1
- if curcol == 0 && virtcol("$") == 1
- exe "norm! i \<Esc>"
- elseif curcol == 0
- exe "norm! YP:s/./ /ge\<CR>0r "
- else
- exe "norm! YP:s/./ /ge\<CR>0".curcol."lr "
- endif
- else
- let curcol= virtcol(".")
- norm! k
- while virtcol("$") <= curcol
- exe "norm! A \<Esc>"
- endwhile
- endif
- let b:lastdir= 3
-" call Dret("s:MoveUp : b:lastdir=".b:lastdir)
-endfun
-
-" ---------------------------------------------------------------------
-" s:MoveDown: {{{2
-fun! s:MoveDown()
-" call Dfunc("s:MoveDown()")
- if line(".") == line("$")
- let curcol= virtcol(".") - 1
- if curcol == 0 && virtcol("$") == 1
- exe "norm! i \<Esc>"
- elseif curcol == 0
- exe "norm! Yp:s/./ /ge\<CR>0r "
- else
- exe "norm! Yp:s/./ /ge\<CR>0".curcol."lr "
- endif
- else
- let curcol= virtcol(".")
- norm! j
- while virtcol("$") <= curcol
- exe "norm! A \<Esc>"
- endwhile
- endif
- let b:lastdir= 4
-" call Dret("s:MoveDown : b:lastdir=".b:lastdir)
-endfun
-
-" ---------------------------------------------------------------------
-" s:ReplaceDownLeft: / X (upright) {{{2
-fun! s:ReplaceDownLeft()
-" call Dfunc("s:ReplaceDownLeft()")
- let curcol = virtcol(".")
- let keepatat = @@
- if curcol != virtcol("$")
- norm! vy
- let curchar= @@
-
- " determine if curchr needs to be changed to an "X"
- let chg2cross = 0
- if curchar == b:di_upleft || curchar == b:di_cross
- let chg2cross = 1
- elseif b:di_gfxchr
- " performing following test only if gfx drawing characters exist
- if curchar == b:di_Supleft || curchar == b:di_Scross
- let chg2cross = 1
- endif
- endif
-
- if chg2cross
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Scross
- else
- exe "norm! r".b:di_cross
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Supright
- else
- exe "norm! r".b:di_upright
- endif
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! i".b:di_Supright."\<Esc>"
- else
- exe "norm! i".b:di_upright."\<Esc>"
- endif
- endif
- let @@= keepatat
-" call Dret("s:ReplaceDownLeft")
-endfun
-
-" ---------------------------------------------------------------------
-" s:ReplaceDownRight: \ X (upleft) {{{2
-fun! s:ReplaceDownRight()
-" call Dfunc("s:ReplaceDownRight()")
- let curcol = virtcol(".")
- let keepatat = @@
- if curcol != virtcol("$")
- norm! vy
- let curchar= @@
-" call Decho("case curcol#".curcol." == virtcol($) drawit_mode<".g:drawit_mode."> curchar<".curchar.">")
-
- " determine if curchr needs to be changed to an "X"
- let chg2cross = 0
- if curchar == b:di_upright || curchar == b:di_cross
- let chg2cross = 1
- elseif b:di_gfxchr
- " performing following test only if gfx drawing characters exist
- if curchar == b:di_Supright || curchar == b:di_Scross
- let chg2cross = 1
- endif
- endif
-
- if chg2cross
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Scross
- else
- exe "norm! r".b:di_cross
- endif
- else
- if g:drawit_mode == 'S'
- exe "norm! r".b:di_Supleft
- else
- exe "norm! r".b:di_upleft
- endif
- endif
- else
-" call Decho("case curcol#".curcol." != virtcol($) drawit_mode<".g:drawit_mode.">")
- if g:drawit_mode == 'S'
- exe "norm! i".b:di_Supleft."\<Esc>"
- else
- exe "norm! i".b:di_upleft."\<Esc>"
- endif
- endif
- let @@= keepatat
-" call Dret("s:ReplaceDownRight")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawFatRArrow: ----|> {{{2
-fun! s:DrawFatRArrow()
-" call Dfunc("s:DrawFatRArrow()")
- if g:drawit_mode == 'N' || !b:di_gfxchr
- call s:MoveRight()
- norm! r|
- call s:MoveRight()
- norm! r>
- else
- call s:MoveRight()
- norm! r▶
- endif
-" call Dret("s:DrawFatRArrow")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawFatLArrow: <|---- {{{2
-fun! s:DrawFatLArrow()
-" call Dfunc("s:DrawFatLArrow()")
- if g:drawit_mode == 'N' || !b:di_gfxchr
- call s:MoveLeft()
- norm! r|
- call s:MoveLeft()
- norm! r<
- else
- call s:MoveLeft()
- norm! r◀
- endif
-" call Dret("s:DrawFatLArrow")
-endfun
-
-" ---------------------------------------------------------------------
-" .
-" s:DrawFatUArrow: /_\ {{{2
-" |
-fun! s:DrawFatUArrow()
-" call Dfunc("s:DrawFatUArrow()")
- if g:drawit_mode == 'N' || !b:di_bfxchr
- call s:MoveUp()
- norm! r_
- call s:MoveRight()
- norm! r\
- call s:MoveLeft()
- call s:MoveLeft()
- norm! r/
- call s:MoveRight()
- call s:MoveUp()
- norm! r.
- else
- call s:MoveUp()
- norm! r▲
- endif
-" call Dret("s:DrawFatUArrow")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawFatDArrow: _|_ {{{2
-" \ /
-" '
-fun! s:DrawFatDArrow()
-" call Dfunc("s:DrawFatDArrow()")
- if g:drawit_mode == 'N' || !b:di_gfxchr
- call s:MoveRight()
- norm! r_
- call s:MoveLeft()
- call s:MoveLeft()
- norm! r_
- call s:MoveDown()
- norm! r\
- call s:MoveRight()
- call s:MoveRight()
- norm! r/
- call s:MoveDown()
- call s:MoveLeft()
- norm! r'
- else
- call s:MoveDown()
- norm! r▼
- endif
-" call Dret("s:DrawFatDArrow")
-endfun
-
-" ---------------------------------------------------------------------
-" s:DrawEllipse: Bresenham-like ellipse drawing algorithm {{{2
-" 2 2 can
-" x y be 2 2 2 2 2 2
-" - + - = 1 rewritten b x + a y = a b
-" a b as
-"
-" Take step which has minimum error
-" (x,y-1) (x+1,y) (x+1,y-1)
-"
-" 2 2 2 2 2 2
-" Ei = | b x + a y - a b |
-"
-" Algorithm only draws arc from (0,b) to (a,0) and uses
-" DrawFour() to reflect points to other three quadrants
-fun! s:DrawEllipse(x0,y0,x1,y1)
-" call Dfunc("s:DrawEllipse(x0=".a:x0." y0=".a:y0." x1=".a:x1." y1=".a:y1.")")
- let x0 = a:x0
- let y0 = a:y0
- let x1 = a:x1
- let y1 = a:y1
- let xoff = (x0+x1)/2
- let yoff = (y0+y1)/2
- let a = s:Abs(x1-x0)/2
- let b = s:Abs(y1-y0)/2
- let a2 = a*a
- let b2 = b*b
- let twoa2= a2 + a2
- let twob2= b2 + b2
-
- let xi= 0
- let yi= b
- let ei= 0
- call s:DrawFour(xi,yi,xoff,yoff,a,b)
- while xi <= a && yi >= 0
-
- let dy= a2 - twoa2*yi
- let ca= ei + twob2*xi + b2
- let cb= ca + dy
- let cc= ei + dy
-
- let aca= s:Abs(ca)
- let acb= s:Abs(cb)
- let acc= s:Abs(cc)
-
- " pick case: (xi+1,yi) (xi,yi-1) (xi+1,yi-1)
- if aca <= acb && aca <= acc
- let xi= xi + 1
- let ei= ca
- elseif acb <= aca && acb <= acc
- let ei= cb
- let xi= xi + 1
- let yi= yi - 1
- else
- let ei= cc
- let yi= yi - 1
- endif
- if xi > a:x1
- break
- endif
- call s:DrawFour(xi,yi,xoff,yoff,a,b)
- endw
-" call Dret("s:DrawEllipse")
-endf
-
-" ---------------------------------------------------------------------
-" s:DrawFour: reflect a point to four quadrants {{{2
-fun! s:DrawFour(x,y,xoff,yoff,a,b)
-" call Dfunc("s:DrawFour(xy[".a:x.",".a:y."] off[".a:xoff.",".a:yoff."] a=".a:a." b=".a:b.")")
- let x = a:xoff + a:x
- let y = a:yoff + a:y
- let lx = a:xoff - a:x
- let by = a:yoff - a:y
- call s:SetCharAt(b:di_ellipse, x, y)
- call s:SetCharAt(b:di_ellipse, lx, y)
- call s:SetCharAt(b:di_ellipse, lx,by)
- call s:SetCharAt(b:di_ellipse, x,by)
-" call Dret("s:DrawFour")
-endf
-
-" ---------------------------------------------------------------------
-" s:SavePosn: saves position of cursor on screen so NetWrite can restore it {{{2
-fun! s:SavePosn()
-" call Dfunc("s:SavePosn() saveposn_count=".s:saveposn_count.' ['.line('.').','.virtcol('.').']')
- let s:saveposn_count= s:saveposn_count + 1
-
- " Save current line and column
- let b:drawit_line_{s:saveposn_count} = line(".")
- let b:drawit_col_{s:saveposn_count} = virtcol(".") - 1
-
- " Save top-of-screen line
- norm! H
- let b:drawit_hline_{s:saveposn_count}= line(".")
-
- " restore position
- exe "norm! ".b:drawit_hline_{s:saveposn_count}."G0z\<CR>"
- if b:drawit_col_{s:saveposn_count} == 0
- exe "norm! ".b:drawit_line_{s:saveposn_count}."G0"
- else
- exe "norm! ".b:drawit_line_{s:saveposn_count}."G0".b:drawit_col_{s:saveposn_count}."l"
- endif
-" call Dret("s:SavePosn : saveposn_count=".s:saveposn_count)
-endfun
-
-" ------------------------------------------------------------------------
-" s:RestorePosn: {{{2
-fun! s:RestorePosn()
-" call Dfunc("s:RestorePosn() saveposn_count=".s:saveposn_count)
- if s:saveposn_count <= 0
-" call Dret("s:RestorePosn : s:saveposn_count<=0")
- return
- endif
- " restore top-of-screen line
- exe "norm! ".b:drawit_hline_{s:saveposn_count}."G0z\<CR>"
-
- " restore position
- if b:drawit_col_{s:saveposn_count} == 0
- exe "norm! ".b:drawit_line_{s:saveposn_count}."G0"
- else
- exe "norm! ".b:drawit_line_{s:saveposn_count}."G0".b:drawit_col_{s:saveposn_count}."l"
- endif
- if s:saveposn_count > 0
- unlet b:drawit_hline_{s:saveposn_count}
- unlet b:drawit_line_{s:saveposn_count}
- unlet b:drawit_col_{s:saveposn_count}
- let s:saveposn_count= s:saveposn_count - 1
- endif
-" call Dret("s:RestorePosn : saveposn_count=".s:saveposn_count)
-endfun
-
-" ------------------------------------------------------------------------
-" s:Flood: this function begins a flood of a region {{{2
-" based on b:di... characters as boundaries
-" and starting at the current cursor location.
-fun! s:Flood()
-" call Dfunc("s:Flood()")
-
- let s:bndry = b:di_vert.b:di_horiz.b:di_plus.b:di_upright.b:di_upleft.b:di_cross.b:di_ellipse
- if b:di_gfxchr
- let s:bndry= s:bndry.b:di_Svert.b:di_Dvert.b:di_Shoriz.b:di_Dhoriz.b:di_Sulcorn.b:di_Dulcorn.b:di_Surcorn.b:di_Durcorn.b:di_Sllcorn.b:di_Dllcorn.b:di_Slrcorn.b:di_Dlrcorn.b:di_Splus.b:di_Dplus.b:di_Sdnplus.b:di_Ddnplus.b:di_Supplus.b:di_Dupplus.b:di_Slplus.b:di_Dlplus.b:di_Srplus.b:di_Drplus.b:di_Supright.b:di_Supleft.b:di_Scross
- let s:bndry= s:bndry.b:di_DhSd.b:di_DhSu.b:di_DuSl.b:di_DuSlr.b:di_DuSr.b:di_ShDd.b:di_ShDu.b:di_SuDl.b:di_SuDlr.b:di_SdDh.b:di_SuDh.b:di_SuDr.b:di_cSdDr.b:di_cDdSr.b:di_cDlSd.b:di_cSlDd.b:di_cDrSu.b:di_cSrDu.b:di_cDlSu.b:di_cSlDu
- endif
- let row = line(".")
- let col = virtcol(".")
- let athold = @0
- let s:DIrows = line("$")
- call s:SavePosn()
-
- " get fill character from user
- " Put entire fillchar string into the s:bndry (boundary characters),
- " although only use the first such character for filling
- call inputsave()
- let s:fillchar= input("Enter fill character: ")
- call inputrestore()
- let s:bndry= "[".escape(s:bndry.s:fillchar,'\-]^')."]"
-" call Decho("s:bndry<".s:bndry.">")
- if s:Strlen(s:fillchar) > 1
- let s:fillchar= strpart(s:fillchar,0,1)
- endif
-
- " flood the region
- call s:DI_Flood(row,col)
-
- " restore
- call s:RestorePosn()
- let @0= athold
- unlet s:DIrows s:bndry s:fillchar
-
-" call Dret("s:Flood")
-endfun
-
-" ------------------------------------------------------------------------
-" s:DI_Flood: fill up to the boundaries all characters to the left and right. {{{2
-" Then, based on the left/right column extents reached, check
-" adjacent rows to see if any characters there need filling.
-fun! s:DI_Flood(frow,fcol)
-" call Dfunc("s:DI_Flood(frow=".a:frow." fcol=".a:fcol.")")
- if a:frow <= 0 || a:fcol <= 0 || s:SetPosn(a:frow,a:fcol) || s:IsBoundary(a:frow,a:fcol)
-" call Dret("s:DI_Flood")
- return
- endif
-
- " fill current line
- let colL= s:DI_FillLeft(a:frow,a:fcol)
- let colR= s:DI_FillRight(a:frow,a:fcol+1)
-
- " do a filladjacent on the next line up
- if a:frow > 1
- call s:DI_FillAdjacent(a:frow-1,colL,colR)
- endif
-
- " do a filladjacent on the next line down
- if a:frow < s:DIrows
- call s:DI_FillAdjacent(a:frow+1,colL,colR)
- endif
-
-" call Dret("s:DI_Flood")
-endfun
-
-" ------------------------------------------------------------------------
-" s:DI_FillLeft: Starting at (frow,fcol), non-boundary locations are {{{2
-" filled with the fillchar. The leftmost extent reached
-" is returned.
-fun! s:DI_FillLeft(frow,fcol)
-" call Dfunc("s:DI_FillLeft(frow=".a:frow." fcol=".a:fcol.")")
- if s:SetPosn(a:frow,a:fcol)
-" call Dret("s:DI_FillLeft ".a:fcol)
- return a:fcol
- endif
-
- let Lcol= a:fcol
- while Lcol >= 1
- if !s:IsBoundary(a:frow,Lcol)
- exe "silent! norm! r".s:fillchar."h"
- else
- break
- endif
- let Lcol= Lcol - 1
- endwhile
-
- let Lcol= (Lcol < 1)? 1 : Lcol + 1
-
-" call Dret("s:DI_FillLeft ".Lcol)
- return Lcol
-endfun
-
-" ---------------------------------------------------------------------
-" s:DI_FillRight: Starting at (frow,fcol), non-boundary locations are {{{2
-" filled with the fillchar. The rightmost extent reached
-" is returned.
-fun! s:DI_FillRight(frow,fcol)
-" call Dfunc("s:DI_FillRight(frow=".a:frow." fcol=".a:fcol.")")
- if s:SetPosn(a:frow,a:fcol)
-" call Dret("s:DI_FillRight ".a:fcol)
- return a:fcol
- endif
-
- let Rcol = a:fcol
- while Rcol <= virtcol("$")
- if !s:IsBoundary(a:frow,Rcol)
- exe "silent! norm! r".s:fillchar."l"
- else
- break
- endif
- let Rcol= Rcol + 1
- endwhile
-
- let DIcols = virtcol("$")
- let Rcol = (Rcol > DIcols)? DIcols : Rcol - 1
-
-" call Dret("s:DI_FillRight ".Rcol)
- return Rcol
-endfun
-
-" ---------------------------------------------------------------------
-" s:DI_FillAdjacent: {{{2
-" DI_Flood does FillLeft and FillRight, so the run from left to right
-" (fcolL to fcolR) is known to have been filled. FillAdjacent is called
-" from (fcolL to fcolR) on the lines one row up and down; if any character
-" on the run is not a boundary character, then a flood is needed on that
-" location.
-fun! s:DI_FillAdjacent(frow,fcolL,fcolR)
-" call Dfunc("s:DI_FillAdjacent(frow=".a:frow." fcolL=".a:fcolL." fcolR=".a:fcolR.")")
-
- let icol = a:fcolL
- while icol <= a:fcolR
- if !s:IsBoundary(a:frow,icol)
- call s:DI_Flood(a:frow,icol)
- endif
- let icol= icol + 1
- endwhile
-
-" call Dret("s:DI_FillAdjacent")
-endfun
-
-" ---------------------------------------------------------------------
-" s:SetPosn: set cursor to given position on screen {{{2
-" srow,scol: -s-creen row and column
-" Returns 1 : failed sanity check
-" 0 : otherwise
-fun! s:SetPosn(row,col)
-" call Dfunc("s:SetPosn(row=".a:row." col=".a:col.")")
- " sanity checks
- if a:row < 1
-" call Dret("s:SetPosn 1")
- return 1
- endif
- if a:col < 1
-" call Dret("s:SetPosn 1")
- return 1
- endif
-
- exe "norm! ".a:row."G".a:col."\<Bar>"
-
-" call Dret("s:SetPosn 0")
- return 0
-endfun
-
-" ---------------------------------------------------------------------
-" s:IsBoundary: returns 0 if not on boundary, 1 if on boundary {{{2
-" The "boundary" also includes the fill character.
-fun! s:IsBoundary(row,col)
-" call Dfunc("s:IsBoundary(row=".a:row." col=".a:col.")")
-
- let orow= line(".")
- let ocol= virtcol(".")
- exe "norm! ".a:row."G".a:col."\<Bar>"
- norm! vy
- let ret= @0 =~ s:bndry
- if a:row != orow || a:col != ocol
- exe "norm! ".orow."G".ocol."\<Bar>"
- endif
-
-" call Dret("s:IsBoundary ".ret." : @0<".@0.">")
- return ret
-endfun
-
-" ---------------------------------------------------------------------
-" s:PutBlock: puts a register's contents into the text at the current {{{2
-" cursor location
-" replace= 0: Blanks are transparent
-" = 1: Blanks copy over
-" = 2: Erase all drawing characters
-"
-fun! s:PutBlock(block,replace)
-" call Dfunc("s:PutBlock(block<".a:block."> replace=".a:replace.") g:drawit_xstrlen=".g:drawit_xstrlen)
- call s:SavePosn()
- exe "let block = @".a:block
- let blocklen = strlen(block)
- let drawit_line = line('.')
- let drawchars = '['.escape(b:di_vert.b:di_horiz.b:di_plus.b:di_upright.b:di_upleft.b:di_cross,'\-').']'
-" call Decho("blocklen=".blocklen." block<".string(block).">")
-
- " insure that putting a block will do so in a region containing spaces out to textwidth
- exe "let blockrows= s:Strlen(substitute(@".a:block.",'[^[:cntrl:]]','','g'))"
- exe 'let blockcols= s:Strlen(substitute(@'.a:block.",'^\\(.\\{-}\\)\\n\\_.*$','\\1',''))"
- let curline= line('.')
- let curcol = virtcol('.')
-" call Decho("blockrows=".blockrows." blockcols=".blockcols." curline=".curline." curcol=".curcol)
- call s:AutoCanvas(curline-1,curline + blockrows+1,curcol + blockcols)
-
- let iblock= 0
- while iblock < blocklen
- " the following logic should permit 1, 2, or 4 byte glyphs (I've only tested it with 1 and 2)
- let chr= strpart(block,iblock,4)
- if char2nr(chr) <= 255
- let chr= strpart(block,iblock,1)
- elseif char2nr(chr) <= 65536
- let chr= strpart(block,iblock,2)
- let iblock= iblock + 1
- else
- let iblock= iblock + 3
- endif
-" call Decho("iblock=".iblock." chr#".char2nr(chr)."<".string(chr).">")
-
- if char2nr(chr) == 10
- " handle newline
- let drawit_line= drawit_line + 1
- if b:drawit_col_{s:saveposn_count} == 0
- exe "norm! ".drawit_line."G0"
- else
- exe "norm! ".drawit_line."G0".b:drawit_col_{s:saveposn_count}."l"
- endif
-
- elseif a:replace == 2
- " replace all drawing characters with blanks
- if match(chr,drawchars) != -1
- norm! r l
- else
- norm! l
- endif
-
- elseif chr == ' ' && a:replace == 0
- " allow blanks to be transparent
- norm! l
-
- else
- " usual replace character
- exe "norm! r".chr."l"
- endif
- let iblock = iblock + 1
- endwhile
- call s:RestorePosn()
-
-" call Dret("s:PutBlock")
-endfun
-
-" ---------------------------------------------------------------------
-" s:AutoCanvas: automatic "Canvas" routine {{{2
-fun! s:AutoCanvas(linestart,linestop,cols)
-" call Dfunc("s:AutoCanvas(linestart=".a:linestart." linestop=".a:linestop." cols=".a:cols.") line($)=".line("$"))
-
- " insure there's enough blank lines at end-of-file
- if line("$") < a:linestop
-" call Decho("append ".(a:linestop - line("$"))." empty lines")
- call s:SavePosn()
- exe "norm! G".(a:linestop - line("$"))."o\<esc>"
- call s:RestorePosn()
- endif
-
- " insure that any tabs contained within the selected region are converted to blanks
- let etkeep= &l:et
- set et
-" call Decho("exe ".a:linestart.",".a:linestop."retab")
- exe a:linestart.",".a:linestop."retab"
- let &l:et= etkeep
-
- " insure that there's whitespace to textwidth/screenwidth/a:cols
- if a:cols <= 0
- let tw= &tw
- if tw <= 0
- let tw= &columns
- endif
- else
- let tw= a:cols
- endif
-" Decho("tw=".tw)
- if search('^$\|.\%<'.(tw+1).'v$',"cn",(a:linestop+1)) > 0
-" call Decho("append trailing whitespace")
- call s:Spacer(a:linestart,a:linestop,tw)
- endif
-
-" call Dret("s:AutoCanvas : tw=".tw)
-endfun
-
-" ---------------------------------------------------------------------
-" s:Strlen: this function returns the length of a string, even if its {{{2
-" using two-byte etc characters.
-" Currently, its only used if g:Align_xstrlen is set to a
-" nonzero value. Solution from Nicolai Weibull, vim docs
-" (:help strlen()), Tony Mechelynck, and my own invention.
-fun! s:Strlen(x)
-" call Dfunc("s:Strlen(x<".a:x.">")
-
- if v:version >= 703 && exists("*strdisplaywidth")
- let ret= strdisplaywidth(a:x)
-
- elseif g:drawit_xstrlen == 1
- " number of codepoints (Latin a + combining circumflex is two codepoints)
- " (comment from TM, solution from NW)
- let ret= strlen(substitute(a:x,'.','c','g'))
-
- elseif g:drawit_xstrlen == 2
- " number of spacing codepoints (Latin a + combining circumflex is one spacing
- " codepoint; a hard tab is one; wide and narrow CJK are one each; etc.)
- " (comment from TM, solution from TM)
- let ret= strlen(substitute(a:x, '.\Z', 'x', 'g'))
-
- elseif g:drawit_xstrlen == 3
- " virtual length (counting, for instance, tabs as anything between 1 and
- " 'tabstop', wide CJK as 2 rather than 1, Arabic alif as zero when immediately
- " preceded by lam, one otherwise, etc.)
- " (comment from TM, solution from me)
- let modkeep= &l:mod
- exe "norm! o\<esc>"
- call setline(line("."),a:x)
- let ret= virtcol("$") - 1
- d
- keepj norm! k
- let &l:mod= modkeep
-
- else
- " at least give a decent default
- let ret= strlen(a:x)
- endif
-
-" call Dret("s:Strlen ".ret)
- return ret
-endfun
-
-" =====================================================================
-" DrawIt Functions: (by Sylvain Viart) {{{1
-" =====================================================================
-
-" ---------------------------------------------------------------------
-" s:Canvas: {{{2
-fun! s:Canvas()
-" call Dfunc("s:Canvas()")
-
- let lines = input("how many lines under the cursor? ")
- let curline= line('.')
- if curline < line('$')
- exe "norm! ".lines."o\<esc>"
- endif
- call s:Spacer(curline+1,curline+lines,0)
- let b:drawit_canvas_used= 1
-
-" call Dret("s:Canvas")
-endf
-
-" ---------------------------------------------------------------------
-" s:Spacer: fill end of line with space {{{2
-" if a:cols >0: to the virtual column specified by a:cols
-" <=0: to textwidth (if nonzero), otherwise
-" to display width (&columns)
-fun! s:Spacer(debut, fin, cols) range
-" call Dfunc("s:Spacer(debut=".a:debut." fin=".a:fin." cols=".a:cols.") textwidth=".&textwidth)
- call s:SavePosn()
-
- if a:cols <= 0
- let width = &textwidth
- if width <= 0
- let width= &columns
- endif
- else
- let width= a:cols
- endif
-
- let l= a:debut
- while l <= a:fin
- call setline(l,printf('%-'.width.'s',getline(l)))
- let l = l + 1
- endwhile
-
- call s:RestorePosn()
-
-" call Dret("s:Spacer")
-endf
-
-" ---------------------------------------------------------------------
-" s:CallBox: call the specified function using the current visual selection box {{{2
-fun! s:CallBox(func_name)
-" call Dfunc("s:CallBox(func_name<".a:func_name.">)")
-
- if exists("b:xmouse_start")
- let xdep = b:xmouse_start
- else
- let xdep= 0
- endif
- if exists("b:ymouse_start")
- let ydep = b:ymouse_start
- else
- let ydep= 0
- endif
- let col0 = virtcol("'<")
- let row0 = line("'<")
- let col1 = virtcol("'>")
- let row1 = line("'>")
-" call Decho("TL corner[".row0.",".col0."] original")
-" call Decho("BR corner[".row1.",".col1."] original")
-" call Decho("xydep [".ydep.",".xdep."]")
-
- if col1 == xdep && row1 == ydep
- let col1 = col0
- let row1 = row0
- let col0 = xdep
- let row0 = ydep
- endif
-" call Decho("TL corner[".row0.",".col0."]")
-" call Decho("BR corner[".row1.",".col1."]")
-
- " insure that the selected region has blanks to that specified by col1
- call s:AutoCanvas((row0 < row1)? row0 : row1,(row1 > row0)? row1 : row0,(col1 > col0)? col1 : col0)
-
-" call Decho("exe call s:".a:func_name."(".col0.','.row0.','.col1.','.row1.")")
- exe "call s:".a:func_name."(".col0.','.row0.','.col1.','.row1.")"
- let b:xmouse_start= 0
- let b:ymouse_start= 0
-
-" call Dret("s:CallBox")
-endf
-
-" ---------------------------------------------------------------------
-" s:DrawBox: {{{2
-fun! s:DrawBox(x0, y0, x1, y1)
-" call Dfunc("s:DrawBox(xy0[".a:x0.",".a:y0." xy1[".a:x1.",".a:y1."]) g:drawit_mode=".g:drawit_mode)
- " loop each line
- let x0= (a:x1 > a:x0)? a:x0 : a:x1
- let x1= (a:x1 > a:x0)? a:x1 : a:x0
- let y0= (a:y1 > a:y0)? a:y0 : a:y1
- let y1= (a:y1 > a:y0)? a:y1 : a:y0
-" call Decho('x0='.x0.' y0='.y0)
-" call Decho('x1='.x1.' y1='.y1)
- let l = y0
- while l <= y1
- let c = x0
- while c <= x1
- let remp= '.'
- if l == y0 || l == y1
- if g:drawit_mode == 's' || g:drawit_mode == 'S'
- let remp = b:di_Shoriz
- elseif g:drawit_mode == 'd' || g:drawit_mode == 'D'
- let remp = b:di_Dhoriz
- else
- let remp = b:di_horiz
- endif
- if g:drawit_mode =~ '[sSdD]'
- if c == x0 && l == y0
- let remp= (g:drawit_mode == 's' || g:drawit_mode == 'S')? b:di_Sulcorn : b:di_Dulcorn
-" call Decho('x0,y0: ulcorn<'.remp.'>')
- elseif c == x1 && l == y0
- let remp= (g:drawit_mode == 's' || g:drawit_mode == 'S')? b:di_Surcorn : b:di_Durcorn
-" call Decho('x0,y1: ulcorn<'.remp.'>')
- elseif c == x0 && l == y1
- let remp= (g:drawit_mode == 's' || g:drawit_mode == 'S')? b:di_Sllcorn : b:di_Dllcorn
-" call Decho('x1,y0: ulcorn<'.remp.'>')
- elseif c == x1 && l == y1
- let remp= (g:drawit_mode == 's' || g:drawit_mode == 'S')? b:di_Slrcorn : b:di_Dlrcorn
-" call Decho('x1,y1: ulcorn<'.remp.'>')
- endif
- else
- if c == x0 || c == x1
- let remp = b:di_plus
- endif
- endif
- else
- if g:drawit_mode == 's' || g:drawit_mode == 'S'
- let remp = b:di_Svert
- elseif g:drawit_mode == 'd' || g:drawit_mode == 'D'
- let remp = b:di_Dvert
- else
- let remp = b:di_vert
- endif
- if c != x0 && c != x1
- let remp = '.'
- endif
- endif
-
- if remp != '.'
- call s:SetCharAt(remp, c, l)
- endif
- let c = c + 1
- endw
- let l = l + 1
- endw
-
-" call Dret("s:DrawBox")
-endf
-
-" ---------------------------------------------------------------------
-" s:SetCharAt: set the character at the specified position (something must pre-exist at the pos'n) {{{2
-fun! s:SetCharAt(chr, x, y)
-" call Dfunc("s:SetCharAt(chr<".a:chr."> xy[".a:x.",".a:y."])")
-
- exe a:y
- if a:x <= 1
- exe "norm! 0r".a:chr
- else
- exe "norm! 0".(a:x-1)."lr".a:chr
- endif
-
-" call Dret("s:SetCharAt")
-endf
-
-" ---------------------------------------------------------------------
-" s:DrawLine: Bresenham line-drawing algorithm {{{2
-" taken from :
-" http://www.graphics.lcs.mit.edu/~mcmillan/comp136/Lecture6/Lines.html
-fun! s:DrawLine(x0, y0, x1, y1, horiz)
-" call Dfunc("s:DrawLine(xy0[".a:x0.",".a:y0."] xy1[".a:x1.",".a:y1."] horiz=".a:horiz.")")
-
- if ( a:x0 < a:x1 && a:y0 > a:y1 ) || ( a:x0 > a:x1 && a:y0 > a:y1 )
- " swap direction
- let x0 = a:x1
- let y0 = a:y1
- let x1 = a:x0
- let y1 = a:y0
-" call Decho("swap points: p0(".x0.",".y0.") p1(".x1.",".y1.")")
- else
- let x0 = a:x0
- let y0 = a:y0
- let x1 = a:x1
- let y1 = a:y1
-" call Decho("points: p0(".x0.",".y0.") p1(".x1.",".y1.")")
- endif
- let dy = y1 - y0
- let dx = x1 - x0
-" call Decho("[dx=x1-x0]=".dx." [dy=y1-y0]=".dy)
-
- if dy < 0
- let dy = -dy
- let stepy = -1
- else
- let stepy = 1
- endif
-
- if dx < 0
- let dx = -dx
- let stepx = -1
- else
- let stepx = 1
- endif
-
- let dy = 2*dy
- let dx = 2*dx
- if a:horiz == '_'
- let horiz= a:horiz
- else
- let horiz = (g:drawit_mode == 'N')? b:di_horiz : ((g:drawit_mode == 'S')? b:di_Shoriz : b:di_Dhoriz)
- endif
- if a:horiz == '|'
- let vertline= a:vert
- else
- let vertline = (g:drawit_mode == 'N')? b:di_vert : ((g:drawit_mode == 'S')? b:di_Svert : b:di_Dvert)
- endif
-
- if dx > dy
-" call Decho("case dx>dy : Δ=".dx.",".dy." step=".stepx.",".stepy)
- let char = horiz
- call s:SetCharAt(char, x0, y0)
- let fraction = dy - (dx / 2) " same as 2*Δy - Δx
- while x0 != x1
- let char = horiz
- if fraction >= 0
- if stepx > 0
-" call Decho("..case [fraction=".fraction."]≥0 and [stepx=".stepx."]>0: go upleft")
- let char = (g:drawit_mode == 'N')? b:di_upleft : b:di_Supleft
- else
-" call Decho("..case [fraction=".fraction."]≥0 and [stepx=".stepx."]≤0: go upright")
- let char = (g:drawit_mode == 'N')? b:di_upright : b:di_Supright
- endif
- let y0 = y0 + stepy
- let fraction = fraction - dx " same as fraction -= 2*Δx
-" call Decho("....[y0+=stepy]=".y0." [fraction-=dx]=".fraction)
- endif
- let x0 = x0 + stepx
- let fraction = fraction + dy " same as fraction = fraction - 2*Δy
-" call Decho("..[x0+=stepx]=".x0." [fraction-=dy]=".fraction)
- call s:SetCharAt(char, x0, y0)
- endw
- else
-" call Decho("case dx≤dy : Δ=".dx.",".dy." step=".stepx.",".stepy)
- let char = vertline
- call s:SetCharAt(char, x0, y0)
- let fraction = dx - (dy / 2)
- while y0 != y1
- let char = (g:drawit_mode == 'N')? b:di_vert : ((g:drawit_mode == 'S')? b:di_Svert : b:di_Dvert)
- if fraction >= 0
- if stepx > 0
-" call Decho("..case [fraction=".fraction."]≥0 and [stepx=".stepx."]>0: go upleft")
- let char = (g:drawit_mode == 'N')? b:di_upleft : b:di_Supleft
- else
-" call Decho("..case [fraction=".fraction."]≥0 and [stepx=".stepy."]≤0: go upright")
- let char = (g:drawit_mode == 'N')? b:di_upright : b:di_Supright
- endif
- let x0 = x0 + stepx
- let fraction = fraction - dy
-" call Decho("....[x0+=stepx]=".x0." [fraction-=dy]=".fraction)
- endif
- let y0 = y0 + stepy
- let fraction = fraction + dx
-" call Decho("..[y0+=stepy]=".y0." [fraction-=dy]=".fraction)
- call s:SetCharAt(char, x0, y0)
- endw
- endif
-
-" call Dret("s:DrawLine")
-endf
-
-" ---------------------------------------------------------------------
-" s:Arrow: {{{2
-fun! s:Arrow(x0, y0, x1, y1)
-" call Dfunc("s:Arrow(xy0[".a:x0.",".a:y0."] xy1[".a:x1.",".a:y1."])")
-
- let horiz = (g:drawit_mode == 'N')? b:di_horiz : ((g:drawit_mode == 'S')? b:di_Shoriz : b:di_Dhoriz)
- call s:DrawLine(a:x0, a:y0, a:x1, a:y1,horiz)
- let dy = a:y1 - a:y0
- let dx = a:x1 - a:x0
- if s:Abs(dx) > <SID>Abs(dy)
- " move x
- if dx > 0
- call s:SetCharAt('>', a:x1, a:y1)
- else
- call s:SetCharAt('<', a:x1, a:y1)
- endif
- else
- " move y
- if dy > 0
- call s:SetCharAt('v', a:x1, a:y1)
- else
- call s:SetCharAt('^', a:x1, a:y1)
- endif
- endif
-
-" call Dret("s:Arrow")
-endf
-
-" ---------------------------------------------------------------------
-" s:Abs: return absolute value {{{2
-fun! s:Abs(val)
- if a:val < 0
- return - a:val
- else
- return a:val
- endif
-endf
-
-" ---------------------------------------------------------------------
-" s:DrawPlainLine: {{{2
-fun! s:DrawPlainLine(x0,y0,x1,y1)
-" call Dfunc("s:DrawPlainLine(xy0[".a:x0.",".a:y0."] xy1[".a:x1.",".a:y1."])")
-
-" call Decho("exe call s:DrawLine(".a:x0.','.a:y0.','.a:x1.','.a:y1.',"_")')
- exe "call s:DrawLine(".a:x0.','.a:y0.','.a:x1.','.a:y1.',"_")'
-
-" call Dret("s:DrawPlainLine")
-endf
-
-" =====================================================================
-" Mouse Functions: {{{1
-" =====================================================================
-
-" ---------------------------------------------------------------------
-" s:LeftStart: Read visual drag mapping {{{2
-" The visual start point is saved in b:xmouse_start and b:ymouse_start
-fun! s:LeftStart()
-" call Dfunc("s:LeftStart()")
- let b:xmouse_start = virtcol('.')
- let b:ymouse_start = line('.')
- vnoremap <silent> <buffer> <script> <leftrelease> <leftrelease>:<c-u>call <SID>LeftRelease()<cr>gv
-" call Dret("s:LeftStart : [".b:ymouse_start.",".b:xmouse_start."]")
-endf!
-
-" ---------------------------------------------------------------------
-" s:LeftRelease: {{{2
-fun! s:LeftRelease()
-" call Dfunc("s:LeftRelease()")
- vunmap <buffer> <leftrelease>
-" call Dret("s:LeftRelease : [".line('.').','.virtcol('.').']')
-endf
-
-" ---------------------------------------------------------------------
-" s:SLeftStart: begin drawing with a brush {{{2
-fun! s:SLeftStart()
- if !exists("b:drawit_brush")
- let b:drawit_brush= "a"
- endif
-" call Dfunc("s:SLeftStart() brush=".b:drawit_brush.' ['.line('.').','.virtcol('.').']')
- noremap <silent> <buffer> <script> <s-leftdrag> <leftmouse>:<c-u>call <SID>SLeftDrag()<cr>
- noremap <silent> <buffer> <script> <s-leftrelease> <leftmouse>:<c-u>call <SID>SLeftRelease()<cr>
-" call Dret("s:SLeftStart")
-endfun
-
-" ---------------------------------------------------------------------
-" s:SLeftDrag: {{{2
-fun! s:SLeftDrag()
-" call Dfunc("s:SLeftDrag() brush=".b:drawit_brush.' ['.line('.').','.virtcol('.').']')
- call s:SavePosn()
- call s:PutBlock(b:drawit_brush,0)
- call s:RestorePosn()
-" call Dret("s:SLeftDrag")
-endfun
-
-" ---------------------------------------------------------------------
-" s:SLeftRelease: {{{2
-fun! s:SLeftRelease()
-" call Dfunc("s:SLeftRelease() brush=".b:drawit_brush.' ['.line('.').','.virtcol('.').']')
- call s:SLeftDrag()
- nunmap <buffer> <s-leftdrag>
- nunmap <buffer> <s-leftrelease>
-" call Dret("s:SLeftRelease")
-endfun
-
-" ---------------------------------------------------------------------
-" s:CLeftStart: begin moving a block of text {{{2
-fun! s:CLeftStart()
- if !exists("b:drawit_brush")
- let b:drawit_brush= "a"
- endif
-" call Dfunc("s:CLeftStart() brush=".b:drawit_brush)
- if !line("'<") || !line("'>")
- redraw!
- echohl Error
- echo "must visual-block select a region first"
-" call Dret("s:CLeftStart : must visual-block select a region first")
- return
- endif
- '<,'>call DrawIt#SetBrush(b:drawit_brush)
- norm! gvr
- let s:cleft_width= virtcol("'>") - virtcol("'<")
- if s:cleft_width < 0
- let s:cleft_width= -s:cleft_width
- endif
- let s:cleft_height= line("'>") - line("'<")
- if s:cleft_height < 0
- let s:cleft_height= -s:cleft_height
- endif
- if exists("s:cleft_oldblock")
- unlet s:cleft_oldblock
- endif
-" call Decho("blocksize: ".s:cleft_height."x".s:cleft_width)
- noremap <silent> <buffer> <script> <c-leftdrag> :<c-u>call <SID>CLeftDrag()<cr>
- noremap <silent> <buffer> <script> <c-leftrelease> <leftmouse>:<c-u>call <SID>CLeftRelease()<cr>
-" call Dret("s:CLeftStart")
-endfun
-
-" ---------------------------------------------------------------------
-" s:CLeftDrag: {{{2
-fun! s:CLeftDrag()
-" call Dfunc("s:CLeftDrag() cleft_width=".s:cleft_width." cleft_height=".s:cleft_height)
- exe 'let keepbrush= @'.b:drawit_brush
-" call Decho("keepbrush<".keepbrush.">")
-
- " restore prior contents of block zone
- if exists("s:cleft_oldblock")
-" call Decho("draw prior contents: [".line(".").",".virtcol(".")."] line($)=".line("$"))
-" call Decho("draw prior contents<".s:cleft_oldblock.">")
- exe 'let @'.b:drawit_brush.'=s:cleft_oldblock'
- call s:PutBlock(b:drawit_brush,1)
- endif
-
- " move cursor to <leftmouse> position
- exe "norm! \<leftmouse>"
-
- " save new block zone contents
-" call Decho("save contents: [".line(".").",".virtcol(".")."] - [".(line(".")+s:cleft_height).",".(virtcol(".")+s:cleft_width)."]")
- let curline= line(".")
- call s:AutoCanvas(curline,curline + s:cleft_height,virtcol(".")+s:cleft_width)
- if s:cleft_width > 0 && s:cleft_height > 0
- exe "silent! norm! \<c-v>".s:cleft_width."l".s:cleft_height.'j"'.b:drawit_brush.'y'
- elseif s:cleft_width > 0
- exe "silent! norm! \<c-v>".s:cleft_width.'l"'.b:drawit_brush.'y'
- else
- exe "silent! norm! \<c-v>".s:cleft_height.'j"'.b:drawit_brush.'y'
- endif
- exe "let s:cleft_oldblock= @".b:drawit_brush
-" call Decho("s:cleft_oldblock=@".b:drawit_brush)
-" call Decho("cleft_height=".s:cleft_height." cleft_width=".s:cleft_width)
-" call Decho("save contents<".s:cleft_oldblock.">")
-
- " draw the brush
-" call Decho("draw brush")
-" call Decho("draw brush ".b:drawit_brush.": [".line(".").",".virtcol(".")."] line($)=".line("$"))
- exe 'let @'.b:drawit_brush.'=keepbrush'
- call s:PutBlock(b:drawit_brush,1)
-
-" call Dret("s:CLeftDrag")
-endfun
-
-" ---------------------------------------------------------------------
-" s:CLeftRelease: {{{2
-fun! s:CLeftRelease()
-" call Dfunc("s:CLeftRelease()")
- call s:CLeftDrag()
- nunmap <buffer> <c-leftdrag>
- nunmap <buffer> <c-leftrelease>
- unlet s:cleft_oldblock s:cleft_height s:cleft_width
-" call Dret("s:CLeftRelease")
-endfun
-
-" ---------------------------------------------------------------------
-" DrawIt#SetBrush: {{{2
-fun! DrawIt#SetBrush(brush) range
-" call Dfunc("DrawIt#SetBrush(brush<".a:brush.">)")
- let b:drawit_brush= a:brush
-" call Decho("visualmode<".visualmode()."> range[".a:firstline.",".a:lastline."] visrange[".line("'<").",".line("'>")."]")
- if visualmode() == "\<c-v>" && ((a:firstline == line("'>") && a:lastline == line("'<")) || (a:firstline == line("'<") && a:lastline == line("'>")))
- " last visual mode was visual block mode, and
- " either [firstline,lastline] == ['<,'>] or ['>,'<]
- " Assuming that SetBrush called from a visual-block selection!
- " Yank visual block into selected register (brush)
-" call Decho("yanking visual block into register ".b:drawit_brush)
- exe 'norm! gv"'.b:drawit_brush.'y'
- endif
-" call Dret("DrawIt#SetBrush : b:drawit_brush=".b:drawit_brush)
-endfun
-
-" ------------------------------------------------------------------------
-" Modelines: {{{1
-" vim: fdm=marker
-let &cpo= s:keepcpo
-unlet s:keepcpo
diff --git a/vim/autoload/pathogen.vim b/vim/autoload/pathogen.vim
deleted file mode 100644
index c6d54a1..0000000
--- a/vim/autoload/pathogen.vim
+++ /dev/null
@@ -1,344 +0,0 @@
-" pathogen.vim - path option manipulation
-" Maintainer: Tim Pope <http://tpo.pe/>
-" Version: 2.3
-
-" Install in ~/.vim/autoload (or ~\vimfiles\autoload).
-"
-" For management of individually installed plugins in ~/.vim/bundle (or
-" ~\vimfiles\bundle), adding `execute pathogen#infect()` to the top of your
-" .vimrc is the only other setup necessary.
-"
-" The API is documented inline below.
-
-if exists("g:loaded_pathogen") || &cp
- finish
-endif
-let g:loaded_pathogen = 1
-
-" Point of entry for basic default usage. Give a relative path to invoke
-" pathogen#interpose() (defaults to "bundle/{}"), or an absolute path to invoke
-" pathogen#surround(). Curly braces are expanded with pathogen#expand():
-" "bundle/{}" finds all subdirectories inside "bundle" inside all directories
-" in the runtime path.
-function! pathogen#infect(...) abort
- for path in a:0 ? filter(reverse(copy(a:000)), 'type(v:val) == type("")') : ['bundle/{}']
- if path =~# '^\%({\=[$~\\/]\|{\=\w:[\\/]\).*[{}*]'
- call pathogen#surround(path)
- elseif path =~# '^\%([$~\\/]\|\w:[\\/]\)'
- call s:warn('Change pathogen#infect('.string(path).') to pathogen#infect('.string(path.'/{}').')')
- call pathogen#surround(path . '/{}')
- elseif path =~# '[{}*]'
- call pathogen#interpose(path)
- else
- call s:warn('Change pathogen#infect('.string(path).') to pathogen#infect('.string(path.'/{}').')')
- call pathogen#interpose(path . '/{}')
- endif
- endfor
- call pathogen#cycle_filetype()
- if pathogen#is_disabled($MYVIMRC)
- return 'finish'
- endif
- return ''
-endfunction
-
-" Split a path into a list.
-function! pathogen#split(path) abort
- if type(a:path) == type([]) | return a:path | endif
- if empty(a:path) | return [] | endif
- let split = split(a:path,'\\\@<!\%(\\\\\)*\zs,')
- return map(split,'substitute(v:val,''\\\([\\,]\)'',''\1'',"g")')
-endfunction
-
-" Convert a list to a path.
-function! pathogen#join(...) abort
- if type(a:1) == type(1) && a:1
- let i = 1
- let space = ' '
- else
- let i = 0
- let space = ''
- endif
- let path = ""
- while i < a:0
- if type(a:000[i]) == type([])
- let list = a:000[i]
- let j = 0
- while j < len(list)
- let escaped = substitute(list[j],'[,'.space.']\|\\[\,'.space.']\@=','\\&','g')
- let path .= ',' . escaped
- let j += 1
- endwhile
- else
- let path .= "," . a:000[i]
- endif
- let i += 1
- endwhile
- return substitute(path,'^,','','')
-endfunction
-
-" Convert a list to a path with escaped spaces for 'path', 'tag', etc.
-function! pathogen#legacyjoin(...) abort
- return call('pathogen#join',[1] + a:000)
-endfunction
-
-" Turn filetype detection off and back on again if it was already enabled.
-function! pathogen#cycle_filetype() abort
- if exists('g:did_load_filetypes')
- filetype off
- filetype on
- endif
-endfunction
-
-" Check if a bundle is disabled. A bundle is considered disabled if its
-" basename or full name is included in the list g:pathogen_disabled.
-function! pathogen#is_disabled(path) abort
- if a:path =~# '\~$'
- return 1
- endif
- let sep = pathogen#slash()
- let blacklist = get(g:, 'pathogen_blacklist', get(g:, 'pathogen_disabled', [])) + pathogen#split($VIMBLACKLIST)
- return index(blacklist, fnamemodify(a:path, ':t')) != -1 || index(blacklist, a:path) != -1
-endfunction "}}}1
-
-" Prepend the given directory to the runtime path and append its corresponding
-" after directory. Curly braces are expanded with pathogen#expand().
-function! pathogen#surround(path) abort
- let sep = pathogen#slash()
- let rtp = pathogen#split(&rtp)
- let path = fnamemodify(a:path, ':p:?[\\/]\=$??')
- let before = filter(pathogen#expand(path), '!pathogen#is_disabled(v:val)')
- let after = filter(reverse(pathogen#expand(path.sep.'after')), '!pathogen#is_disabled(v:val[0:-7])')
- call filter(rtp, 'index(before + after, v:val) == -1')
- let &rtp = pathogen#join(before, rtp, after)
- return &rtp
-endfunction
-
-" For each directory in the runtime path, add a second entry with the given
-" argument appended. Curly braces are expanded with pathogen#expand().
-function! pathogen#interpose(name) abort
- let sep = pathogen#slash()
- let name = a:name
- if has_key(s:done_bundles, name)
- return ""
- endif
- let s:done_bundles[name] = 1
- let list = []
- for dir in pathogen#split(&rtp)
- if dir =~# '\<after$'
- let list += reverse(filter(pathogen#expand(dir[0:-6].name.sep.'after'), '!pathogen#is_disabled(v:val[0:-7])')) + [dir]
- else
- let list += [dir] + filter(pathogen#expand(dir.sep.name), '!pathogen#is_disabled(v:val)')
- endif
- endfor
- let &rtp = pathogen#join(pathogen#uniq(list))
- return 1
-endfunction
-
-let s:done_bundles = {}
-
-" Invoke :helptags on all non-$VIM doc directories in runtimepath.
-function! pathogen#helptags() abort
- let sep = pathogen#slash()
- for glob in pathogen#split(&rtp)
- for dir in map(split(glob(glob), "\n"), 'v:val.sep."/doc/".sep')
- if (dir)[0 : strlen($VIMRUNTIME)] !=# $VIMRUNTIME.sep && filewritable(dir) == 2 && !empty(split(glob(dir.'*.txt'))) && (!filereadable(dir.'tags') || filewritable(dir.'tags'))
- silent! execute 'helptags' pathogen#fnameescape(dir)
- endif
- endfor
- endfor
-endfunction
-
-command! -bar Helptags :call pathogen#helptags()
-
-" Execute the given command. This is basically a backdoor for --remote-expr.
-function! pathogen#execute(...) abort
- for command in a:000
- execute command
- endfor
- return ''
-endfunction
-
-" Section: Unofficial
-
-function! pathogen#is_absolute(path) abort
- return a:path =~# (has('win32') ? '^\%([\\/]\|\w:\)[\\/]\|^[~$]' : '^[/~$]')
-endfunction
-
-" Given a string, returns all possible permutations of comma delimited braced
-" alternatives of that string. pathogen#expand('/{a,b}/{c,d}') yields
-" ['/a/c', '/a/d', '/b/c', '/b/d']. Empty braces are treated as a wildcard
-" and globbed. Actual globs are preserved.
-function! pathogen#expand(pattern) abort
- if a:pattern =~# '{[^{}]\+}'
- let [pre, pat, post] = split(substitute(a:pattern, '\(.\{-\}\){\([^{}]\+\)}\(.*\)', "\\1\001\\2\001\\3", ''), "\001", 1)
- let found = map(split(pat, ',', 1), 'pre.v:val.post')
- let results = []
- for pattern in found
- call extend(results, pathogen#expand(pattern))
- endfor
- return results
- elseif a:pattern =~# '{}'
- let pat = matchstr(a:pattern, '^.*{}[^*]*\%($\|[\\/]\)')
- let post = a:pattern[strlen(pat) : -1]
- return map(split(glob(substitute(pat, '{}', '*', 'g')), "\n"), 'v:val.post')
- else
- return [a:pattern]
- endif
-endfunction
-
-" \ on Windows unless shellslash is set, / everywhere else.
-function! pathogen#slash() abort
- return !exists("+shellslash") || &shellslash ? '/' : '\'
-endfunction
-
-function! pathogen#separator() abort
- return pathogen#slash()
-endfunction
-
-" Convenience wrapper around glob() which returns a list.
-function! pathogen#glob(pattern) abort
- let files = split(glob(a:pattern),"\n")
- return map(files,'substitute(v:val,"[".pathogen#slash()."/]$","","")')
-endfunction "}}}1
-
-" Like pathogen#glob(), only limit the results to directories.
-function! pathogen#glob_directories(pattern) abort
- return filter(pathogen#glob(a:pattern),'isdirectory(v:val)')
-endfunction "}}}1
-
-" Remove duplicates from a list.
-function! pathogen#uniq(list) abort
- let i = 0
- let seen = {}
- while i < len(a:list)
- if (a:list[i] ==# '' && exists('empty')) || has_key(seen,a:list[i])
- call remove(a:list,i)
- elseif a:list[i] ==# ''
- let i += 1
- let empty = 1
- else
- let seen[a:list[i]] = 1
- let i += 1
- endif
- endwhile
- return a:list
-endfunction
-
-" Backport of fnameescape().
-function! pathogen#fnameescape(string) abort
- if exists('*fnameescape')
- return fnameescape(a:string)
- elseif a:string ==# '-'
- return '\-'
- else
- return substitute(escape(a:string," \t\n*?[{`$\\%#'\"|!<"),'^[+>]','\\&','')
- endif
-endfunction
-
-" Like findfile(), but hardcoded to use the runtimepath.
-function! pathogen#runtime_findfile(file,count) abort "{{{1
- let rtp = pathogen#join(1,pathogen#split(&rtp))
- let file = findfile(a:file,rtp,a:count)
- if file ==# ''
- return ''
- else
- return fnamemodify(file,':p')
- endif
-endfunction
-
-" Section: Deprecated
-
-function! s:warn(msg) abort
- echohl WarningMsg
- echomsg a:msg
- echohl NONE
-endfunction
-
-" Prepend all subdirectories of path to the rtp, and append all 'after'
-" directories in those subdirectories. Deprecated.
-function! pathogen#runtime_prepend_subdirectories(path) abort
- call s:warn('Change pathogen#runtime_prepend_subdirectories('.string(a:path).') to pathogen#infect('.string(a:path.'/{}').')')
- return pathogen#surround(a:path . pathogen#slash() . '{}')
-endfunction
-
-function! pathogen#incubate(...) abort
- let name = a:0 ? a:1 : 'bundle/{}'
- call s:warn('Change pathogen#incubate('.(a:0 ? string(a:1) : '').') to pathogen#infect('.string(name).')')
- return pathogen#interpose(name)
-endfunction
-
-" Deprecated alias for pathogen#interpose().
-function! pathogen#runtime_append_all_bundles(...) abort
- if a:0
- call s:warn('Change pathogen#runtime_append_all_bundles('.string(a:1).') to pathogen#infect('.string(a:1.'/{}').')')
- else
- call s:warn('Change pathogen#runtime_append_all_bundles() to pathogen#infect()')
- endif
- return pathogen#interpose(a:0 ? a:1 . '/{}' : 'bundle/{}')
-endfunction
-
-if exists(':Vedit')
- finish
-endif
-
-let s:vopen_warning = 0
-
-function! s:find(count,cmd,file,lcd)
- let rtp = pathogen#join(1,pathogen#split(&runtimepath))
- let file = pathogen#runtime_findfile(a:file,a:count)
- if file ==# ''
- return "echoerr 'E345: Can''t find file \"".a:file."\" in runtimepath'"
- endif
- if !s:vopen_warning
- let s:vopen_warning = 1
- let warning = '|echohl WarningMsg|echo "Install scriptease.vim to continue using :V'.a:cmd.'"|echohl NONE'
- else
- let warning = ''
- endif
- if a:lcd
- let path = file[0:-strlen(a:file)-2]
- execute 'lcd `=path`'
- return a:cmd.' '.pathogen#fnameescape(a:file) . warning
- else
- return a:cmd.' '.pathogen#fnameescape(file) . warning
- endif
-endfunction
-
-function! s:Findcomplete(A,L,P)
- let sep = pathogen#slash()
- let cheats = {
- \'a': 'autoload',
- \'d': 'doc',
- \'f': 'ftplugin',
- \'i': 'indent',
- \'p': 'plugin',
- \'s': 'syntax'}
- if a:A =~# '^\w[\\/]' && has_key(cheats,a:A[0])
- let request = cheats[a:A[0]].a:A[1:-1]
- else
- let request = a:A
- endif
- let pattern = substitute(request,'/\|\'.sep,'*'.sep,'g').'*'
- let found = {}
- for path in pathogen#split(&runtimepath)
- let path = expand(path, ':p')
- let matches = split(glob(path.sep.pattern),"\n")
- call map(matches,'isdirectory(v:val) ? v:val.sep : v:val')
- call map(matches,'expand(v:val, ":p")[strlen(path)+1:-1]')
- for match in matches
- let found[match] = 1
- endfor
- endfor
- return sort(keys(found))
-endfunction
-
-command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Ve :execute s:find(<count>,'edit<bang>',<q-args>,0)
-command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vedit :execute s:find(<count>,'edit<bang>',<q-args>,0)
-command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vopen :execute s:find(<count>,'edit<bang>',<q-args>,1)
-command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vsplit :execute s:find(<count>,'split',<q-args>,<bang>1)
-command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vvsplit :execute s:find(<count>,'vsplit',<q-args>,<bang>1)
-command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vtabedit :execute s:find(<count>,'tabedit',<q-args>,<bang>1)
-command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vpedit :execute s:find(<count>,'pedit',<q-args>,<bang>1)
-command! -bar -bang -range=1 -nargs=1 -complete=customlist,s:Findcomplete Vread :execute s:find(<count>,'read',<q-args>,<bang>1)
-
-" vim:set et sw=2 foldmethod=expr foldexpr=getline(v\:lnum)=~'^\"\ Section\:'?'>1'\:getline(v\:lnum)=~#'^fu'?'a1'\:getline(v\:lnum)=~#'^endf'?'s1'\:'=':