1" vimball.vim : construct a file containing both paths and files 2" Author: Charles E. Campbell, Jr. 3" Date: Apr 12, 2010 4" Version: 31 5" GetLatestVimScripts: 1502 1 :AutoInstall: vimball.vim 6" Copyright: (c) 2004-2009 by Charles E. Campbell, Jr. 7" The VIM LICENSE applies to Vimball.vim, and Vimball.txt 8" (see |copyright|) except use "Vimball" instead of "Vim". 9" No warranty, express or implied. 10" *** *** Use At-Your-Own-Risk! *** *** 11 12" --------------------------------------------------------------------- 13" Load Once: {{{1 14if &cp || exists("g:loaded_vimball") 15 finish 16endif 17let g:loaded_vimball = "v31" 18if v:version < 702 19 echohl WarningMsg 20 echo "***warning*** this version of vimball needs vim 7.2" 21 echohl Normal 22 finish 23endif 24let s:keepcpo= &cpo 25set cpo&vim 26"DechoTabOn 27 28" ===================================================================== 29" Constants: {{{1 30if !exists("s:USAGE") 31 let s:USAGE = 0 32 let s:WARNING = 1 33 let s:ERROR = 2 34 35 " determine if cygwin is in use or not 36 if !exists("g:netrw_cygwin") 37 if has("win32") || has("win95") || has("win64") || has("win16") 38 if &shell =~ '\%(\<bash\>\|\<zsh\>\)\%(\.exe\)\=$' 39 let g:netrw_cygwin= 1 40 else 41 let g:netrw_cygwin= 0 42 endif 43 else 44 let g:netrw_cygwin= 0 45 endif 46 endif 47 48 " set up g:vimball_mkdir if the mkdir() call isn't defined 49 if !exists("*mkdir") 50 if exists("g:netrw_local_mkdir") 51 let g:vimball_mkdir= g:netrw_local_mkdir 52 elseif executable("mkdir") 53 let g:vimball_mkdir= "mkdir" 54 elseif executable("makedir") 55 let g:vimball_mkdir= "makedir" 56 endif 57 if !exists(g:vimball_mkdir) 58 call vimball#ShowMesg(s:WARNING,"(vimball) g:vimball_mkdir undefined") 59 endif 60 endif 61endif 62 63" ===================================================================== 64" Functions: {{{1 65 66" --------------------------------------------------------------------- 67" vimball#MkVimball: creates a vimball given a list of paths to files {{{2 68" Input: 69" line1,line2: a range of lines containing paths to files to be included in the vimball 70" writelevel : if true, force a write to filename.vba, even if it exists 71" (usually accomplished with :MkVimball! ... 72" filename : base name of file to be created (ie. filename.vba) 73" Output: a filename.vba using vimball format: 74" path 75" filesize 76" [file] 77" path 78" filesize 79" [file] 80fun! vimball#MkVimball(line1,line2,writelevel,...) range 81" call Dfunc("MkVimball(line1=".a:line1." line2=".a:line2." writelevel=".a:writelevel." vimballname<".a:1.">) a:0=".a:0) 82 if a:1 =~ '\.vim$' || a:1 =~ '\.txt$' 83 let vbname= substitute(a:1,'\.\a\{3}$','.vba','') 84 else 85 let vbname= a:1 86 endif 87 if vbname !~ '\.vba$' 88 let vbname= vbname.'.vba' 89 endif 90" call Decho("vbname<".vbname.">") 91 if !a:writelevel && a:1 =~ '[\/]' 92 call vimball#ShowMesg(s:ERROR,"(MkVimball) vimball name<".a:1."> should not include slashes; use ! to insist") 93" call Dret("MkVimball : vimball name<".a:1."> should not include slashes") 94 return 95 endif 96 if !a:writelevel && filereadable(vbname) 97 call vimball#ShowMesg(s:ERROR,"(MkVimball) file<".vbname."> exists; use ! to insist") 98" call Dret("MkVimball : file<".vbname."> already exists; use ! to insist") 99 return 100 endif 101 102 " user option bypass 103 call vimball#SaveSettings() 104 105 if a:0 >= 2 106 " allow user to specify where to get the files 107 let home= expand(a:2) 108 else 109 " use first existing directory from rtp 110 let home= vimball#VimballHome() 111 endif 112 113 " save current directory 114 let curdir = getcwd() 115 call s:ChgDir(home) 116 117 " record current tab, initialize while loop index 118 let curtabnr = tabpagenr() 119 let linenr = a:line1 120" call Decho("curtabnr=".curtabnr) 121 122 while linenr <= a:line2 123 let svfile = getline(linenr) 124" call Decho("svfile<".svfile.">") 125 126 if !filereadable(svfile) 127 call vimball#ShowMesg(s:ERROR,"unable to read file<".svfile.">") 128 call s:ChgDir(curdir) 129 call vimball#RestoreSettings() 130" call Dret("MkVimball") 131 return 132 endif 133 134 " create/switch to mkvimball tab 135 if !exists("vbtabnr") 136 tabnew 137 silent! file Vimball 138 let vbtabnr= tabpagenr() 139 else 140 exe "tabn ".vbtabnr 141 endif 142 143 let lastline= line("$") + 1 144 if lastline == 2 && getline("$") == "" 145 call setline(1,'" Vimball Archiver by Charles E. Campbell, Jr., Ph.D.') 146 call setline(2,'UseVimball') 147 call setline(3,'finish') 148 let lastline= line("$") + 1 149 endif 150 call setline(lastline ,substitute(svfile,'$',' [[[1','')) 151 call setline(lastline+1,0) 152 153 " write the file from the tab 154" call Decho("exe $r ".fnameescape(svfile)) 155 exe "$r ".fnameescape(svfile) 156 157 call setline(lastline+1,line("$") - lastline - 1) 158" call Decho("lastline=".lastline." line$=".line("$")) 159 160 " restore to normal tab 161 exe "tabn ".curtabnr 162 let linenr= linenr + 1 163 endwhile 164 165 " write the vimball 166 exe "tabn ".vbtabnr 167 call s:ChgDir(curdir) 168 setlocal ff=unix 169 if a:writelevel 170" call Decho("exe w! ".fnameescape(vbname)) 171 exe "w! ".fnameescape(vbname) 172 else 173" call Decho("exe w ".fnameescape(vbname)) 174 exe "w ".fnameescape(vbname) 175 endif 176" call Decho("Vimball<".vbname."> created") 177 echo "Vimball<".vbname."> created" 178 179 " remove the evidence 180 setlocal nomod bh=wipe 181 exe "tabn ".curtabnr 182 exe "tabc ".vbtabnr 183 184 " restore options 185 call vimball#RestoreSettings() 186 187" call Dret("MkVimball") 188endfun 189 190" --------------------------------------------------------------------- 191" vimball#Vimball: extract and distribute contents from a vimball {{{2 192" (invoked the the UseVimball command embedded in 193" vimballs' prologue) 194fun! vimball#Vimball(really,...) 195" call Dfunc("vimball#Vimball(really=".a:really.") a:0=".a:0) 196 197 if v:version < 701 || (v:version == 701 && !exists('*fnameescape')) 198 echoerr "your vim is missing the fnameescape() function" 199" call Dret("vimball#Vimball : needs 7.1 with patch 299") 200 return 201 endif 202 203 if getline(1) !~ '^" Vimball Archiver' 204 echoerr "(Vimball) The current file does not appear to be a Vimball!" 205" call Dret("vimball#Vimball") 206 return 207 endif 208 209 " set up standard settings 210 call vimball#SaveSettings() 211 let curtabnr = tabpagenr() 212 let vimballfile = expand("%:tr") 213 214 " set up vimball tab 215" call Decho("setting up vimball tab") 216 tabnew 217 silent! file Vimball 218 let vbtabnr= tabpagenr() 219 let didhelp= "" 220 221 " go to vim plugin home 222 if a:0 > 0 223 let home= expand(a:1) 224 else 225 let home= vimball#VimballHome() 226 endif 227" call Decho("home<".home.">") 228 229 " save current directory and remove older same-named vimball, if any 230 let curdir = getcwd() 231" call Decho("home<".home.">") 232" call Decho("curdir<".curdir.">") 233 234 call s:ChgDir(home) 235 let s:ok_unablefind= 1 236 call vimball#RmVimball(vimballfile) 237 unlet s:ok_unablefind 238 239 let linenr = 4 240 let filecnt = 0 241 242 " give title to listing of (extracted) files from Vimball Archive 243 if a:really 244 echohl Title | echomsg "Vimball Archive" | echohl None 245 else 246 echohl Title | echomsg "Vimball Archive Listing" | echohl None 247 echohl Statement | echomsg "files would be placed under: ".home | echohl None 248 endif 249 250 " apportion vimball contents to various files 251" call Decho("exe tabn ".curtabnr) 252 exe "tabn ".curtabnr 253" call Decho("linenr=".linenr." line$=".line("$")) 254 while 1 < linenr && linenr < line("$") 255 let fname = substitute(getline(linenr),'\t\[\[\[1$','','') 256 let fname = substitute(fname,'\\','/','g') 257" let fsize = getline(linenr+1)+0 258 let fsize = substitute(getline(linenr+1),'^\(\d\+\).\{-}$','\1','')+0 259 let fenc = substitute(getline(linenr+1),'^\d\+\s*\(\S\+\)$','\1','') 260 let filecnt = filecnt + 1 261" call Decho("fname<".fname."> fsize=".fsize." filecnt=".filecnt) 262 263 if a:really 264 echomsg "extracted <".fname.">: ".fsize." lines" 265 else 266 echomsg "would extract <".fname.">: ".fsize." lines" 267 endif 268" call Decho("using L#".linenr.": will extract file<".fname.">") 269" call Decho("using L#".(linenr+1).": fsize=".fsize) 270 271 " Allow AsNeeded/ directory to take place of plugin/ directory 272 " when AsNeeded/filename is filereadable or was present in VimballRecord 273 if fname =~ '\<plugin/' 274 let anfname= substitute(fname,'\<plugin/','AsNeeded/','') 275 if filereadable(anfname) || (exists("s:VBRstring") && s:VBRstring =~ anfname) 276" call Decho("using anfname<".anfname."> instead of <".fname.">") 277 let fname= anfname 278 endif 279 endif 280 281 " make directories if they don't exist yet 282 if a:really 283" call Decho("making directories if they don't exist yet (fname<".fname.">)") 284 let fnamebuf= substitute(fname,'\\','/','g') 285 let dirpath = substitute(home,'\\','/','g') 286 while fnamebuf =~ '/' 287 let dirname = dirpath."/".substitute(fnamebuf,'/.*$','','') 288 let dirpath = dirname 289 let fnamebuf = substitute(fnamebuf,'^.\{-}/\(.*\)$','\1','') 290" call Decho("dirname<".dirname.">") 291 if !isdirectory(dirname) 292" call Decho("making <".dirname.">") 293 if exists("g:vimball_mkdir") 294 call system(g:vimball_mkdir." ".shellescape(dirname)) 295 else 296 call mkdir(dirname) 297 endif 298 call s:RecordInVar(home,"rmdir('".dirname."')") 299 endif 300 endwhile 301 endif 302 call s:ChgDir(home) 303 304 " grab specified qty of lines and place into "a" buffer 305 " (skip over path/filename and qty-lines) 306 let linenr = linenr + 2 307 let lastline = linenr + fsize - 1 308" call Decho("exe ".linenr.",".lastline."yank a") 309 exe "silent ".linenr.",".lastline."yank a" 310 311 " copy "a" buffer into tab 312" call Decho('copy "a buffer into tab#'.vbtabnr) 313 exe "tabn ".vbtabnr 314 setlocal ma 315 silent! %d 316 silent put a 317 1 318 silent d 319 320 " write tab to file 321 if a:really 322 let fnamepath= home."/".fname 323" call Decho("exe w! ".fnameescape(fnamepath)) 324 if fenc != "" 325 exe "silent w! ++enc=".fnameescape(fenc)." ".fnameescape(fnamepath) 326 else 327 exe "silent w! ".fnameescape(fnamepath) 328 endif 329 echo "wrote ".fnameescape(fnamepath) 330 call s:RecordInVar(home,"call delete('".fnamepath."')") 331 endif 332 333 " return to tab with vimball 334" call Decho("exe tabn ".curtabnr) 335 exe "tabn ".curtabnr 336 337 " set up help if its a doc/*.txt file 338" call Decho("didhelp<".didhelp."> fname<".fname.">") 339 if a:really && didhelp == "" && fname =~ 'doc/[^/]\+\.\(txt\|..x\)$' 340 let didhelp= substitute(fname,'^\(.*\<doc\)[/\\][^.]*\.\(txt\|..x\)$','\1','') 341" call Decho("didhelp<".didhelp.">") 342 endif 343 344 " update for next file 345" call Decho("update linenr= [linenr=".linenr."] + [fsize=".fsize."] = ".(linenr+fsize)) 346 let linenr= linenr + fsize 347 endwhile 348 349 " set up help 350" call Decho("about to set up help: didhelp<".didhelp.">") 351 if didhelp != "" 352 let htpath= home."/".didhelp 353" call Decho("exe helptags ".htpath) 354 exe "helptags ".fnameescape(htpath) 355 echo "did helptags" 356 endif 357 358 " make sure a "Press ENTER..." prompt appears to keep the messages showing! 359 while filecnt <= &ch 360 echomsg " " 361 let filecnt= filecnt + 1 362 endwhile 363 364 " record actions in <.VimballRecord> 365 call s:RecordInFile(home) 366 367 " restore events, delete tab and buffer 368 exe "tabn ".vbtabnr 369 setlocal nomod bh=wipe 370 exe "tabn ".curtabnr 371 exe "tabc ".vbtabnr 372 call vimball#RestoreSettings() 373 call s:ChgDir(curdir) 374 375" call Dret("vimball#Vimball") 376endfun 377 378" --------------------------------------------------------------------- 379" vimball#RmVimball: remove any files, remove any directories made by any {{{2 380" previous vimball extraction based on a file of the current 381" name. 382" Usage: RmVimball (assume current file is a vimball; remove) 383" RmVimball vimballname 384fun! vimball#RmVimball(...) 385" call Dfunc("vimball#RmVimball() a:0=".a:0) 386 if exists("g:vimball_norecord") 387" call Dret("vimball#RmVimball : (g:vimball_norecord)") 388 return 389 endif 390 391 if a:0 == 0 392 let curfile= expand("%:tr") 393" call Decho("case a:0=0: curfile<".curfile."> (used expand(%:tr))") 394 else 395 if a:1 =~ '[\/]' 396 call vimball#ShowMesg(s:USAGE,"RmVimball vimballname [path]") 397" call Dret("vimball#RmVimball : suspect a:1<".a:1.">") 398 return 399 endif 400 let curfile= a:1 401" call Decho("case a:0=".a:0.": curfile<".curfile.">") 402 endif 403 if curfile =~ '\.vba$' 404 let curfile= substitute(curfile,'\.vba','','') 405 endif 406 if a:0 >= 2 407 let home= expand(a:2) 408 else 409 let home= vimball#VimballHome() 410 endif 411 let curdir = getcwd() 412" call Decho("home <".home.">") 413" call Decho("curfile<".curfile.">") 414" call Decho("curdir <".curdir.">") 415 416 call s:ChgDir(home) 417 if filereadable(".VimballRecord") 418" call Decho(".VimballRecord is readable") 419" call Decho("curfile<".curfile.">") 420 keepalt keepjumps 1split 421 silent! keepalt keepjumps e .VimballRecord 422 let keepsrch= @/ 423" call Decho('search for ^\M'.curfile.'.\m: ') 424" call Decho('search for ^\M'.curfile.'.\mvba: ') 425" call Decho('search for ^\M'.curfile.'\m[-0-9.]*\.vba: ') 426 if search('^\M'.curfile."\m: ".'cw') 427 let foundit= 1 428 elseif search('^\M'.curfile.".\mvba: ",'cw') 429 let foundit= 1 430 elseif search('^\M'.curfile.'\m[-0-9.]*\.vba: ','cw') 431 let foundit= 1 432 else 433 let foundit = 0 434 endif 435 if foundit 436 let exestring = substitute(getline("."),'^\M'.curfile.'\m\S\{-}\.vba: ','','') 437 let s:VBRstring= substitute(exestring,'call delete(','','g') 438 let s:VBRstring= substitute(s:VBRstring,"[')]",'','g') 439" call Decho("exe ".exestring) 440 silent! keepalt keepjumps exe exestring 441 silent! keepalt keepjumps d 442 let exestring= strlen(substitute(exestring,'call delete(.\{-})|\=',"D","g")) 443" call Decho("exestring<".exestring.">") 444 echomsg "removed ".exestring." files" 445 else 446 let s:VBRstring= '' 447 let curfile = substitute(curfile,'\.vba','','') 448" call Decho("unable to find <".curfile."> in .VimballRecord") 449 if !exists("s:ok_unablefind") 450 call vimball#ShowMesg(s:WARNING,"(RmVimball) unable to find <".curfile."> in .VimballRecord") 451 endif 452 endif 453 silent! keepalt keepjumps g/^\s*$/d 454 silent! keepalt keepjumps wq! 455 let @/= keepsrch 456 endif 457 call s:ChgDir(curdir) 458 459" call Dret("vimball#RmVimball") 460endfun 461 462" --------------------------------------------------------------------- 463" vimball#Decompress: attempts to automatically decompress vimballs {{{2 464fun! vimball#Decompress(fname,...) 465" call Dfunc("Decompress(fname<".a:fname.">) a:0=".a:0) 466 467 " decompression: 468 if expand("%") =~ '.*\.gz' && executable("gunzip") 469 " handle *.gz with gunzip 470 silent exe "!gunzip ".shellescape(a:fname) 471 if v:shell_error != 0 472 call vimball#ShowMesg(s:WARNING,"(vimball#Decompress) gunzip may have failed with <".a:fname.">") 473 endif 474 let fname= substitute(a:fname,'\.gz$','','') 475 exe "e ".escape(fname,' \') 476 if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif 477 478 elseif expand("%") =~ '.*\.gz' && executable("gzip") 479 " handle *.gz with gzip -d 480 silent exe "!gzip -d ".shellescape(a:fname) 481 if v:shell_error != 0 482 call vimball#ShowMesg(s:WARNING,'(vimball#Decompress) "gzip -d" may have failed with <'.a:fname.">") 483 endif 484 let fname= substitute(a:fname,'\.gz$','','') 485 exe "e ".escape(fname,' \') 486 if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif 487 488 elseif expand("%") =~ '.*\.bz2' && executable("bunzip2") 489 " handle *.bz2 with bunzip2 490 silent exe "!bunzip2 ".shellescape(a:fname) 491 if v:shell_error != 0 492 call vimball#ShowMesg(s:WARNING,"(vimball#Decompress) bunzip2 may have failed with <".a:fname.">") 493 endif 494 let fname= substitute(a:fname,'\.bz2$','','') 495 exe "e ".escape(fname,' \') 496 if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif 497 498 elseif expand("%") =~ '.*\.bz2' && executable("bzip2") 499 " handle *.bz2 with bzip2 -d 500 silent exe "!bzip2 -d ".shellescape(a:fname) 501 if v:shell_error != 0 502 call vimball#ShowMesg(s:WARNING,'(vimball#Decompress) "bzip2 -d" may have failed with <'.a:fname.">") 503 endif 504 let fname= substitute(a:fname,'\.bz2$','','') 505 exe "e ".escape(fname,' \') 506 if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif 507 508 elseif expand("%") =~ '.*\.zip' && executable("unzip") 509 " handle *.zip with unzip 510 silent exe "!unzip ".shellescape(a:fname) 511 if v:shell_error != 0 512 call vimball#ShowMesg(s:WARNING,"(vimball#Decompress) unzip may have failed with <".a:fname.">") 513 endif 514 let fname= substitute(a:fname,'\.zip$','','') 515 exe "e ".escape(fname,' \') 516 if a:0 == 0| call vimball#ShowMesg(s:USAGE,"Source this file to extract it! (:so %)") | endif 517 endif 518 519 if a:0 == 0| setlocal noma bt=nofile fmr=[[[,]]] fdm=marker | endif 520 521" call Dret("Decompress") 522endfun 523 524" --------------------------------------------------------------------- 525" vimball#ShowMesg: {{{2 526fun! vimball#ShowMesg(level,msg) 527" call Dfunc("vimball#ShowMesg(level=".a:level." msg<".a:msg.">)") 528 529 let rulerkeep = &ruler 530 let showcmdkeep = &showcmd 531 set noruler noshowcmd 532 redraw! 533 534 if &fo =~ '[ta]' 535 echomsg "***vimball*** ".a:msg 536 else 537 if a:level == s:WARNING || a:level == s:USAGE 538 echohl WarningMsg 539 elseif a:level == s:ERROR 540 echohl Error 541 endif 542 echomsg "***vimball*** ".a:msg 543 echohl None 544 endif 545 546 if a:level != s:USAGE 547 call inputsave()|let ok= input("Press <cr> to continue")|call inputrestore() 548 endif 549 550 let &ruler = rulerkeep 551 let &showcmd = showcmdkeep 552 553" call Dret("vimball#ShowMesg") 554endfun 555" ===================================================================== 556" s:ChgDir: change directory (in spite of Windoze) {{{2 557fun! s:ChgDir(newdir) 558" call Dfunc("ChgDir(newdir<".a:newdir.">)") 559 if (has("win32") || has("win95") || has("win64") || has("win16")) 560 exe 'silent cd '.fnameescape(substitute(a:newdir,'/','\\','g')) 561 else 562 exe 'silent cd '.fnameescape(a:newdir) 563 endif 564" call Dret("ChgDir : curdir<".getcwd().">") 565endfun 566 567" --------------------------------------------------------------------- 568" s:RecordInVar: record a un-vimball command in the .VimballRecord file {{{2 569fun! s:RecordInVar(home,cmd) 570" call Dfunc("RecordInVar(home<".a:home."> cmd<".a:cmd.">)") 571 if a:cmd =~ '^rmdir' 572" if !exists("s:recorddir") 573" let s:recorddir= substitute(a:cmd,'^rmdir',"call s:Rmdir",'') 574" else 575" let s:recorddir= s:recorddir."|".substitute(a:cmd,'^rmdir',"call s:Rmdir",'') 576" endif 577 elseif !exists("s:recordfile") 578 let s:recordfile= a:cmd 579 else 580 let s:recordfile= s:recordfile."|".a:cmd 581 endif 582" call Dret("RecordInVar : s:recordfile<".(exists("s:recordfile")? s:recordfile : "")."> s:recorddir<".(exists("s:recorddir")? s:recorddir : "").">") 583endfun 584 585" --------------------------------------------------------------------- 586" s:RecordInFile: {{{2 587fun! s:RecordInFile(home) 588" call Dfunc("s:RecordInFile()") 589 if exists("g:vimball_norecord") 590" call Dret("s:RecordInFile : g:vimball_norecord") 591 return 592 endif 593 594 if exists("s:recordfile") || exists("s:recorddir") 595 let curdir= getcwd() 596 call s:ChgDir(a:home) 597 keepalt keepjumps 1split 598 599 let cmd= expand("%:tr").": " 600" call Decho("cmd<".cmd.">") 601 602 silent! keepalt keepjumps e .VimballRecord 603 setlocal ma 604 $ 605 if exists("s:recordfile") && exists("s:recorddir") 606 let cmd= cmd.s:recordfile."|".s:recorddir 607 elseif exists("s:recorddir") 608 let cmd= cmd.s:recorddir 609 elseif exists("s:recordfile") 610 let cmd= cmd.s:recordfile 611 else 612" call Dret("s:RecordInFile : neither recordfile nor recorddir exist") 613 return 614 endif 615" call Decho("cmd<".cmd.">") 616 617 " put command into buffer, write .VimballRecord `file 618 keepalt keepjumps put=cmd 619 silent! keepalt keepjumps g/^\s*$/d 620 silent! keepalt keepjumps wq! 621 call s:ChgDir(curdir) 622 623 if exists("s:recorddir") 624" call Decho("unlet s:recorddir<".s:recorddir.">") 625 unlet s:recorddir 626 endif 627 if exists("s:recordfile") 628" call Decho("unlet s:recordfile<".s:recordfile.">") 629 unlet s:recordfile 630 endif 631 else 632" call Decho("s:record[file|dir] doesn't exist") 633 endif 634 635" call Dret("s:RecordInFile") 636endfun 637 638" --------------------------------------------------------------------- 639" vimball#VimballHome: determine/get home directory path (usually from rtp) {{{2 640fun! vimball#VimballHome() 641" call Dfunc("vimball#VimballHome()") 642 if exists("g:vimball_home") 643 let home= g:vimball_home 644 else 645 " go to vim plugin home 646 for home in split(&rtp,',') + [''] 647 if isdirectory(home) && filewritable(home) | break | endif 648 let basehome= substitute(home,'[/\\]\.vim$','','') 649 if isdirectory(basehome) && filewritable(basehome) 650 let home= basehome."/.vim" 651 break 652 endif 653 endfor 654 if home == "" 655 " just pick the first directory 656 let home= substitute(&rtp,',.*$','','') 657 endif 658 if (has("win32") || has("win95") || has("win64") || has("win16")) 659 let home= substitute(home,'/','\\','g') 660 endif 661 endif 662 " insure that the home directory exists 663" call Decho("picked home<".home.">") 664 if !isdirectory(home) 665 if exists("g:vimball_mkdir") 666" call Decho("home<".home."> isn't a directory -- making it now with g:vimball_mkdir<".g:vimball_mkdir.">") 667" call Decho("system(".g:vimball_mkdir." ".shellescape(home).")") 668 call system(g:vimball_mkdir." ".shellescape(home)) 669 else 670" call Decho("home<".home."> isn't a directory -- making it now with mkdir()") 671 call mkdir(home) 672 endif 673 endif 674" call Dret("vimball#VimballHome <".home.">") 675 return home 676endfun 677 678" --------------------------------------------------------------------- 679" vimball#SaveSettings: {{{2 680fun! vimball#SaveSettings() 681" call Dfunc("SaveSettings()") 682 let s:makeep = getpos("'a") 683 let s:regakeep= @a 684 if exists("&acd") 685 let s:acdkeep = &acd 686 endif 687 let s:eikeep = &ei 688 let s:fenkeep = &l:fen 689 let s:hidkeep = &hidden 690 let s:ickeep = &ic 691 let s:lzkeep = &lz 692 let s:pmkeep = &pm 693 let s:repkeep = &report 694 let s:vekeep = &ve 695 let s:ffkeep = &l:ff 696 if exists("&acd") 697 setlocal ei=all ve=all noacd nofen noic report=999 nohid bt= ma lz pm= ff=unix 698 else 699 setlocal ei=all ve=all nofen noic report=999 nohid bt= ma lz pm= ff=unix 700 endif 701 " vimballs should be in unix format 702 setlocal ff=unix 703" call Dret("SaveSettings") 704endfun 705 706" --------------------------------------------------------------------- 707" vimball#RestoreSettings: {{{2 708fun! vimball#RestoreSettings() 709" call Dfunc("RestoreSettings()") 710 let @a = s:regakeep 711 if exists("&acd") 712 let &acd = s:acdkeep 713 endif 714 let &l:fen = s:fenkeep 715 let &hidden = s:hidkeep 716 let &ic = s:ickeep 717 let &lz = s:lzkeep 718 let &pm = s:pmkeep 719 let &report = s:repkeep 720 let &ve = s:vekeep 721 let &ei = s:eikeep 722 let &l:ff = s:ffkeep 723 if s:makeep[0] != 0 724 " restore mark a 725" call Decho("restore mark-a: makeep=".string(makeep)) 726 call setpos("'a",s:makeep) 727 endif 728 if exists("&acd") 729 unlet s:acdkeep 730 endif 731 unlet s:regakeep s:eikeep s:fenkeep s:hidkeep s:ickeep s:repkeep s:vekeep s:makeep s:lzkeep s:pmkeep s:ffkeep 732" call Dret("RestoreSettings") 733endfun 734 735" --------------------------------------------------------------------- 736" Modelines: {{{1 737" vim: fdm=marker 738