plugin/netrw.vim0100604000031300003130000030247310121602400012252 0ustar ceccec" netrw.vim: Handles file transfer and remote directory listing across a network " Last Change: Sep 14, 2004 " Maintainer: Charles E. Campbell, Jr. PhD " Version: 50 " License: Vim License (see vim's :help license) " " But be doers of the Word, and not only hearers, deluding your own selves " (James 1:22 RSV) " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- " GetLatestVimScripts: 1075 1 :AutoInstall: netrw.vim " --------------------------------------------------------------------- " Prevent Reloading: {{{1 if exists("g:loaded_netrw") || &cp finish endif let g:loaded_netrw = "v50" let s:save_cpo = &cpo let loaded_explorer = 1 set cpo&vim " --------------------------------------------------------------------- " Default values for global netrw variables {{{1 if !exists("g:netrw_ftpmode") let g:netrw_ftpmode= "binary" endif if !exists("g:netrw_win95ftp") let g:netrw_win95ftp= 1 endif if !exists("g:netrw_cygwin") if has("win32") || has("win95") || has("win64") || has("win16") let g:netrw_cygwin= 1 else let g:netrw_cygwin= 0 endif endif if !exists("g:netrw_list_cmd") if executable("ssh") " provide a default listing command let g:netrw_list_cmd= "ssh HOSTNAME ls -FLa" else " call Decho("ssh is not executable, can't do remote directory exploring") let g:netrw_list_cmd= "" endif endif if !exists("g:netrw_ftp_list_cmd") if has("unix") || exists("g:netrw_cygwin") let g:netrw_ftp_list_cmd= "ls -lF" else let g:netrw_ftp_list_cmd= "dir" endif endif if !exists("g:netrw_rm_cmd") let g:netrw_rm_cmd = "ssh HOSTNAME rm" endif if !exists("g:netrw_rmf_cmd") let g:netrw_rmf_cmd = "ssh HOSTNAME rm -f" endif if !exists("g:netrw_rmdir_cmd") let g:netrw_rmdir_cmd = "ssh HOSTNAME rmdir" endif if !exists("g:netrw_rename_cmd") let g:netrw_rename_cmd= "ssh HOSTNAME mv" endif if exists("g:netrw_silent") && g:netrw_silent != 0 let g:netrw_silentxfer= "silent " else let g:netrw_silentxfer= "" endif if !exists("g:netrw_winsize") let g:netrw_winsize= "" endif if !exists("g:netrw_list_hide") let g:netrw_list_hide= "" endif if !exists("g:netrw_sort_by") " alternatives: date size let g:netrw_sort_by= "name" endif if !exists("g:netrw_sort_sequence") let g:netrw_sort_sequence= '/$,*,\.bak$,\.o$,\.h$,\.info$,\.swp$,\.obj$' endif if !exists("g:netrw_sort_direction") " alternative: reverse (z y x ...) let g:netrw_sort_direction= "normal" endif if !exists("g:netrw_longlist") || g:netrw_longlist == 0 let g:netrw_longlist= 0 else let g:netrw_longlist= 1 let g:netrw_list_cmd= "ssh HOSTNAME ls -FLa -lk" endif if !exists("g:netrw_timefmt") let g:netrw_timefmt= "%c" endif if !exists("g:netrw_local_rmdir") let g:netrw_local_rmdir= "rmdir" endif if !exists("g:netrw_local_rename") if g:netrw_cygwin let g:netrw_local_rename= "mv" elseif has("win32") || has("win95") || has("win64") || has("win16") let g:netrw_local_rename= "rename" elseif has("unix") let g:netrw_local_rename= "mv" endif endif if !exists("g:netrw_local_mkdir") let g:netrw_local_mkdir= "mkdir" endif if !exists("g:netrw_mkdir_cmd") let g:netrw_mkdir_cmd= "ssh HOSTNAME mkdir" endif if !exists("g:netrw_hide") let g:netrw_hide= 1 endif if !exists("g:netrw_ftp_browse_reject") let g:netrw_ftp_browse_reject='^total\s\+\d\+$\|^Trying\s\+\d\+.*$\|^KERBEROS_V\d rejected\|^Security extensions not\|No such file' endif if !exists("g:netrw_keepdir") let g:netrw_keepdir= 1 endif if !exists("s:netrw_cd_escape") if has("win32") || has("win95") || has("win64") || has("win16") let s:netrw_cd_escape="#% " else let s:netrw_cd_escape="[]#*$%'\" ?`!&();<>\\" endif endif if !exists("s:netrw_glob_escape") if has("win32") || has("win95") || has("win64") || has("win16") let s:netrw_glob_escape= "" else let s:netrw_glob_escape= '[]*?`{~$' endif endif if !exists("g:netrw_alto") let g:netrw_alto= 0 endif if !exists("g:netrw_altv") let g:netrw_altv= 0 endif if !exists("g:netrw_maxfilenamelen") let g:netrw_maxfilenamelen= 32 endif " BufEnter event ignored by decho when following variable is true " Has a side effect that doau BufReadPost doesn't work, so " files read by network transfer aren't appropriately highlighted. "let g:decho_bufenter = 1 "Decho " --------------------------------------------------------------------- " Default values for global protocol variables {{{1 if !exists("g:netrw_rcp_cmd") let g:netrw_rcp_cmd = "rcp" endif if !exists("g:netrw_ftp_cmd") let g:netrw_ftp_cmd = "ftp" endif if !exists("g:netrw_scp_cmd") let g:netrw_scp_cmd = "scp -q" endif if !exists("g:netrw_sftp_cmd") let g:netrw_sftp_cmd = "sftp" endif if !exists("g:netrw_http_cmd") if executable("wget") let g:netrw_http_cmd = "wget -q -O" elseif executable("fetch") let g:netrw_http_cmd = "fetch -o" else let g:netrw_http_cmd = "" endif endif if !exists("g:netrw_dav_cmd") let g:netrw_dav_cmd = "cadaver" endif if !exists("g:netrw_rsync_cmd") let g:netrw_rsync_cmd = "rsync" endif if !exists("g:netrw_fetch_cmd") if executable("fetch") let g:netrw_fetch_cmd = "fetch -o" else let g:netrw_fetch_cmd = "" endif endif if has("win32") || has("win95") || has("win64") || has("win16") \ && exists("g:netrw_use_nt_rcp") \ && g:netrw_use_nt_rcp \ && executable( $SystemRoot .'/system32/rcp.exe') let s:netrw_has_nt_rcp = 1 let s:netrw_rcpmode = '-b' else let s:netrw_has_nt_rcp = 0 let s:netrw_rcpmode = '' endif " --------------------------------------------------------------------- " Transparency Support: {{{1 " File Explorer: {{{2 if version >= 600 augroup FileExplorer au! au BufEnter * call LocalBrowse(expand("")) augroup END " Network Handler: {{{2 augroup Network au! if has("win32") || has("win95") || has("win64") || has("win16") au BufReadCmd file://* exe "silent doau BufReadPre ".expand("")|exe 'e '.substitute(expand(""),"file:/*","","")|exe "silent doau BufReadPost ".expand("") else au BufReadCmd file:///* exe "silent doau BufReadPre ".expand("")|exe 'e /'.substitute(expand(""),"file:/*","","")|exe "silent doau BufReadPost ".expand("") au BufReadCmd file://localhost/* exe "silent doau BufReadPre ".expand("")|exe 'e /'.substitute(expand(""),"file:/*","","")|exe "silent doau BufReadPost ".expand("") endif au BufReadCmd ftp://*,rcp://*,scp://*,http://*,dav://*,rsync://*,sftp://* exe "silent doau BufReadPre ".expand("")|exe "Nread 0r ".expand("")|exe "silent doau BufReadPost ".expand("") au FileReadCmd ftp://*,rcp://*,scp://*,http://*,dav://*,rsync://*,sftp://* exe "silent doau BufReadPre ".expand("")|exe "Nread " .expand("")|exe "silent doau BufReadPost ".expand("") au BufWriteCmd ftp://*,rcp://*,scp://*,dav://*,rsync://*,sftp://* exe "silent doau BufWritePre ".expand("")|exe "Nwrite " .expand("")|exe "silent doau BufWritePost ".expand("") augroup END endif " ------------------------------------------------------------------------ " Commands: :Nread, :Nwrite, and :NetUserPass {{{1 com! -nargs=* Nread call NetSavePosn()call NetRead()call NetRestorePosn() com! -range=% -nargs=* Nwrite call NetSavePosn(),call NetWrite()call NetRestorePosn() com! -nargs=* NetUserPass call NetUserPass() " ------------------------------------------------------------------------ " NetSavePosn: saves position of cursor on screen {{{1 fun! s:NetSavePosn() " call Dfunc("NetSavePosn()") " Save current line and column let s:netrw_winnr= winnr() let s:netrw_line = line(".") let s:netrw_col = virtcol(".") " Save top-of-screen line norm! H0 let s:netrw_hline= line(".") call s:NetRestorePosn() " call Dret("NetSavePosn : winnr=".s:netrw_winnr." line=".s:netrw_line." col=".s:netrw_col." hline=".s:netrw_hline) endfun " ------------------------------------------------------------------------ " NetRestorePosn: restores the cursor and file position as saved by NetSavePosn() {{{1 fun! NetRestorePosn() " call Dfunc("NetRestorePosn() winnr=".s:netrw_winnr." line=".s:netrw_line." col=".s:netrw_col." hline=".s:netrw_hline) exe "silent! ".s:netrw_winnr."wincmd w" if v:shell_error == 0 " as suggested by Bram M: redraw on no error " allows protocol error messages to remain visible redraw! endif " restore top-of-screen line exe "norm! ".s:netrw_hline."G0z\" " restore position exe "norm! ".s:netrw_line."G0".s:netrw_col."\" " call Dret("NetRestorePosn") endfun " ------------------------------------------------------------------------ " NetRead: responsible for reading a file over the net {{{1 fun! s:NetRead(...) " call Dfunc("NetRead(a:1<".a:1.">)") " save options call s:NetOptionSave() " Special Exception: if a file is named "0r", then " "0r" will be used to read the " following files instead of "r" if a:0 == 0 let readcmd= "r" let ichoice= 0 elseif a:1 == "0r" let readcmd = "0r" let ichoice = 2 else let readcmd = "r" let ichoice = 1 endif " get name of a temporary file and set up shell-quoting character let tmpfile= tempname() " call Decho("ichoice=".ichoice." readcmd<".readcmd.">") while ichoice <= a:0 " attempt to repeat with previous host-file-etc if exists("b:netrw_lastfile") && a:0 == 0 " call Decho("using b:netrw_lastfile<" . b:netrw_lastfile . ">") let choice = b:netrw_lastfile let ichoice= ichoice + 1 else exe "let choice= a:" . ichoice " call Decho("no lastfile: choice<" . choice . ">") if match(choice,"?") == 0 " give help echomsg 'NetRead Usage:' echomsg ':Nread machine:path uses rcp' echomsg ':Nread "machine path" uses ftp with <.netrc>' echomsg ':Nread "machine id password path" uses ftp' echomsg ':Nread dav://machine[:port]/path uses cadaver' echomsg ':Nread fetch://machine/path uses fetch' echomsg ':Nread ftp://[user@]machine[:port]/path uses ftp autodetects <.netrc>' echomsg ':Nread http://[user@]machine/path uses http wget' echomsg ':Nread rcp://[user@]machine/path uses rcp' echomsg ':Nread rsync://machine[:port]/path uses rsync' echomsg ':Nread scp://[user@]machine[[:#]port]/path uses scp' echomsg ':Nread sftp://[user@]machine[[:#]port]/path uses sftp' break elseif match(choice,"^\"") != -1 " Reconstruct Choice if choice starts with '"' " call Decho("reconstructing choice") if match(choice,"\"$") != -1 " case "..." let choice=strpart(choice,1,strlen(choice)-2) else " case "... ... ..." let choice = strpart(choice,1,strlen(choice)-1) let wholechoice = "" while match(choice,"\"$") == -1 let wholechoice = wholechoice . " " . choice let ichoice = ichoice + 1 if ichoice > a:0 if !exists("g:netrw_quiet") echoerr "Unbalanced string in filename '". wholechoice ."'" endif " call Dret("NetRead") return endif let choice= a:{ichoice} endwhile let choice= strpart(wholechoice,1,strlen(wholechoice)-1) . " " . strpart(choice,0,strlen(choice)-1) endif endif endif " call Decho("choice<" . choice . ">") let ichoice= ichoice + 1 " fix up windows urls if has("win32") || has("win95") || has("win64") || has("win16") let choice = substitute(choice,'\\','/','ge') " call Decho("fixing up windows url to <".choice."> tmpfile<".tmpfile) exe 'lcd ' . fnamemodify(tmpfile,':h') let tmpfile = fnamemodify(tmpfile,':t') endif " Determine method of read (ftp, rcp, etc) call s:NetMethod(choice) " Check if NetBrowse() should be handling this request " call Decho("checking if netlist: choice<".choice."> netrw_list_cmd<".g:netrw_list_cmd.">") if choice =~ "^.*/$" keepjumps call s:NetBrowse(choice) " call Dret("NetRead") return endif " ============ " Perform Read " ============ "......................................... " rcp: NetRead Method #1 if b:netrw_method == 1 " read with rcp " call Decho("read via rcp (method #1)") " ER: noting done with g:netrw_uid yet? " ER: on Win2K" rcp machine[.user]:file tmpfile " ER: if machine contains '.' adding .user is required (use $USERNAME) " ER: the tmpfile is full path: rcp sees C:\... as host C if s:netrw_has_nt_rcp == 1 if exists("g:netrw_uid") && ( g:netrw_uid != "" ) let uid_machine = g:netrw_machine .'.'. g:netrw_uid else " Any way needed it machine contains a '.' let uid_machine = g:netrw_machine .'.'. $USERNAME endif else if exists("g:netrw_uid") && ( g:netrw_uid != "" ) let uid_machine = g:netrw_uid .'@'. g:netrw_machine else let uid_machine = g:netrw_machine endif endif " call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile) exe g:netrw_silentxfer."!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) let b:netrw_lastfile = choice "......................................... " ftp + <.netrc>: NetRead Method #2 elseif b:netrw_method == 2 " read with ftp + <.netrc> " call Decho("read via ftp+.netrc (method #2)") let netrw_fname= b:netrw_fname new setlocal ff=unix exe "put ='".g:netrw_ftpmode."'" exe "put ='"."get ".netrw_fname." ".tmpfile."'" if exists("g:netrw_port") && g:netrw_port != "" " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port else " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine endif " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) if getline(1) !~ "^$" && !exists("g:netrw_quiet") let debugkeep= &debug set debug=msg echoerr getline(1) let &debug= debugkeep endif bd! let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) let b:netrw_lastfile = choice "......................................... " ftp + machine,id,passwd,filename: NetRead Method #3 elseif b:netrw_method == 3 " read with ftp + machine, id, passwd, and fname " Construct execution string (four lines) which will be passed through filter " call Decho("read via ftp+mipf (method #3)") let netrw_fname= b:netrw_fname new setlocal ff=unix if exists("g:netrw_port") && g:netrw_port != "" put ='open '.g:netrw_machine.' '.g:netrw_port else put ='open '.g:netrw_machine endif if exists("g:netrw_ftp") && g:netrw_ftp == 1 put =g:netrw_uid put =g:netrw_passwd else put ='user '.g:netrw_uid.' '.g:netrw_passwd endif if exists("g:netrw_ftpmode") && g:netrw_ftpmode != "" put =g:netrw_ftpmode endif put ='get '.netrw_fname.' '.tmpfile " perform ftp: " -i : turns off interactive prompting from ftp " -n unix : DON'T use <.netrc>, even though it exists " -n win32: quit being obnoxious about password " call Decho('performing ftp -i -n') norm! 1Gdd " call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n" " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) if getline(1) !~ "^$" " call Decho("error<".getline(1).">") if !exists("g:netrw_quiet") echoerr getline(1) endif endif bd! let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) let b:netrw_lastfile = choice "......................................... " scp: NetRead Method #4 elseif b:netrw_method == 4 " read with scp " call Decho("read via scp (method #4)") if exists("g:netrw_port") && g:netrw_port != "" let useport= " -P ".g:netrw_port else let useport= "" endif if g:netrw_cygwin == 1 let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') " call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile) exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile else " call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile) exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile endif let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) let b:netrw_lastfile = choice "......................................... elseif b:netrw_method == 5 " read with http (wget) " call Decho("read via http (method #5)") if g:netrw_http_cmd == "" if !exists("g:netrw_quiet") echoerr "neither wget nor fetch command is available" endif exit endif if match(b:netrw_fname,"#") == -1 " simple wget " call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.escape(b:netrw_fname,' ?&')) exe g:netrw_silentxfer."!".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.escape(b:netrw_fname,' ?&') let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) else " wget plus a jump to an in-page marker (ie. http://abc/def.html#aMarker) let netrw_html= substitute(b:netrw_fname,"#.*$","","") let netrw_tag = substitute(b:netrw_fname,"^.*#","","") " call Decho("netrw_html<".netrw_html.">") " call Decho("netrw_tag <".netrw_tag.">") " call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html) exe g:netrw_silentxfer."!".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) " call Decho('<\s*a\s*name=\s*"'.netrw_tag.'"/') exe 'norm! 1G/<\s*a\s*name=\s*"'.netrw_tag.'"/'."\" endif let b:netrw_lastfile = choice "......................................... " cadaver: NetRead Method #6 elseif b:netrw_method == 6 " read with cadaver " call Decho("read via cadaver (method #6)") " Construct execution string (four lines) which will be passed through filter let netrw_fname= b:netrw_fname new setlocal ff=unix if exists("g:netrw_port") && g:netrw_port != "" put ='open '.g:netrw_machine.' '.g:netrw_port else put ='open '.g:netrw_machine endif put ='user '.g:netrw_uid.' '.g:netrw_passwd if g:netrw_cygwin == 1 let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') put ='get '.netrw_fname.' '.cygtmpfile else put ='get '.netrw_fname.' '.tmpfile endif " perform cadaver operation: norm! 1Gdd " call Decho("executing: %!".g:netrw_dav_cmd) exe g:netrw_silentxfer."%!".g:netrw_dav_cmd bd! let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) let b:netrw_lastfile = choice "......................................... " rsync: NetRead Method #7 elseif b:netrw_method == 7 " read with rsync " call Decho("read via rsync (method #7)") if g:netrw_cygwin == 1 let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') " call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile) exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile else " call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile) exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile endif let result = s:NetGetFile(readcmd,tmpfile, b:netrw_method) let b:netrw_lastfile = choice "......................................... " fetch: NetRead Method #8 " fetch://[user@]host[:http]/path elseif b:netrw_method == 8 " read with fetch if g:netrw_fetch_cmd == "" if !exists("g:netrw_quiet") echoerr "fetch command not available" endif exit endif if exists("g:netrw_option") && g:netrw_option == ":http" let netrw_option= "http" else let netrw_option= "ftp" endif " call Decho("read via fetch for ".netrw_option) if exists("g:netrw_uid") && g:netrw_uid != "" && exists("g:netrw_passwd") && g:netrw_passwd != "" " call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".escape(b:netrw_fname,' ?&')) exe g:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".escape(b:netrw_fname,' ?&') else " call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".escape(b:netrw_fname,' ?&')) exe g:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".escape(b:netrw_fname,' ?&') endif let result = s:NetGetFile(readcmd,tmpfile, b:netrw_method) let b:netrw_lastfile = choice "......................................... " sftp: NetRead Method #9 elseif b:netrw_method == 9 " read with sftp " call Decho("read via sftp (method #4)") if g:netrw_cygwin == 1 let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') " call Decho("!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile) " call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile) exe "!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile else " call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile) exe g:netrw_silentxfer."!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile endif let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) let b:netrw_lastfile = choice "......................................... else " Complain echo "***warning*** unable to comply with your request<" . choice . ">" endif endwhile " cleanup " call Decho("cleanup") if exists("b:netrw_method") unlet b:netrw_method unlet b:netrw_fname endif call s:NetOptionRestore() " call Dret("NetRead") endfun " ------------------------------------------------------------------------ " NetGetFile: Function to read file "fname" with command "readcmd". {{{1 fun! s:NetGetFile(readcmd, fname, method) " call Dfunc("NetGetFile(readcmd<".a:readcmd.">,fname<".a:fname."> method<".a:method.">)") if exists("*NetReadFixup") " for the use of NetReadFixup (not otherwise used internally) let line2= line("$") endif " transform paths from / to \ for Windows, unless the shell is bash if &term == "win32" if &shell == "bash" let fname=a:fname " call Decho("(win32 && bash) fname<".fname.">") else let fname=substitute(a:fname,'/','\\\\','ge') " call Decho("(win32 && !bash) fname<".fname.">") endif else let fname= a:fname " call Decho("(copied) fname<".fname.">") endif " get the file, but disable undo when reading a new buffer if a:readcmd[0] == '0' let use_e_cmd = 0 " 1 when using ':edit' let delline = 0 " 1 when have to delete empty last line if line("$") == 1 && getline(1) == "" " Now being asked to 0r a file into an empty file. " Safe to :e it instead, unless there is another window on the same buffer. let curbufnr = bufnr("%") let use_e_cmd = 1 let delline = 1 " Loop over all windows, " reset use_e_cmd when another one is editing the current buffer. let i = 1 while 1 if i != winnr() && winbufnr(i) == curbufnr let use_e_cmd = 0 break endif let i = i + 1 if winbufnr(i) < 0 break endif endwhile endif if use_e_cmd > 0 " ':edit' the temp file, wipe out the old buffer and rename the buffer let curfilename = expand("%") let binlocal = &l:bin let binglobal = &g:bin if binlocal setglobal bin " Need to set 'bin' globally for ":e" command. endif silent exe "e! ".v:cmdarg." ".fname if binlocal && !binglobal setglobal nobin setlocal bin endif exe curbufnr . "bwipe!" exe "f ".escape(curfilename," ") " the ":f newname" apparently leaves the temporary file as the alternate " file in the buffer list (see :ls!). The following command wipes it out. exe bufnr("#")."bwipe!" else let oldul= &ul setlocal ul=-1 exe a:readcmd." ".v:cmdarg." ".escape(fname," ") if delline > 0 " wipe out last line, which should be a blank line anyway $del endif let &ul= oldul endif elseif filereadable(fname) " call Decho("exe<".a:readcmd." ".v:cmdarg." ".fname.">") exe a:readcmd." ".v:cmdarg." ".fname else " call Dret("NetGetFile") return endif " User-provided (ie. optional) fix-it-up command if exists("*NetReadFixup") let line1= line(".") if a:readcmd == "r" let line2= line("$") - line2 + line1 else let line2= line("$") - line2 endif " call Decho("calling NetReadFixup(method<".a:method."> line1=".line1." line2=".line2.")") call NetReadFixup(a:method, line1, line2) endif " update the Buffers menu if has("gui") && has("gui_running") silent! emenu Buffers.Refresh\ menu endif " call Decho("readcmd<".a:readcmd."> cmdarg<".v:cmdarg."> fname<".a:fname."> readable=".filereadable(a:fname)) " insure that we have the right filetype and that its being displayed filetype detect redraw! " call Dret("NetGetFile") endfun " ------------------------------------------------------------------------ " NetWrite: responsible for writing a file over the net {{{1 fun! s:NetWrite(...) range " call Dfunc("NetWrite(a:0=".a:0.")") " option handling let mod= 0 call s:NetOptionSave() " Get Temporary Filename let tmpfile= tempname() if a:0 == 0 let ichoice = 0 else let ichoice = 1 endif " write (selected portion of) file to temporary silent exe a:firstline."," . a:lastline . "w! ".v:cmdarg." ".tmpfile while ichoice <= a:0 " attempt to repeat with previous host-file-etc if exists("b:netrw_lastfile") && a:0 == 0 " call Decho("using b:netrw_lastfile<" . b:netrw_lastfile . ">") let choice = b:netrw_lastfile let ichoice= ichoice + 1 else exe "let choice= a:" . ichoice " Reconstruct Choice if choice starts with '"' if match(choice,"?") == 0 echomsg 'NetWrite Usage:"' echomsg ':Nwrite machine:path uses rcp' echomsg ':Nwrite "machine path" uses ftp with <.netrc>' echomsg ':Nwrite "machine id password path" uses ftp' echomsg ':Nwrite dav://[user@]machine/path uses cadaver' echomsg ':Nwrite fetch://[user@]machine/path uses fetch' echomsg ':Nwrite ftp://machine[#port]/path uses ftp (autodetects <.netrc>)' echomsg ':Nwrite rcp://machine/path uses rcp' echomsg ':Nwrite rsync://[user@]machine/path uses rsync' echomsg ':Nwrite scp://[user@]machine[[:#]port]/path uses scp' echomsg ':Nwrite sftp://[user@]machine/path uses sftp' break elseif match(choice,"^\"") != -1 if match(choice,"\"$") != -1 " case "..." let choice=strpart(choice,1,strlen(choice)-2) else " case "... ... ..." let choice = strpart(choice,1,strlen(choice)-1) let wholechoice = "" while match(choice,"\"$") == -1 let wholechoice= wholechoice . " " . choice let ichoice = ichoice + 1 if choice > a:0 if !exists("g:netrw_quiet") echoerr "Unbalanced string in filename '". wholechoice ."'" endif " call Dret("NetWrite") return endif let choice= a:{ichoice} endwhile let choice= strpart(wholechoice,1,strlen(wholechoice)-1) . " " . strpart(choice,0,strlen(choice)-1) endif endif endif " call Decho("choice<" . choice . ">") let ichoice= ichoice + 1 " fix up windows urls if has("win32") || has("win95") || has("win64") || has("win16") let choice= substitute(choice,'\\','/','ge') "ER: see NetRead() exe 'lcd ' . fnamemodify(tmpfile,':h') let tmpfile = fnamemodify(tmpfile,':t') endif " Determine method of read (ftp, rcp, etc) call s:NetMethod(choice) " ============= " Perform Write " ============= "......................................... " rcp: NetWrite Method #1 if b:netrw_method == 1 " write with rcp " Decho "write via rcp (method #1)" if s:netrw_has_nt_rcp == 1 if exists("g:netrw_uid") && ( g:netrw_uid != "" ) let uid_machine = g:netrw_machine .'.'. g:netrw_uid else let uid_machine = g:netrw_machine .'.'. $USERNAME endif else if exists("g:netrw_uid") && ( g:netrw_uid != "" ) let uid_machine = g:netrw_uid .'@'. g:netrw_machine else let uid_machine = g:netrw_machine endif endif " call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".tmpfile." ".uid_machine.":".escape(b:netrw_fname,' ?&')) exe g:netrw_silentxfer."!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".tmpfile." ".uid_machine.":".escape(b:netrw_fname,' ?&') let b:netrw_lastfile = choice "......................................... " ftp + <.netrc>: NetWrite Method #2 elseif b:netrw_method == 2 " write with ftp + <.netrc> let netrw_fname = b:netrw_fname new setlocal ff=unix exe "put ='".g:netrw_ftpmode."'" " call Decho(" NetWrite: put ='".g:netrw_ftpmode."'") exe "put ='"."put ".tmpfile." ".netrw_fname."'" " call Decho("put ='"."put ".tmpfile." ".netrw_fname."'") if exists("g:netrw_port") && g:netrw_port != "" " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port else " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine endif " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) if getline(1) !~ "^$" if !exists("g:netrw_quiet") echoerr getline(1) endif let mod=1 endif bd! let b:netrw_lastfile = choice "......................................... " ftp + machine, id, passwd, filename: NetWrite Method #3 elseif b:netrw_method == 3 " write with ftp + machine, id, passwd, and fname let netrw_fname= b:netrw_fname new setlocal ff=unix if exists("g:netrw_port") && g:netrw_port != "" put ='open '.g:netrw_machine.' '.g:netrw_port else put ='open '.g:netrw_machine endif if exists("g:netrw_ftp") && g:netrw_ftp == 1 put =g:netrw_uid put =g:netrw_passwd else put ='user '.g:netrw_uid.' '.g:netrw_passwd endif put ='put '.tmpfile.' '.netrw_fname " save choice/id/password for future use let b:netrw_lastfile = choice " perform ftp: " -i : turns off interactive prompting from ftp " -n unix : DON'T use <.netrc>, even though it exists " -n win32: quit being obnoxious about password " call Decho('performing ftp -i -n') norm! 1Gdd " call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n" " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) if getline(1) !~ "^$" if !exists("g:netrw_quiet") echoerr getline(1) endif let mod=1 endif bd! "......................................... " scp: NetWrite Method #4 elseif b:netrw_method == 4 " write with scp if exists("g:netrw_port") && g:netrw_port != "" let useport= " -P ".g:netrw_port else let useport= "" endif if g:netrw_cygwin == 1 let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') " call Decho("executing: !".g:netrw_scp_cmd.useport." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')) exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&') else " call Decho("executing: !".g:netrw_scp_cmd.useport." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')) exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&') endif let b:netrw_lastfile = choice "......................................... " http: NetWrite Method #5 elseif b:netrw_method == 5 if !exists("g:netrw_quiet") echoerr "***warning*** currently does not support writing using http:" endif "......................................... " dav: NetWrite Method #6 elseif b:netrw_method == 6 " write with cadaver " call Decho("write via cadaver (method #6)") " Construct execution string (four lines) which will be passed through filter let netrw_fname= b:netrw_fname new setlocal ff=unix if exists("g:netrw_port") && g:netrw_port != "" put ='open '.g:netrw_machine.' '.g:netrw_port else put ='open '.g:netrw_machine endif put ='user '.g:netrw_uid.' '.g:netrw_passwd if g:netrw_cygwin == 1 let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') put ='put '.cygtmpfile.' '.netrw_fname else put ='put '.tmpfile.' '.netrw_fname endif " perform cadaver operation: norm! 1Gdd " call Decho("executing: %!".g:netrw_dav_cmd) exe g:netrw_silentxfer."%!".g:netrw_dav_cmd bd! let b:netrw_lastfile = choice "......................................... " rsync: NetWrite Method #7 elseif b:netrw_method == 7 " write with rsync if g:netrw_cygwin == 1 let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') " call Decho("executing: !".g:netrw_rsync_cmd." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')) exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&') else " call Decho("executing: !".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')) exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&') endif let b:netrw_lastfile = choice "......................................... " scp: NetWrite Method #9 elseif b:netrw_method == 9 " write with sftp let netrw_fname= b:netrw_fname if exists("g:netrw_uid") && ( g:netrw_uid != "" ) let uid_machine = g:netrw_uid .'@'. g:netrw_machine else let uid_machine = g:netrw_machine endif new setlocal ff=unix put ='put '.tmpfile.' '.netrw_fname norm! 1Gdd " call Decho("executing: %!".g:netrw_sftp_cmd.' '.uid_machine) exe g:netrw_silentxfer."%!".g:netrw_sftp_cmd.' '.uid_machine bd! let b:netrw_lastfile= choice "......................................... else " Complain echo "***warning*** unable to comply with your request<" . choice . ">" endif endwhile " cleanup " call Decho("cleanup") let result=delete(tmpfile) call s:NetOptionRestore() if a:firstline == 1 && a:lastline == line("$") let &mod= mod " usually equivalent to set nomod endif " call Dret("NetWrite") endfun " ------------------------------------------------------------------------ " Browsing Support For Remote Directories And Files: {{{1 " NetBrowse: This function uses the command in g:netrw_list_cmd to get a list {{{2 " of the contents of a remote directory. It is assumed that the " g:netrw_list_cmd has a string, HOSTNAME, that needs to be substituted " with the requested remote hostname first. fun! NetBrowse(dirname) " call Dfunc("NetBrowse(dirname<".a:dirname.">) longlist=".g:netrw_longlist) " sanity check if exists("b:netrw_method") && b:netrw_method =~ '[235]' " call Decho("b:netrw_method=".b:netrw_method) if !executable("ftp") if !exists("g:netrw_quiet") echoerr "***netrw*** this system doesn't support remote directory listing via ftp" endif " call Dret("NetBrowse") return endif elseif !exists("g:netrw_list_cmd") || g:netrw_list_cmd == '' if !exists("g:netrw_quiet") echoerr "***netrw*** this system doesn't support remote directory listing via ssh" endif " call Dret("NetBrowse") return endif " make this buffer modifiable setlocal ma " analyze a:dirname and g:netrw_list_cmd let dirpat = '^\(\w\{-}\)://\(\w\+@\)\=\([^/]\+\)/\(.*\)$' " call Decho("dirpat<".dirpat.">") if a:dirname !~ dirpat if !exists("g:netrw_quiet") echoerr "NetBrowse: I don't understand your dirname<".a:dirname.">" endif " call Dret("NetBrowse : badly formatted dirname<".a:dirname.">") return endif let method = substitute(a:dirname,dirpat,'\1','') let user = substitute(a:dirname,dirpat,'\2','') let machine = substitute(a:dirname,dirpat,'\3','') let path = substitute(a:dirname,dirpat,'\4','') let fname = substitute(a:dirname,'^.*/\ze.','','') " call Decho("set up method <".method .">") " call Decho("set up user <".user .">") " call Decho("set up machine<".machine.">") " call Decho("set up path <".path .">") " call Decho("set up fname <".fname .">") if method == "ftp" || method == "http" let method = "ftp" let listcmd = g:netrw_ftp_list_cmd else let listcmd = substitute(g:netrw_list_cmd,'\',user.machine,'') endif if exists("b:netrw_method") " call Decho("setting s:netrw_method<".b:netrw_method.">") let s:netrw_method= b:netrw_method endif " optionally sort by time (-t) or by size (-S) if listcmd == "dir" && g:netrw_sort_by =~ "^[ts]" echoerr "***warning*** windows' ftp doesn't support time/size sorts (get cygwin, set g:netrw_cygwin)" else if g:netrw_sort_by =~ "^t" let listcmd= listcmd."t" elseif g:netrw_sort_by =~ "^s" let listcmd= listcmd."S" endif " optionally sort in reverse if g:netrw_sort_direction =~ "^r" && listcmd == "dir" let listcmd= listcmd."r" endif endif " call Decho("set up listcmd<".listcmd.">") if fname =~ '@$' && fname !~ '^"' " call Decho("attempt transfer of symlink as file") call s:NetBrowse(substitute(a:dirname,'@$','','e')) redraw! " call Dret("NetBrowse : symlink") return elseif fname !~ '/$' && fname !~ '^"' " looks like a regular file, attempt transfer " call Decho("attempt transfer as regular file<".a:dirname.">") " remove any filetype indicator from end of dirname, except for the " "this is a directory" indicator (/). There shouldn't be one of those, " anyway. let path= substitute(path,'[*=@|]$','','e') " call Decho("new path<".path.">") " remote-read the requested file into current buffer enew! " call Decho("exe file .method."://".user.machine."/".escape(path,s:netrw_cd_escape)) exe "file ".method."://".user.machine."/".escape(path,s:netrw_cd_escape) exe "silent doau BufReadPre ".fname silent call s:NetRead(method."://".user.machine."/".path) exe "silent doau BufReadPost ".fname keepjumps 1d setlocal nomod " call Dret("NetBrowse : file<".fname.">") return endif " --------------------------------------------------------------------- " Perform Directory Listing: " call Decho("Perform directory listing...") " set up new buffer and map let bufname = method.'://'.user.machine.'/'.path let bufnamenr = bufnr(bufname.'$') " call Decho("bufname<".bufname."> bufnamenr=".bufnamenr) if bufnamenr != -1 " buffer already exists, switch to it! " call Decho("buffer already exists, switching to it") exe "b ".bufnamenr if line("$") >= 5 " call Dret("NetBrowse") return endif else " call Decho("generate a new buffer") enew! endif " rename file to reflect where its from setlocal bt=nofile bh=wipe nobl exe "setlocal ts=".g:netrw_maxfilenamelen " call Decho("exe file ".escape(bufname,s:netrw_cd_escape)) exe 'file '.escape(bufname,s:netrw_cd_escape) " call Decho("renaming file to bufname<".bufname.">") setlocal bh=hide nobl " set up buffer-local mappings " call Decho("set up buffer-local mappings") nnoremap :exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),NetGetWord())) nnoremap :exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),'./')) nnoremap - :exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),'../')) nnoremap a :let g:netrw_hide=(g:netrw_hide+1)%3exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),'./')) nnoremap b :call NetBookmarkDir(0,expand("%")) nnoremap B :call NetBookmarkDir(1,expand("%")) nnoremap :call NetHideEdit(0) nnoremap i :call NetLongList(0) nnoremap o :exe (g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s"exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),NetGetWord())) nnoremap q :call NetBookmarkDir(2,expand("%")) nnoremap r :let g:netrw_sort_direction= (g:netrw_sort_direction =~ 'n')? 'r' : 'n'exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),'./')) nnoremap s :call NetSaveWordPosn()let g:netrw_sort_by= (g:netrw_sort_by =~ 'n')? 'time' : (g:netrw_sort_by =~ 't')? 'size' : 'name'exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),'./'))call NetRestoreWordPosn() nnoremap S :call NetSortSequence(0) nnoremap v :exe (g:netrw_altv? "rightb " : "lefta ").g:netrw_winsize."wincmd v"exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),NetGetWord())) nnoremap x :exe "norm! 0"call NetBrowseX(NetBrowseChgDir(expand("%"),NetGetWord()),1) nnoremap <2-leftmouse> :exe "norm! 0"call NetBrowse(NetBrowseChgDir(expand("%"),NetGetWord())) exe 'nnoremap :exe "norm! 0"call NetBrowseRm("'.user.machine.'","'.path.'")' exe 'vnoremap :call NetBrowseRm("'.user.machine.'","'.path.'")' exe 'nnoremap d :call NetMakeDir("'.user.machine.'")' exe 'nnoremap D :exe "norm! 0"call NetBrowseRm("'.user.machine.'","'.path.'")' exe 'vnoremap D :call NetBrowseRm("'.user.machine.'","'.path.'")' exe 'nnoremap R :exe "norm! 0"call NetBrowseRename("'.user.machine.'","'.path.'")' exe 'vnoremap R :call NetBrowseRename("'.user.machine.'","'.path.'")' nnoremap ? :he netrw-browse-cmds setlocal ma " Set up the banner " call Decho("set up the banner: sortby<".g:netrw_sort_by."> method<".method.">") keepjumps put ='\" ===========================================================================' keepjumps put ='\" Netrw Remote Directory Listing' keepjumps put ='\" '.bufname let s:netrw_bannercnt= 7 let sortby= g:netrw_sort_by if g:netrw_sort_direction =~ "^r" let sortby= sortby." reversed" endif if g:netrw_sort_by =~ "^n" " sorted by name let s:netrw_bannercnt= s:netrw_bannercnt + 1 keepjumps put ='\" Sorted by '.sortby keepjumps put ='\" Sort sequence: '.g:netrw_sort_sequence else " sorted by size or date keepjumps put ='\" Sorted by '.sortby endif if g:netrw_list_hide != "" && g:netrw_hide if g:netrw_hide == 1 keepjumps put ='\" Hiding: '.g:netrw_list_hide else keepjumps put ='\" Showing: '.g:netrw_list_hide endif let s:netrw_bannercnt= s:netrw_bannercnt + 1 endif keepjumps put ='\" Quick Help: ?:help -:go up dir D:delete R:rename s:sort-by x:exec' keepjumps put ='\" ===========================================================================' " remote read the requested directory listing " Use ftp if that was the file-transfer method selected, otherwise use ssh " Note that not all ftp servers honor the options for ls if method == "ftp" " use ftp to get remote file listing " call Decho("use ftp to get remote file listing") call NetBrowseFtpCmd(path,listcmd) keepjumps 1d if !g:netrw_longlist " shorten the listing " call Decho("generate short listing") exe "keepjumps ".s:netrw_bannercnt " cleanup while getline(".") =~ g:netrw_ftp_browse_reject keepjumps d endwhile " if there's no ../ listed, then put ./ and ../ in let line1= line(".") keepjumps 1 silent keepjumps call search('^\.\.\/\%(\s\|$\)','W') let line2= line(".") if line2 == 0 keepjumps put='../' keepjumps put='./' endif exe "keepjumps ".line1 keepjumps norm! 0 " more cleanup exe 'keepjumps silent '.s:netrw_bannercnt.',$s/^\(\%(\S\+\s\+\)\{7}\S\+\)\s\+\(\S.*\)$/\2/e' exe "keepjumps silent ".s:netrw_bannercnt.',$g/ -> /s# -> .*/$#/#' exe "keepjumps silent ".s:netrw_bannercnt.',$g/ -> /s# -> .*$#/#' endif else " use ssh to get remote file listing " call Decho("use ssh to get remote file listing") let shq= &shq? &shq : ( &sxq? &sxq : "'") " call Decho("exe silent r! ".listcmd." ".shq.escape(path,s:netrw_cd_escape).shq) exe "silent r! ".listcmd." ".shq.escape(path,s:netrw_cd_escape).shq keepjumps 1d endif " manipulate the directory listing (hide, sort) setlocal ft=netrwlist if line("$") >= s:netrw_bannercnt if g:netrw_hide && g:netrw_list_hide != "" call s:NetrwListHide() endif if g:netrw_longlist " do a long listing; these substitutions need to be done prior to sorting " call Decho("manipulate long listing") if method == "ftp" " cleanup exe "keepjumps ".s:netrw_bannercnt while getline(".") =~ '^total\s\+\d\+$' || getline(".") =~ 'Trying\s\+\d\+.*$' keepjumps d endwhile " if there's no ../ listed, then put ./ and ../ in let line1= line(".") keepjumps 1 silent keepjumps call search('^\.\.\/\%(\s\|$\)','W') let line2= line(".") if line2 == 0 exe 'keepjumps '.s:netrw_bannercnt."put='./'" exe 'keepjumps '.s:netrw_bannercnt."put='../'" endif exe "keepjumps ".line1 keepjumps norm! 0 endif exe 'keepjumps silent '.s:netrw_bannercnt.',$s/ -> .*$//e' exe 'keepjumps silent '.s:netrw_bannercnt.',$s/^\(\%(\S\+\s\+\)\{7}\S\+\)\s\+\(\S.*\)$/\2\t\1/e' exe s:netrw_bannercnt endif if g:netrw_sort_by =~ "^n" call s:SetSort() exe 'keepjumps silent '.s:netrw_bannercnt.',$call s:NetSort()' exe 'keepjumps silent '.s:netrw_bannercnt.',$s/^\d\{3}\///e' endif if g:netrw_longlist " shorten the list to keep its width <= 80 characters exe "keepjumps silent ".s:netrw_bannercnt.',$s/\t[-dstrwx]\+/\t/e' endif endif exe "keepjumps ".s:netrw_bannercnt setlocal nomod setlocal noma " call Dret("NetBrowse") return endfun " --------------------------------------------------------------------- " NetBrowseChgDir: {{{2 fun! NetBrowseChgDir(dirname,newdir) " call Dfunc("NetBrowseChgDir(dirname<".a:dirname."> newdir<".a:newdir.">)") let dirname= a:dirname let newdir = a:newdir if newdir !~ '/$' " handling a file let dirname= dirname.newdir " call Decho("handling a file: dirname<".dirname.">") elseif newdir == './' " refresh the directory list " call Decho("refresh directory listing") setlocal ma %d elseif newdir == '../' " go up one directory let trailer= substitute(a:dirname,'^\(\w\+://\%(\w\+@\)\=\w\+/\)\(.*\)$','\2','') if trailer =~ '^\%(\.\./\)*$' " tack on a ../" let dirname= dirname.'../' else " strip off a directory name from dirname let dirname= substitute(dirname,'^\(.*/\)[^/]\+/','\1','') endif " call Decho("go up one dir: dirname<".dirname."> trailer<".trailer.">") else " go down one directory let dirname= dirname.newdir " call Decho("go down one dir: dirname<".dirname."> newdir<".newdir.">") endif " call Dret("NetBrowseChgDir <".dirname.">") return dirname endfun " --------------------------------------------------------------------- " NetGetWord: it gets the directory named under the cursor fun! NetGetWord() " call Dfunc("NetGetWord() line#".line(".")) if line(".") < s:netrw_bannercnt let dirname= "./" else let dirname= getline(".") if dirname =~ '\t' let dirname= substitute(dirname,'\t.*$','','e') endif endif " call Dret("NetGetWord <".dirname.">") return dirname endfun " --------------------------------------------------------------------- " NetBrowseRm: remove/delete a remote file or directory {{{2 fun! NetBrowseRm(usrhost,path) range " call Dfunc("NetBrowseRm(usrhost<".a:usrhost."> path<".a:path.">)") " call Decho("firstline=".a:firstline." lastline=".a:lastline) " preparation for removing multiple files/directories let ctr= a:firstline let all= 0 " remove multiple files and directories while ctr <= a:lastline exe ctr norm! 0 let rmfile= s:NetGetWord() " call Decho("rmfile<".rmfile.">") if rmfile !~ '^"' && (rmfile =~ '@$' || rmfile !~ '/$') " attempt to remove file if !all echohl Statement call inputsave() let ok= input("Confirm deletion of file<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") call inputrestore() echohl NONE let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') if ok =~ 'a\%[ll]' let all= 1 endif endif if all || ok =~ 'y\%[es]' || ok == "" if exists("s:netrw_method") && (s:netrw_method == 2 || s:netrw_method == 3) silent! keepjumps .,$d call NetBrowseFtpCmd(a:path,"delete ".rmfile) else let netrw_rm_cmd= substitute(g:netrw_rm_cmd,'HOSTNAME',a:usrhost,'').' "'.escape(a:path.rmfile,s:netrw_cd_escape).'"' " call Decho("attempt to remove file: system(".netrw_rm_cmd.")") let ret= system(netrw_rm_cmd) " call Decho("returned=".ret." errcode=".v:shell_error) endif elseif ok =~ 'q\%[uit]' break endif else " attempt to remove directory if !all call inputsave() let ok= input("Confirm deletion of directory<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") call inputrestore() let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') if ok =~ 'a\%[ll]' let all= 1 endif endif if all || ok =~ 'y\%[es]' || ok == "" if exists("s:netrw_method") && (s:netrw_method == 2 || s:netrw_method == 3) call NetBrowseFtpCmd(a:path,"rmdir ".rmfile) else let rmfile = a:path.rmfile let netrw_rmdir_cmd= substitute(g:netrw_rmdir_cmd,'HOSTNAME',a:usrhost,'').' '."'".'"'.rmfile.'"'."'" " call Decho("attempt to remove dir: system(".netrw_rmdir_cmd.")") let ret= system(netrw_rmdir_cmd) " call Decho("returned=".ret." errcode=".v:shell_error) if v:shell_error != 0 let netrw_rmf_cmd= substitute(g:netrw_rmf_cmd,'HOSTNAME',a:usrhost,'').' '.substitute(rmfile,'/$','','e') " call Decho("2nd attempt to remove dir: system(".netrw_rmf_cmd.")") let ret= system(netrw_rmf_cmd) " call Decho("returned=".ret." errcode=".v:shell_error) if v:shell_error != 0 && !exists("g:netrw_quiet") echoerr "unable to remove directory<".rmfile."> -- is it empty?" endif endif endif elseif ok =~ 'q\%[uit]' break endif endif let ctr= ctr + 1 endwhile " refresh the directory let curline= line(".")-1 " call Decho("refresh the directory") call NetBrowse(NetBrowseChgDir(expand("%"),'./')) exe curline " call Dret("NetBrowseRm") endfun " --------------------------------------------------------------------- " NetBrowseRename: rename a remote file or directory {{{2 fun! NetBrowseRename(usrhost,path) range " call Dfunc("NetBrowseRename(usrhost<".a:usrhost."> path<".a:path.">)") " preparation for removing multiple files/directories let ctr = a:firstline let rename_cmd = substitute(g:netrw_rename_cmd,'\',a:usrhost,'') " attempt to rename files/directories while ctr <= a:lastline exe "keepjumps ".ctr norm! 0 let oldname= s:NetGetWord() " call Decho("oldname<".oldname.">") call inputsave() let newname= input("Moving ".oldname." to : ",oldname) call inputrestore() if exists("s:netrw_method") && (s:netrw_method == 2 || s:netrw_method == 3) call NetBrowseFtpCmd(a:path,"rename ".oldname." ".newname) else let oldname= a:path.oldname let newname= a:path.newname " call Decho("system(rename_cmd".' "'.escape(oldname," ").'" "'.escape(newname,s:netrw_cd_escape).'"') let ret= system(rename_cmd.' "'.escape(oldname,s:netrw_cd_escape).'" "'.escape(newname,s:netrw_cd_escape).'"') endif let ctr= ctr + 1 endwhile " refresh the directory let curline= line(".") call NetBrowse(NetBrowseChgDir(expand("%"),'./')) exe "keepjumps ".curline " call Dret("NetBrowseRename") endfun " --------------------------------------------------------------------- " NetBrowseX: allows users to write custom functions to operate on {{{2 " files given their extension. Passes 0=local, 1=remote fun! NetBrowseX(fname,remote) " call Dfunc("NetBrowseX(".a:fname." remote=".a:remote.")") " set up the filename " (lower case the extension, make a local copy of a remote file) let exten= substitute(a:fname,'.*\.\(.\{-}\)','\1','e') if has("win32") || has("win95") || has("win64") || has("win16") let exten= substitute(exten,'^.*$','\L&\E','') endif let fname= escape(a:fname,"%#") " call Decho("fname<".fname."> after escape()") if a:remote == 1 " create a local copy let fname= tempname().".".exten " call Decho("create a local copy of <".a:fname."> as <".fname.">") exe "keepjumps silent bot 1new ".a:fname let eikeep= &ei set ei=all bh=delete exe "w! ".fname let &ei= eikeep q endif " call Decho("exten<".exten."> "."NetrwFileHandler_".exten."():exists=".exists("*NetrwFileHandler_".exten)) " set up redirection if &srr =~ "%s" let redir= substitute(&srr,"%s","/dev/null"."") else let redir= &srr . "/dev/null" endif " call Decho("redir:".redir.":") " execute the file handler if has("win32") || has("win64") " call Decho('exe silent !start rundll32 url.dll,FileProtocolHandler "'.escape(fname, '%#').'"') exe 'silent !start rundll32 url.dll,FileProtocolHandler "'.escape(fname, '%#').'"' let ret= v:shell_error elseif has("unix") && executable("kfmclient") " call Decho("exe silent !kfmclient exec '".escape(fname,'%#')."' ".redir) exe "silent !kfmclient exec '".escape(fname,'%#')."' ".redir let ret= v:shell_error elseif has("unix") && executable("gnome-open") " call Decho("exe silent !gnome-open '".escape(fname,'%#')."' ".redir) exe "silent !gnome-open '".escape(fname,'%#')."'".redir let ret= v:shell_error elseif exten != "" && exists("*NetrwFileHandler_".exten) " call Decho("let ret= NetrwFileHandler_".exten.'("'.fname.'")') exe "let ret= NetrwFileHandler_".exten.'("'.fname.'")' endif redraw! " cleanup: remove temporary file, " delete current buffer if success with handler, " return to prior buffer (directory listing) if a:remote == 1 && fname != a:fname " call Decho("deleting temporary file<".fname.">") call delete(fname) endif if a:remote == 1 let eikeep= &ei set ei=all bh=delete bt=nofile exe "norm! \" let &ei= eikeep redraw! endif " call Dret("NetBrowseX") endfun " --------------------------------------------------------------------- " NetBrowseFtpCmd: unfortunately, not all ftp servers honor options for ls {{{2 " This function assumes that a long listing will be received. Size, time, " and reverse sorts will be requested of the server but not otherwise " enforced here. fun! NetBrowseFtpCmd(path,cmd) " call Dfunc("NetBrowseFtpCmd(path<".a:path."> cmd<".a:cmd.">) netrw_method=".s:netrw_method) " because WinXX ftp uses unix style input " curline is one more than the bannercnt in order to account " for the unwanted first blank line (doing a :put to an empty " buffer yields a blank first line) let ffkeep= &ff setlocal ma setlocal ff=unix let curline= s:netrw_bannercnt+1 exe "silent! keepjumps ".curline.",$d" "......................................... if s:netrw_method == 2 || s:netrw_method == 5 " ftp + <.netrc>: Method #2 if a:path != "" put ='cd '.a:path endif exe "put ='".a:cmd."'" " redraw!|call inputsave()|call input("Pausing...")|call inputrestore() if exists("g:netrw_port") && g:netrw_port != "" " call Decho("exe ".g:netrw_silentxfer.curline.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) exe g:netrw_silentxfer.curline.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port else " call Decho("exe ".g:netrw_silentxfer.curline.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine) exe g:netrw_silentxfer.curline.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine endif "......................................... elseif s:netrw_method == 3 " ftp + machine,id,passwd,filename: Method #3 setlocal ff=unix if exists("g:netrw_port") && g:netrw_port != "" put ='open '.g:netrw_machine.' '.g:netrw_port else put ='open '.g:netrw_machine endif if exists("g:netrw_ftp") && g:netrw_ftp == 1 put =g:netrw_uid put =g:netrw_passwd else put ='user '.g:netrw_uid.' '.g:netrw_passwd endif if a:path != "" put ='cd '.a:path endif exe "put ='".a:cmd."'" " perform ftp: " -i : turns off interactive prompting from ftp " -n unix : DON'T use <.netrc>, even though it exists " -n win32: quit being obnoxious about password " call Decho("exe ".g:netrw_silentxfer.curline.",$!".g:netrw_ftp_cmd." -i -n") exe g:netrw_silentxfer.curline.",$!".g:netrw_ftp_cmd." -i -n" "......................................... else echo "***warning*** unable to comply with your request<" . choice . ">" endif " cleanup for Windows if has("win32") || has("win95") || has("win64") || has("win16") keepjumps silent! %s/\r$// endif if a:cmd == "dir" " infer directory/link based on the file permission string keepjumps silent g/d\%([-r][-w][-x]\)\{3}/s@$@/@ keepjumps silent g/l\%([-r][-w][-x]\)\{3}/s/$/@/ if !g:netrw_longlist exe "keepjumps silent ".curline.',$s/^\%(\S\+\s\+\)\{8}//' endif endif " restore settings let &ff= ffkeep " call Dret("NetBrowseFtpCmd") endfun " --------------------------------------------------------------------- " NetrwListHide: uses [range]g~...~d to delete files that match comma {{{2 " separated patterns given in g:netrw_list_hide fun! NetrwListHide() " call Dfunc("NetrwListHide() listhide<".g:netrw_list_hide.">") let listhide= g:netrw_list_hide while listhide != "" if listhide =~ ',' let hide = substitute(listhide,',.*$','','e') let listhide = substitute(listhide,'^.\{-},\(.*\)$','\1','e') else let hide = listhide let listhide= "" endif " Prune the list by hiding any files which match " call Decho("pruning <".hide."> listhide<".listhide.">") if g:netrw_hide == 1 exe 'keepjumps silent '.s:netrw_bannercnt.',$g~'.hide.'~d' elseif g:netrw_hide == 2 exe 'keepjumps silent '.s:netrw_bannercnt.',$v~'.hide.'~d' endif endwhile " call Dret("NetrwListHide") endfun " --------------------------------------------------------------------- " NetHideEdit: allows user to edit the file/directory hiding list fun! NetHideEdit(mode) " call Dfunc("NetHideEdit(mode=".a:mode.")") call inputsave() let newhide= input("Edit Hiding List: ",g:netrw_list_hide) call inputrestore() " refresh the listing let g:netrw_list_hide= newhide if a:mode == 0 silent call s:NetBrowse(s:NetBrowseChgDir(expand("%"),'./')) else silent call s:LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,"./")) endif " call Dret("NetHideEdit") endfun " --------------------------------------------------------------------- " NetSortSequence: allows user to edit the sorting sequence fun! NetSortSequence(mode) " call Dfunc("NetSortSequence(mode=".a:mode.")") call inputsave() let newsortseq= input("Edit Sorting Sequence: ",g:netrw_sort_sequence) call inputrestore() " refresh the listing let g:netrw_sort_sequence= newsortseq if a:mode == 0 silent call s:NetBrowse(s:NetBrowseChgDir(expand("%"),'./')) else silent call s:LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,"./")) endif " call Dret("NetSortSequence") endfun " --------------------------------------------------------------------- " NetLongList: {{{2 fun! NetLongList(mode) " call Dfunc("NetLongList(mode=".a:mode.") netrw_longlist=".g:netrw_longlist) call s:NetSavePosn() if g:netrw_longlist != 0 " turn long listing off let g:netrw_longlist = 0 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') else " turn long listing on let g:netrw_longlist = 1 let g:netrw_list_cmd = g:netrw_list_cmd." -l" endif " refresh the listing if a:mode == 0 silent call NetBrowse(NetBrowseChgDir(expand("%"),"./")) else silent call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,"./")) endif call s:NetRestorePosn() " call Dret("NetLongList : g:netrw_longlist=".g:netrw_longlist) endfun " --------------------------------------------------------------------- " NetSaveWordPosn: used by the "s" command in both remote and local " browsing. Along with NetRestoreWordPosn(), it keeps the cursor on " the same word even though the sorting has changed its order of appearance. fun! s:NetSaveWordPosn() " call Dfunc("NetSaveWordPosn()") let s:netrw_saveword= '^'.escape(getline("."),s:netrw_cd_escape).'$' " call Dret("NetSaveWordPosn : saveword<".s:netrw_saveword.">") endfun " --------------------------------------------------------------------- " NetRestoreWordPosn: used by the "s" command; see NetSaveWordPosn() above fun! s:NetRestoreWordPosn() " call Dfunc("NetRestoreWordPosn()") silent! call search(s:netrw_saveword,'w') " call Dret("NetRestoreWordPosn") endfun " --------------------------------------------------------------------- " NetMakeDir: this function makes a directory (both local and remote) fun! NetMakeDir(usrhost) " call Dfunc("NetMakeDir(usrhost<".a:usrhost.">)") " get name of new directory from user. A bare will skip. " if its currently a directory, also request will be skipped, but with " a message. call inputsave() let newdirname= input("Please give directory name: ") call inputrestore() " call Decho("newdirname<".newdirname.">") if newdirname == "" " call Dret("NetMakeDir : user aborted with bare ") return endif if a:usrhost == "" " Local mkdir: " sanity checks let fullnewdir= b:netrw_curdir.'/'.newdirname " call Decho("fullnewdir<".fullnewdir.">") if isdirectory(fullnewdir) if !exists("g:netrw_quiet") echoerr "***warning*** <".newdirname."> is already a directory!" endif " call Dret("NetMakeDir : directory<".newdirname."> exists previously") return endif if filereadable(fullnewdir) if !exists("g:netrw_quiet") echoerr "***warning*** <".newdirname."> is already a file!" endif " call Dret("NetMakeDir : file<".newdirname."> exists previously") return endif let netrw_origdir= s:NetGetcwd(1) exe 'cd '.b:netrw_curdir " call Decho("netrw_origdir<".netrw_origdir."> b:netrw_curdir<".b:netrw_curdir.">") " call Decho("exe silent! !".g:netrw_local_mkdir.' "'.newdirname.'"') exe "silent! !".g:netrw_local_mkdir.' "'.newdirname.'"' if g:netrw_keepdir | exe 'keepjumps cd '.netrw_origdir | endif if v:shell_error == 0 " refresh listing " call Decho("refresh listing") let linenum= line(".") norm! H0 let hline = line(".") call s:LocalBrowse(s:LocalBrowseChgDir(b:netrw_curdir,'./')) exe "norm! ".hline."G0z\" exe linenum elseif !exists("g:netrw_quiet") echoerr "***warning*** unable to make directory<".newdirname.">" endif redraw! else " Remote mkdir: let mkdircmd = substitute(g:netrw_mkdir_cmd,'\',a:usrhost,'') let newdirname= "'".'"'.substitute(expand("%"),'^\%(.\{-}/\)\{3}\(.*\)$','\1','').newdirname.'"'."'" " call Decho("exe silent! !".mkdircmd." ".newdirname) exe "silent! !".mkdircmd." ".newdirname if v:shell_error == 0 " refresh listing let linenum= line(".") norm! H0 let hline = line(".") call s:NetBrowse(s:NetBrowseChgDir(expand("%"),'./')) exe "norm! ".hline."G0z\" exe linenum elseif !exists("g:netrw_quiet") echoerr "***warning*** unable to make directory<".newdirname.">" endif redraw! endif " call Dret("NetMakeDir") endfun " --------------------------------------------------------------------- " NetBookmarkDir: " 0: bookmark the current directory " 1: change to the bookmarked directory fun! NetBookmarkDir(chg,curdir) " call Dfunc("NetBookmarkDir(chg=".a:chg." curdir<".a:curdir.">) cnt=".v:count) if a:chg == 0 " bookmark the current directory let g:NETRW_BOOKMARKDIR_{v:count}= a:curdir if !exists("g:NETRW_BOOKMARKMAX") let g:NETRW_BOOKMARKMAX= v:count elseif v:count > g:NETRW_BOOKMARKMAX let g:NETRW_BOOKMARKMAX= v:count endif elseif a:chg == 1 " change to the bookmarked directory if exists("g:NETRW_BOOKMARKDIR_{v:count}") exe "e ".g:NETRW_BOOKMARKDIR_{v:count} else echomsg "Sorry, bookmark#".v:count." doesn't exist!" endif elseif exists("g:NETRW_BOOKMARKMAX") " list bookmarks " call Decho("list bookmarks [0,".g:NETRW_BOOKMARKMAX."]") let cnt= 0 while cnt <= g:NETRW_BOOKMARKMAX if exists("g:NETRW_BOOKMARKDIR_{cnt}") echo "Netrw Bookmark#".cnt.": ".g:NETRW_BOOKMARKDIR_{cnt} " call Decho("Netrw Bookmark#".cnt.": ".g:NETRW_BOOKMARKDIR_{cnt}) endif let cnt= cnt + 1 endwhile endif " call Dret("NetBookmarkDir") endfun " --------------------------------------------------------------------- " Browsing Support For Local Directories And Files: {{{1 " --------------------------------------------------------------------- " LocalBrowse: supports local file/directory browsing {{{2 fun! LocalBrowse(dirname) " let dirname= (a:dirname == "")? expand("%:p") : a:dirname if !isdirectory(a:dirname) " not a directory, ignore it return endif " unfortunate interaction -- when putting debugging calls " above one can no longer enter the DBG buffer. " call Dfunc("LocalBrowse(dirname<".a:dirname.">) buf#".bufnr("%")." winnr=".winnr()) " call Decho("winbufnr1=".winbufnr(1)." winbufnr2=".winbufnr(2)." winbufnr3=".winbufnr(3)) " call Dredir("ls!") if v:version < 603 if !exists("g:netrw_quiet") echoerr "vim version<".v:version."> too old for browsing with netrw" endif " call Dret("LocalBrowse : vim version<".v:version."> too old") return endif " record and change current directory let netrw_origdir= s:NetGetcwd(1) exe 'cd '.escape(substitute(a:dirname,'\\','/','ge'),s:netrw_cd_escape) let dirname= s:NetGetcwd(0) " call Decho("dirname<".dirname."> buf#".bufnr("%")." winnr=".winnr()) " make this buffer modifiable setlocal ma " --------------------------- " Perform Directory Listing: " call Decho("Perform directory listing...") " set up new buffer and map " remove the trailing "/" let dirnamens= substitute(dirname,'/$','','e') let dirnamenr= bufnr(dirnamens.'$') " call Decho("dirnamenr= bufnr(".dirnamens.")=".dirnamenr." bufname(".dirnamenr.")=".bufname(dirnamenr)) if dirnamenr != 0 && bufname(dirnamenr) != dirnamens " try keeping the trailing slash let dirnamenr = bufnr(dirname.'$') " call Decho("dirnamenr= bufnr(".dirname.")=".dirnamenr." bufname(".dirnamenr.")=".bufname(dirnamenr)." (retry with /)") endif if dirnamenr != -1 " buffer already exists (hidden), so switch to it! " call Decho("buffer already exists: dirnamenr=".dirnamenr." dirname<".dirname."> pre-exists") " call Dredir("ls!") exe "b ".dirnamenr exe 'silent! cd '.escape(substitute(a:dirname,'\\','/','ge'),s:netrw_cd_escape) " call Decho("changed directory to<".dirname.">") if a:dirname != "." && line("$") >= 5 && exists("b:netrw_curdir") if b:netrw_curdir == dirname " call Dret("LocalBrowse : buffer already exists with info, #".dirnamenr) if g:netrw_keepdir | exe 'keepjumps cd '.netrw_origdir | endif return endif endif " call Decho("buffer already exists, but needs re-listing (buf#".dirnamenr.")") setlocal ma keepjumps %d if expand("%:p") != dirname " set standard browser options on buffer setlocal bt=nofile bh=hide nobl exe "setlocal ts=".g:netrw_maxfilenamelen exe 'silent! file '.escape(dirname,s:netrw_cd_escape) " call Decho("renamed file to<".escape(dirname,' #')."/>") endif else " call Decho("generate new buffer named<".escape(dirname,' #').">") silent! enew! " set standard browser options on buffer setlocal bt=nofile bh=hide nobl exe "setlocal ts=".g:netrw_maxfilenamelen exe 'silent! file '.substitute(escape(dirname,s:netrw_cd_escape),'/$','','e') " call Decho("renamed file to<".escape(dirname,s:netrw_cd_escape)."/>") endif if bufname("#") == "" && bufnr("#") != -1 " the file command produces a lot of [No File] buffers " call Decho("wiping out nofile buffer#".bufnr("#")) exe bufnr("#")."bwipe" endif " set up all the maps " call Decho("Setting up local browser maps") let b:netrw_curdir= s:NetGetcwd(1) nnoremap :exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,NetGetWord())) nnoremap :exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,'./')) nnoremap - :exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,'../')) nnoremap a :let g:netrw_hide=(g:netrw_hide+1)%3exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,'./')) nnoremap b :call NetBookmarkDir(0,b:netrw_curdir) nnoremap B :call NetBookmarkDir(1,b:netrw_curdir) nnoremap c :exe "cd ".b:netrw_curdir nnoremap d :call NetMakeDir("") nnoremap :call NetHideEdit(1) nnoremap i :call NetLongList(1) nnoremap o :exe (g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s"exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,NetGetWord())) nnoremap p :exe "norm! 0"call LocalPreview(LocalBrowseChgDir(b:netrw_curdir,NetGetWord(),1)) nnoremap q :call NetBookmarkDir(2,b:netrw_curdir) nnoremap r :let g:netrw_sort_direction= (g:netrw_sort_direction =~ 'n')? 'r' : 'n'exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,'./')) nnoremap s :call NetSaveWordPosn()let g:netrw_sort_by= (g:netrw_sort_by =~ 'n')? 'time' : (g:netrw_sort_by =~ 't')? 'size' : 'name'exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,'./'))call NetRestoreWordPosn() nnoremap S :call NetSortSequence(1) nnoremap v :exe (g:netrw_altv? "rightb " : "lefta ").g:netrw_winsize."wincmd v"exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,NetGetWord())) nnoremap x :exe "norm! 0"call NetBrowseX(LocalBrowseChgDir(b:netrw_curdir,NetGetWord(),0),0) nnoremap <2-leftmouse> :exe "norm! 0"call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,NetGetWord())) exe 'nnoremap :exe "norm! 0"call LocalBrowseRm("'.b:netrw_curdir.'")' exe 'vnoremap :call LocalBrowseRm("'.b:netrw_curdir.'")' exe 'nnoremap D :exe "norm! 0"call LocalBrowseRm("'.b:netrw_curdir.'")' exe 'vnoremap D :call LocalBrowseRm("'.b:netrw_curdir.'")' exe 'nnoremap R :exe "norm! 0"call LocalBrowseRename("'.b:netrw_curdir.'")' exe 'vnoremap R :call LocalBrowseRename("'.b:netrw_curdir.'")' exe 'nnoremap m :call NetMakeDir("")' nnoremap ? :he netrw-dir " Set up the banner " call Decho("set up banner") keepjumps put ='\" ============================================================================' keepjumps 1d keepjumps put ='\" Directory Listing (netrw '.g:loaded_netrw.')' keepjumps put ='\" '.dirname let s:netrw_bannercnt= 7 let sortby= g:netrw_sort_by if g:netrw_sort_direction =~ "^r" let sortby= sortby." reversed" endif if g:netrw_sort_by =~ "^n" " call Decho("directories will be sorted by name") " sorted by name let s:netrw_bannercnt= s:netrw_bannercnt + 1 keepjumps put ='\" Sorted by '.sortby keepjumps put ='\" Sort sequence: '.g:netrw_sort_sequence else " call Decho("directories will be sorted by size or date") " sorted by size or date keepjumps put ='\" Sorted by '.sortby endif if g:netrw_list_hide != "" && g:netrw_hide if g:netrw_hide == 1 keepjumps put ='\" Hiding: '.g:netrw_list_hide else keepjumps put ='\" Showing: '.g:netrw_list_hide endif let s:netrw_bannercnt= s:netrw_bannercnt + 1 endif keepjumps put ='\" Quick Help: ?:help -:go up dir D:delete R:rename s:sort-by x:exec' keepjumps put ='\" ============================================================================' " generate the requested directory listing call LocalBrowseList(dirname) " manipulate the directory listing (hide, sort) setlocal ft=netrwlist if line("$") >= s:netrw_bannercnt if g:netrw_hide && g:netrw_list_hide != "" call s:NetrwListHide() endif if g:netrw_sort_by =~ "^n" call s:SetSort() exe 'keepjumps silent '.s:netrw_bannercnt.',$call s:NetSort()' exe 'keepjumps silent '.s:netrw_bannercnt.',$s/^\d\{3}\///e' else exe 'keepjumps silent '.s:netrw_bannercnt.',$call s:NetSort()' exe 'keepjumps silent '.s:netrw_bannercnt.',$s/^\d\{-}\///e' endif endif exe s:netrw_bannercnt setlocal noma nomod if g:netrw_keepdir | exe 'keepjumps cd '.netrw_origdir | endif " call Dret("LocalBrowse : file<".expand("%:p").">") endfun " --------------------------------------------------------------------- " LocalBrowseList: does the job of "ls" for local directories {{{2 fun! LocalBrowseList(dirname) " call Dfunc("LocalBrowseList(dirname<".a:dirname.">)") " get the list of files contained in the current directory let dirname = escape(a:dirname,s:netrw_glob_escape) let dirnamelen = strlen(a:dirname) let filelist = glob(dirname."*") " call Decho("glob(dirname<".dirname.">,*)=".filelist) if filelist != "" let filelist= filelist."\n" endif let filelist= filelist.glob(dirname.".*") " call Decho("glob(dirname<".dirname.">,.*)=".glob(dirname.".*")) " if the directory name includes a "$", and possibly other characters, " the glob() doesn't include "." and ".." entries. if filelist !~ '[\\/]\.[\\/]\=\(\n\|$\)' " call Decho("forcibly tacking on .") if filelist == "" let filelist= dirname."." else let filelist= filelist."\n".a:dirname."." endif " call Decho("filelist<".filelist.">") endif if filelist !~ '[\\/]\.\.[\\/]\=\(\n\|$\)' " call Decho("forcibly tacking on ..") let filelist= filelist."\n".a:dirname.".." " call Decho("filelist<".filelist.">") endif let filelist= substitute(filelist,'\n\{2,}','\n','ge') " call Decho("dirname<".dirname.">") " call Decho("dirnamelen<".dirnamelen.">") " call Decho("filelist<".filelist.">") while filelist != "" if filelist =~ '\n' let file = substitute(filelist,'\n.*$','','e') let filelist = substitute(filelist,'^.\{-}\n\(.*\)$','\1','e') else let file = filelist let filelist = "" endif let pfile= file if isdirectory(file) let pfile= file."/" endif if pfile =~ '//$' let pfile= substitute(pfile,'//$','/','e') endif let pfile= strpart(pfile,dirnamelen) if g:netrw_longlist let sz = getfsize(file) let fsz = strpart(" ",1,15-strlen(sz)).sz let pfile= pfile."\t".fsz." ".strftime(g:netrw_timefmt,getftime(file)) endif if g:netrw_sort_by =~ "^t" " sort by time (handles time up to 1 quintillion seconds, US) " call Decho("getftime(".file.")=".getftime(file)) let t = getftime(file) let ft = strpart("000000000000000000",1,18-strlen(t)).t " call Decho("exe keepjumps put ='".ft.'/'.file."'") let ftpfile= ft.'/'.pfile keepjumps put=ftpfile elseif g:netrw_sort_by =~ "^s" " sort by size (handles file sizes up to 1 quintillion bytes, US) " call Decho("getfsize(".file.")=".getfsize(file)) let sz = getfsize(file) let fsz = strpart("000000000000000000",1,18-strlen(sz)).sz " call Decho("exe keepjumps put ='".fsz.'/'.file."'") let fszpfile= fsz.'/'.pfile keepjumps put =fszpfile else " sort by name " call Decho("exe keepjumps put ='".pfile."'") keepjumps put=pfile endif endwhile " call Dret("LocalBrowseList") endfun " --------------------------------------------------------------------- " LocalBrowseChgDir: constructs a new directory based on the current {{{2 " directory and a new directory name fun! LocalBrowseChgDir(dirname,newdir,...) " call Dfunc("LocalBrowseChgDir(dirname<".a:dirname."> newdir<".a:newdir.">) a:0=".a:0) let dirname= substitute(a:dirname,'\\','','ge') let newdir = a:newdir if dirname !~ '/$' " apparently vim is "recognizing" that it is in the home directory and " is removing the "/". Bad idea, so I have to put it back. let dirname= dirname.'/' " call Decho("adjusting dirname<".dirname.">") endif if newdir !~ '/$' " handling a file let dirname= dirname.newdir " call Decho("handling a file: dirname<".dirname.">") " this lets NetBrowseX avoid the edit if a:0 < 1 exe "e ".escape(dirname,s:netrw_cd_escape) endif elseif newdir == './' " refresh the directory list " call Decho("refresh directory listing") setlocal ma %d elseif newdir == '../' " go up one directory let dirname= substitute(dirname,'^\(.*/\)\([^/]\+/$\)','\1','e') " call Decho("go up one dir: dirname<".dirname.">") else " go down one directory let dirname= dirname.newdir " call Decho("go down one dir: dirname<".dirname."> newdir<".newdir.">") endif " call Dret("LocalBrowseChgDir <".dirname.">") return dirname endfun " --------------------------------------------------------------------- " LocalBrowseRm: fun! LocalBrowseRm(path) range " call Dfunc("LocalBrowseRm(path<".a:path.">)") " call Decho("firstline=".a:firstline." lastline=".a:lastline) " preparation for removing multiple files/directories let ctr = a:firstline let ret = 0 let netrw_origdir = s:NetGetcwd(1) exe 'cd '.b:netrw_curdir let all= 0 " remove multiple files and directories while ctr <= a:lastline exe "keepjumps ".ctr " sanity checks if line(".") < s:netrw_bannercnt let ctr= ctr + 1 continue endif let curword= s:NetGetWord() if curword == "./" || curword == "../" let ctr= ctr + 1 continue endif norm! 0 let rmfile= a:path.curword " call Decho("rmfile<".rmfile.">") if rmfile !~ '^"' && (rmfile =~ '@$' || rmfile !~ '/$') " attempt to remove file if !all echohl Statement call inputsave() let ok= input("Confirm deletion of file<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") call inputrestore() echohl NONE let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') if ok =~ 'a\%[ll]' let all= 1 endif endif if all || ok =~ 'y\%[es]' || ok == "" let ret= delete(rmfile) " call Decho("errcode=".v:shell_error." ret=".ret) elseif ok =~ 'q\%[uit]' break endif else " attempt to remove directory if !all echohl Statement call inputsave() let ok= input("Confirm deletion of directory<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") call inputrestore() let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') if ok =~ 'a\%[ll]' let all= 1 endif endif let rmfile= substitute(rmfile,'/$','','e') if all || ok =~ 'y\%[es]' || ok == "" " call Decho("1st attempt: system(".g:netrw_local_rmdir.' "'.rmfile.'")') call system(g:netrw_local_rmdir.' "'.rmfile.'"') " call Decho("v:shell_error=".v:shell_error) if v:shell_error != 0 " call Decho("2nd attempt to remove directory<".rmfile.">") let errcode= delete(rmfile) " call Decho("errcode=".errcode) if errcode != 0 if has("unix") " call Decho("3rd attempt to remove directory<".rmfile.">") call system("rm ".rmfile) if v:shell_error != 0 && !exists("g:netrw_quiet") echoerr "unable to remove directory<".rmfile."> -- is it empty?" endif elseif !exist("g:netrw_quiet")s echoerr "unable to remove directory<".rmfile."> -- is it empty?" endif endif endif elseif ok =~ 'q\%[uit]' break endif endif let ctr= ctr + 1 endwhile " refresh the directory let curline= line(".") if g:netrw_keepdir | exe 'keepjumps cd '.netrw_origdir | endif " call Decho("refresh the directory") call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,'./')) exe curline " call Dret("LocalBrowseRm") endfun " --------------------------------------------------------------------- " LocalBrowseRename: rename a remote file or directory {{{2 fun! LocalBrowseRename(path) range " call Dfunc("LocalBrowseRename(path<".a:path.">)") " preparation for removing multiple files/directories let ctr= a:firstline " attempt to rename files/directories while ctr <= a:lastline exe "keepjumps ".ctr " sanity checks if line(".") < s:netrw_bannercnt let ctr= ctr + 1 continue endif let curword= s:NetGetWord() if curword == "./" || curword == "../" let ctr= ctr + 1 continue endif norm! 0 let oldname= a:path.curword " call Decho("oldname<".oldname.">") call inputsave() let newname= input("Moving ".oldname." to : ",substitute(oldname,'/*$','','e')) call inputrestore() let ret= system(g:netrw_local_rename.' "'.oldname.'" "'.newname.'"') " call Decho("executing system(".g:netrw_local_rename." ".oldname." ".newname) let ctr= ctr + 1 endwhile " refresh the directory let curline= line(".") " call Decho("refresh the directory listing") call LocalBrowse(LocalBrowseChgDir(b:netrw_curdir,'./')) exe "keepjumps ".curline " call Dret("LocalBrowseRename") endfun " --------------------------------------------------------------------- " LocalPreview: {{{2 fun! LocalPreview(path) range " call Dfunc("LocalPreview(path<".a:path.">)") if has("quickfix") if !isdirectory(a:path) exe "pedit ".a:path elseif !exist("g:netrw_quiet")s echoerr "sorry, cannot preview a directory such as <".a:path.">" endif elseif !exist("g:netrw_quiet")s echoerr "sorry, to preview your vim needs the quickfix feature compiled in" endif " call Dret("LocalPreview") endfun " --------------------------------------------------------------------- " NetGetcwd: get the current directory. {{{2 " Change backslashes to forward slashes, if any. " If doesc is true, escape certain troublesome characters fun! NetGetcwd(doesc) " call Dfunc("NetGetcwd(doesc=".a:doesc.")") let curdir= substitute(getcwd(),'\\','/','ge') if curdir !~ '/$' let curdir= curdir.'/' endif if a:doesc let curdir= escape(curdir,s:netrw_cd_escape) endif " call Dret("NetGetcwd <".curdir.">") return curdir endfun " --------------------------------------------------------------------- " NetMethod: determine method of transfer {{{1 " method == 1: rcp " 2: ftp + <.netrc> " 3: ftp + machine, id, password, and [path]filename " 4: scp " 5: http (wget) " 6: cadaver " 7: rsync " 8: fetch " 9: sftp fun! s:NetMethod(choice) " globals: method machine id passwd fname " call Dfunc("NetMethod(a:choice<".a:choice.">)") " initialization let b:netrw_method = 0 let g:netrw_machine = "" let b:netrw_fname = "" let g:netrw_port = "" " Patterns: " mipf : a:machine a:id password filename Use ftp " mf : a:machine filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd " ftpurm : ftp://[user@]host[[#:]port]/filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd " rcpurm : rcp://[user@]host/filename Use rcp " rcphf : [user@]host:filename Use rcp " scpurm : scp://[user@]host[[#:]port]/filename Use scp " httpurm : http://[user@]host/filename Use wget " davurm : [s]dav://host[:port]/path Use cadaver " rsyncurm : rsync://host[:port]/path Use rsync " fetchurm : fetch://[user@]host[:http]/filename Use fetch (defaults to ftp, override for http) " sftpurm : sftp://[user@]host/filename Use scp let mipf = '^\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)$' let mf = '^\(\S\+\)\s\+\(\S\+\)$' let ftpurm = '^ftp://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\([#:]\d\+\)\=/\(.*\)$' let rcpurm = '^rcp://\(\([^/@]\{-}\)@\)\=\([^/]\{-}\)/\(.*\)$' let rcphf = '^\(\(\h\w*\)@\)\=\(\h\w*\):\([^@]\+\)$' let scpurm = '^scp://\([^/]\{-}\)\([#:]\d\+\)\=/\(.*\)$' let httpurm = '^http://\([^/]\{-}\)\(/.*\)\=$' let davurm = '^s\=dav://\([^/]\+\)/\(.*/\)\([-_.~[:alnum:]]\+\)$' let rsyncurm = '^rsync://\([^/]\{-}\)/\(.*\)\=$' let fetchurm = '^fetch://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\(:http\)\=/\(.*\)$' let sftpurm = '^sftp://\([^/]\{-}\)/\(.*\)\=$' " call Decho("determine method:") " Determine Method " rcp://user@hostname/...path-to-file if match(a:choice,rcpurm) == 0 " call Decho("rcp://...") let b:netrw_method = 1 let userid = substitute(a:choice,rcpurm,'\2',"") let g:netrw_machine= substitute(a:choice,rcpurm,'\3',"") let b:netrw_fname = substitute(a:choice,rcpurm,'\4',"") if userid != "" let g:netrw_uid= userid endif " scp://user@hostname/...path-to-file elseif match(a:choice,scpurm) == 0 " call Decho("scp://...") let b:netrw_method = 4 let g:netrw_machine= substitute(a:choice,scpurm,'\1',"") let b:netrw_port = substitute(a:choice,scpurm,'\2',"") let b:netrw_fname = substitute(a:choice,scpurm,'\3',"") " http://user@hostname/...path-to-file elseif match(a:choice,httpurm) == 0 " call Decho("http://...") let b:netrw_method = 5 let g:netrw_machine= substitute(a:choice,httpurm,'\1',"") let b:netrw_fname = substitute(a:choice,httpurm,'\2',"") " dav://hostname[:port]/..path-to-file.. elseif match(a:choice,davurm) == 0 " call Decho("dav://...") let b:netrw_method= 6 if a:choice =~ '^s' let g:netrw_machine= 'https://'.substitute(a:choice,davurm,'\1/\2',"") else let g:netrw_machine= 'http://'.substitute(a:choice,davurm,'\1/\2',"") endif let b:netrw_fname = substitute(a:choice,davurm,'\3',"") " rsync://user@hostname/...path-to-file elseif match(a:choice,rsyncurm) == 0 " call Decho("rsync://...") let b:netrw_method = 7 let g:netrw_machine= substitute(a:choice,rsyncurm,'\1',"") let b:netrw_fname = substitute(a:choice,rsyncurm,'\2',"") " ftp://[user@]hostname[[:#]port]/...path-to-file elseif match(a:choice,ftpurm) == 0 " call Decho("ftp://...") let userid = substitute(a:choice,ftpurm,'\2',"") let g:netrw_machine= substitute(a:choice,ftpurm,'\3',"") let g:netrw_port = substitute(a:choice,ftpurm,'\4',"") let b:netrw_fname = substitute(a:choice,ftpurm,'\5',"") if g:netrw_port != "" let g:netrw_port = substitute(g:netrw_port,"[#:]","","") endif if userid != "" let g:netrw_uid= userid endif if exists("g:netrw_uid") && exists("g:netrw_passwd") let b:netrw_method = 3 else if filereadable(expand("$HOME/.netrc")) && !exists("g:netrw_ignorenetrc") let b:netrw_method= 2 else if !exists("g:netrw_uid") || g:netrw_uid == "" call NetUserPass() elseif !exists("g:netrw_passwd") || g:netrw_passwd == "" call NetUserPass(g:netrw_uid) " else just use current g:netrw_uid and g:netrw_passwd endif let b:netrw_method= 3 endif endif elseif match(a:choice,fetchurm) == 0 " call Decho("fetch://...") let b:netrw_method = 8 let g:netrw_userid = substitute(a:choice,fetchurm,'\2',"") let g:netrw_machine= substitute(a:choice,fetchurm,'\3',"") let b:netrw_option = substitute(a:choice,fetchurm,'\4',"") let b:netrw_fname = substitute(a:choice,fetchurm,'\5',"") " Issue an ftp : "machine id password [path/]filename" elseif match(a:choice,mipf) == 0 " call Decho("(ftp) host id pass file") let b:netrw_method = 3 let g:netrw_machine = substitute(a:choice,mipf,'\1',"") let g:netrw_uid = substitute(a:choice,mipf,'\2',"") let g:netrw_passwd = substitute(a:choice,mipf,'\3',"") let b:netrw_fname = substitute(a:choice,mipf,'\4',"") " Issue an ftp: "hostname [path/]filename" elseif match(a:choice,mf) == 0 " call Decho("(ftp) host file") if exists("g:netrw_uid") && exists("g:netrw_passwd") let b:netrw_method = 3 let g:netrw_machine = substitute(a:choice,mf,'\1',"") let b:netrw_fname = substitute(a:choice,mf,'\2',"") elseif filereadable(expand("$HOME/.netrc")) let b:netrw_method = 2 let g:netrw_machine = substitute(a:choice,mf,'\1',"") let b:netrw_fname = substitute(a:choice,mf,'\2',"") endif " sftp://user@hostname/...path-to-file elseif match(a:choice,sftpurm) == 0 " call Decho("sftp://...") let b:netrw_method = 9 let g:netrw_machine= substitute(a:choice,sftpurm,'\1',"") let b:netrw_fname = substitute(a:choice,sftpurm,'\2',"") " Issue an rcp: hostname:filename" (this one should be last) elseif match(a:choice,rcphf) == 0 " call Decho("(rcp) [user@]host:file) rcphf<".rcphf.">") let b:netrw_method = 1 let userid = substitute(a:choice,rcphf,'\2',"") let g:netrw_machine= substitute(a:choice,rcphf,'\3',"") let b:netrw_fname = substitute(a:choice,rcphf,'\4',"") " call Decho('\1<'.substitute(a:choice,rcphf,'\1',"").">") " call Decho('\2<'.substitute(a:choice,rcphf,'\2',"").">") " call Decho('\3<'.substitute(a:choice,rcphf,'\3',"").">") " call Decho('\4<'.substitute(a:choice,rcphf,'\4',"").">") if userid != "" let g:netrw_uid= userid endif if has("win32") || has("win95") || has("win64") || has("win16") " don't let PCs try <.netrc> let b:netrw_method = 3 endif else if !exists("g:netrw_quiet") echoerr "***error*** cannot determine method" endif let b:netrw_method = -1 endif " call Decho("a:choice <".a:choice.">") " call Decho("b:netrw_method <".b:netrw_method.">") " call Decho("g:netrw_machine<".g:netrw_machine.">") " call Decho("g:netrw_port <".g:netrw_port.">") " if exists("g:netrw_uid") "Decho " call Decho("g:netrw_uid <".g:netrw_uid.">") " endif "Decho " if exists("g:netrw_passwd") "Decho " call Decho("g:netrw_passwd <".g:netrw_passwd.">") " endif "Decho " call Decho("b:netrw_fname <".b:netrw_fname.">") " call Dret("NetMethod") endfun " ------------------------------------------------------------------------ " NetUserPass: set username and password for subsequent ftp transfer {{{1 " Usage: :call NetUserPass() -- will prompt for userid and password " :call NetUserPass("uid") -- will prompt for password " :call NetUserPass("uid","password") -- sets global userid and password fun! NetUserPass(...) " get/set userid if a:0 == 0 " call Dfunc("NetUserPass(a:0<".a:0.">)") if !exists("g:netrw_uid") || g:netrw_uid == "" " via prompt let g:netrw_uid= input('Enter username: ') endif else " from command line " call Dfunc("NetUserPass(a:1<".a:1.">) {") let g:netrw_uid= a:1 endif " get password if a:0 <= 1 " via prompt " call Decho("a:0=".a:0." case <=1:") let g:netrw_passwd= inputsecret("Enter Password: ") else " from command line " call Decho("a:0=".a:0." case >1: a:2<".a:2.">") let g:netrw_passwd=a:2 endif " call Dret("NetUserPass") endfun " ------------------------------------------------------------------------ " NetOptionSave: save options and set to "standard" form {{{1 fun!s:NetOptionSave() " call Dfunc("NetOptionSave()") " Get Temporary Filename let s:aikeep = &ai let s:cinkeep = &cin let s:cinokeep = &cino let s:comkeep = &com let s:cpokeep = &cpo let s:dirkeep = getcwd() let s:gdkeep = &gd let s:twkeep = &tw setlocal cino = setlocal com = setlocal cpo -=aA setlocal nocin noai setlocal tw =0 if has("win32") && !has("win95") let s:swfkeep= &swf setlocal noswf " call Decho("setting s:swfkeep to <".&swf.">") endif " call Dret("NetOptionSave") endfun " ------------------------------------------------------------------------ " NetOptionRestore: restore options {{{1 fun! s:NetOptionRestore() " call Dfunc("NetOptionRestore()") let &ai = s:aikeep let &cin = s:cinkeep let &cino = s:cinokeep let &com = s:comkeep let &cpo = s:cpokeep exe "lcd ".s:dirkeep let &gd = s:gdkeep let &tw = s:twkeep if exists("s:swfkeep") let &swf= s:swfkeep unlet s:swfkeep endif unlet s:aikeep unlet s:cinkeep unlet s:cinokeep unlet s:comkeep unlet s:cpokeep unlet s:gdkeep unlet s:twkeep unlet s:dirkeep " call Dret("NetOptionRestore") endfun " ------------------------------------------------------------------------ " NetReadFixup: this sort of function is typically written by the user {{{1 " to handle extra junk that their system's ftp dumps " into the transfer. This function is provided as an " example and as a fix for a Windows 95 problem: in my " experience, win95's ftp always dumped four blank lines " at the end of the transfer. if has("win95") && g:netrw_win95ftp fun! NetReadFixup(method, line1, line2) " call Dfunc("NetReadFixup(method<".a:method."> line1=".a:line1." line2=".a:line2.")") if method == 3 " ftp (no <.netrc>) let fourblanklines= line2 - 3 silent fourblanklines.",".line2."g/^\s*/d" endif " call Dret("NetReadFixup") endfun endif " --------------------------------------------------------------------- " NetSort: Piet Delport's BISort2() function, modified to take a range {{{1 fun! NetSort() range " call Dfunc("NetSort()") let i = a:firstline + 1 while i <= a:lastline " find insertion point via binary search let i_val = getline(i) let lo = a:firstline let hi = i while lo < hi let mid = (lo + hi) / 2 let mid_val = getline(mid) if g:netrw_sort_direction =~ '^n' " normal sorting order if i_val < mid_val let hi = mid else let lo = mid + 1 if i_val == mid_val | break | endif endif else " reverse sorting order if i_val > mid_val let hi = mid else let lo = mid + 1 if i_val == mid_val | break | endif endif endif endwhile " do insert if lo < i exe 'keepjumps '.i.'d_' keepjumps call append(lo - 1, i_val) endif let i = i + 1 endwhile " call Dret("NetSort") endfun " --------------------------------------------------------------------- " SetSort: sets up the sort based on the g:netrw_sort_sequence {{{1 " What this function does is to compute a priority for the patterns " in the g:netrw_sort_sequence. It applies a substitute to any " "files" that satisfy each pattern, putting the priority / in " front. An "*" pattern handles the default priority. fun! SetSort() " call Dfunc("SetSort() bannercnt=".s:netrw_bannercnt) if g:netrw_longlist let seqlist = substitute(g:netrw_sort_sequence,'\$','\\%(\t\\|\$\\)','ge') else let seqlist = g:netrw_sort_sequence endif " sanity check -- insure that * appears somewhere if seqlist == "" let seqlist= '*' elseif seqlist !~ '\*' let seqlist= seqlist.',*' endif let priority = 1 while seqlist != "" if seqlist =~ ',' let seq = substitute(seqlist,',.*$','','e') let seqlist = substitute(seqlist,'^.\{-},\(.*\)$','\1','e') else let seq = seqlist let seqlist = "" endif let eseq= escape(seq,'/') if priority < 10 let spriority= "00".priority.'\/' elseif priority < 100 let spriority= "0".priority.'\/' else let spriority= priority.'\/' endif " call Decho("priority=".priority." spriority<".spriority."> seq<".seq."> seqlist<".seqlist.">") if seq == '*' exe 'keepjumps silent '.s:netrw_bannercnt.',$v/^\d\{3}\//s/^/'.spriority.'/' else exe 'keepjumps silent '.s:netrw_bannercnt.',$g/'.eseq.'/s/^/'.spriority.'/' endif let priority = priority + 1 endwhile exe 'keepjumps silent '.s:netrw_bannercnt.',$s/^\(\d\{3}\/\)\%(\d\{3}\/\)\+/\1/e' " call Dret("SetSort") endfun " ------------------------------------------------------------------------ " Restore {{{1 let &cpo= s:save_cpo unlet s:save_cpo " vim:ts=8 fdm=marker plugin/NetrwFileHandlers.vim0100604000031300003130000002071110120133216014466 0ustar ceccec" NetrwFileHandlers: contains various extension-based file handlers for " netrw's browsers' x command ("eXecute launcher") " Author: Charles E. Campbell, Jr. " Date: Aug 31, 2004 " Version: 3a NOT RELEASED " --------------------------------------------------------------------- " Prevent Reloading: {{{1 if exists("g:loaded_netrwfilehandlers") || &cp finish endif let g:loaded_netrwfilehandlers= "v3a" " --------------------------------------------------------------------- " NetrwFileHandler_html: handles html when the user hits "x" when the {{{1 " cursor is atop a *.html file fun! NetrwFileHandler_html(pagefile) " call Dfunc("NetrwFileHandler_html(".a:pagefile.")") let page= substitute(a:pagefile,'^','file://','') if executable("mozilla") " call Decho("executing !mozilla ".page) exe "!mozilla \"".page.'"' elseif executable("netscape") " call Decho("executing !netscape ".page) exe "!netscape \"".page.'"' else " call Dret("NetrwFileHandler_html 0") return 0 endif " call Dret("NetrwFileHandler_html 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_htm: handles html when the user hits "x" when the {{{1 " cursor is atop a *.htm file fun! NetrwFileHandler_htm(pagefile) " call Dfunc("NetrwFileHandler_htm(".a:pagefile.")") let page= substitute(a:pagefile,'^','file://','') if executable("mozilla") " call Decho("executing !mozilla ".page) exe "!mozilla \"".page.'"' elseif executable("netscape") " call Decho("executing !netscape ".page) exe "!netscape \"".page.'"' else " call Dret("NetrwFileHandler_htm 0") return 0 endif " call Dret("NetrwFileHandler_htm 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_jpg: {{{1 fun! NetrwFileHandler_jpg(jpgfile) " call Dfunc("NetrwFileHandler_jpg(jpgfile<".a:jpgfile.">)") if executable("gimp") exe "silent! !gimp -s ".a:jpgfile elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE") " call Decho("silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT ".escape(a:jpgfile," []|'")) exe "!".expand("$SystemRoot")."/SYSTEM32/MSPAINT \"".a:jpgfile.'"' else " call Dret("NetrwFileHandler_jpg 0") return 0 endif " call Dret("NetrwFileHandler_jpg 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_gif: {{{1 fun! NetrwFileHandler_gif(giffile) " call Dfunc("NetrwFileHandler_gif(giffile<".a:giffile.">)") if executable("gimp") exe "silent! !gimp -s ".a:giffile elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE") exe "silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT \"".a:giffile.'"' else " call Dret("NetrwFileHandler_gif 0") return 0 endif " call Dret("NetrwFileHandler_gif 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_png: {{{1 fun! NetrwFileHandler_png(pngfile) " call Dfunc("NetrwFileHandler_png(pngfile<".a:pngfile.">)") if executable("gimp") exe "silent! !gimp -s ".a:pngfile elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE") exe "silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT \"".a:pngfile.'"' else " call Dret("NetrwFileHandler_png 0") return 0 endif " call Dret("NetrwFileHandler_png 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_pnm: {{{1 fun! NetrwFileHandler_pnm(pnmfile) " call Dfunc("NetrwFileHandler_pnm(pnmfile<".a:pnmfile.">)") if executable("gimp") exe "silent! !gimp -s ".a:pnmfile elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE") exe "silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT \"".a:pnmfile.'"' else " call Dret("NetrwFileHandler_pnm 0") return 0 endif " call Dret("NetrwFileHandler_pnm 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_bmp: visualize bmp files {{{1 fun! NetrwFileHandler_bmp(bmpfile) " call Dfunc("NetrwFileHandler_bmp(bmpfile<".a:bmpfile.">)") if executable("gimp") exe "silent! !gimp -s ".a:bmpfile elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE") exe "silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT \"".a:bmpfile.'"' else " call Dret("NetrwFileHandler_bmp 0") return 0 endif " call Dret("NetrwFileHandler_bmp 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_pdf: visualize pdf files {{{1 fun! NetrwFileHandler_pdf(pdf) " " call Dfunc("NetrwFileHandler_pdf(pdf<".a:pdf.">)") if executable("gs") exe "silent! !gs ".a:pdf else " " call Dret("NetrwFileHandler_pdf 0") return 0 endif " " call Dret("NetrwFileHandler_pdf 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_sxw: visualize sxw files {{{1 fun! NetrwFileHandler_sxw(sxw) " " call Dfunc("NetrwFileHandler_sxw(sxw<".a:sxw.">)") if executable("gs") exe "silent! !gs ".a:sxw else " " call Dret("NetrwFileHandler_sxw 0") return 0 endif " " call Dret("NetrwFileHandler_sxw 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_doc: visualize doc files {{{1 fun! NetrwFileHandler_doc(doc) " " call Dfunc("NetrwFileHandler_doc(doc<".a:doc.">)") if executable("oowriter") exe "silent! !oowriter ".a:doc redraw! else " " call Dret("NetrwFileHandler_doc 0") return 0 endif " " call Dret("NetrwFileHandler_doc 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_sxw: visualize sxw files {{{1 fun! NetrwFileHandler_sxw(sxw) " " call Dfunc("NetrwFileHandler_sxw(sxw<".a:sxw.">)") if executable("oowriter") exe "silent! !oowriter ".a:sxw redraw! else " " call Dret("NetrwFileHandler_sxw 0") return 0 endif " " call Dret("NetrwFileHandler_sxw 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_xls: visualize xls files {{{1 fun! NetrwFileHandler_xls(xls) " " call Dfunc("NetrwFileHandler_xls(xls<".a:xls.">)") if executable("oocalc") exe "silent! !oocalc ".a:xls redraw! else " " call Dret("NetrwFileHandler_xls 0") return 0 endif " " call Dret("NetrwFileHandler_xls 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_ps: handles PostScript files {{{1 fun! NetrwFileHandler_ps(ps) " call Dfunc("NetrwFileHandler_ps()") if executable("gs") exe "silent! !gs ".a:ps redraw! elseif executable("ghostscript") exe "silent! !ghostscript ".a:ps redraw! elseif executable("ghostscript") exe "silent! !ghostscript ".a:ps redraw! elseif executable("gswin32") exe "silent! !gswin32 \"".a:ps.'"' redraw! else " call Dret("NetrwFileHandler_ps 0") return 0 endif " call Dret("NetrwFileHandler_ps 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_eps: handles encapsulated PostScript files {{{1 fun! NetrwFileHandler_eps(eps) " call Dfunc("NetrwFileHandler_ps()") if executable("gs") exe "silent! !gs ".a:eps redraw! elseif executable("ghostscript") exe "silent! !ghostscript ".a:eps redraw! elseif executable("ghostscript") exe "silent! !ghostscript ".a:eps redraw! elseif executable("gswin32") exe "silent! !gswin32 \"".a:eps.'"' redraw! else " call Dret("NetrwFileHandler_ps 0") return 0 endif endfun " --------------------------------------------------------------------- " NetrwFileHandler_fig: handles xfig files {{{1 fun! NetrwFileHandler_fig(fig) " call Dfunc("NetrwFileHandler_fig()") if executable("xfig") exe "silent! !xfig ".a:fig redraw! else " call Dret("NetrwFileHandler_fig 0") return 0 endif " call Dret("NetrwFileHandler_fig 1") return 1 endfun " --------------------------------------------------------------------- " NetrwFileHandler_obj: handles tgif's obj files {{{1 fun! NetrwFileHandler_obj(obj) " call Dfunc("NetrwFileHandler_obj()") if has("unix") && executable("tgif") exe "silent! !tgif ".a:obj redraw! else " call Dret("NetrwFileHandler_obj 0") return 0 endif " call Dret("NetrwFileHandler_obj 1") return 1 endfun " --------------------------------------------------------------------- " vim: ts=4 fdm=marker doc/pi_netrw.txt0100604000031300003130000013164510121410365012245 0ustar ceccec*pi_netrw.txt For Vim version 6.2. Last change: Sep 13, 2004 VIM REFERENCE MANUAL by Charles E. Campbell, Jr. *dav* *http* *network* *rcp* *scp* *fetch* *netrw* *Nread* *rsync* *sftp* *ftp* *netrw.vim* *Nwrite* *netrw-file* ============================================================================== 0. Contents *netrw-contents* 1. Netrw Reference.....................................|netrw-ref| 2. Network-Oriented File Transfer......................|netrw-xfer| 3. Activation..........................................|netrw-activate| 4. Transparent File Transfer...........................|netrw-transparent| 5. Ex Commands.........................................|netrw-ex| 6. Variables and Options...............................|netrw-var| 7. Directory Browser...................................|netrw-browse| 8. Problems and Fixes..................................|netrw-problems| 9. Debugging...........................................|netrw-debug| 10. History.............................................|netrw-history| 11. Credits.............................................|netrw-credits| The functionality mentioned here is done via using |standard-plugin| techniques. This plugin is only available if set nocp " 'compatible' is not set filetype plugin on " plugins are enabled You can avoid loading this plugin by setting the "loaded_netrw" variable in your <.vimrc> file: > :let loaded_netrw = 1 {Vi does not have any of this} ============================================================================== 1. Netrw Reference *netrw-ref* OPTIONS let g:netrw_ftp =0 use ftp (default) (uid password) =1 use alternate ftp method (user uid password) If you're having trouble with ftp, try changing the value of this variable in your <.vimrc> to change methods let g:netrw_ignorenetrc= 1 If you have a <.netrc> file but it doesn't work and you want it ignored, then set this variable as shown. Its mere existence is enough to cause <.netrc> to be ignored. Controlling External Applications Protocol Variable Default Value -------- ---------------- ------------- dav: g:netrw_dav_cmd = "cadaver" fetch: g:netrw_fetch_cmd = "fetch -o" ftp: g:netrw_ftp_cmd = "ftp" http: g:netrw_http_cmd = "fetch -o" if fetch is available http: g:netrw_http_cmd = "wget -q -O" If wget is available rcp: g:netrw_rcp_cmd = "rcp" rsync: g:netrw_rsync_cmd = "rsync -a" scp: g:netrw_scp_cmd = "scp -q" sftp: g:netrw_sftp_cmd = "sftp" READING *netrw-read* *netrw-nread* :Nread ? give help :Nread "machine:path" uses rcp :Nread "machine path" uses ftp with <.netrc> :Nread "machine id password path" uses ftp :Nread "dav://machine[:port]/path" uses cadaver :Nread "fetch://[user@]machine/path" uses fetch :Nread "ftp://[user@]machine[[:#]port]/path" uses ftp autodetects <.netrc> :Nread "http://[user@]machine/path" uses http uses wget :Nread "rcp://[user@]machine/path" uses rcp :Nread "rsync://[user@]machine[:port]/path" uses rsync :Nread "scp://[user@]machine[[:#]port]/path" uses scp :Nread "sftp://[user@]machine/path" uses sftp WRITING *netrw-write* *netrw-nwrite* :Nwrite ? give help :Nwrite "machine:path" uses rcp :Nwrite "machine path" uses ftp with <.netrc> :Nwrite "machine id password path" uses ftp :Nwrite "dav://machine[:port]/path" uses cadaver :Nwrite "ftp://[user@]machine[[:#]port]/path" uses ftp autodetects <.netrc> :Nwrite "rcp://[user@]machine/path" uses rcp :Nwrite "rsync://[user@]machine[:port]/path" uses rsync :Nwrite "scp://[user@]machine[[:#]port]/path" uses scp :Nwrite "sftp://[user@]machine/path" uses sftp http: not supported! DIRECTORY LISTING :Nread [protocol]://[user]@hostname/path/ USER AND PASSWORD CHANGING Attempts to use ftp will prompt you for a user-id and a password. These will be saved in g:netrw_uid and g:netrw_passwd Subsequent uses of ftp will re-use those. If you need to use a different user id and/or password, you'll want to call NetUserPass() first. :NetUserPass [uid [password]] -- prompts as needed :call NetUserPass() -- prompts for uid and password :call NetUserPass("uid") -- prompts for password :call NetUserPass("uid","password") -- sets global uid and password VARIABLES *netrw-variables* b:netrw_lastfile last file Network-read/written retained on a per-buffer basis (supports plain :Nw ) s:netrw_line during Nw/NetWrite, holds current line number s:netrw_col during Nw/NetWrite, holds current column number s:netrw_line and s:netrw_col are used to restore the cursor position on writes g:netrw_ftp if it doesn't exist, use default ftp =0 use default ftp (uid password) =1 use alternate ftp method (user uid password) g:netrw_ftpmode ="binary" (default) ="ascii" g:netrw_uid (ftp) user-id, retained on a per-session basis g:netrw_passwd (ftp) password, retained on a per-session basis g:netrw_win95ftp =1 if using Win95, will remove four trailing blank lines that o/s's ftp "provides" on transfers =0 force normal ftp behavior (no trailing line removal) g:netrw_cygwin =1 assume scp under windows is from cygwin Also permits network browsing to use ls with time and size sorting (default if windows) =0 assume Windows' scp accepts windows-style paths Network browsing uses dir instead of ls This option is ignored if you're using unix g:netrw_use_nt_rcp=0 don't use the rcp of WinNT, Win2000 and WinXP =1 use WinNT's rcp in binary mode (default) PATHS *netrw-path* Paths to files are generally user-directory relative for most protocols. It is possible that some protocol will make paths relative to some associated directory, however. example: vim scp://user@host/somefile example: vim scp://user@host/subdir1/subdir2/somefile where "somefile" is the "user"'s home directory. If you wish to get a file using root-relative paths, use the full path: example: vim scp://user@host//somefile example: vim scp://user@host//subdir1/subdir2/somefile ============================================================================== 2. Network-Oriented File Transfer *netrw-xfer* Network-oriented file transfer under Vim is implemented by a VimL-based script () using plugin techniques. It currently supports both reading and writing across networks using rcp, scp, ftp or ftp+<.netrc>, scp, fetch, dav/cadaver, rsync, or sftp. http is currently supported read-only via use of wget or fetch. is a standard plugin which acts as glue between Vim and the various file transfer programs. It uses autocommand events (BufReadCmd, FileReadCmd, BufWriteCmd) to intercept reads/writes with url-like filenames. > ex. vim ftp://hostname/path/to/file < The characters preceding the colon specify the protocol to use; in the example, its ftp. The script then formulates a command or a series of commands (typically ftp) which it issues to an external program (ftp, scp, etc) which does the actual file transfer/protocol. Files are read from/written to a temporary file (under Unix/Linux, /tmp/...) which the script will clean up. One may modify any protocol's implementing external application by setting a variable (ex. scp uses the variable g:netrw_scp_cmd, which is defaulted to "scp -q"). Ftp, an old protocol, seems to be blessed by numerous implementations. Unfortunately, some implementations are noisy (ie., add junk to the end of the file). Thus, concerned users may decide to write a NetReadFixup() function that will clean up after reading with their ftp. Some Unix systems (ie., FreeBSD) provide a utility called "fetch" which uses the ftp protocol but is not noisy and more convenient, actually, for to use. Consequently, if "fetch" is executable, it will be used to do reads for ftp://... (and http://...) . See |netrw-var| for more about this. For rcp, scp, sftp, and http, one may use network-oriented file transfers transparently; ie. > vim rcp://[user@]machine/path vim scp://[user@]machine/path < If your ftp supports <.netrc>, then it too can be just as transparently used if the needed triad of machine name, user id, and password are present in that file. Your ftp must be able to use the <.netrc> file on its own, however. > vim ftp://[user@]machine[[:#]portnumber]/path < However, ftp will often need to query the user for the userid and password. The latter will be done "silently"; ie. asterisks will show up instead of the actually-typed-in password. Netrw will retain the userid and password for subsequent read/writes from the most recent transfer so subsequent transfers (read/write) to or from that machine will take place without additional prompting. *netrw-urls* +=================================+============================+============+ | Reading | Writing | Uses | +=================================+============================+============+ | DAV: | | | | dav://host/path | | cadaver | | :Nread dav://host/path | :Nwrite dav://host/path | cadaver | +---------------------------------+----------------------------+------------+ | FETCH: | | | | fetch://[user@]host/path | | | | fetch://[user@]host:http/path | Not Available | fetch | | :Nread fetch://[user@]host/path| | | +---------------------------------+----------------------------+------------+ | FILE: | | | | file:///* | file:///* | | | file://localhost/* | file://localhost/* | | +---------------------------------+----------------------------+------------+ | FTP: (*3) | (*3) | | | ftp://[user@]host/path | ftp://[user@]host/path | ftp (*2) | | :Nread ftp://host/path | :Nwrite ftp://host/path | ftp+.netrc | | :Nread host path | :Nwrite host path | ftp+.netrc | | :Nread host uid pass path | :Nwrite host uid pass path | ftp | +---------------------------------+----------------------------+------------+ | HTTP: wget is executable: (*4) | | | | http://[user@]host/path | Not Available | wget | +---------------------------------+----------------------------+------------+ | HTTP: fetch is executable (*4) | | | | http://[user@]host/path | Not Available | fetch | +---------------------------------+----------------------------+------------+ | RCP: | | | | rcp://[user@]host/path | rcp://[user@]host/path | rcp | +---------------------------------+----------------------------+------------+ | RSYNC: | | | | rsync://[user@]host/path | rsync://[user@]host/path | rsync | | :Nread rsync://host/path | :Nwrite rsync://host/path | rsync | | :Nread rcp://host/path | :Nwrite rcp://host/path | rcp | +---------------------------------+----------------------------+------------+ | SCP: | | | | scp://[user@]host/path | scp://[user@]host/path | scp | | :Nread scp://host/path | :Nwrite scp://host/path | scp (*1) | +---------------------------------+----------------------------+------------+ | SFTP: | | | | sftp://[user@]host/path | sftp://[user@]host/path | sftp | | :Nread sftp://host/path | :Nwrite sftp://host/path | sftp (*1) | +=================================+============================+============+ (*1) For an absolute path use scp://machine//path. (*2) if <.netrc> is present, it is assumed that it will work with your ftp client. Otherwise the script will prompt for user-id and pasword. (*3) for ftp, "machine" may be machine#port or machine:port if a different port is needed than the standard ftp port (*4) for http:..., if wget is available it will be used. Otherwise, if fetch is available it will be used. Both the :Nread and the :Nwrite ex-commands can accept multiple filenames. NETRC *netrw-netrc* The typical syntax for lines in a <.netrc> file is given as shown below. Ftp under Unix usually support <.netrc>; Windows' ftp usually doesn't. > machine {full machine name} login {user-id} password "{password}" default login {user-id} password "{password}" Your ftp client must handle the use of <.netrc> on its own, but if the <.netrc> file exists, an ftp transfer will not ask for the user-id or password. Note: Since this file contains passwords, make very sure nobody else can read this file! Most programs will refuse to use a .netrc that is readable for others. Don't forget that the system administrator can still read the file! PASSWORD *netrw-passwd* The script attempts to get passwords for ftp invisibly using |inputsecret()|, a built-in Vim function. See |netrw-uidpass| for how to change the password after one has set it. Unfortunately there doesn't appear to be a way for netrw to feed a password to scp. Thus every transfer via scp will require re-entry of the password. ============================================================================== 3. Activation *netrw-activate* Network-oriented file transfers are available by default whenever |'nocompatible'| mode is enabled. The file resides in your system's vim-plugin directory and is sourced automatically whenever you bring up vim. ============================================================================== 4. Transparent File Transfer *netrw-transparent* Transparent file transfers occur whenever a regular file read or write (invoked via an |:autocmd| for |BufReadCmd| or |BufWriteCmd| events) is made. Thus one may use files across networks as if they were local. > vim ftp://[user@]machine/path ... :wq ============================================================================== 5. Ex Commands *netrw-ex* The usual read/write commands are supported. There are also a couple of additional commands available. :[range]Nw Write the specified lines to the current file as specified in b:netrw_lastfile. :[range]Nw {netfile} [{netfile}]... Write the specified lines to the {netfile}. :Nread Read the specified lines into the current buffer from the file specified in b:netrw_lastfile. :Nread {netfile} {netfile}... Read the {netfile} after the current line. *netrw-uidpass* :call NetUserPass() If b:netrw_uid and b:netrw_passwd don't exist, this function query the user for them. :call NetUserPass("userid") This call will set the b:netrw_uid and, if the password doesn't exist, will query the user for it. :call NetUserPass("userid","passwd") This call will set both the b:netrw_uid and b:netrw_passwd. The user-id and password are used by ftp transfers. One may effectively remove the user-id and password by using "" strings. ============================================================================== 6. Variables and Options *netrw-options* *netrw-var* The script uses several variables which can affect 's behavior. These variables typically may be set in the user's <.vimrc> file: > ------------- Netrw Options ------------- Option Meaning -------------- ----------------------------------------------- < b:netrw_col Holds current cursor position (during NetWrite) g:netrw_cygwin =1 assume scp under windows is from cygwin (default/windows) =0 assume scp under windows accepts windows style paths (default/else) g:netrw_ftp =0 use default ftp (uid password) g:netrw_ftpmode ="binary" (default) ="ascii" (your choice) g:netrw_ignorenetrc =1 (default) if you have a <.netrc> file but you don't want it used, then set this variable. Its mere existence is enough to cause <.netrc> to be ignored. b:netrw_lastfile Holds latest method/machine/path. b:netrw_line Holds current line number (during NetWrite) g:netrw_passwd Holds current password for ftp. g:netrw_silent =0 transfers done normally =1 transfers done silently g:netrw_uid Holds current user-id for ftp. =1 use alternate ftp (user uid password) (see |netrw-options|) g:netrw_use_nt_rcp =0 don't use WinNT/2K/XP's rcp (default) =1 use WinNT/2K/XP's rcp, binary mode g:netrw_win95ftp =0 use unix-style ftp even if win95/98/ME/etc =1 use default method to do ftp > ----------------------------------------------------------------------- < The script will also make use of the following variables internally, albeit temporarily. > ------------------- Temporary Variables ------------------- Variable Meaning -------- ------------------------------------ < g:netrw_method Index indicating rcp/ftp+.netrc/ftp g:netrw_machine Holds machine name parsed from input g:netrw_fname Holds filename being accessed > ------------------------------------------------------------ < *netrw-protocol* Netrw supports a number of protocols. These protocols are invoked using the variables listed below, and may be modified by the user. > ------------------------ Protocol Control Options ------------------------ Option Type Setting Meaning --------- -------- -------------- --------------------------- < netrw_ftp variable =doesn't exist userid set by "user userid" =0 userid set by "user userid" =1 userid set by "userid" NetReadFixup function =doesn't exist no change =exists Allows user to have files read via ftp automatically transformed however they wish by NetReadFixup() g:netrw_dav_cmd variable ="cadaver" g:netrw_fetch_cmd variable ="fetch -o" g:netrw_ftp_cmd variable ="ftp" g:netrw_http_cmd variable ="fetch -o" else if fetch is executable g:netrw_http_cmd variable ="wget -O" if wget is executable g:netrw_list_cmd variable ="ssh HOSTNAME ls -Fa" g:netrw_rcp_cmd variable ="rcp" g:netrw_rsync_cmd variable ="rsync -a" g:netrw_scp_cmd variable ="scp -q" g:netrw_sftp_cmd variable ="sftp" > ------------------------------------------------------------------------- < *netrw-ftp* The first two options both help with certain ftp's that give trouble otherwise. In order to best understand how to use these options if ftp is giving you troubles, a bit of discussion follows on how netrw does ftp reads. The g:netrw_..._cmd variables specify the external program to use handle the associated protocol (rcp, ftp, etc), plus any options. The g:netrw_list_cmd's HOSTNAME entry will be changed via substitution with whatever the current request is for a hostname. For ftp, netrw typically builds up lines of one of the following formats in a temporary file: > IF g:netrw_ftp !exists or is not 1 IF g:netrw_ftp exists and is 1 ---------------------------------- ------------------------------ < open machine [port] open machine [port] user userid password userid password [g:netrw_ftpmode] password get filename tempfile [g:netrw_ftpmode] get filename tempfile > --------------------------------------------------------------------- < Netrw then executes the lines above by use of a filter: > :%! {g:netrw_ftp_cmd} -i [-n] < where g:netrw_ftp_cmd is usually "ftp", -i tells ftp not to be interactive -n means don't use netrc and is used for Method #3 (ftp w/o <.netrc>) If <.netrc> exists it will be used to avoid having to query the user for userid and password. The transferred file is put into a temporary file. The temporary file is then read into the main editing session window that requested it and the temporary file deleted. If your ftp doesn't accept the "user" command and immediately just demands a userid, then try putting "let netrw_ftp=1" in your <.vimrc>. *netrw-cadaver* To handle the SSL certificate dialog for untrusted servers, one may pull down the certificate and place it into /usr/ssl/cert.pem. This operation renders the server treatment as "trusted". *netrw-fixup* If your ftp for whatever reason generates unwanted lines (such as AUTH messages) you may write a NetReadFixup(tmpfile) function: > function! NetReadFixup(method,line1,line2) " a:line1: first new line in current file " a:line2: last new line in current file if a:method == 1 "rcp elseif a:method == 2 "ftp + <.netrc> elseif a:method == 3 "ftp + machine,uid,password,filename elseif a:method == 4 "scp elseif a:method == 5 "http/wget elseif a:method == 6 "dav/cadaver elseif a:method == 7 "rsync elseif a:method == 8 "fetch elseif a:method == 9 "sftp else " complain endif endfunction > The NetReadFixup() function will be called if it exists and thus allows you to customize your reading process. As a further example, contains just such a function to handle Windows 95 ftp. For whatever reason, Windows 95's ftp dumps four blank lines at the end of a transfer, and so it is desirable to automate their removal. Here's some code taken from itself: > if has("win95") && g:netrw_win95ftp fun! NetReadFixup(method, line1, line2) if method == 3 " ftp (no <.netrc>) let fourblanklines= line2 - 3 silent fourblanklines.",".line2."g/^\s*/d" endif endfunction endif > ============================================================================== 7. Directory Browser *netrw-browse* *netrw-dir* *netrw-list* *netrw-help* ?..........Help....................................|netrw-help| .......Browsing................................|netrw-cr| ......Deleting Files or Directories...........|netrw-delete| -..........Going Up................................|netrw--| a..........Hiding Files or Directories.............|netrw-a| b..........Bookmarking a Directory.................|netrw-b| B..........Changing to a Bookmarked Directory......|netrw-B| c..........Make Browsing Directory The Current Dir.|netrw-c| d..........Make A New Directory....................|netrw-d| D..........Deleting Files or Directories...........|netrw-D| ......Edit File/Directory Hiding List.........|netrw-h| i..........Long Listing............................|netrw-i| ......Refreshing the Listing..................|netrw-ctrl-l| o..........Browsing with a Horizontal Split........|netrw-o| p..........Preview Window..........................|netrw-p| q..........Listing Bookmarks.......................|netrw-q| r..........Reversing Sorting Order.................|netrw-r| R..........Renaming Files or Directories...........|netrw-R| s..........Selecting Sorting Style.................|netrw-s| S..........Editing the Sorting Sequence............|netrw-S| v..........Browsing with a Vertical Split..........|netrw-v| x..........Customizing Browsing....................|netrw-x| QUICK REFERENCE COMMANDS TABLE *netrw-browse-cmds* > ------- ----------- Command Explanation ------- ----------- < ? Causes Netrw to issue help Netrw will enter the directory or read the file Netrw will attempt to remove the file/directory d Make a directory D Netrw will attempt to remove the file(s)/directory(ies) R Netrw will attempt to rename the file(s)/directory(ies) - Makes Netrw go up one directory a Toggles between normal display, hiding (suppress display of files matching g:netrw_list_hide) showing (display only files which match g:netrw_list_hide) c Make current browsing directory the current directory Edit file hiding list i Toggles between long and short listing Causes Netrw to refresh the directory listing o Enter the file/directory under the cursor in a new browser window. A horizontal split is used. r Reverse sorting order s Select sorting style: by name, time, or file size v Enter the file/directory under the cursor in a new browser window. A vertical split is used. x Apply a function to a file. NETRW BROWSER VARIABLES *netrw-browse-var* > --- ----------- Var Explanation --- ----------- < g:netrw_alto change from above splitting to below splitting by setting this variable (see |netrw-o|) g:netrw_altv change from left splitting to right splitting by setting this variable (see |netrw-v|) g:netrw_ftp_browse_reject ftp can produce a number of errors and warnings that can show up as "directories" and "files" in the listing. This pattern is used to remove such embedded messages. g:netrw_keepdir =1 (default) keep current directory immune from the browsing directory. =0 keep the current directory the same as the browsing directory. The browsing directory is contained in b:netrw_curdir g:netrw_list_cmd command for listing remote directories g:netrw_longlist if =1, then long listing will be default g:netrw_ftp_list_cmd options for passing along to ftp for directory listing. Defaults: unix or g:netrw_cygwin set: : "ls -lF" otherwise "dir" g:netrw_list_hide comma separated list of patterns for hiding files g:netrw_local_mkdir command for making a local directory g:netrw_local_rmdir remove directory command (rmdir) g:netrw_local_rename rename file/directory command unix-default: rm win32-default: ren g:netrw_maxfilenamelen =32 by default, selected so as to make long listings fit on 80 column displays. If your screen is wider, and you have file/directory names longer than 32 bytes, you may set this option to keep listings columnar. g:netrw_mkdir_cmd command for making a remote directory g:netrw_rm_cmd command for removing files g:netrw_rmdir_cmd command for removing directories g:netrw_rmf_cmd command for removing softlinks g:netrw_hide if true, the hiding list is used g:netrw_sort_by sort by "name", "time", or "size" g:netrw_sort_direction sorting direction: "normal" or "reverse" g:netrw_sort_sequence when sorting by name, first sort by the comma-separated pattern sequence g:netrw_timefmt specify format string to strftime() (%c) g:netrw_winsize specify initial size of new o/v windows INTRODUCTION TO DIRECTORY BROWSING Netrw supports the browsing of directories on the local system and on remote hosts, including generating listing directories, entering directories, editing files therein, deleting files/directories, making new directories, and moving (renaming) files and directories. The Netrw browser generally implements the previous explorer maps and commands for remote directories, although details (such as pertinent global variable names) necessarily differ. The Netrw remote file and directory browser handles two protocols: ssh and ftp. The protocol in the url, if it is ftp, will cause netrw to use ftp in its remote browsing. Any other protocol will be used for file transfers, but otherwise the ssh protocol will be used to do remote directory browsing. To enter the netrw directory browser, simply attempt to read a "file" with a trailing slash and it will be interpreted as a request to list a directory: vim [protocol]://[user@]hostname/path/ If you'd like to avoid entering the password in for directory listings, scp, ssh interaction, etc, see |netrw-list-hack|. REFRESHING THE LISTING *netrw-ctrl-l* To refresh either a local or remote directory listing, press ctrl-l () or hit the when atop the ./ directory entry in the listing. One may also refresh a local directory by using ":e .". GOING UP *netrw--* To go up a directory, press - or his the when atop the ../ directory entry in the listing. Netrw will modify the command in *g:netrw_list_cmd* to perform the directory listing operation. By default the command is: ssh HOSTNAME ls -FLa where the HOSTNAME becomes the [user@]hostname as requested by the attempt to read. Naturally, the user may override this command with whatever is preferred. The NetList function which implements remote directory browsing expects that directories will be flagged by a trailing slash. BROWSING *netrw-cr* Browsing is simple: move the cursor onto a file or directory of interest. Hitting the (the return key) will select the file or directory. Directories will themselves be listed, and files will be opened using the protocol given in the original read request. LONG VS SHORT LISTING *netrw-i* The short listing format gives just the files' and directories' names. The long listing is either based on the "ls" command via ssh for remote directories or displays the filename, file size (in bytes), and the time and date of last modification for local directories. MAKING A NEW DIRECTORY *netrw-d* With the "d" map one may make a new directory either remotely (which depends on the global variable g:netrw_mkdir_cmd) or locally (which depends on the global variable g:netrw_local_mkdir). Netrw will issue a request for the new directory's name. A bare at that point will abort the making of the directory. Attempts to make a local directory that already exists (as either a file or a directory) will be detected, reported on, and ignored. DELETING FILES OR DIRECTORIES *netrw-delete* *netrw-D* Deleting/removing files and directories involves moving the cursor to the file/directory to be deleted and pressing "D". Directories must be empty first before they can be successfully removed. If the directory is a softlink to a directory, then netrw will make two requests to remove the directory before succeeding. Netrw will ask for confirmation before doing the removal(s). You may select a range of lines with the "V" command (visual selection), and then pressing "D". *g:netrw_rm_cmd* The g:netrw_rm_cmd, g:netrw_rmf_cmd, and g:netrw_rmdir_cmd variables are used to control the attempts to remove files and directories. The g:netrw_rm_cmd is used with files, and its default value is: g:netrw_rm_cmd: ssh HOSTNAME rm *g:netrw_rmdir_cmd* The g:netrw_rmdir_cmd variable is used to support the removal of directories. Its default value is: g:netrw_rmdir_cmd: ssh HOSTNAME rmdir *g:netrw_rmf_cmd* If removing a directory fails with g:netrw_rmdir_cmd, netrw then will attempt to remove it again using the g:netrw_rmf_cmd variable. Its default value is: g:netrw_rmf_cmd: ssh HOSTNAME rm -f RENAMING FILES OR DIRECTORIES *netrw-move* *netrw-rename* *netrw-R* Renaming/moving files and directories involves moving the cursor to the file/directory to be moved (renamed) and pressing "R". You will then be queried for where you want the file/directory to be moved. You may select a range of lines with the "V" command (visual selection), and then pressing "R". The g:netrw_rename_cmd variable is used to implement renaming. By default its value is: ssh HOSTNAME mv One may rename a block of files and directories by selecting them with the V (|linewise-visual|). HIDING FILES OR DIRECTORIES *g:netrw-a* *g:netrw_list_hide* Netrw's browsing facility allows one to use the hiding list in one of three ways: ignore it, hide files which match, and show only those files which match. The g:netrw_list_hide variable holds a comma delimited list of patterns (ex. \.obj) which specify the hiding list. (also see |netrw-h|) EDIT FILE OR DIRECTORY HIDING LIST *netrw-h* The "" map brings up a requestor allowing the user to change the file/directory hiding list. The hiding list consists of one or more patterns delimited by commas. Files and/or directories satisfying these patterns will be hidden (ie. not shown). BROWSING WITH A HORIZONTALLY SPLIT WINDOW *netrw-o* Normally one enters a file or directory using the . However, the "o" map allows one to open a new window to hold the new directory listing or file. A horizontal split is used. (for vertical splitting, see |netrw-v|) Normally, the o key splits the window horizontally with the new window and cursor at the top. To change to splitting the window horizontally with the new window and cursor at the bottom, have let g:netrw_alto = 1 in your <.vimrc>. PREVIEW WINDOW One may use a preview window (currently only for local browsing) by using the "p" key when the cursor is atop the desired filename to be previewed. SELECTING SORTING STYLE *netrw-s* One may select the sorting style by name, time, or (file) size. The "s" map allows one to circulate among the three choices; the directory listing will automatically be refreshed to reflect the selected style. EDITING THE SORTING SEQUENCE *netrw-S* When "Sorted by" is name, one may specify priority via the sorting sequence (g:netrw_sort_sequence). The sorting sequence typically prioritizes the name-listing by suffix, although any pattern will do. Patterns are delimited by commas. The default sorting sequence is: > /$,*,\.bak$,\.o$,\.h$,\.info$,\.swp$,\.obj$ < The lone * is where all filenames not covered by one of the other patterns will end up. One may change the sorting sequence by modifying the g:netrw_sort_sequence variable (either manually or in your <.vimrc>) or by using the "S" map. REVERSING SORTING ORDER *netrw-r* One may toggle between normal and reverse sorting order by pressing the "r" key. BROWSING WITH A VERTICALLY SPLIT WINDOW *netrw-v* Normally one enters a file or directory using the . However, the "v" map allows one to open a new window to hold the new directory listing or file. A vertical split is used. (for horizontal splitting, see |netrw-o|) Normally, the v key splits the window vertically with the new window and cursor at the left. To change to splitting the window vertically with the new window and cursor at the right, have let g:netrw_altv = 1 in your <.vimrc>. CUSTOMIZING BROWSING WITH A USER FUNCTION *netrw-x* One may "enter" a file with a special handler, thereby firing up a browser or other application, for example, on a file by hitting the "x" key. Presumably one could write handlers that would start OpenOffice programs (oowriter), etc, based on the file's extension coupled with the user's hitting the "x" key atop the file. The Netrw executor applies a user-defined function to a file, based on its extension. Of course, the handler function must exist for it to be called! > Ex. mypgm.html x -> NetrwFileHandler_html("scp://user@host/some/path/mypgm.html") < See the for an example of how to handle an html file with mozilla. MAKING THE BROWSING DIRECTORY THE CURRENT DIRECTORY *netrw-c* *netrw-curdir* By default, g:netrw_keepdir is 1. This setting means that the current directory will not track the browsing directory. However, setting g:netrw_keepdir to 0 (say, in your <.vimrc>) will tell netrw to have the currently browsed directory be the current directory. With the default setting for g:netrw_keepdir, in order to make the two directories the same, use the "c" map (just type c). That map will set the current directory to the current browsing directory. BOOKMARKING A DIRECTORY *netrw-b* *netrw-bookmark* *netrw-bookmarks* One may easily "bookmark" a directory by using {cnt}b Any count may be used. One may use viminfo's "!" option to retain bookmarks between vim sessions. CHANGING TO A BOOKMARKED DIRECTORY *netrw-B* To change directory back to a bookmarked directory, use {cnt}B Any count may be used. LISTING BOOKMARKS *netrw-q* Pressing "q" will list the bookmarked directories. (query) IMPROVING DIRECTORY BROWSING *netrw-list-hack* Especially with the remote directory browser, constantly entering the password is tedious. For Linux/Unix systems, I suggest looking into http://hacks.oreilly.com/pub/h/66 It gives a tip for setting up password-less use of ssh and scp, and discusses the associated security issues. ============================================================================== 8. Problems and Fixes *netrw-problems* (This section is likely to grow as I get feedback) (also see |netrw-debug|) P1. I use windows 95, and my ftp dumps four blank lines at the end of every read. See |netrw-fixup|, and put the following into your <.vimrc> file: let g:netrw_win95ftp= 1 P2. I use windows, and my network browsing with ftp doesn't sort by time or size Windows' ftp has a minimal support for ls (ie. it doesn't accept sorting options). It doesn't support the -F which gives an explanatory character (ABC/ for "ABC is a directory"). Netrw uses dir to get its short and long listings. If you think your ftp does support a full-up ls, put the following into your <.vimrc>: let g:netrw_ftp_list_cmd= "ls -lF" Alternatively, if you have cygwin on your Windows box, put into your <.vimrc>: let g:netrw_cygwin= 1 P3. I tried rcp://user@host/ (or protocol other than ftp) and netrw used ssh! That wasn't what I asked for... Netrw has two methods for browsing remote directories: ssh and ftp. Unless you specify ftp specifically, ssh is used. When it comes time to do download a file (not just a directory listing), netrw will use the given protocol to do so. P4. I would like long listings to be the default. let g:netrw_longlist=1 Check out |netrw-browse-var| for more customizations that you can set. P5. My times come up oddly in local browsing Does your system's strftime() accept the "%c" to yield dates such as "Sun Apr 27 11:49:23 1997"? If not, do a "man strftime" and find out what option should be used. Then put it into your <.vimrc>: let g:netrw_timefmt= "%X" (where X is the option) P6. I want my current directory to track my browsing. How do I do that? let g:netrw_keepdir= 0 ============================================================================== 9. Debugging *netrw-debug* The script is typically available as: /usr/local/share/vim/vim6x/plugin/netrw.vim which is loaded automatically at startup (assuming :set nocp). 1. Get the script, available as: http://mysite.verizon.net/astronaut/vim/index.html#vimlinks_scripts as "Decho, a vimL debugging aid" or http://vim.sourceforge.net/scripts/script.php?script_id=120 and put it into your local plugin directory. 2. itself needs the script, so you'll need to put it into your .vim/plugin, too. You may obtain it from: http://mysite.verizon.net/astronaut/vim/index.html#VimFuncs as "DrC's Utilities" 3. Edit the file by typing: vim netrw.vim :DechoOn :wq To restore to normal non-debugging behavior, edit by typing vim netrw.vim :DechoOff :wq This command, provided by , will comment out all Decho-debugging statements (Dfunc(), Dret(), Decho(), Dredir()). 4. Then bring up vim and attempt a transfer. A set of messages should appear concerning the steps that took in attempting to read/write your file over the network. Please send that information to 's maintainer, drchipNOSPAM at campbellfamily.biz - NOSPAM ============================================================================== 10. History *netrw-history* v49: * will use ftp for http://.../ browsing v48: * One may use ftp to do remote host file browsing * (windows and !cygwin) remote browsing with ftp can now use the "dir" command internally to provide listings * g:netrw_keepdir now allows one to keep the initial current directory as the current directory (normally the local file browser makes the currently viewed directory the current directory) * g:netrw_alto and g:netrw_altv now support alternate placement of windows started with o or v * Nread ? and Nwrite ? now uses echomsg (instead of echo) so :messages can repeat showing the help * bugfix: avoids problems with partial matches of directory names to prior buffers with longer names * one can suppress error messages with g:netrw_quiet * ctrl-h used instead of h for editing hiding list * one may edit the sorting sequence with the S map * now allows confirmation of deletion with [y(es) n(o) a(ll) q(uit)] * the "x" map now handles special file viewing with: (windows) rundll32 url.dll (gnome) gnome-open (kde) kfmclient If none of these are on the executable path, then NetrwFileHandlers.vim is used. * directory bookmarking during both local and remote browsing implemented * one may view all, use the hiding list to suppress, or use the hiding list to show-only remote and local file/directory listings * improved unusual file and directory name handling * preview window support v47: * now handles local directory browsing. v46: * now handles remote directory browsing * g:netrw_silent (if 1) will cause all transfers to be silent'd v45: * made the [user@]hostname:path form a bit more restrictive to better handle errors in using protocols (e.g. scp:usr@host:file was being recognized as an rcp request) v44: * changed from "rsync -a" to just "rsync" * somehow an editing error messed up the test to recognize use of the fetch method for NetRead. * more debugging statements included v43: * moved "Explanation" comments to help file as "Network Reference" (|netrw-ref|) * now uses Dfunc() Decho() and Dret() for debugging * removed superfluous NetRestorePosn() calls v42: * now does BufReadPre and BufReadPost events on file:///* and file://localhost/* v41: * installed file:///* and file://localhost/* handling v40: * prevents redraw when a protocol error occurs so that the user may see it v39: * sftp support v38: * Now uses NetRestorePosn() calls with Nread/Nwrite commands * Temporary files now removed via bwipe! instead of bwipe (thanks to Dave Roberts) v37: * Claar's modifications which test if ftp is successful, otherwise give an error message * After a read, the alternate file was pointing to the temp file. The temp file buffer is now wiped out. * removed silent from transfer methods so user can see what's happening ============================================================================== 11. Credits *netrw-credits* Vim editor by Bram Moolenaar (Thanks, Bram!) dav support by C Campbell fetch support by Bram Moolenaar and C Campbell ftp support by C Campbell - NOSPAM http support by Bram Moolenaar rcp rsync support by C Campbell (suggested by Erik Warendorph) scp support by raf sftp support by C Campbell inputsecret(), BufReadCmd, BufWriteCmd contributed by C Campbell Jérôme Augé -- also using new buffer method with ftp+.netrc Bram Moolenaar -- obviously vim itself, :e and v:cmdarg use, fetch,... Yasuhiro Matsumoto -- pointing out undo+0r problem and a solution Erik Warendorph -- for several suggestions (g:netrw_..._cmd variables, rsync etc) Doug Claar -- modifications to test for success with ftp operation ============================================================================== vim:tw=78:ts=8:ft=help:norl: syntax/netrwlist.vim0100604000031300003130000000446310117634004013206 0ustar ceccec" Language : Netrw Remote-Directory Listing Syntax " Maintainer : Charles E. Campbell, Jr. " Last change: Sep 08, 2004 " Version : 5 " --------------------------------------------------------------------- " Syntax Clearing: {{{1 if version < 600 syntax clear elseif exists("b:current_syntax") finish endif " --------------------------------------------------------------------- " Directory List Syntax Highlighting: {{{1 syn cluster NetrwGroup contains=netrwHide,netrwSortBy,netrwSortSeq,netrwQuickHelp,netrwVersion syn match netrwDir "^.*/\%(\t\|$\)" contains=netrwClassify syn match netrwClassify "[*=|@/]\%(\t\|$\)" syn match netrwSymLink "^.*@\%(\t\|$\)" contains=netrwClassify syn match netrwComment '".*\%(\t\|$\)' contains=@NetrwGroup syn match netrwHide '^"\s*\(Hid\|Show\)ing:' skipwhite nextgroup=netrwHidePat syn match netrwSlash contained "/" syn match netrwHidePat contained "[^,]\+" skipwhite nextgroup=netrwHideSep syn match netrwHideSep contained transparent "," skipwhite nextgroup=netrwHidePat syn match netrwSortBy contained transparent "Sorted by" skipwhite nextgroup=netrwList syn match netrwSortSeq contained transparent "Sort sequence:" skipwhite nextgroup=netrwList syn match netrwList contained ".*$" contains=netrwComma syn match netrwComma contained "," syn region netrwQuickHelp contained matchgroup=Comment start="Quick Help:\s\+" end="$" contains=netrwHelpCmd keepend syn match netrwHelpCmd contained "\S\ze:" skipwhite nextgroup=netrwCmdSep syn match netrwCmdSep contained ":" nextgroup=netrwCmdNote syn match netrwCmdNote contained ".\{-}\ze " syn match netrwVersion contained "(netrw.*)" " --------------------------------------------------------------------- " Highlighting Links: {{{1 if !exists("did_drchip_dbg_syntax") let did_drchip_netrwlist_syntax= 1 hi link netrwClassify Function hi link netrwCmdSep Delimiter hi link netrwComment Comment hi link netrwDir Directory hi link netrwHelpCmd Function hi link netrwHidePat Statement hi link netrwList Statement hi link netrwVersion Identifier hi link netrwSymLink Special hi link netrwComma netrwComment hi link netrwHide netrwComment endif " Current Syntax: {{{1 let b:current_syntax = "netrwlist" " --------------------------------------------------------------------- " vim: ts=8 fdm=marker