Mercurial > vim
comparison runtime/autoload/netrw.vim @ 1621:82b5078be2dd
updated for version 7.2a
author | vimboss |
---|---|
date | Tue, 24 Jun 2008 21:56:24 +0000 |
parents | 070f2ac50cf8 |
children | 0b796e045c42 |
comparison
equal
deleted
inserted
replaced
1620:73fe8baea242 | 1621:82b5078be2dd |
---|---|
1 " netrw.vim: Handles file transfer and remote directory listing across | 1 " netrw.vim: Handles file transfer and remote directory listing across |
2 " AUTOLOAD SECTION | 2 " AUTOLOAD SECTION |
3 " Date: May 05, 2007 | 3 " Date: Jun 12, 2008 |
4 " Version: 109 | 4 " Version: 125 |
5 " Maintainer: Charles E Campbell, Jr <NdrOchip@ScampbellPfamily.AbizM-NOSPAM> | 5 " Maintainer: Charles E Campbell, Jr <NdrOchip@ScampbellPfamily.AbizM-NOSPAM> |
6 " GetLatestVimScripts: 1075 1 :AutoInstall: netrw.vim | 6 " GetLatestVimScripts: 1075 1 :AutoInstall: netrw.vim |
7 " Copyright: Copyright (C) 1999-2007 Charles E. Campbell, Jr. {{{1 | 7 " Copyright: Copyright (C) 1999-2008 Charles E. Campbell, Jr. {{{1 |
8 " Permission is hereby granted to use and distribute this code, | 8 " Permission is hereby granted to use and distribute this code, |
9 " with or without modifications, provided that this copyright | 9 " with or without modifications, provided that this copyright |
10 " notice is copied with it. Like anything else that's free, | 10 " notice is copied with it. Like anything else that's free, |
11 " netrw.vim, netrwPlugin.vim, and netrwSettings.vim are provided | 11 " netrw.vim, netrwPlugin.vim, and netrwSettings.vim are provided |
12 " *as is* and comes with no warranty of any kind, either | 12 " *as is* and come with no warranty of any kind, either |
13 " expressed or implied. By using this plugin, you agree that | 13 " expressed or implied. By using this plugin, you agree that |
14 " in no event will the copyright holder be liable for any damages | 14 " in no event will the copyright holder be liable for any damages |
15 " resulting from the use of this software. | 15 " resulting from the use of this software. |
16 " of this software. | 16 "redraw!|call DechoSep()|call inputsave()|call input("Press <cr> to continue")|call inputrestore() |
17 " COMBAK: worked with tmpfile s:GetTempname() in NetRead() NetWrite() | |
18 " !!NEEDS DEBUGGING && TESTING!!! | |
19 "redraw!|call inputsave()|call input("Press <cr> to continue")|call inputrestore() | |
20 " | 17 " |
21 " But be doers of the Word, and not only hearers, deluding your own selves {{{1 | 18 " But be doers of the Word, and not only hearers, deluding your own selves {{{1 |
22 " (James 1:22 RSV) | 19 " (James 1:22 RSV) |
23 " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- | 20 " =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- |
24 " Load Once: {{{1 | 21 " Load Once: {{{1 |
28 if !exists("s:NOTE") | 25 if !exists("s:NOTE") |
29 let s:NOTE = 0 | 26 let s:NOTE = 0 |
30 let s:WARNING = 1 | 27 let s:WARNING = 1 |
31 let s:ERROR = 2 | 28 let s:ERROR = 2 |
32 endif | 29 endif |
33 let g:loaded_netrw = "v109" | 30 let g:loaded_netrw = "v125" |
31 | |
32 " sanity checks | |
34 if v:version < 700 | 33 if v:version < 700 |
35 call netrw#ErrorMsg(s:WARNING,"you need vim version 7.0 or later for version ".g:loaded_netrw." of netrw",1) | 34 call netrw#ErrorMsg(s:WARNING,"you need vim version 7.0 or later for version ".g:loaded_netrw." of netrw",1) |
36 finish | 35 finish |
37 endif | 36 endif |
37 if !exists("*shellescape") | |
38 call netrw#ErrorMsg(s:ERROR,"you need to upgade your vim so that it has shellescape()",64) | |
39 endif | |
40 if !exists("*fnameescape") | |
41 call netrw#ErrorMsg(s:ERROR,"you need to upgade your vim so that it has fnameescape()",65) | |
42 endif | |
43 | |
38 let s:keepcpo= &cpo | 44 let s:keepcpo= &cpo |
39 setlocal cpo&vim | 45 setlocal cpo&vim |
40 "DechoTabOn | 46 "DechoTabOn |
41 "call Decho("doing autoload/netrw.vim version ".g:loaded_netrw) | 47 "call Decho("doing autoload/netrw.vim version ".g:loaded_netrw) |
42 | 48 |
113 let s:netrw_rcpmode = '' | 119 let s:netrw_rcpmode = '' |
114 endif | 120 endif |
115 | 121 |
116 " --------------------------------------------------------------------- | 122 " --------------------------------------------------------------------- |
117 " Default values for netrw's global variables {{{2 | 123 " Default values for netrw's global variables {{{2 |
124 " Cygwin Detection ------- {{{3 | |
125 if !exists("g:netrw_cygwin") | |
126 if has("win32") || has("win95") || has("win64") || has("win16") | |
127 if &shell =~ '\%(\<bash\>\|\<zsh\>\)\%(\.exe\)\=$' | |
128 let g:netrw_cygwin= 1 | |
129 else | |
130 let g:netrw_cygwin= 0 | |
131 endif | |
132 else | |
133 let g:netrw_cygwin= 0 | |
134 endif | |
135 endif | |
118 " Default values - a-c ---------- {{{3 | 136 " Default values - a-c ---------- {{{3 |
119 if !exists("g:netrw_alto") | 137 if !exists("g:netrw_alto") |
120 let g:netrw_alto= &sb | 138 let g:netrw_alto= &sb |
121 endif | 139 endif |
122 if !exists("g:netrw_altv") | 140 if !exists("g:netrw_altv") |
126 let g:netrw_browse_split= 0 | 144 let g:netrw_browse_split= 0 |
127 endif | 145 endif |
128 if !exists("g:netrw_chgwin") | 146 if !exists("g:netrw_chgwin") |
129 let g:netrw_chgwin = -1 | 147 let g:netrw_chgwin = -1 |
130 endif | 148 endif |
131 if !exists("g:netrw_cygwin") | 149 if !exists("g:netrw_compress") |
132 if has("win32") || has("win95") || has("win64") || has("win16") | 150 let g:netrw_compress= "gzip" |
133 if &shell =~ '\%(\<bash\>\|\<zsh\>\)\%(\.exe\)\=$' | |
134 let g:netrw_cygwin= 1 | |
135 else | |
136 let g:netrw_cygwin= 0 | |
137 endif | |
138 else | |
139 let g:netrw_cygwin= 0 | |
140 endif | |
141 else | |
142 let g:netrw_cygwin= 0 | |
143 endif | 151 endif |
144 " Default values - d-f ---------- {{{3 | 152 if !exists("g:netrw_ctags") |
153 let g:netrw_ctags= "ctags" | |
154 endif | |
155 " Default values - d-g ---------- {{{3 | |
145 if !exists("g:NETRW_DIRHIST_CNT") | 156 if !exists("g:NETRW_DIRHIST_CNT") |
146 let g:NETRW_DIRHIST_CNT= 0 | 157 let g:NETRW_DIRHIST_CNT= 0 |
147 endif | 158 endif |
159 if !exists("g:netrw_decompress") | |
160 let g:netrw_decompress= { ".gz" : "gunzip" , ".bz2" : "bunzip2" , ".zip" : "unzip" , ".tar" : "tar -xf"} | |
161 endif | |
148 if !exists("g:netrw_dirhistmax") | 162 if !exists("g:netrw_dirhistmax") |
149 let g:netrw_dirhistmax= 10 | 163 let g:netrw_dirhistmax= 10 |
164 endif | |
165 if !exists("g:netrw_fastbrowse") | |
166 let g:netrw_fastbrowse= 1 | |
150 endif | 167 endif |
151 if !exists("g:netrw_ftp_browse_reject") | 168 if !exists("g:netrw_ftp_browse_reject") |
152 let g:netrw_ftp_browse_reject='^total\s\+\d\+$\|^Trying\s\+\d\+.*$\|^KERBEROS_V\d rejected\|^Security extensions not\|No such file\|: connect to address [0-9a-fA-F:]*: No route to host$' | 169 let g:netrw_ftp_browse_reject='^total\s\+\d\+$\|^Trying\s\+\d\+.*$\|^KERBEROS_V\d rejected\|^Security extensions not\|No such file\|: connect to address [0-9a-fA-F:]*: No route to host$' |
153 endif | 170 endif |
154 if !exists("g:netrw_ftp_list_cmd") | 171 if !exists("g:netrw_ftp_list_cmd") |
196 endif | 213 endif |
197 if !exists("g:netrw_list_hide") | 214 if !exists("g:netrw_list_hide") |
198 let g:netrw_list_hide= "" | 215 let g:netrw_list_hide= "" |
199 endif | 216 endif |
200 " Default values - lh-lz ---------- {{{3 | 217 " Default values - lh-lz ---------- {{{3 |
218 if !exists("g:netrw_localcopycmd") | |
219 if has("win32") || has("win95") || has("win64") || has("win16") | |
220 if g:netrw_cygwin | |
221 let g:netrw_localcopycmd= "cp" | |
222 else | |
223 let g:netrw_localcopycmd= "copy" | |
224 endif | |
225 elseif has("unix") || has("macunix") | |
226 let g:netrw_localcopycmd= "cp" | |
227 else | |
228 let g:netrw_localcopycmd= "" | |
229 endif | |
230 endif | |
201 if !exists("g:netrw_local_mkdir") | 231 if !exists("g:netrw_local_mkdir") |
202 let g:netrw_local_mkdir= "mkdir" | 232 let g:netrw_local_mkdir= "mkdir" |
233 endif | |
234 if !exists("g:netrw_localmovecmd") | |
235 if has("win32") || has("win95") || has("win64") || has("win16") | |
236 if g:netrw_cygwin | |
237 let g:netrw_localmovecmd= "mv" | |
238 else | |
239 let g:netrw_localmovecmd= "move" | |
240 endif | |
241 elseif has("unix") || has("macunix") | |
242 let g:netrw_localmovecmd= "mv" | |
243 else | |
244 let g:netrw_localmovecmd= "" | |
245 endif | |
203 endif | 246 endif |
204 if !exists("g:netrw_local_rmdir") | 247 if !exists("g:netrw_local_rmdir") |
205 let g:netrw_local_rmdir= "rmdir" | 248 let g:netrw_local_rmdir= "rmdir" |
206 endif | 249 endif |
207 if !exists("g:netrw_liststyle") | 250 if !exists("g:netrw_liststyle") |
213 endif | 256 endif |
214 if g:netrw_liststyle == s:LONGLIST && g:netrw_scp_cmd !~ '^pscp' | 257 if g:netrw_liststyle == s:LONGLIST && g:netrw_scp_cmd !~ '^pscp' |
215 let g:netrw_list_cmd= g:netrw_list_cmd." -l" | 258 let g:netrw_list_cmd= g:netrw_list_cmd." -l" |
216 endif | 259 endif |
217 " Default values - m-r ---------- {{{3 | 260 " Default values - m-r ---------- {{{3 |
261 if !exists("g:netrw_markfileesc") | |
262 let g:netrw_markfileesc= '*./[\~' | |
263 endif | |
218 if !exists("g:netrw_maxfilenamelen") | 264 if !exists("g:netrw_maxfilenamelen") |
219 let g:netrw_maxfilenamelen= 32 | 265 let g:netrw_maxfilenamelen= 32 |
220 endif | 266 endif |
221 if !exists("g:netrw_menu") | 267 if !exists("g:netrw_menu") |
222 let g:netrw_menu= 1 | 268 let g:netrw_menu= 1 |
223 endif | 269 endif |
224 if !exists("g:netrw_mkdir_cmd") | 270 if !exists("g:netrw_mkdir_cmd") |
225 let g:netrw_mkdir_cmd= g:netrw_ssh_cmd." USEPORT HOSTNAME mkdir" | 271 let g:netrw_mkdir_cmd= g:netrw_ssh_cmd." USEPORT HOSTNAME mkdir" |
272 endif | |
273 if !exists("g:netrw_mousemaps") | |
274 if exists("&mouse") && &mouse =~ '[anh]' | |
275 let g:netrw_mousemaps= 1 | |
276 else | |
277 let g:netrw_mousemaps= 0 | |
278 endif | |
279 endif | |
280 if !exists("g:netrw_retmap") | |
281 let g:netrw_retmap= 0 | |
282 endif | |
283 if !exists("g:netrw_preview") | |
284 let g:netrw_preview= 0 | |
226 endif | 285 endif |
227 if !exists("g:netrw_scpport") | 286 if !exists("g:netrw_scpport") |
228 let g:netrw_scpport= "-P" | 287 let g:netrw_scpport= "-P" |
229 endif | 288 endif |
230 if !exists("g:netrw_sshport") | 289 if !exists("g:netrw_sshport") |
241 endif | 300 endif |
242 if !exists("g:netrw_rmf_cmd") | 301 if !exists("g:netrw_rmf_cmd") |
243 let g:netrw_rmf_cmd = g:netrw_ssh_cmd." USEPORT HOSTNAME rm -f" | 302 let g:netrw_rmf_cmd = g:netrw_ssh_cmd." USEPORT HOSTNAME rm -f" |
244 endif | 303 endif |
245 " Default values - s ---------- {{{3 | 304 " Default values - s ---------- {{{3 |
305 " set up shell quoting character | |
246 if exists("g:netrw_silent") && g:netrw_silent != 0 | 306 if exists("g:netrw_silent") && g:netrw_silent != 0 |
247 let g:netrw_silentxfer= "silent " | 307 let s:netrw_silentxfer= "silent " |
248 else | 308 else |
249 let g:netrw_silentxfer= "" | 309 let s:netrw_silentxfer= "" |
250 endif | |
251 if !exists("g:netrw_fastbrowse") | |
252 let g:netrw_fastbrowse= 1 | |
253 endif | |
254 if !exists("g:netrw_shq") | |
255 if exists("&shq") && &shq != "" | |
256 let g:netrw_shq= &shq | |
257 elseif has("win32") || has("win95") || has("win64") || has("win16") | |
258 if g:netrw_cygwin | |
259 let g:netrw_shq= "'" | |
260 else | |
261 let g:netrw_shq= '"' | |
262 endif | |
263 else | |
264 let g:netrw_shq= "'" | |
265 endif | |
266 " call Decho("g:netrw_shq<".g:netrw_shq.">") | |
267 endif | 310 endif |
268 if !exists("g:netrw_sort_by") | 311 if !exists("g:netrw_sort_by") |
269 " alternatives: date size | 312 " alternatives: date size |
270 let g:netrw_sort_by= "name" | 313 let g:netrw_sort_by= "name" |
271 endif | 314 endif |
272 if !exists("g:netrw_sort_direction") | 315 if !exists("g:netrw_sort_direction") |
273 " alternative: reverse (z y x ...) | 316 " alternative: reverse (z y x ...) |
274 let g:netrw_sort_direction= "normal" | 317 let g:netrw_sort_direction= "normal" |
275 endif | 318 endif |
276 if !exists("g:netrw_sort_sequence") | 319 if !exists("g:netrw_sort_sequence") |
277 let g:netrw_sort_sequence= '[\/]$,\.h$,\.c$,\.cpp$,\.[a-np-z]$,*,\.info$,\.swp$,\.o$\.obj$,\.bak$' | 320 let g:netrw_sort_sequence= '[\/]$,\.h$,\.c$,\.cpp$,*,\.o$,\.obj$,\.info$,\.swp$,\.bak$,\~$' |
321 endif | |
322 if !exists("g:netrw_special_syntax") | |
323 let g:netrw_special_syntax= 0 | |
278 endif | 324 endif |
279 if !exists("g:netrw_ssh_browse_reject") | 325 if !exists("g:netrw_ssh_browse_reject") |
280 let g:netrw_ssh_browse_reject='^total\s\+\d\+$' | 326 let g:netrw_ssh_browse_reject='^total\s\+\d\+$' |
281 endif | 327 endif |
282 if !has("patch192") | 328 if !has("patch192") |
288 endif | 334 endif |
289 " Default values - t-w ---------- {{{3 | 335 " Default values - t-w ---------- {{{3 |
290 if !exists("g:netrw_timefmt") | 336 if !exists("g:netrw_timefmt") |
291 let g:netrw_timefmt= "%c" | 337 let g:netrw_timefmt= "%c" |
292 endif | 338 endif |
339 if !exists("g:netrw_xstrlen") | |
340 let g:netrw_xstrlen= 1 | |
341 endif | |
293 if !exists("g:NetrwTopLvlMenu") | 342 if !exists("g:NetrwTopLvlMenu") |
294 let g:NetrwTopLvlMenu= "Netrw." | 343 let g:NetrwTopLvlMenu= "Netrw." |
295 endif | 344 endif |
296 if !exists("g:netrw_use_errorwindow") | 345 if !exists("g:netrw_use_errorwindow") |
297 let g:netrw_use_errorwindow= 1 | 346 let g:netrw_use_errorwindow= 1 |
302 if !exists("g:netrw_winsize") | 351 if !exists("g:netrw_winsize") |
303 let g:netrw_winsize= "" | 352 let g:netrw_winsize= "" |
304 endif | 353 endif |
305 " --------------------------------------------------------------------- | 354 " --------------------------------------------------------------------- |
306 " Default values for netrw's script variables: {{{2 | 355 " Default values for netrw's script variables: {{{2 |
307 if !exists("s:netrw_cd_escape") | 356 if !exists("g:netrw_fname_escape") |
308 let s:netrw_cd_escape="[]#*$%'\" ?`!&();<>\\" | 357 let g:netrw_fname_escape= ' ?&;%' |
309 endif | 358 endif |
310 if !exists("g:netrw_fname_escape") | 359 if !exists("g:netrw_glob_escape") |
311 let g:netrw_fname_escape= ' ?&;' | 360 let g:netrw_glob_escape= '[]*?`{~$' |
312 endif | 361 endif |
313 if !exists("g:netrw_tmpfile_escape") | 362 if !exists("g:netrw_tmpfile_escape") |
314 let g:netrw_tmpfile_escape= ' ?&;' | 363 let g:netrw_tmpfile_escape= ' &;' |
315 endif | |
316 if !exists("s:netrw_glob_escape") | |
317 let s:netrw_glob_escape= '[]*?`{~$' | |
318 endif | 364 endif |
319 | 365 |
320 " BufEnter event ignored by decho when following variable is true | 366 " BufEnter event ignored by decho when following variable is true |
321 " Has a side effect that doau BufReadPost doesn't work, so | 367 " Has a side effect that doau BufReadPost doesn't work, so |
322 " files read by network transfer aren't appropriately highlighted. | 368 " files read by network transfer aren't appropriately highlighted. |
325 " ============================== | 371 " ============================== |
326 " Netrw Utility Functions: {{{1 | 372 " Netrw Utility Functions: {{{1 |
327 " ============================== | 373 " ============================== |
328 | 374 |
329 " ------------------------------------------------------------------------ | 375 " ------------------------------------------------------------------------ |
330 " NetSavePosn: saves position of cursor on screen {{{2 | 376 " s:NetrwOptionSave: save options and set to "standard" form {{{2 |
331 fun! netrw#NetSavePosn() | 377 " 06/08/07 : removed call to NetrwSafeOptions(), either placed |
332 " call Dfunc("netrw#NetSavePosn()") | 378 " immediately after NetrwOptionSave() calls in NetRead |
333 " Save current line and column | 379 " and NetWrite, or after the s:NetrwEnew() call in |
334 let w:netrw_winnr= winnr() | 380 " NetrwBrowse. |
335 let w:netrw_line = line(".") | 381 " vt: normally its "w:" or "s:" (a variable type) |
336 let w:netrw_col = virtcol(".") | 382 fun! s:NetrwOptionSave(vt) |
337 | 383 " call Dfunc("s:NetrwOptionSave(vt<".a:vt.">) win#".winnr()." buf#".bufnr("%")."<".bufname(bufnr("%")).">") |
338 " Save top-of-screen line | 384 |
339 norm! H0 | 385 " call Decho(a:vt."netrw_optionsave".(exists("{a:vt}netrw_optionsave")? ("=".{a:vt}netrw_optionsave) : " doesn't exist")) |
340 let w:netrw_hline= line(".") | 386 if !exists("{a:vt}netrw_optionsave") |
341 | 387 let {a:vt}netrw_optionsave= 1 |
342 call netrw#NetRestorePosn() | |
343 " call Dret("netrw#NetSavePosn : winnr=".w:netrw_winnr." line=".w:netrw_line." col=".w:netrw_col." hline=".w:netrw_hline) | |
344 endfun | |
345 | |
346 " ------------------------------------------------------------------------ | |
347 " NetRestorePosn: restores the cursor and file position as saved by NetSavePosn() {{{2 | |
348 fun! netrw#NetRestorePosn() | |
349 " call Dfunc("netrw#NetRestorePosn() winnr=".(exists("w:netrw_winnr")? w:netrw_winnr : -1)." line=".(exists("w:netrw_line")? w:netrw_line : -1)." col=".(exists("w:netrw_col")? w:netrw_col : -1)." hline=".(exists("w:netrw_hline")? w:netrw_hline : -1)) | |
350 let eikeep= &ei | |
351 set ei=all | |
352 if expand("%") == "NetrwMessage" | |
353 exe s:winBeforeErr."wincmd w" | |
354 endif | |
355 | |
356 " restore window | |
357 if exists("w:netrw_winnr") | |
358 " call Decho("restore window: exe silent! ".w:netrw_winnr."wincmd w") | |
359 exe "silent! ".w:netrw_winnr."wincmd w" | |
360 endif | |
361 if v:shell_error == 0 | |
362 " as suggested by Bram M: redraw on no error | |
363 " allows protocol error messages to remain visible | |
364 redraw! | |
365 endif | |
366 | |
367 " restore top-of-screen line | |
368 if exists("w:netrw_hline") | |
369 " call Decho("restore topofscreen: exe norm! ".w:netrw_hline."G0z") | |
370 exe "norm! ".w:netrw_hline."G0z\<CR>" | |
371 endif | |
372 | |
373 " restore position | |
374 if exists("w:netrw_line") && exists("w:netrw_col") | |
375 " call Decho("restore posn: exe norm! ".w:netrw_line."G0".w:netrw_col."|") | |
376 exe "norm! ".w:netrw_line."G0".w:netrw_col."\<bar>" | |
377 endif | |
378 | |
379 let &ei= eikeep | |
380 " call Dret("netrw#NetRestorePosn") | |
381 endfun | |
382 | |
383 " =============================== | |
384 " NetOptionSave: save options and set to "standard" form {{{2 | |
385 "DechoTabOn | |
386 fun! s:NetOptionSave() | |
387 " call Dfunc("s:NetOptionSave() win#".winnr()." buf#".bufnr(".")) | |
388 if !exists("w:netrw_optionsave") | |
389 let w:netrw_optionsave= 1 | |
390 else | 388 else |
391 " call Dret("s:NetOptionSave : netoptionsave=".w:netrw_optionsave) | 389 " call Dret("s:NetrwOptionSave : options already saved") |
392 return | 390 return |
393 endif | 391 endif |
392 " call Decho("fo=".&fo.(exists("&acd")? " acd=".&acd : " acd doesn't exist")) | |
394 | 393 |
395 " Save current settings and current directory | 394 " Save current settings and current directory |
396 let s:yykeep = @@ | 395 let s:yykeep = @@ |
397 if exists("&l:acd") | 396 if exists("&l:acd") |
398 let w:netrw_acdkeep = &l:acd | 397 let {a:vt}netrw_acdkeep = &l:acd |
399 endif | 398 endif |
400 let w:netrw_aikeep = &l:ai | 399 let {a:vt}netrw_aikeep = &l:ai |
401 let w:netrw_awkeep = &l:aw | 400 let {a:vt}netrw_awkeep = &l:aw |
402 let w:netrw_cikeep = &l:ci | 401 let {a:vt}netrw_cikeep = &l:ci |
403 let w:netrw_cinkeep = &l:cin | 402 let {a:vt}netrw_cinkeep = &l:cin |
404 let w:netrw_cinokeep = &l:cino | 403 let {a:vt}netrw_cinokeep = &l:cino |
405 let w:netrw_comkeep = &l:com | 404 let {a:vt}netrw_comkeep = &l:com |
406 let w:netrw_cpokeep = &l:cpo | 405 let {a:vt}netrw_cpokeep = &l:cpo |
407 if g:netrw_keepdir | 406 if g:netrw_keepdir |
408 let w:netrw_dirkeep = getcwd() | 407 let {a:vt}netrw_dirkeep = getcwd() |
409 endif | 408 endif |
410 let w:netrw_fokeep = &l:fo " formatoptions | 409 let {a:vt}netrw_fokeep = &l:fo " formatoptions |
411 let w:netrw_gdkeep = &l:gd " gdefault | 410 let {a:vt}netrw_gdkeep = &l:gd " gdefault |
412 let w:netrw_hidkeep = &l:hidden | 411 let {a:vt}netrw_hidkeep = &l:hidden |
413 let w:netrw_magickeep = &l:magic | 412 let {a:vt}netrw_magickeep = &l:magic |
414 let w:netrw_repkeep = &l:report | 413 let {a:vt}netrw_repkeep = &l:report |
415 let w:netrw_spellkeep = &l:spell | 414 let {a:vt}netrw_spellkeep = &l:spell |
416 let w:netrw_twkeep = &l:tw " textwidth | 415 let {a:vt}netrw_twkeep = &l:tw " textwidth |
417 let w:netrw_wigkeep = &l:wig " wildignore | 416 let {a:vt}netrw_wigkeep = &l:wig " wildignore |
418 if has("win32") && !has("win95") | 417 if has("win32") && !has("win95") |
419 let w:netrw_swfkeep= &l:swf " swapfile | 418 let {a:vt}netrw_swfkeep= &l:swf " swapfile |
420 endif | 419 endif |
421 call s:NetrwSafeOptions() | 420 if &go =~ 'a' | silent! let {a:vt}netrw_regstar = @* | endif |
422 if &go =~ 'a' | silent! let w:netrw_regstar = @* | endif | 421 silent! let {a:vt}netrw_regslash= @/ |
423 silent! let w:netrw_regslash= @/ | 422 |
424 | 423 " call Dret("s:NetrwOptionSave : win#".winnr()." buf#".bufnr("%")) |
425 " call Dret("s:NetOptionSave") | |
426 " call Dret("s:NetOptionSave : win#".winnr()." buf#".bufnr(".")) | |
427 endfun | 424 endfun |
428 | 425 |
429 " ------------------------------------------------------------------------ | 426 " ------------------------------------------------------------------------ |
430 " NetOptionRestore: restore options {{{2 | 427 " s:NetrwOptionRestore: restore options {{{2 |
431 fun! s:NetOptionRestore() | 428 fun! s:NetrwOptionRestore(vt) |
432 " call Dfunc("s:NetOptionRestore() win#".winnr()." buf#".bufnr(".")) | 429 " call Dfunc("s:NetrwOptionRestore(vt<".a:vt.">) win#".winnr()." buf#".bufnr("%")) |
433 if !exists("w:netrw_optionsave") | 430 if !exists("{a:vt}netrw_optionsave") |
434 " call Dret("s:NetOptionRestore : w:netrw_optionsave doesn't exist") | 431 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) |
432 " call Dret("s:NetrwOptionRestore : ".a:vt."netrw_optionsave doesn't exist") | |
435 return | 433 return |
436 endif | 434 endif |
437 unlet w:netrw_optionsave | 435 unlet {a:vt}netrw_optionsave |
438 | 436 |
439 if exists("&acd") | 437 if exists("&acd") |
440 if exists("w:netrw_acdkeep") |let &l:acd = w:netrw_acdkeep |unlet w:netrw_acdkeep |endif | 438 if exists("{a:vt}netrw_acdkeep") |
441 endif | 439 " call Decho("g:netrw_keepdir=".g:netrw_keepdir.": getcwd<".getcwd()."> acd=".&acd) |
442 if exists("w:netrw_aikeep") |let &l:ai = w:netrw_aikeep |unlet w:netrw_aikeep |endif | 440 let curdir = getcwd() |
443 if exists("w:netrw_awkeep") |let &l:aw = w:netrw_awkeep |unlet w:netrw_awkeep |endif | 441 let &l:acd = {a:vt}netrw_acdkeep |
444 if exists("w:netrw_cikeep") |let &l:ci = w:netrw_cikeep |unlet w:netrw_cikeep |endif | 442 unlet {a:vt}netrw_acdkeep |
445 if exists("w:netrw_cinkeep") |let &l:cin = w:netrw_cinkeep |unlet w:netrw_cinkeep |endif | 443 if &l:acd |
446 if exists("w:netrw_cinokeep") |let &l:cino = w:netrw_cinokeep |unlet w:netrw_cinokeep |endif | 444 " call Decho("exe keepjumps lcd ".fnameescape(curdir)) " NOTE: was g:netrw_fname_escape for some reason |
447 if exists("w:netrw_comkeep") |let &l:com = w:netrw_comkeep |unlet w:netrw_comkeep |endif | 445 try |
448 if exists("w:netrw_cpokeep") |let &l:cpo = w:netrw_cpokeep |unlet w:netrw_cpokeep |endif | 446 if !exists("&l:acd") && !&l:acd |
449 if exists("w:netrw_dirkeep") |exe "lcd ".w:netrw_dirkeep |unlet w:netrw_dirkeep |endif | 447 exe 'keepjumps lcd '.fnameescape(curdir) |
450 if exists("w:netrw_fokeep") |let &l:fo = w:netrw_fokeep |unlet w:netrw_fokeep |endif | 448 endif |
451 if exists("w:netrw_gdkeep") |let &l:gd = w:netrw_gdkeep |unlet w:netrw_gdkeep |endif | 449 catch /^Vim\%((\a\+)\)\=:E472/ |
452 if exists("w:netrw_hidkeep") |let &l:hidden = w:netrw_hidkeep |unlet w:netrw_hidkeep |endif | 450 call netrw#ErrorMsg(s:ERROR,"unable to change directory to <".curdir."> (permissions?)",61) |
453 if exists("w:netrw_magic") |let &l:magic = w:netrw_magic |unlet w:netrw_magic |endif | 451 endtry |
454 if exists("w:netrw_repkeep") |let &l:report = w:netrw_repkeep |unlet w:netrw_repkeep |endif | 452 endif |
455 if exists("w:netrw_spellkeep")|let &l:spell = w:netrw_spellkeep |unlet w:netrw_spellkeep|endif | 453 endif |
456 if exists("w:netrw_twkeep") |let &l:tw = w:netrw_twkeep |unlet w:netrw_twkeep |endif | 454 endif |
457 if exists("w:netrw_wigkeep") |let &l:wig = w:netrw_wigkeep |unlet w:netrw_wigkeep |endif | 455 if exists("{a:vt}netrw_aikeep") |let &l:ai = {a:vt}netrw_aikeep |unlet {a:vt}netrw_aikeep |endif |
458 if exists("s:yykeep") |let @@ = s:yykeep |unlet s:yykeep |endif | 456 if exists("{a:vt}netrw_awkeep") |let &l:aw = {a:vt}netrw_awkeep |unlet {a:vt}netrw_awkeep |endif |
459 if exists("w:netrw_swfkeep") | 457 if exists("{a:vt}netrw_cikeep") |let &l:ci = {a:vt}netrw_cikeep |unlet {a:vt}netrw_cikeep |endif |
458 if exists("{a:vt}netrw_cinkeep") |let &l:cin = {a:vt}netrw_cinkeep |unlet {a:vt}netrw_cinkeep |endif | |
459 if exists("{a:vt}netrw_cinokeep") |let &l:cino = {a:vt}netrw_cinokeep |unlet {a:vt}netrw_cinokeep |endif | |
460 if exists("{a:vt}netrw_comkeep") |let &l:com = {a:vt}netrw_comkeep |unlet {a:vt}netrw_comkeep |endif | |
461 if exists("{a:vt}netrw_cpokeep") |let &l:cpo = {a:vt}netrw_cpokeep |unlet {a:vt}netrw_cpokeep |endif | |
462 if exists("{a:vt}netrw_dirkeep") && isdirectory({a:vt}netrw_dirkeep) && g:netrw_keepdir | |
463 let dirkeep = substitute({a:vt}netrw_dirkeep,'\\','/','g') | |
464 if exists("{a:vt}netrw_dirkeep") |exe "keepjumps lcd ".fnameescape(dirkeep)|unlet {a:vt}netrw_dirkeep |endif | |
465 endif | |
466 if exists("{a:vt}netrw_fokeep") |let &l:fo = {a:vt}netrw_fokeep |unlet {a:vt}netrw_fokeep |endif | |
467 if exists("{a:vt}netrw_gdkeep") |let &l:gd = {a:vt}netrw_gdkeep |unlet {a:vt}netrw_gdkeep |endif | |
468 if exists("{a:vt}netrw_hidkeep") |let &l:hidden = {a:vt}netrw_hidkeep |unlet {a:vt}netrw_hidkeep |endif | |
469 if exists("{a:vt}netrw_magic") |let &l:magic = {a:vt}netrw_magic |unlet {a:vt}netrw_magic |endif | |
470 if exists("{a:vt}netrw_repkeep") |let &l:report = {a:vt}netrw_repkeep |unlet {a:vt}netrw_repkeep |endif | |
471 if exists("{a:vt}netrw_spellkeep")|let &l:spell = {a:vt}netrw_spellkeep |unlet {a:vt}netrw_spellkeep|endif | |
472 if exists("{a:vt}netrw_twkeep") |let &l:tw = {a:vt}netrw_twkeep |unlet {a:vt}netrw_twkeep |endif | |
473 if exists("{a:vt}netrw_wigkeep") |let &l:wig = {a:vt}netrw_wigkeep |unlet {a:vt}netrw_wigkeep |endif | |
474 if exists("s:yykeep") |let @@ = s:yykeep |unlet s:yykeep |endif | |
475 if exists("{a:vt}netrw_swfkeep") | |
460 if &directory == "" | 476 if &directory == "" |
461 " user hasn't specified a swapfile directory; | 477 " user hasn't specified a swapfile directory; |
462 " netrw will temporarily set the swapfile directory | 478 " netrw will temporarily set the swapfile directory |
463 " to the current directory as returned by getcwd(). | 479 " to the current directory as returned by getcwd(). |
464 let &l:directory = getcwd() | 480 let &l:directory = getcwd() |
465 silent! let &l:swf = w:netrw_swfkeep | 481 silent! let &l:swf = {a:vt}netrw_swfkeep |
466 setlocal directory= | 482 setlocal directory= |
467 unlet w:netrw_swfkeep | 483 unlet {a:vt}netrw_swfkeep |
468 elseif &l:swf != w:netrw_swfkeep | 484 elseif &l:swf != {a:vt}netrw_swfkeep |
469 " following line causes a Press ENTER in windows -- can't seem to work around it!!! (COMBAK) | 485 " following line causes a Press ENTER in windows -- can't seem to work around it!!! |
470 silent! let &l:swf= w:netrw_swfkeep | 486 silent! let &l:swf= {a:vt}netrw_swfkeep |
471 unlet w:netrw_swfkeep | 487 unlet {a:vt}netrw_swfkeep |
472 endif | 488 endif |
473 endif | 489 endif |
474 if exists("w:netrw_regstar") |silent! let @*= w:netrw_regstar |unlet w:netrw_regstar |endif | 490 if exists("{a:vt}netrw_regstar") |silent! let @*= {a:vt}netrw_regstar |unlet {a:vt}netrw_regstar |endif |
475 if exists("w:netrw_regslash")|silent! let @/= w:netrw_regslash|unlet w:netrw_regslash|endif | 491 if exists("{a:vt}netrw_regslash")|silent! let @/= {a:vt}netrw_regslash|unlet {a:vt}netrw_regslash|endif |
476 | 492 |
477 " call Dret("s:NetOptionRestore : win#".winnr()." buf#".bufnr(".")) | 493 " call Decho("g:netrw_keepdir=".g:netrw_keepdir.": getcwd<".getcwd()."> acd=".&acd) |
478 endfun | 494 " call Decho("fo=".&fo.(exists("&acd")? " acd=".&acd : " acd doesn't exist")) |
479 | 495 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) |
480 " --------------------------------------------------------------------- | 496 " call Dret("s:NetrwOptionRestore : win#".winnr()." buf#".bufnr("%")) |
481 " NetrwSafeOptions: sets options to help netrw do its job {{{2 | 497 endfun |
498 | |
499 " --------------------------------------------------------------------- | |
500 " s:NetrwSafeOptions: sets options to help netrw do its job {{{2 | |
482 fun! s:NetrwSafeOptions() | 501 fun! s:NetrwSafeOptions() |
483 " call Dfunc("s:NetrwSafeOptions()") | 502 " call Dfunc("s:NetrwSafeOptions() win#".winnr()." buf#".bufnr("%")."<".bufname(bufnr("%")).">") |
503 " call Decho("window's ft=".&ft) | |
484 setlocal cino= | 504 setlocal cino= |
485 setlocal com= | 505 setlocal com= |
486 setlocal cpo-=aA | 506 setlocal cpo-=aA |
487 if exists("&acd") | 507 if exists("&acd") | setlocal noacd | endif |
488 setlocal noacd nocin noai noci magic nospell nohid wig= noaw | 508 setlocal nocin noai noci magic nospell nohid wig= noaw |
489 setlocal fo=nroql2 | 509 setlocal fo=nroql2 |
490 else | |
491 setlocal nocin noai noci magic nospell nohid wig= noaw | |
492 setlocal fo=nroql2 | |
493 endif | |
494 setlocal tw=0 | 510 setlocal tw=0 |
495 setlocal report=10000 | 511 setlocal report=10000 |
496 if g:netrw_use_noswf && has("win32") && !has("win95") | 512 if g:netrw_use_noswf && has("win32") && !has("win95") |
497 setlocal noswf | 513 setlocal noswf |
498 endif | 514 endif |
515 " call Decho("fo=".&fo.(exists("&acd")? " acd=".&acd : " acd doesn't exist")) | |
499 " call Dret("s:NetrwSafeOptions") | 516 " call Dret("s:NetrwSafeOptions") |
517 endfun | |
518 | |
519 " --------------------------------------------------------------------- | |
520 " netrw#NetrwClean: remove netrw {{{2 | |
521 " supports :NetrwClean -- remove netrw from first directory on runtimepath | |
522 " :NetrwClean! -- remove netrw from all directories on runtimepath | |
523 fun! netrw#NetrwClean(sys) | |
524 " call Dfunc("netrw#NetrwClean(sys=".a:sys.")") | |
525 | |
526 if a:sys | |
527 let choice= confirm("Remove personal and system copies of netrw?","&Yes\n&No") | |
528 else | |
529 let choice= confirm("Remove personal copy of netrw?","&Yes\n&No") | |
530 endif | |
531 " call Decho("choice=".choice) | |
532 let diddel= 0 | |
533 let diddir= "" | |
534 | |
535 if choice == 1 | |
536 for dir in split(&rtp,',') | |
537 if filereadable(dir."/plugin/netrwPlugin.vim") | |
538 " call Decho("removing netrw-related files from ".dir) | |
539 if s:System("delete",dir."/plugin/netrwPlugin.vim") |call netrw#ErrorMsg(1,"unable to remove ".dir."/plugin/netrwPlugin.vim",55) |endif | |
540 if s:System("delete",dir."/autoload/netrwFileHandlers.vim")|call netrw#ErrorMsg(1,"unable to remove ".dir."/autoload/netrwFileHandlers.vim",55)|endif | |
541 if s:System("delete",dir."/autoload/netrwSettings.vim") |call netrw#ErrorMsg(1,"unable to remove ".dir."/autoload/netrwSettings.vim",55) |endif | |
542 if s:System("delete",dir."/autoload/netrw.vim") |call netrw#ErrorMsg(1,"unable to remove ".dir."/autoload/netrw.vim",55) |endif | |
543 if s:System("delete",dir."/syntax/netrw.vim") |call netrw#ErrorMsg(1,"unable to remove ".dir."/syntax/netrw.vim",55) |endif | |
544 if s:System("delete",dir."/syntax/netrwlist.vim") |call netrw#ErrorMsg(1,"unable to remove ".dir."/syntax/netrwlist.vim",55) |endif | |
545 let diddir= dir | |
546 let diddel= diddel + 1 | |
547 if !a:sys|break|endif | |
548 endif | |
549 endfor | |
550 endif | |
551 | |
552 echohl WarningMsg | |
553 if diddel == 0 | |
554 echomsg "netrw is either not installed or not removable" | |
555 elseif diddel == 1 | |
556 echomsg "removed one copy of netrw from <".diddir.">" | |
557 else | |
558 echomsg "removed ".diddel." copies of netrw" | |
559 endif | |
560 echohl None | |
561 | |
562 " call Dret("netrw#NetrwClean") | |
500 endfun | 563 endfun |
501 | 564 |
502 " ------------------------------------------------------------------------ | 565 " ------------------------------------------------------------------------ |
503 " Netrw Transfer Functions: {{{1 | 566 " Netrw Transfer Functions: {{{1 |
504 " =============================== | 567 " =============================== |
505 | 568 |
506 " ------------------------------------------------------------------------ | 569 " ------------------------------------------------------------------------ |
507 " NetRead: responsible for reading a file over the net {{{2 | 570 " netrw#NetRead: responsible for reading a file over the net {{{2 |
508 " mode: =0 read remote file and insert before current line | 571 " mode: =0 read remote file and insert before current line |
509 " =1 read remote file and insert after current line | 572 " =1 read remote file and insert after current line |
510 " =2 replace with remote file | 573 " =2 replace with remote file |
511 " =3 obtain file, but leave in temporary format | 574 " =3 obtain file, but leave in temporary format |
512 fun! netrw#NetRead(mode,...) | 575 fun! netrw#NetRead(mode,...) |
513 " call Dfunc("netrw#NetRead(mode=".a:mode.",...) a:0=".a:0." ".g:loaded_netrw) | 576 " call Dfunc("netrw#NetRead(mode=".a:mode.",...) a:0=".a:0." ".g:loaded_netrw) |
514 | 577 |
515 " save options {{{3 | 578 " save options {{{3 |
516 call s:NetOptionSave() | 579 call s:NetrwOptionSave("w:") |
580 call s:NetrwSafeOptions() | |
517 | 581 |
518 " interpret mode into a readcmd {{{3 | 582 " interpret mode into a readcmd {{{3 |
519 if a:mode == 0 " read remote file before current line | 583 if a:mode == 0 " read remote file before current line |
520 let readcmd = "0r" | 584 let readcmd = "0r" |
521 elseif a:mode == 1 " read file after current line | 585 elseif a:mode == 1 " read file after current line |
597 | 661 |
598 " call Decho("choice<" . choice . ">") | 662 " call Decho("choice<" . choice . ">") |
599 let ichoice= ichoice + 1 | 663 let ichoice= ichoice + 1 |
600 | 664 |
601 " Determine method of read (ftp, rcp, etc) {{{3 | 665 " Determine method of read (ftp, rcp, etc) {{{3 |
602 call s:NetMethod(choice) | 666 call s:NetrwMethod(choice) |
603 let tmpfile= s:GetTempfile(b:netrw_fname) " apply correct suffix | 667 let tmpfile= s:GetTempfile(b:netrw_fname) " apply correct suffix |
604 | 668 |
605 " Check if NetBrowse() should be handling this request | 669 " Check if NetrwBrowse() should be handling this request |
606 " call Decho("checking if NetBrowse() should handle choice<".choice."> with netrw_list_cmd<".g:netrw_list_cmd.">") | 670 " call Decho("checking if NetrwBrowse() should handle choice<".choice."> with netrw_list_cmd<".g:netrw_list_cmd.">") |
607 if choice =~ "^.*[\/]$" && b:netrw_method != 5 && choice !~ '^http://' | 671 if choice =~ "^.*[\/]$" && b:netrw_method != 5 && choice !~ '^http://' |
608 " call Decho("yes, choice matches '^.*[\/]$'") | 672 " call Decho("yes, choice matches '^.*[\/]$'") |
609 keepjumps call s:NetBrowse(0,choice) | 673 keepjumps call s:NetrwBrowse(0,choice) |
610 " call Dret("netrw#NetRead :3 getcwd<".getcwd().">") | 674 " call Dret("netrw#NetRead :3 getcwd<".getcwd().">") |
611 return | 675 return |
612 endif | 676 endif |
613 | 677 |
614 " ============ | 678 " ============ |
638 let uid_machine = g:netrw_uid .'@'. g:netrw_machine | 702 let uid_machine = g:netrw_uid .'@'. g:netrw_machine |
639 else | 703 else |
640 let uid_machine = g:netrw_machine | 704 let uid_machine = g:netrw_machine |
641 endif | 705 endif |
642 endif | 706 endif |
643 " call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&;')." ".tmpfile) | 707 " call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".shellescape(uid_machine.":".escape(b:netrw_fname,' ?&;')." ".tmpfile) |
644 exe g:netrw_silentxfer."!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&;')." ".tmpfile | 708 exe s:netrw_silentxfer."!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".shellescape(uid_machine.":".escape(b:netrw_fname,' ?&;')." ".tmpfile) |
645 let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) | 709 let result = s:NetrwGetFile(readcmd, tmpfile, b:netrw_method) |
646 let b:netrw_lastfile = choice | 710 let b:netrw_lastfile = choice |
647 | 711 |
648 "......................................... | 712 "......................................... |
649 " ftp + <.netrc>: NetRead Method #2 {{{3 | 713 " ftp + <.netrc>: NetRead Method #2 {{{3 |
650 elseif b:netrw_method == 2 " read with ftp + <.netrc> | 714 elseif b:netrw_method == 2 " read with ftp + <.netrc> |
651 " call Decho("read via ftp+.netrc (method #2)") | 715 " call Decho("read via ftp+.netrc (method #2)") |
652 let netrw_fname= b:netrw_fname | 716 let netrw_fname= b:netrw_fname |
653 new | 717 call s:SaveBufVars()|new|call s:RestoreBufVars() |
654 setlocal ff=unix | 718 setlocal ff=unix |
655 exe "put ='".g:netrw_ftpmode."'" | 719 exe "put ='".g:netrw_ftpmode."'" |
656 " call Decho("filter input: ".getline(".")) | 720 " call Decho("filter input: ".getline('.')) |
657 if exists("g:netrw_ftpextracmd") | 721 if exists("g:netrw_ftpextracmd") |
658 exe "put ='".g:netrw_ftpextracmd."'" | 722 exe "put ='".g:netrw_ftpextracmd."'" |
659 " call Decho("filter input: ".getline(".")) | 723 " call Decho("filter input: ".getline('.')) |
660 endif | 724 endif |
661 exe "put ='".'get \"'.netrw_fname.'\" '.tmpfile."'" | 725 exe "put ='".'get \"'.netrw_fname.'\" '.tmpfile."'" |
662 " call Decho("filter input: ".getline(".")) | 726 " call Decho("filter input: ".getline('.')) |
663 if exists("g:netrw_port") && g:netrw_port != "" | 727 if exists("g:netrw_port") && g:netrw_port != "" |
664 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) | 728 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) |
665 exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port | 729 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port |
666 else | 730 else |
667 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) | 731 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) |
668 exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine | 732 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine |
669 endif | 733 endif |
670 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) | 734 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) |
671 if getline(1) !~ "^$" && !exists("g:netrw_quiet") && getline(1) !~ '^Trying ' | 735 if getline(1) !~ "^$" && !exists("g:netrw_quiet") && getline(1) !~ '^Trying ' |
672 let debugkeep= &debug | 736 let debugkeep= &debug |
673 setlocal debug=msg | 737 setlocal debug=msg |
674 call netrw#ErrorMsg(s:ERROR,getline(1),4) | 738 call netrw#ErrorMsg(s:ERROR,getline(1),4) |
675 let &debug= debugkeep | 739 let &debug= debugkeep |
676 endif | 740 endif |
677 bd! | 741 call s:SaveBufVars()|bd!|call s:RestoreBufVars() |
678 let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) | 742 let result = s:NetrwGetFile(readcmd, tmpfile, b:netrw_method) |
679 let b:netrw_lastfile = choice | 743 let b:netrw_lastfile = choice |
680 | 744 |
681 "......................................... | 745 "......................................... |
682 " ftp + machine,id,passwd,filename: NetRead Method #3 {{{3 | 746 " ftp + machine,id,passwd,filename: NetRead Method #3 {{{3 |
683 elseif b:netrw_method == 3 " read with ftp + machine, id, passwd, and fname | 747 elseif b:netrw_method == 3 " read with ftp + machine, id, passwd, and fname |
684 " Construct execution string (four lines) which will be passed through filter | 748 " Construct execution string (four lines) which will be passed through filter |
685 " call Decho("read via ftp+mipf (method #3)") | 749 " call Decho("read via ftp+mipf (method #3)") |
686 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) | 750 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) |
687 new | 751 call s:SaveBufVars()|new|call s:RestoreBufVars() |
688 setlocal ff=unix | 752 setlocal ff=unix |
689 if exists("g:netrw_port") && g:netrw_port != "" | 753 if exists("g:netrw_port") && g:netrw_port != "" |
690 put ='open '.g:netrw_machine.' '.g:netrw_port | 754 put ='open '.g:netrw_machine.' '.g:netrw_port |
691 " call Decho("filter input: ".getline(".")) | 755 " call Decho("filter input: ".getline('.')) |
692 else | 756 else |
693 put ='open '.g:netrw_machine | 757 put ='open '.g:netrw_machine |
694 " call Decho("filter input: ".getline(".")) | 758 " call Decho("filter input: ".getline('.')) |
695 endif | 759 endif |
696 | 760 |
697 if exists("g:netrw_ftp") && g:netrw_ftp == 1 | 761 if exists("g:netrw_ftp") && g:netrw_ftp == 1 |
698 put =g:netrw_uid | 762 put =g:netrw_uid |
699 " call Decho("filter input: ".getline(".")) | 763 " call Decho("filter input: ".getline('.')) |
700 put ='\"'.g:netrw_passwd.'\"' | 764 put ='\"'.s:netrw_passwd.'\"' |
701 " call Decho("filter input: ".getline(".")) | 765 " call Decho("filter input: ".getline('.')) |
702 else | 766 else |
703 put ='user \"'.g:netrw_uid.'\" \"'.g:netrw_passwd.'\"' | 767 put ='user \"'.g:netrw_uid.'\" \"'.s:netrw_passwd.'\"' |
704 " call Decho("filter input: ".getline(".")) | 768 " call Decho("filter input: ".getline('.')) |
705 endif | 769 endif |
706 | 770 |
707 if exists("g:netrw_ftpmode") && g:netrw_ftpmode != "" | 771 if exists("g:netrw_ftpmode") && g:netrw_ftpmode != "" |
708 put =g:netrw_ftpmode | 772 put =g:netrw_ftpmode |
709 " call Decho("filter input: ".getline(".")) | 773 " call Decho("filter input: ".getline('.')) |
710 endif | 774 endif |
711 if exists("g:netrw_ftpextracmd") | 775 if exists("g:netrw_ftpextracmd") |
712 exe "put ='".g:netrw_ftpextracmd."'" | 776 exe "put ='".g:netrw_ftpextracmd."'" |
713 " call Decho("filter input: ".getline(".")) | 777 " call Decho("filter input: ".getline('.')) |
714 endif | 778 endif |
715 put ='get \"'.netrw_fname.'\" '.tmpfile | 779 put ='get \"'.netrw_fname.'\" '.tmpfile |
716 " call Decho("filter input: ".getline(".")) | 780 " call Decho("filter input: ".getline('.')) |
717 | 781 |
718 " perform ftp: | 782 " perform ftp: |
719 " -i : turns off interactive prompting from ftp | 783 " -i : turns off interactive prompting from ftp |
720 " -n unix : DON'T use <.netrc>, even though it exists | 784 " -n unix : DON'T use <.netrc>, even though it exists |
721 " -n win32: quit being obnoxious about password | 785 " -n win32: quit being obnoxious about password |
722 norm! 1Gdd | 786 norm! 1Gdd |
723 " call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") | 787 " call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") |
724 exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n" | 788 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n" |
725 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) | 789 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) |
726 if getline(1) !~ "^$" | 790 if getline(1) !~ "^$" |
727 " call Decho("error<".getline(1).">") | 791 " call Decho("error<".getline(1).">") |
728 if !exists("g:netrw_quiet") | 792 if !exists("g:netrw_quiet") |
729 call netrw#ErrorMsg(s:ERROR,getline(1),5) | 793 call netrw#ErrorMsg(s:ERROR,getline(1),5) |
730 endif | 794 endif |
731 endif | 795 endif |
732 bd! | 796 call s:SaveBufVars()|bd!|call s:RestoreBufVars() |
733 let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) | 797 let result = s:NetrwGetFile(readcmd, tmpfile, b:netrw_method) |
734 let b:netrw_lastfile = choice | 798 let b:netrw_lastfile = choice |
735 | 799 |
736 "......................................... | 800 "......................................... |
737 " scp: NetRead Method #4 {{{3 | 801 " scp: NetRead Method #4 {{{3 |
738 elseif b:netrw_method == 4 " read with scp | 802 elseif b:netrw_method == 4 " read with scp |
740 if exists("g:netrw_port") && g:netrw_port != "" | 804 if exists("g:netrw_port") && g:netrw_port != "" |
741 let useport= " ".g:netrw_scpport." ".g:netrw_port | 805 let useport= " ".g:netrw_scpport." ".g:netrw_port |
742 else | 806 else |
743 let useport= "" | 807 let useport= "" |
744 endif | 808 endif |
745 " call Decho("executing: !".g:netrw_scp_cmd.useport." '".g:netrw_machine.":".escape(b:netrw_fname,g:netrw_fname_escape)."' ".tmpfile) | 809 " call Decho("exe s:netrw_silentxfer.!".g:netrw_scp_cmd.useport." ".shellescape(g:netrw_machine.":".escape(b:netrw_fname,g:netrw_fname_escape))." ".tmpfile) |
746 exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".g:netrw_shq.g:netrw_machine.":".escape(b:netrw_fname,g:netrw_fname_escape).g:netrw_shq." ".tmpfile | 810 exe s:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".shellescape(g:netrw_machine.":".escape(b:netrw_fname,g:netrw_fname_escape))." ".tmpfile |
747 let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) | 811 let result = s:NetrwGetFile(readcmd, tmpfile, b:netrw_method) |
748 let b:netrw_lastfile = choice | 812 let b:netrw_lastfile = choice |
749 | 813 |
750 "......................................... | 814 "......................................... |
751 " http: NetRead Method #5 (wget) {{{3 | 815 " http: NetRead Method #5 (wget) {{{3 |
752 elseif b:netrw_method == 5 | 816 elseif b:netrw_method == 5 |
757 endif | 821 endif |
758 " call Dret("netrw#NetRead :4 getcwd<".getcwd().">") | 822 " call Dret("netrw#NetRead :4 getcwd<".getcwd().">") |
759 return | 823 return |
760 endif | 824 endif |
761 | 825 |
826 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) | |
762 if match(b:netrw_fname,"#") == -1 | 827 if match(b:netrw_fname,"#") == -1 |
763 " simple wget | 828 " simple wget |
764 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) | 829 " call Decho('using simple wget (# not in b:netrw_fname<'.b:netrw_fname.">)") |
765 " call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_fname) | 830 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_http_cmd." ".shellescape(tmpfile)." ".shellescape("http://".g:netrw_machine.netrw_fname)) |
766 exe g:netrw_silentxfer."!".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_fname | 831 exe s:netrw_silentxfer."!".g:netrw_http_cmd." ".shellescape(tmpfile)." ".shellescape("http://".g:netrw_machine.netrw_fname) |
767 let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) | 832 let result = s:NetrwGetFile(readcmd, tmpfile, b:netrw_method) |
768 | 833 |
769 else | 834 else |
770 " wget plus a jump to an in-page marker (ie. http://abc/def.html#aMarker) | 835 " wget plus a jump to an in-page marker (ie. http://abc/def.html#aMarker) |
836 " call Decho(("wget/curl plus jump (# in b:netrw_fname<".b:netrw_fname.">)") | |
771 let netrw_html= substitute(netrw_fname,"#.*$","","") | 837 let netrw_html= substitute(netrw_fname,"#.*$","","") |
772 let netrw_tag = substitute(netrw_fname,"^.*#","","") | 838 let netrw_tag = substitute(netrw_fname,"^.*#","","") |
773 " call Decho("netrw_html<".netrw_html.">") | 839 " call Decho("netrw_html<".netrw_html.">") |
774 " call Decho("netrw_tag <".netrw_tag.">") | 840 " call Decho("netrw_tag <".netrw_tag.">") |
775 " call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html) | 841 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_http_cmd." ".shellescape(tmpfile)." ".shellescape("http://".g:netrw_machine.netrw_html)) |
776 exe g:netrw_silentxfer."!".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html | 842 exe s:netrw_silentxfer."!".g:netrw_http_cmd." ".shellescape(tmpfile)." ".shellescape("http://".g:netrw_machine.netrw_html) |
777 let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) | 843 let result = s:NetrwGetFile(readcmd, tmpfile, b:netrw_method) |
778 " call Decho('<\s*a\s*name=\s*"'.netrw_tag.'"/') | 844 " call Decho('<\s*a\s*name=\s*"'.netrw_tag.'"/') |
779 exe 'norm! 1G/<\s*a\s*name=\s*"'.netrw_tag.'"/'."\<CR>" | 845 exe 'norm! 1G/<\s*a\s*name=\s*"'.netrw_tag.'"/'."\<CR>" |
780 endif | 846 endif |
781 let b:netrw_lastfile = choice | 847 let b:netrw_lastfile = choice |
782 setlocal ro | 848 setlocal ro |
793 if exists("g:netrw_port") && g:netrw_port != "" | 859 if exists("g:netrw_port") && g:netrw_port != "" |
794 put ='open '.g:netrw_machine.' '.g:netrw_port | 860 put ='open '.g:netrw_machine.' '.g:netrw_port |
795 else | 861 else |
796 put ='open '.g:netrw_machine | 862 put ='open '.g:netrw_machine |
797 endif | 863 endif |
798 put ='user '.g:netrw_uid.' '.g:netrw_passwd | 864 put ='user '.g:netrw_uid.' '.s:netrw_passwd |
799 put ='get '.netrw_fname.' '.tmpfile | 865 put ='get '.netrw_fname.' '.tmpfile |
800 put ='quit' | 866 put ='quit' |
801 | 867 |
802 " perform cadaver operation: | 868 " perform cadaver operation: |
803 norm! 1Gdd | 869 norm! 1Gdd |
804 " call Decho("executing: %!".g:netrw_dav_cmd) | 870 " call Decho("executing: %!".g:netrw_dav_cmd) |
805 exe g:netrw_silentxfer."%!".g:netrw_dav_cmd | 871 exe s:netrw_silentxfer."%!".g:netrw_dav_cmd |
806 bd! | 872 bd! |
807 let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) | 873 let result = s:NetrwGetFile(readcmd, tmpfile, b:netrw_method) |
808 let b:netrw_lastfile = choice | 874 let b:netrw_lastfile = choice |
809 | 875 |
810 "......................................... | 876 "......................................... |
811 " rsync: NetRead Method #7 {{{3 | 877 " rsync: NetRead Method #7 {{{3 |
812 elseif b:netrw_method == 7 | 878 elseif b:netrw_method == 7 |
813 " call Decho("read via rsync (method #7)") | 879 " call Decho("read via rsync (method #7)") |
814 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) | 880 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) |
815 " call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".netrw_fname." ".tmpfile) | 881 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_rsync_cmd." ".shellescape(g:netrw_machine.":".netrw_fname)." ".tmpfile) |
816 exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".g:netrw_machine.":".netrw_fname." ".tmpfile | 882 exe s:netrw_silentxfer."!".g:netrw_rsync_cmd." ".shellescape(g:netrw_machine.":".netrw_fname)." ".tmpfile |
817 let result = s:NetGetFile(readcmd,tmpfile, b:netrw_method) | 883 let result = s:NetrwGetFile(readcmd,tmpfile, b:netrw_method) |
818 let b:netrw_lastfile = choice | 884 let b:netrw_lastfile = choice |
819 | 885 |
820 "......................................... | 886 "......................................... |
821 " fetch: NetRead Method #8 {{{3 | 887 " fetch: NetRead Method #8 {{{3 |
822 " fetch://[user@]host[:http]/path | 888 " fetch://[user@]host[:http]/path |
834 else | 900 else |
835 let netrw_option= "ftp" | 901 let netrw_option= "ftp" |
836 endif | 902 endif |
837 " call Decho("read via fetch for ".netrw_option) | 903 " call Decho("read via fetch for ".netrw_option) |
838 | 904 |
839 if exists("g:netrw_uid") && g:netrw_uid != "" && exists("g:netrw_passwd") && g:netrw_passwd != "" | 905 if exists("g:netrw_uid") && g:netrw_uid != "" && exists("s:netrw_passwd") && s:netrw_passwd != "" |
840 " call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".netrw_fname) | 906 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".shellescape(netrw_option."://".g:netrw_uid.':'.s:netrw_passwd.'@'.g:netrw_machine."/".netrw_fname)) |
841 exe g:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".netrw_fname | 907 exe s:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".shellescape(netrw_option."://".g:netrw_uid.':'.s:netrw_passwd.'@'.g:netrw_machine."/".netrw_fname) |
842 else | 908 else |
843 " call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".netrw_fname) | 909 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".shellescape(netrw_option."://".g:netrw_machine."/".netrw_fname)) |
844 exe g:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".netrw_fname | 910 exe s:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".shellescape(netrw_option."://".g:netrw_machine."/".netrw_fname) |
845 endif | 911 endif |
846 | 912 |
847 let result = s:NetGetFile(readcmd,tmpfile, b:netrw_method) | 913 let result = s:NetrwGetFile(readcmd,tmpfile, b:netrw_method) |
848 let b:netrw_lastfile = choice | 914 let b:netrw_lastfile = choice |
849 setlocal ro | 915 setlocal ro |
850 | 916 |
851 "......................................... | 917 "......................................... |
852 " sftp: NetRead Method #9 {{{3 | 918 " sftp: NetRead Method #9 {{{3 |
853 elseif b:netrw_method == 9 | 919 elseif b:netrw_method == 9 |
854 " call Decho("read via sftp (method #9)") | 920 " call Decho("read via sftp (method #9)") |
855 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) | 921 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) |
856 " call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".netrw_fname." ".tmpfile) | 922 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_sftp_cmd." ".shellescape(g:netrw_machine.":".netrw_fname)." ".tmpfile) |
857 exe g:netrw_silentxfer."!".g:netrw_sftp_cmd." ".g:netrw_machine.":".netrw_fname." ".tmpfile | 923 exe s:netrw_silentxfer."!".g:netrw_sftp_cmd." ".shellescape(g:netrw_machine.":".netrw_fname)." ".tmpfile |
858 let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) | 924 let result = s:NetrwGetFile(readcmd, tmpfile, b:netrw_method) |
859 let b:netrw_lastfile = choice | 925 let b:netrw_lastfile = choice |
860 | 926 |
861 "......................................... | 927 "......................................... |
862 " Complain {{{3 | 928 " Complain {{{3 |
863 else | 929 else |
871 unlet b:netrw_method | 937 unlet b:netrw_method |
872 unlet b:netrw_fname | 938 unlet b:netrw_fname |
873 endif | 939 endif |
874 if s:FileReadable(tmpfile) && tmpfile !~ '.tar.bz2$' && tmpfile !~ '.tar.gz$' && tmpfile !~ '.zip' && tmpfile !~ '.tar' && readcmd != 't' | 940 if s:FileReadable(tmpfile) && tmpfile !~ '.tar.bz2$' && tmpfile !~ '.tar.gz$' && tmpfile !~ '.zip' && tmpfile !~ '.tar' && readcmd != 't' |
875 " call Decho("cleanup by deleting tmpfile<".tmpfile.">") | 941 " call Decho("cleanup by deleting tmpfile<".tmpfile.">") |
876 call s:System("delete",tmpfile) | 942 call s:System("delete",fnameescape(tmpfile)) |
877 endif | 943 endif |
878 call s:NetOptionRestore() | 944 call s:NetrwOptionRestore("w:") |
879 | 945 |
880 " call Dret("netrw#NetRead :5 getcwd<".getcwd().">") | 946 " call Dret("netrw#NetRead :5 getcwd<".getcwd().">") |
881 endfun | 947 endfun |
882 | 948 |
883 " ------------------------------------------------------------------------ | 949 " ------------------------------------------------------------------------ |
884 " NetWrite: responsible for writing a file over the net {{{2 | 950 " netrw#NetWrite: responsible for writing a file over the net {{{2 |
885 fun! netrw#NetWrite(...) range | 951 fun! netrw#NetWrite(...) range |
886 " call Dfunc("netrw#NetWrite(a:0=".a:0.") ".g:loaded_netrw) | 952 " call Dfunc("netrw#NetWrite(a:0=".a:0.") ".g:loaded_netrw) |
887 | 953 |
888 " option handling | 954 " option handling |
889 let mod= 0 | 955 let mod= 0 |
890 call s:NetOptionSave() | 956 call s:NetrwOptionSave("w:") |
957 call s:NetrwSafeOptions() | |
891 | 958 |
892 " Get Temporary Filename {{{3 | 959 " Get Temporary Filename {{{3 |
893 let tmpfile= s:GetTempfile("") | 960 let tmpfile= s:GetTempfile("") |
894 if tmpfile == "" | 961 if tmpfile == "" |
895 " call Dret("netrw#NetWrite : unable to get a tempfile!") | 962 " call Dret("netrw#NetWrite : unable to get a tempfile!") |
983 endif | 1050 endif |
984 let ichoice= ichoice + 1 | 1051 let ichoice= ichoice + 1 |
985 " call Decho("choice<" . choice . "> ichoice=".ichoice) | 1052 " call Decho("choice<" . choice . "> ichoice=".ichoice) |
986 | 1053 |
987 " Determine method of write (ftp, rcp, etc) {{{4 | 1054 " Determine method of write (ftp, rcp, etc) {{{4 |
988 call s:NetMethod(choice) | 1055 call s:NetrwMethod(choice) |
989 | 1056 |
990 " ============= | 1057 " ============= |
991 " Perform Protocol-Based Write {{{4 | 1058 " Perform Protocol-Based Write {{{4 |
992 " ============================ | 1059 " ============================ |
993 if exists("g:netrw_silent") && g:netrw_silent == 0 && &ch >= 1 | 1060 if exists("g:netrw_silent") && g:netrw_silent == 0 && &ch >= 1 |
994 echo "(netrw) Processing your write request..." | 1061 echo "(netrw) Processing your write request..." |
1062 " call Decho("(netrw) Processing your write request...") | |
995 endif | 1063 endif |
996 | 1064 |
997 "......................................... | 1065 "......................................... |
998 " rcp: NetWrite Method #1 {{{4 | 1066 " rcp: NetWrite Method #1 {{{4 |
999 if b:netrw_method == 1 | 1067 if b:netrw_method == 1 |
1010 else | 1078 else |
1011 let uid_machine = g:netrw_machine | 1079 let uid_machine = g:netrw_machine |
1012 endif | 1080 endif |
1013 endif | 1081 endif |
1014 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) | 1082 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) |
1015 " call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".g:netrw_shq.tmpfile.g:netrw_shq." ".uid_machine.":".netrw_fname) | 1083 " call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".shellescape(tmpfile)." ".shellescape(uid_machine.":".netrw_fname)) |
1016 exe g:netrw_silentxfer."!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".g:netrw_shq.tmpfile.g:netrw_shq." ".uid_machine.":".netrw_fname | 1084 exe s:netrw_silentxfer."!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".shellescape(tmpfile)." ".shellescape(uid_machine.":".netrw_fname) |
1017 let b:netrw_lastfile = choice | 1085 let b:netrw_lastfile = choice |
1018 | 1086 |
1019 "......................................... | 1087 "......................................... |
1020 " ftp + <.netrc>: NetWrite Method #2 {{{4 | 1088 " ftp + <.netrc>: NetWrite Method #2 {{{4 |
1021 elseif b:netrw_method == 2 | 1089 elseif b:netrw_method == 2 |
1022 " call Decho("write via ftp+.netrc (method #2)") | 1090 " call Decho("write via ftp+.netrc (method #2)") |
1023 let netrw_fname= b:netrw_fname | 1091 let netrw_fname= b:netrw_fname |
1024 new | 1092 new |
1093 " call Decho("filter input window#".winnr()) | |
1025 setlocal ff=unix | 1094 setlocal ff=unix |
1026 exe "put ='".g:netrw_ftpmode."'" | 1095 exe "put ='".g:netrw_ftpmode."'" |
1027 " call Decho(" filter input: ".getline(".")) | 1096 " call Decho("filter input: ".getline('.')) |
1028 if exists("g:netrw_ftpextracmd") | 1097 if exists("g:netrw_ftpextracmd") |
1029 exe "put ='".g:netrw_ftpextracmd."'" | 1098 exe "put ='".g:netrw_ftpextracmd."'" |
1030 " call Decho("filter input: ".getline(".")) | 1099 " call Decho("filter input: ".getline('.')) |
1031 endif | 1100 endif |
1032 exe "put ='".'put \"'.tmpfile.'\" \"'.netrw_fname.'\"'."'" | 1101 exe "put ='".'put \"'.tmpfile.'\" \"'.netrw_fname.'\"'."'" |
1033 " call Decho(" filter input: ".getline(".")) | 1102 " call Decho("filter input: ".getline('.')) |
1034 if exists("g:netrw_port") && g:netrw_port != "" | 1103 if exists("g:netrw_port") && g:netrw_port != "" |
1035 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) | 1104 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) |
1036 exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port | 1105 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port |
1037 else | 1106 else |
1107 " call Decho("filter input window#".winnr()) | |
1038 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) | 1108 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) |
1039 exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine | 1109 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine |
1040 endif | 1110 endif |
1041 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) | 1111 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) |
1042 if getline(1) !~ "^$" | 1112 if getline(1) !~ "^$" |
1043 if !exists("g:netrw_quiet") | 1113 if !exists("g:netrw_quiet") |
1044 call netrw#ErrorMsg(s:ERROR,getline(1),14) | 1114 call netrw#ErrorMsg(s:ERROR,getline(1),14) |
1056 let netrw_fname= b:netrw_fname | 1126 let netrw_fname= b:netrw_fname |
1057 new | 1127 new |
1058 setlocal ff=unix | 1128 setlocal ff=unix |
1059 if exists("g:netrw_port") && g:netrw_port != "" | 1129 if exists("g:netrw_port") && g:netrw_port != "" |
1060 put ='open '.g:netrw_machine.' '.g:netrw_port | 1130 put ='open '.g:netrw_machine.' '.g:netrw_port |
1061 " call Decho("filter input: ".getline(".")) | 1131 " call Decho("filter input: ".getline('.')) |
1062 else | 1132 else |
1063 put ='open '.g:netrw_machine | 1133 put ='open '.g:netrw_machine |
1064 " call Decho("filter input: ".getline(".")) | 1134 " call Decho("filter input: ".getline('.')) |
1065 endif | 1135 endif |
1066 if exists("g:netrw_ftp") && g:netrw_ftp == 1 | 1136 if exists("g:netrw_ftp") && g:netrw_ftp == 1 |
1067 put =g:netrw_uid | 1137 put =g:netrw_uid |
1068 " call Decho("filter input: ".getline(".")) | 1138 " call Decho("filter input: ".getline('.')) |
1069 put ='\"'.g:netrw_passwd.'\"' | 1139 put ='\"'.s:netrw_passwd.'\"' |
1070 " call Decho("filter input: ".getline(".")) | 1140 " call Decho("filter input: ".getline('.')) |
1071 else | 1141 else |
1072 put ='user \"'.g:netrw_uid.'\" \"'.g:netrw_passwd.'\"' | 1142 put ='user \"'.g:netrw_uid.'\" \"'.s:netrw_passwd.'\"' |
1073 " call Decho("filter input: ".getline(".")) | 1143 " call Decho("filter input: ".getline('.')) |
1074 endif | 1144 endif |
1075 put ='put \"'.tmpfile.'\" \"'.netrw_fname.'\"' | 1145 put ='put \"'.tmpfile.'\" \"'.netrw_fname.'\"' |
1076 " call Decho("filter input: ".getline(".")) | 1146 " call Decho("filter input: ".getline('.')) |
1077 " save choice/id/password for future use | 1147 " save choice/id/password for future use |
1078 let b:netrw_lastfile = choice | 1148 let b:netrw_lastfile = choice |
1079 | 1149 |
1080 " perform ftp: | 1150 " perform ftp: |
1081 " -i : turns off interactive prompting from ftp | 1151 " -i : turns off interactive prompting from ftp |
1082 " -n unix : DON'T use <.netrc>, even though it exists | 1152 " -n unix : DON'T use <.netrc>, even though it exists |
1083 " -n win32: quit being obnoxious about password | 1153 " -n win32: quit being obnoxious about password |
1084 norm! 1Gdd | 1154 norm! 1Gdd |
1085 " call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") | 1155 " call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") |
1086 exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n" | 1156 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n" |
1087 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) | 1157 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) |
1088 if getline(1) !~ "^$" | 1158 if getline(1) !~ "^$" |
1089 if !exists("g:netrw_quiet") | 1159 if !exists("g:netrw_quiet") |
1090 call netrw#ErrorMsg(s:ERROR,getline(1),15) | 1160 call netrw#ErrorMsg(s:ERROR,getline(1),15) |
1091 endif | 1161 endif |
1101 if exists("g:netrw_port") && g:netrw_port != "" | 1171 if exists("g:netrw_port") && g:netrw_port != "" |
1102 let useport= " ".g:netrw_scpport." ".g:netrw_port | 1172 let useport= " ".g:netrw_scpport." ".g:netrw_port |
1103 else | 1173 else |
1104 let useport= "" | 1174 let useport= "" |
1105 endif | 1175 endif |
1106 " call Decho("exe ".g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".g:netrw_shq.tmpfile.g:netrw_shq." ".g:netrw_shq.g:netrw_machine.":".netrw_fname.g:netrw_shq) | 1176 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".shellescape(tmpfile)." ".shellescape(g:netrw_machine.":".netrw_fname)) |
1107 exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".g:netrw_shq.tmpfile.g:netrw_shq." ".g:netrw_shq.g:netrw_machine.":".netrw_fname.g:netrw_shq | 1177 exe s:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".shellescape(tmpfile)." ".shellescape(g:netrw_machine.":".netrw_fname) |
1108 let b:netrw_lastfile = choice | 1178 let b:netrw_lastfile = choice |
1109 | 1179 |
1110 "......................................... | 1180 "......................................... |
1111 " http: NetWrite Method #5 {{{4 | 1181 " http: NetWrite Method #5 {{{4 |
1112 elseif b:netrw_method == 5 | 1182 elseif b:netrw_method == 5 |
1127 if exists("g:netrw_port") && g:netrw_port != "" | 1197 if exists("g:netrw_port") && g:netrw_port != "" |
1128 put ='open '.g:netrw_machine.' '.g:netrw_port | 1198 put ='open '.g:netrw_machine.' '.g:netrw_port |
1129 else | 1199 else |
1130 put ='open '.g:netrw_machine | 1200 put ='open '.g:netrw_machine |
1131 endif | 1201 endif |
1132 put ='user '.g:netrw_uid.' '.g:netrw_passwd | 1202 if exists("g:netrw_uid") && exists("s:netrw_passwd") |
1203 put ='user '.g:netrw_uid.' '.s:netrw_passwd | |
1204 endif | |
1133 put ='put '.tmpfile.' '.netrw_fname | 1205 put ='put '.tmpfile.' '.netrw_fname |
1134 | 1206 |
1135 " perform cadaver operation: | 1207 " perform cadaver operation: |
1136 norm! 1Gdd | 1208 norm! 1Gdd |
1137 " call Decho("executing: %!".g:netrw_dav_cmd) | 1209 " call Decho("executing: %!".g:netrw_dav_cmd) |
1138 exe g:netrw_silentxfer."%!".g:netrw_dav_cmd | 1210 exe s:netrw_silentxfer."%!".g:netrw_dav_cmd |
1139 bd! | 1211 bd! |
1140 let b:netrw_lastfile = choice | 1212 let b:netrw_lastfile = choice |
1141 | 1213 |
1142 "......................................... | 1214 "......................................... |
1143 " rsync: NetWrite Method #7 {{{4 | 1215 " rsync: NetWrite Method #7 {{{4 |
1144 elseif b:netrw_method == 7 | 1216 elseif b:netrw_method == 7 |
1145 " call Decho("write via rsync (method #7)") | 1217 " call Decho("write via rsync (method #7)") |
1146 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) | 1218 let netrw_fname= escape(b:netrw_fname,g:netrw_fname_escape) |
1147 " call Decho("executing: !".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".netrw_fname) | 1219 " call Decho("executing: !".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".netrw_fname) |
1148 exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".netrw_fname | 1220 exe s:netrw_silentxfer."!".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".netrw_fname |
1149 let b:netrw_lastfile = choice | 1221 let b:netrw_lastfile = choice |
1150 | 1222 |
1151 "......................................... | 1223 "......................................... |
1152 " sftp: NetWrite Method #9 {{{4 | 1224 " sftp: NetWrite Method #9 {{{4 |
1153 elseif b:netrw_method == 9 | 1225 elseif b:netrw_method == 9 |
1159 let uid_machine = g:netrw_machine | 1231 let uid_machine = g:netrw_machine |
1160 endif | 1232 endif |
1161 new | 1233 new |
1162 setlocal ff=unix | 1234 setlocal ff=unix |
1163 put ='put \"'.escape(tmpfile,'\').'\" '.netrw_fname | 1235 put ='put \"'.escape(tmpfile,'\').'\" '.netrw_fname |
1164 " call Decho("filter input: ".getline(".")) | 1236 " call Decho("filter input: ".getline('.')) |
1165 norm! 1Gdd | 1237 norm! 1Gdd |
1166 " call Decho("executing: %!".g:netrw_sftp_cmd.' '.uid_machine) | 1238 " call Decho("executing: %!".g:netrw_sftp_cmd.' '.uid_machine) |
1167 exe g:netrw_silentxfer."%!".g:netrw_sftp_cmd.' '.uid_machine | 1239 exe s:netrw_silentxfer."%!".g:netrw_sftp_cmd.' '.uid_machine |
1168 bd! | 1240 bd! |
1169 let b:netrw_lastfile= choice | 1241 let b:netrw_lastfile= choice |
1170 | 1242 |
1171 "......................................... | 1243 "......................................... |
1172 " Complain {{{4 | 1244 " Complain {{{4 |
1179 " call Decho("cleanup") | 1251 " call Decho("cleanup") |
1180 if s:FileReadable(tmpfile) | 1252 if s:FileReadable(tmpfile) |
1181 " call Decho("tmpfile<".tmpfile."> readable, will now delete it") | 1253 " call Decho("tmpfile<".tmpfile."> readable, will now delete it") |
1182 call s:System("delete",tmpfile) | 1254 call s:System("delete",tmpfile) |
1183 endif | 1255 endif |
1184 call s:NetOptionRestore() | 1256 call s:NetrwOptionRestore("w:") |
1185 | 1257 |
1186 if a:firstline == 1 && a:lastline == line("$") | 1258 if a:firstline == 1 && a:lastline == line("$") |
1187 " restore modifiability; usually equivalent to set nomod | 1259 " restore modifiability; usually equivalent to set nomod |
1188 let &mod= mod | 1260 let &mod= mod |
1189 endif | 1261 endif |
1190 | 1262 |
1191 " call Dret("netrw#NetWrite") | 1263 " call Dret("netrw#NetWrite") |
1192 endfun | 1264 endfun |
1193 | 1265 |
1194 " --------------------------------------------------------------------- | 1266 " --------------------------------------------------------------------- |
1195 " NetSource: source a remotely hosted vim script {{{2 | 1267 " netrw#NetSource: source a remotely hosted vim script {{{2 |
1196 " uses NetRead to get a copy of the file into a temporarily file, | 1268 " uses NetRead to get a copy of the file into a temporarily file, |
1197 " then sources that file, | 1269 " then sources that file, |
1198 " then removes that file. | 1270 " then removes that file. |
1199 fun! netrw#NetSource(...) | 1271 fun! netrw#NetSource(...) |
1200 " call Dfunc("netrw#NetSource() a:0=".a:0) | 1272 " call Dfunc("netrw#NetSource() a:0=".a:0) |
1228 endif | 1300 endif |
1229 " call Dret("netrw#NetSource") | 1301 " call Dret("netrw#NetSource") |
1230 endfun | 1302 endfun |
1231 | 1303 |
1232 " =========================================== | 1304 " =========================================== |
1233 " NetGetFile: Function to read temporary file "tfile" with command "readcmd". {{{2 | 1305 " s:NetrwGetFile: Function to read temporary file "tfile" with command "readcmd". {{{2 |
1234 " readcmd == %r : replace buffer with newly read file | 1306 " readcmd == %r : replace buffer with newly read file |
1235 " == 0r : read file at top of buffer | 1307 " == 0r : read file at top of buffer |
1236 " == r : read file after current line | 1308 " == r : read file after current line |
1237 " == t : leave file in temporary form (ie. don't read into buffer) | 1309 " == t : leave file in temporary form (ie. don't read into buffer) |
1238 fun! s:NetGetFile(readcmd, tfile, method) | 1310 fun! s:NetrwGetFile(readcmd, tfile, method) |
1239 " call Dfunc("NetGetFile(readcmd<".a:readcmd.">,tfile<".a:tfile."> method<".a:method.">)") | 1311 " call Dfunc("NetrwGetFile(readcmd<".a:readcmd.">,tfile<".a:tfile."> method<".a:method.">)") |
1240 | 1312 |
1241 " readcmd=='t': simply do nothing | 1313 " readcmd=='t': simply do nothing |
1242 if a:readcmd == 't' | 1314 if a:readcmd == 't' |
1243 " call Dret("NetGetFile : skip read of <".a:tfile.">") | 1315 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) |
1316 " call Dret("NetrwGetFile : skip read of <".a:tfile.">") | |
1244 return | 1317 return |
1245 endif | 1318 endif |
1246 | 1319 |
1247 " get name of remote filename (ie. url and all) | 1320 " get name of remote filename (ie. url and all) |
1248 let rfile= bufname("%") | 1321 let rfile= bufname("%") |
1261 if g:netrw_cygwin | 1334 if g:netrw_cygwin |
1262 let tfile= substitute(a:tfile,'/cygdrive/\(.\)','\1:','') | 1335 let tfile= substitute(a:tfile,'/cygdrive/\(.\)','\1:','') |
1263 else | 1336 else |
1264 let tfile= a:tfile | 1337 let tfile= a:tfile |
1265 endif | 1338 endif |
1266 " call Decho("keepalt exe file ".tfile) | 1339 " " call Decho("exe silent! keepalt file ".tfile) |
1267 keepalt exe "silent! keepalt file ".tfile | 1340 exe "silent! keepalt file ".tfile |
1268 | 1341 |
1269 " edit temporary file (ie. read the temporary file in) | 1342 " edit temporary file (ie. read the temporary file in) |
1270 if rfile =~ '\.zip$' | 1343 if rfile =~ '\.zip$' |
1271 " call Decho("handling remote zip file with zip#Browse(tfile<".tfile.">)") | 1344 " call Decho("handling remote zip file with zip#Browse(tfile<".tfile.">)") |
1272 call zip#Browse(tfile) | 1345 call zip#Browse(tfile) |
1283 " call Decho("edit temporary file") | 1356 " call Decho("edit temporary file") |
1284 e! | 1357 e! |
1285 endif | 1358 endif |
1286 | 1359 |
1287 " rename buffer back to remote filename | 1360 " rename buffer back to remote filename |
1361 " call Decho("exe silent! keepalt file ".escape(rfile,' ')) | |
1288 exe "silent! keepalt file ".escape(rfile,' ') | 1362 exe "silent! keepalt file ".escape(rfile,' ') |
1289 filetype detect | 1363 if a:method == 5 |
1364 set ft=html | |
1365 else | |
1366 filetype detect | |
1367 endif | |
1290 " call Dredir("renamed buffer back to remote filename<".rfile."> : expand(%)<".expand("%").">","ls!") | 1368 " call Dredir("renamed buffer back to remote filename<".rfile."> : expand(%)<".expand("%").">","ls!") |
1291 let line1 = 1 | 1369 let line1 = 1 |
1292 let line2 = line("$") | 1370 let line2 = line("$") |
1293 | 1371 |
1294 elseif s:FileReadable(a:tfile) | 1372 elseif s:FileReadable(a:tfile) |
1301 let line1= curline + 1 | 1379 let line1= curline + 1 |
1302 let line2= line("$") - lastline + 1 | 1380 let line2= line("$") - lastline + 1 |
1303 | 1381 |
1304 else | 1382 else |
1305 " not readable | 1383 " not readable |
1384 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
1306 " call Decho("tfile<".a:tfile."> not readable") | 1385 " call Decho("tfile<".a:tfile."> not readable") |
1307 call netrw#ErrorMsg(s:WARNING,"file <".a:tfile."> not readable",9) | 1386 call netrw#ErrorMsg(s:WARNING,"file <".a:tfile."> not readable",9) |
1308 " call Dret("NetGetFile : tfile<".a:tfile."> not readable") | 1387 " call Dret("NetrwGetFile : tfile<".a:tfile."> not readable") |
1309 return | 1388 return |
1310 endif | 1389 endif |
1311 | 1390 |
1312 " User-provided (ie. optional) fix-it-up command | 1391 " User-provided (ie. optional) fix-it-up command |
1313 if exists("*NetReadFixup") | 1392 if exists("*NetReadFixup") |
1315 call NetReadFixup(a:method, line1, line2) | 1394 call NetReadFixup(a:method, line1, line2) |
1316 " else " Decho | 1395 " else " Decho |
1317 " call Decho("NetReadFixup() not called, doesn't exist (line1=".line1." line2=".line2.")") | 1396 " call Decho("NetReadFixup() not called, doesn't exist (line1=".line1." line2=".line2.")") |
1318 endif | 1397 endif |
1319 | 1398 |
1320 " update the Buffers menu | 1399 if has("gui") && has("menu") && has("gui_running") && &go =~ 'm' |
1321 if has("gui") && has("gui_running") | 1400 " update the Buffers menu |
1322 silent! emenu Buffers.Refresh\ menu | 1401 call s:UpdateBuffersMenu() |
1323 endif | 1402 endif |
1324 | 1403 |
1325 " call Decho("readcmd<".a:readcmd."> cmdarg<".v:cmdarg."> tfile<".a:tfile."> readable=".s:FileReadable(a:tfile)) | 1404 " call Decho("readcmd<".a:readcmd."> cmdarg<".v:cmdarg."> tfile<".a:tfile."> readable=".s:FileReadable(a:tfile)) |
1326 | 1405 |
1327 " make sure file is being displayed | 1406 " make sure file is being displayed |
1328 redraw! | 1407 " redraw! |
1329 " call Dret("NetGetFile") | 1408 |
1409 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
1410 " call Dret("NetrwGetFile") | |
1330 endfun | 1411 endfun |
1331 | 1412 |
1332 " ------------------------------------------------------------------------ | 1413 " ------------------------------------------------------------------------ |
1333 " NetMethod: determine method of transfer {{{2 | 1414 " s:NetrwMethod: determine method of transfer {{{2 |
1334 " method == 1: rcp | 1415 " method == 1: rcp |
1335 " 2: ftp + <.netrc> | 1416 " 2: ftp + <.netrc> |
1336 " 3: ftp + machine, id, password, and [path]filename | 1417 " 3: ftp + machine, id, password, and [path]filename |
1337 " 4: scp | 1418 " 4: scp |
1338 " 5: http (wget) | 1419 " 5: http (wget) |
1339 " 6: cadaver | 1420 " 6: cadaver |
1340 " 7: rsync | 1421 " 7: rsync |
1341 " 8: fetch | 1422 " 8: fetch |
1342 " 9: sftp | 1423 " 9: sftp |
1343 fun! s:NetMethod(choice) " globals: method machine id passwd fname | 1424 fun! s:NetrwMethod(choice) " globals: method machine id passwd fname |
1344 " call Dfunc("NetMethod(a:choice<".a:choice.">)") | 1425 " call Dfunc("NetrwMethod(a:choice<".a:choice.">)") |
1345 | 1426 |
1346 " initialization | 1427 " initialization |
1347 let b:netrw_method = 0 | 1428 let b:netrw_method = 0 |
1348 let g:netrw_machine = "" | 1429 let g:netrw_machine = "" |
1349 let b:netrw_fname = "" | 1430 let b:netrw_fname = "" |
1350 let g:netrw_port = "" | 1431 let g:netrw_port = "" |
1351 let g:netrw_choice = a:choice | 1432 let g:netrw_choice = a:choice |
1352 | 1433 |
1353 " Patterns: | 1434 " Patterns: |
1354 " mipf : a:machine a:id password filename Use ftp | 1435 " mipf : a:machine a:id password filename Use ftp |
1355 " mf : a:machine filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd | 1436 " mf : a:machine filename Use ftp + <.netrc> or g:netrw_uid s:netrw_passwd |
1356 " ftpurm : ftp://[user@]host[[#:]port]/filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd | 1437 " ftpurm : ftp://[user@]host[[#:]port]/filename Use ftp + <.netrc> or g:netrw_uid s:netrw_passwd |
1357 " rcpurm : rcp://[user@]host/filename Use rcp | 1438 " rcpurm : rcp://[user@]host/filename Use rcp |
1358 " rcphf : [user@]host:filename Use rcp | 1439 " rcphf : [user@]host:filename Use rcp |
1359 " scpurm : scp://[user@]host[[#:]port]/filename Use scp | 1440 " scpurm : scp://[user@]host[[#:]port]/filename Use scp |
1360 " httpurm : http://[user@]host/filename Use wget | 1441 " httpurm : http://[user@]host/filename Use wget |
1361 " davurm : [s]dav://host[:port]/path Use cadaver | 1442 " davurm : dav[s]://host[:port]/path Use cadaver |
1362 " rsyncurm : rsync://host[:port]/path Use rsync | 1443 " rsyncurm : rsync://host[:port]/path Use rsync |
1363 " fetchurm : fetch://[user@]host[:http]/filename Use fetch (defaults to ftp, override for http) | 1444 " fetchurm : fetch://[user@]host[:http]/filename Use fetch (defaults to ftp, override for http) |
1364 " sftpurm : sftp://[user@]host/filename Use scp | 1445 " sftpurm : sftp://[user@]host/filename Use scp |
1365 let mipf = '^\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)$' | 1446 let mipf = '^\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)$' |
1366 let mf = '^\(\S\+\)\s\+\(\S\+\)$' | 1447 let mf = '^\(\S\+\)\s\+\(\S\+\)$' |
1367 let ftpurm = '^ftp://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\([#:]\d\+\)\=/\(.*\)$' | 1448 let ftpurm = '^ftp://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\([#:]\d\+\)\=/\(.*\)$' |
1368 let rcpurm = '^rcp://\%(\([^/@]\{-}\)@\)\=\([^/]\{-}\)/\(.*\)$' | 1449 let rcpurm = '^rcp://\%(\([^/@]\{-}\)@\)\=\([^/]\{-}\)/\(.*\)$' |
1369 let rcphf = '^\(\(\h\w*\)@\)\=\(\h\w*\):\([^@]\+\)$' | 1450 let rcphf = '^\(\(\h\w*\)@\)\=\(\h\w*\):\([^@]\+\)$' |
1370 let scpurm = '^scp://\([^/#:]\+\)\%([#:]\(\d\+\)\)\=/\(.*\)$' | 1451 let scpurm = '^scp://\([^/#:]\+\)\%([#:]\(\d\+\)\)\=/\(.*\)$' |
1371 let httpurm = '^http://\([^/]\{-}\)\(/.*\)\=$' | 1452 let httpurm = '^http://\([^/]\{-}\)\(/.*\)\=$' |
1372 let davurm = '^s\=dav://\([^/]\+\)/\(.*/\)\([-_.~[:alnum:]]\+\)$' | 1453 let davurm = '^davs\=://\([^/]\+\)/\(.*/\)\([-_.~[:alnum:]]\+\)$' |
1373 let rsyncurm = '^rsync://\([^/]\{-}\)/\(.*\)\=$' | 1454 let rsyncurm = '^rsync://\([^/]\{-}\)/\(.*\)\=$' |
1374 let fetchurm = '^fetch://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\(:http\)\=/\(.*\)$' | 1455 let fetchurm = '^fetch://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\(:http\)\=/\(.*\)$' |
1375 let sftpurm = '^sftp://\([^/]\{-}\)/\(.*\)\=$' | 1456 let sftpurm = '^sftp://\([^/]\{-}\)/\(.*\)\=$' |
1376 | 1457 |
1377 " call Decho("determine method:") | 1458 " call Decho("determine method:") |
1428 let g:netrw_port = substitute(a:choice,ftpurm,'\4',"") | 1509 let g:netrw_port = substitute(a:choice,ftpurm,'\4',"") |
1429 let b:netrw_fname = substitute(a:choice,ftpurm,'\5',"") | 1510 let b:netrw_fname = substitute(a:choice,ftpurm,'\5',"") |
1430 if userid != "" | 1511 if userid != "" |
1431 let g:netrw_uid= userid | 1512 let g:netrw_uid= userid |
1432 endif | 1513 endif |
1433 if exists("g:netrw_uid") && exists("g:netrw_passwd") | 1514 if exists("g:netrw_uid") && exists("s:netrw_passwd") |
1434 let b:netrw_method = 3 | 1515 let b:netrw_method = 3 |
1435 else | 1516 else |
1436 if s:FileReadable(expand("$HOME/.netrc")) && !g:netrw_ignorenetrc | 1517 if s:FileReadable(expand("$HOME/.netrc")) && !g:netrw_ignorenetrc |
1437 let b:netrw_method= 2 | 1518 let b:netrw_method= 2 |
1438 else | 1519 else |
1439 if !exists("g:netrw_uid") || g:netrw_uid == "" | 1520 if !exists("g:netrw_uid") || g:netrw_uid == "" |
1440 call NetUserPass() | 1521 call NetUserPass() |
1441 elseif !exists("g:netrw_passwd") || g:netrw_passwd == "" | 1522 elseif !exists("s:netrw_passwd") || s:netrw_passwd == "" |
1442 call NetUserPass(g:netrw_uid) | 1523 call NetUserPass(g:netrw_uid) |
1443 " else just use current g:netrw_uid and g:netrw_passwd | 1524 " else just use current g:netrw_uid and s:netrw_passwd |
1444 endif | 1525 endif |
1445 let b:netrw_method= 3 | 1526 let b:netrw_method= 3 |
1446 endif | 1527 endif |
1447 endif | 1528 endif |
1448 | 1529 |
1458 elseif match(a:choice,mipf) == 0 | 1539 elseif match(a:choice,mipf) == 0 |
1459 " call Decho("(ftp) host id pass file") | 1540 " call Decho("(ftp) host id pass file") |
1460 let b:netrw_method = 3 | 1541 let b:netrw_method = 3 |
1461 let g:netrw_machine = substitute(a:choice,mipf,'\1',"") | 1542 let g:netrw_machine = substitute(a:choice,mipf,'\1',"") |
1462 let g:netrw_uid = substitute(a:choice,mipf,'\2',"") | 1543 let g:netrw_uid = substitute(a:choice,mipf,'\2',"") |
1463 let g:netrw_passwd = substitute(a:choice,mipf,'\3',"") | 1544 let s:netrw_passwd = substitute(a:choice,mipf,'\3',"") |
1464 let b:netrw_fname = substitute(a:choice,mipf,'\4',"") | 1545 let b:netrw_fname = substitute(a:choice,mipf,'\4',"") |
1465 | 1546 |
1466 " Issue an ftp: "hostname [path/]filename" | 1547 " Issue an ftp: "hostname [path/]filename" |
1467 elseif match(a:choice,mf) == 0 | 1548 elseif match(a:choice,mf) == 0 |
1468 " call Decho("(ftp) host file") | 1549 " call Decho("(ftp) host file") |
1469 if exists("g:netrw_uid") && exists("g:netrw_passwd") | 1550 if exists("g:netrw_uid") && exists("s:netrw_passwd") |
1470 let b:netrw_method = 3 | 1551 let b:netrw_method = 3 |
1471 let g:netrw_machine = substitute(a:choice,mf,'\1',"") | 1552 let g:netrw_machine = substitute(a:choice,mf,'\1',"") |
1472 let b:netrw_fname = substitute(a:choice,mf,'\2',"") | 1553 let b:netrw_fname = substitute(a:choice,mf,'\2',"") |
1473 | 1554 |
1474 elseif s:FileReadable(expand("$HOME/.netrc")) | 1555 elseif s:FileReadable(expand("$HOME/.netrc")) |
1485 let b:netrw_fname = substitute(a:choice,sftpurm,'\2',"") | 1566 let b:netrw_fname = substitute(a:choice,sftpurm,'\2',"") |
1486 | 1567 |
1487 " Issue an rcp: hostname:filename" (this one should be last) | 1568 " Issue an rcp: hostname:filename" (this one should be last) |
1488 elseif match(a:choice,rcphf) == 0 | 1569 elseif match(a:choice,rcphf) == 0 |
1489 " call Decho("(rcp) [user@]host:file) rcphf<".rcphf.">") | 1570 " call Decho("(rcp) [user@]host:file) rcphf<".rcphf.">") |
1490 let b:netrw_method = 1 | 1571 let b:netrw_method = 1 |
1491 let userid = substitute(a:choice,rcphf,'\2',"") | 1572 let userid = substitute(a:choice,rcphf,'\2',"") |
1492 let g:netrw_machine= substitute(a:choice,rcphf,'\3',"") | 1573 let g:netrw_machine = substitute(a:choice,rcphf,'\3',"") |
1493 let b:netrw_fname = substitute(a:choice,rcphf,'\4',"") | 1574 let b:netrw_fname = substitute(a:choice,rcphf,'\4',"") |
1494 " call Decho('\1<'.substitute(a:choice,rcphf,'\1',"").">") | 1575 " call Decho('\1<'.substitute(a:choice,rcphf,'\1',"").">") |
1495 " call Decho('\2<'.substitute(a:choice,rcphf,'\2',"").">") | 1576 " call Decho('\2<'.substitute(a:choice,rcphf,'\2',"").">") |
1496 " call Decho('\3<'.substitute(a:choice,rcphf,'\3',"").">") | 1577 " call Decho('\3<'.substitute(a:choice,rcphf,'\3',"").">") |
1497 " call Decho('\4<'.substitute(a:choice,rcphf,'\4',"").">") | 1578 " call Decho('\4<'.substitute(a:choice,rcphf,'\4',"").">") |
1498 if userid != "" | 1579 if userid != "" |
1516 " call Decho("g:netrw_machine<".g:netrw_machine.">") | 1597 " call Decho("g:netrw_machine<".g:netrw_machine.">") |
1517 " call Decho("g:netrw_port <".g:netrw_port.">") | 1598 " call Decho("g:netrw_port <".g:netrw_port.">") |
1518 " if exists("g:netrw_uid") "Decho | 1599 " if exists("g:netrw_uid") "Decho |
1519 " call Decho("g:netrw_uid <".g:netrw_uid.">") | 1600 " call Decho("g:netrw_uid <".g:netrw_uid.">") |
1520 " endif "Decho | 1601 " endif "Decho |
1521 " if exists("g:netrw_passwd") "Decho | 1602 " if exists("s:netrw_passwd") "Decho |
1522 " call Decho("g:netrw_passwd <".g:netrw_passwd.">") | 1603 " call Decho("s:netrw_passwd <".s:netrw_passwd.">") |
1523 " endif "Decho | 1604 " endif "Decho |
1524 " call Decho("b:netrw_fname <".b:netrw_fname.">") | 1605 " call Decho("b:netrw_fname <".b:netrw_fname.">") |
1525 " call Dret("NetMethod : b:netrw_method=".b:netrw_method) | 1606 " call Dret("NetrwMethod : b:netrw_method=".b:netrw_method) |
1526 endfun | 1607 endfun |
1527 | 1608 |
1528 " ------------------------------------------------------------------------ | 1609 " ------------------------------------------------------------------------ |
1529 " NetReadFixup: this sort of function is typically written by the user {{{2 | 1610 " NetReadFixup: this sort of function is typically written by the user {{{2 |
1530 " to handle extra junk that their system's ftp dumps | 1611 " to handle extra junk that their system's ftp dumps |
1563 endif | 1644 endif |
1564 | 1645 |
1565 " get password | 1646 " get password |
1566 if a:0 <= 1 " via prompt | 1647 if a:0 <= 1 " via prompt |
1567 " call Decho("a:0=".a:0." case <=1:") | 1648 " call Decho("a:0=".a:0." case <=1:") |
1568 let g:netrw_passwd= inputsecret("Enter Password: ") | 1649 let s:netrw_passwd= inputsecret("Enter Password: ") |
1569 else " from command line | 1650 else " from command line |
1570 " call Decho("a:0=".a:0." case >1: a:2<".a:2.">") | 1651 " call Decho("a:0=".a:0." case >1: a:2<".a:2.">") |
1571 let g:netrw_passwd=a:2 | 1652 let s:netrw_passwd=a:2 |
1572 endif | 1653 endif |
1573 | 1654 |
1574 " call Dret("NetUserPass") | 1655 " call Dret("NetUserPass") |
1575 endfun | 1656 endfun |
1576 | 1657 |
1581 " --------------------------------------------------------------------- | 1662 " --------------------------------------------------------------------- |
1582 " s:BrowserMaps: {{{2 | 1663 " s:BrowserMaps: {{{2 |
1583 fun! s:BrowserMaps(islocal) | 1664 fun! s:BrowserMaps(islocal) |
1584 " call Dfunc("s:BrowserMaps(islocal=".a:islocal.") b:netrw_curdir<".b:netrw_curdir.">") | 1665 " call Dfunc("s:BrowserMaps(islocal=".a:islocal.") b:netrw_curdir<".b:netrw_curdir.">") |
1585 if a:islocal | 1666 if a:islocal |
1586 nnoremap <buffer> <silent> <cr> :call netrw#LocalBrowseCheck(<SID>NetBrowseChgDir(1,<SID>NetGetWord()))<cr> | 1667 nnoremap <buffer> <silent> <cr> :call netrw#LocalBrowseCheck(<SID>NetrwBrowseChgDir(1,<SID>NetrwGetWord()))<cr> |
1587 nnoremap <buffer> <silent> <leftmouse> <leftmouse>:call netrw#LocalBrowseCheck(<SID>NetBrowseChgDir(1,<SID>NetGetWord()))<cr> | 1668 nnoremap <buffer> <silent> - :exe "norm! 0"<bar>call netrw#LocalBrowseCheck(<SID>NetrwBrowseChgDir(1,'../'))<cr> |
1588 nnoremap <buffer> <silent> <c-l> :call <SID>NetRefresh(1,<SID>NetBrowseChgDir(1,'./'))<cr> | 1669 nnoremap <buffer> <silent> a :call <SID>NetrwHide(1)<cr> |
1589 nnoremap <buffer> <silent> - :exe "norm! 0"<bar>call netrw#LocalBrowseCheck(<SID>NetBrowseChgDir(1,'../'))<cr> | 1670 nnoremap <buffer> <silent> mb :<c-u>call <SID>NetrwBookmarkDir(0,b:netrw_curdir)<cr> |
1590 nnoremap <buffer> <silent> a :call <SID>NetHide(1)<cr> | 1671 nnoremap <buffer> <silent> mc :<c-u>call <SID>NetrwMarkFileCopy(1)<cr> |
1591 nnoremap <buffer> <silent> mb :<c-u>call <SID>NetBookmarkDir(0,b:netrw_curdir)<cr> | 1672 nnoremap <buffer> <silent> md :<c-u>call <SID>NetrwMarkFileDiff(1)<cr> |
1592 nnoremap <buffer> <silent> gb :<c-u>call <SID>NetBookmarkDir(1,b:netrw_curdir)<cr> | 1673 nnoremap <buffer> <silent> me :<c-u>call <SID>NetrwMarkFileEdit(1)<cr> |
1593 nnoremap <buffer> <silent> c :exe "cd ".b:netrw_curdir<cr> | 1674 nnoremap <buffer> <silent> mf :<c-u>call <SID>NetrwMarkFile(1,<SID>NetrwGetWord())<cr> |
1675 nnoremap <buffer> <silent> mg :<c-u>call <SID>NetrwMarkFileGrep(1)<cr> | |
1676 nnoremap <buffer> <silent> mh :<c-u>call <SID>NetrwMarkHideSfx(1)<cr> | |
1677 nnoremap <buffer> <silent> mm :<c-u>call <SID>NetrwMarkFileMove(1)<cr> | |
1678 nnoremap <buffer> <silent> mp :<c-u>call <SID>NetrwMarkFilePrint(1)<cr> | |
1679 nnoremap <buffer> <silent> mr :<c-u>call <SID>NetrwMarkFileRegexp(1)<cr> | |
1680 nnoremap <buffer> <silent> ms :<c-u>call <SID>NetrwMarkFileSource(1)<cr> | |
1681 nnoremap <buffer> <silent> mT :<c-u>call <SID>NetrwMarkFileTag(1)<cr> | |
1682 nnoremap <buffer> <silent> mt :<c-u>call <SID>NetrwMarkFileTgt(1)<cr> | |
1683 nnoremap <buffer> <silent> mu :<c-u>call <SID>NetrwUnMarkFile(1)<cr> | |
1684 nnoremap <buffer> <silent> mx :<c-u>call <SID>NetrwMarkFileExe(1)<cr> | |
1685 nnoremap <buffer> <silent> mz :<c-u>call <SID>NetrwMarkFileCompress(1)<cr> | |
1686 nnoremap <buffer> <silent> gb :<c-u>call <SID>NetrwBookmarkDir(1,b:netrw_curdir)<cr> | |
1687 nnoremap <buffer> <silent> gh :<c-u>call <SID>NetrwHidden(1)<cr> | |
1688 nnoremap <buffer> <silent> c :exe "keepjumps lcd ".fnameescape(b:netrw_curdir)<cr> | |
1594 nnoremap <buffer> <silent> C :let g:netrw_chgwin= winnr()<cr> | 1689 nnoremap <buffer> <silent> C :let g:netrw_chgwin= winnr()<cr> |
1595 nnoremap <buffer> <silent> d :call <SID>NetMakeDir("")<cr> | 1690 nnoremap <buffer> <silent> d :call <SID>NetrwMakeDir("")<cr> |
1596 nnoremap <buffer> <silent> <c-h> :call <SID>NetHideEdit(1)<cr> | 1691 nnoremap <buffer> <silent> i :call <SID>NetrwListStyle(1)<cr> |
1597 nnoremap <buffer> <silent> i :call <SID>NetListStyle(1)<cr> | 1692 nnoremap <buffer> <silent> o :call <SID>NetrwSplit(3)<cr> |
1598 nnoremap <buffer> <silent> o :call <SID>NetSplit(3)<cr> | 1693 nnoremap <buffer> <silent> O :call <SID>NetrwObtain(1)<cr> |
1599 nnoremap <buffer> <silent> O :call <SID>LocalObtain()<cr> | 1694 nnoremap <buffer> <silent> p :call <SID>NetrwPreview(<SID>NetrwBrowseChgDir(1,<SID>NetrwGetWord(),1))<cr> |
1600 nnoremap <buffer> <silent> p :call <SID>NetPreview(<SID>NetBrowseChgDir(1,<SID>NetGetWord(),1))<cr> | 1695 nnoremap <buffer> <silent> P :call <SID>NetrwPrevWinOpen(1)<cr> |
1601 nnoremap <buffer> <silent> P :call <SID>NetPrevWinOpen(1)<cr> | 1696 nnoremap <buffer> <silent> qb :<c-u>call <SID>NetrwBookmarkDir(2,b:netrw_curdir)<cr> |
1602 nnoremap <buffer> <silent> q :<c-u>call <SID>NetBookmarkDir(2,b:netrw_curdir)<cr> | 1697 nnoremap <buffer> <silent> mB :<c-u>call <SID>NetrwBookmarkDir(6,b:netrw_curdir)<cr> |
1603 nnoremap <buffer> <silent> r :let g:netrw_sort_direction= (g:netrw_sort_direction =~ 'n')? 'r' : 'n'<bar>exe "norm! 0"<bar>call <SID>NetRefresh(1,<SID>NetBrowseChgDir(1,'./'))<cr> | 1698 nnoremap <buffer> <silent> qf :<c-u>call <SID>NetrwFileInfo(1,<SID>NetrwGetWord())<cr> |
1604 nnoremap <buffer> <silent> s :call <SID>NetSortStyle(1)<cr> | 1699 nnoremap <buffer> <silent> r :let g:netrw_sort_direction= (g:netrw_sort_direction =~ 'n')? 'r' : 'n'<bar>exe "norm! 0"<bar>call <SID>NetrwRefresh(1,<SID>NetrwBrowseChgDir(1,'./'))<cr> |
1700 nnoremap <buffer> <silent> s :call <SID>NetrwSortStyle(1)<cr> | |
1605 nnoremap <buffer> <silent> S :call <SID>NetSortSequence(1)<cr> | 1701 nnoremap <buffer> <silent> S :call <SID>NetSortSequence(1)<cr> |
1606 nnoremap <buffer> <silent> t :call <SID>NetSplit(4)<cr> | 1702 nnoremap <buffer> <silent> t :call <SID>NetrwSplit(4)<cr> |
1607 nnoremap <buffer> <silent> u :<c-u>call <SID>NetBookmarkDir(4,expand("%"))<cr> | 1703 nnoremap <buffer> <silent> u :<c-u>call <SID>NetrwBookmarkDir(4,expand("%"))<cr> |
1608 nnoremap <buffer> <silent> U :<c-u>call <SID>NetBookmarkDir(5,expand("%"))<cr> | 1704 nnoremap <buffer> <silent> U :<c-u>call <SID>NetrwBookmarkDir(5,expand("%"))<cr> |
1609 nnoremap <buffer> <silent> v :call <SID>NetSplit(5)<cr> | 1705 nnoremap <buffer> <silent> v :call <SID>NetrwSplit(5)<cr> |
1610 nnoremap <buffer> <silent> x :call netrw#NetBrowseX(<SID>NetBrowseChgDir(1,<SID>NetGetWord(),0),0)"<cr> | 1706 nnoremap <buffer> <silent> x :call netrw#NetrwBrowseX(<SID>NetrwBrowseChgDir(1,<SID>NetrwGetWord(),0),0)"<cr> |
1707 if !hasmapto('<Plug>NetrwHideEdit') | |
1708 nmap <buffer> <unique> <c-h> <Plug>NetrwHideEdit | |
1709 endif | |
1710 nnoremap <buffer> <silent> <Plug>NetrwHideEdit :call <SID>NetrwHideEdit(1)<cr> | |
1711 if !hasmapto('<Plug>NetrwRefresh') | |
1712 nmap <buffer> <unique> <c-l> <Plug>NetrwRefresh | |
1713 endif | |
1714 nnoremap <buffer> <silent> <Plug>NetrwRefresh :call <SID>NetrwRefresh(1,<SID>NetrwBrowseChgDir(1,'./'))<cr> | |
1611 if s:didstarstar || !mapcheck("<s-down>","n") | 1715 if s:didstarstar || !mapcheck("<s-down>","n") |
1612 nnoremap <buffer> <silent> <s-down> :Nexplore<cr> | 1716 nnoremap <buffer> <silent> <s-down> :Nexplore<cr> |
1613 endif | 1717 endif |
1614 if s:didstarstar || !mapcheck("<s-up>","n") | 1718 if s:didstarstar || !mapcheck("<s-up>","n") |
1615 nnoremap <buffer> <silent> <s-up> :Pexplore<cr> | 1719 nnoremap <buffer> <silent> <s-up> :Pexplore<cr> |
1616 endif | 1720 endif |
1617 exe 'nnoremap <buffer> <silent> <del> :call <SID>LocalBrowseRm("'.b:netrw_curdir.'")<cr>' | 1721 if g:netrw_mousemaps == 1 |
1618 exe 'vnoremap <buffer> <silent> <del> :call <SID>LocalBrowseRm("'.b:netrw_curdir.'")<cr>' | 1722 nnoremap <buffer> <silent> <leftmouse> <leftmouse>:call <SID>NetrwLeftmouse(1)<cr> |
1619 exe 'nnoremap <buffer> <silent> <rightmouse> <leftmouse>:call <SID>LocalBrowseRm("'.b:netrw_curdir.'")<cr>' | 1723 nnoremap <buffer> <silent> <middlemouse> <leftmouse>:call <SID>NetrwPrevWinOpen(1)<cr> |
1620 exe 'vnoremap <buffer> <silent> <rightmouse> <leftmouse>:call <SID>LocalBrowseRm("'.b:netrw_curdir.'")<cr>' | 1724 nnoremap <buffer> <silent> <s-leftmouse> <leftmouse>:call <SID>NetrwMarkFile(1,<SID>NetrwGetWord())<cr> |
1621 exe 'nnoremap <buffer> <silent> D :call <SID>LocalBrowseRm("'.b:netrw_curdir.'")<cr>' | 1725 exe 'nnoremap <buffer> <silent> <rightmouse> <leftmouse>:call <SID>NetrwLocalRm("'.b:netrw_curdir.'")<cr>' |
1622 exe 'vnoremap <buffer> <silent> D :call <SID>LocalBrowseRm("'.b:netrw_curdir.'")<cr>' | 1726 exe 'vnoremap <buffer> <silent> <rightmouse> <leftmouse>:call <SID>NetrwLocalRm("'.b:netrw_curdir.'")<cr>' |
1623 exe 'nnoremap <buffer> <silent> R :call <SID>LocalBrowseRename("'.b:netrw_curdir.'")<cr>' | 1727 endif |
1624 exe 'vnoremap <buffer> <silent> R :call <SID>LocalBrowseRename("'.b:netrw_curdir.'")<cr>' | 1728 exe 'nnoremap <buffer> <silent> <del> :call <SID>NetrwLocalRm("'.b:netrw_curdir.'")<cr>' |
1625 exe 'nnoremap <buffer> <silent> <Leader>m :call <SID>NetMakeDir("")<cr>' | 1729 exe 'vnoremap <buffer> <silent> <del> :call <SID>NetrwLocalRm("'.b:netrw_curdir.'")<cr>' |
1626 nnoremap <buffer> <F1> :he netrw-dir<cr> | 1730 exe 'nnoremap <buffer> <silent> D :call <SID>NetrwLocalRm("'.b:netrw_curdir.'")<cr>' |
1731 exe 'vnoremap <buffer> <silent> D :call <SID>NetrwLocalRm("'.b:netrw_curdir.'")<cr>' | |
1732 exe 'nnoremap <buffer> <silent> R :call <SID>NetrwLocalRename("'.b:netrw_curdir.'")<cr>' | |
1733 exe 'vnoremap <buffer> <silent> R :call <SID>NetrwLocalRename("'.b:netrw_curdir.'")<cr>' | |
1734 exe 'nnoremap <buffer> <silent> <Leader>m :call <SID>NetrwMakeDir("")<cr>' | |
1735 nnoremap <buffer> <F1> :he netrw-quickhelp<cr> | |
1627 | 1736 |
1628 else " remote | 1737 else " remote |
1629 call s:RemotePathAnalysis(b:netrw_curdir) | 1738 call s:RemotePathAnalysis(b:netrw_curdir) |
1630 nnoremap <buffer> <silent> <cr> :call <SID>NetBrowse(0,<SID>NetBrowseChgDir(0,<SID>NetGetWord()))<cr> | 1739 nnoremap <buffer> <silent> <cr> :call <SID>NetrwBrowse(0,<SID>NetrwBrowseChgDir(0,<SID>NetrwGetWord()))<cr> |
1631 nnoremap <buffer> <silent> <leftmouse> <leftmouse>:call <SID>NetBrowse(0,<SID>NetBrowseChgDir(0,<SID>NetGetWord()))<cr> | 1740 nnoremap <buffer> <silent> <c-l> :call <SID>NetrwRefresh(0,<SID>NetrwBrowseChgDir(0,'./'))<cr> |
1632 nnoremap <buffer> <silent> <c-l> :call <SID>NetRefresh(0,<SID>NetBrowseChgDir(0,'./'))<cr> | 1741 nnoremap <buffer> <silent> - :exe "norm! 0"<bar>call <SID>NetrwBrowse(0,<SID>NetrwBrowseChgDir(0,'../'))<cr> |
1633 nnoremap <buffer> <silent> - :exe "norm! 0"<bar>call <SID>NetBrowse(0,<SID>NetBrowseChgDir(0,'../'))<cr> | 1742 nnoremap <buffer> <silent> a :call <SID>NetrwHide(0)<cr> |
1634 nnoremap <buffer> <silent> a :call <SID>NetHide(0)<cr> | 1743 nnoremap <buffer> <silent> mb :<c-u>call <SID>NetrwBookmarkDir(0,b:netrw_curdir)<cr> |
1635 nnoremap <buffer> <silent> mb :<c-u>call <SID>NetBookmarkDir(0,b:netrw_curdir)<cr> | 1744 nnoremap <buffer> <silent> mc :<c-u>call <SID>NetrwMarkFileCopy(0)<cr> |
1636 nnoremap <buffer> <silent> gb :<c-u>call <SID>NetBookmarkDir(1,b:netrw_cur)<cr> | 1745 nnoremap <buffer> <silent> md :<c-u>call <SID>NetrwMarkFileDiff(0)<cr> |
1746 nnoremap <buffer> <silent> me :<c-u>call <SID>NetrwMarkFileEdit(0)<cr> | |
1747 nnoremap <buffer> <silent> mf :<c-u>call <SID>NetrwMarkFile(0,<SID>NetrwGetWord())<cr> | |
1748 nnoremap <buffer> <silent> mg :<c-u>call <SID>NetrwMarkFileGrep(0)<cr> | |
1749 nnoremap <buffer> <silent> mh :<c-u>call <SID>NetrwMarkHideSfx(0)<cr> | |
1750 nnoremap <buffer> <silent> mm :<c-u>call <SID>NetrwMarkFileMove(0)<cr> | |
1751 nnoremap <buffer> <silent> mp :<c-u>call <SID>NetrwMarkFilePrint(0)<cr> | |
1752 nnoremap <buffer> <silent> mr :<c-u>call <SID>NetrwMarkFileRegexp(0)<cr> | |
1753 nnoremap <buffer> <silent> ms :<c-u>call <SID>NetrwMarkFileSource(0)<cr> | |
1754 nnoremap <buffer> <silent> mT :<c-u>call <SID>NetrwMarkFileTag(0)<cr> | |
1755 nnoremap <buffer> <silent> mt :<c-u>call <SID>NetrwMarkFileTgt(0)<cr> | |
1756 nnoremap <buffer> <silent> mu :<c-u>call <SID>NetrwUnMarkFile(0)<cr> | |
1757 nnoremap <buffer> <silent> mx :<c-u>call <SID>NetrwMarkFileExe(0)<cr> | |
1758 nnoremap <buffer> <silent> mz :<c-u>call <SID>NetrwMarkFileCompress(0)<cr> | |
1759 nnoremap <buffer> <silent> gb :<c-u>call <SID>NetrwBookmarkDir(1,b:netrw_cur)<cr> | |
1760 nnoremap <buffer> <silent> gh :<c-u>call <SID>NetrwHidden(0)<cr> | |
1637 nnoremap <buffer> <silent> C :let g:netrw_chgwin= winnr()<cr> | 1761 nnoremap <buffer> <silent> C :let g:netrw_chgwin= winnr()<cr> |
1638 nnoremap <buffer> <silent> <c-h> :call <SID>NetHideEdit(0)<cr> | 1762 nnoremap <buffer> <silent> i :call <SID>NetrwListStyle(0)<cr> |
1639 nnoremap <buffer> <silent> i :call <SID>NetListStyle(0)<cr> | 1763 nnoremap <buffer> <silent> o :call <SID>NetrwSplit(0)<cr> |
1640 nnoremap <buffer> <silent> o :call <SID>NetSplit(0)<cr> | 1764 nnoremap <buffer> <silent> O :call <SID>NetrwObtain(0)<cr> |
1641 nnoremap <buffer> <silent> O :call netrw#NetObtain(0)<cr> | 1765 nnoremap <buffer> <silent> p :call <SID>NetrwPreview(<SID>NetrwBrowseChgDir(1,<SID>NetrwGetWord(),1))<cr> |
1642 vnoremap <buffer> <silent> O :call netrw#NetObtain(1)<cr> | 1766 nnoremap <buffer> <silent> P :call <SID>NetrwPrevWinOpen(0)<cr> |
1643 nnoremap <buffer> <silent> p :call <SID>NetPreview(<SID>NetBrowseChgDir(1,<SID>NetGetWord(),1))<cr> | 1767 nnoremap <buffer> <silent> qb :<c-u>call <SID>NetrwBookmarkDir(2,b:netrw_curdir)<cr> |
1644 nnoremap <buffer> <silent> P :call <SID>NetPrevWinOpen(0)<cr> | 1768 nnoremap <buffer> <silent> mB :<c-u>call <SID>NetrwBookmarkDir(6,b:netrw_curdir)<cr> |
1645 nnoremap <buffer> <silent> q :<c-u>call <SID>NetBookmarkDir(2,b:netrw_curdir)<cr> | 1769 nnoremap <buffer> <silent> qf :<c-u>call <SID>NetrwFileInfo(0,<SID>NetrwGetWord())<cr> |
1646 nnoremap <buffer> <silent> r :let g:netrw_sort_direction= (g:netrw_sort_direction =~ 'n')? 'r' : 'n'<bar>exe "norm! 0"<bar>call <SID>NetBrowse(0,<SID>NetBrowseChgDir(0,'./'))<cr> | 1770 nnoremap <buffer> <silent> r :let g:netrw_sort_direction= (g:netrw_sort_direction =~ 'n')? 'r' : 'n'<bar>exe "norm! 0"<bar>call <SID>NetrwBrowse(0,<SID>NetrwBrowseChgDir(0,'./'))<cr> |
1647 nnoremap <buffer> <silent> s :call <SID>NetSortStyle(0)<cr> | 1771 nnoremap <buffer> <silent> s :call <SID>NetrwSortStyle(0)<cr> |
1648 nnoremap <buffer> <silent> S :call <SID>NetSortSequence(0)<cr> | 1772 nnoremap <buffer> <silent> S :call <SID>NetSortSequence(0)<cr> |
1649 nnoremap <buffer> <silent> t :call <SID>NetSplit(1)<cr> | 1773 nnoremap <buffer> <silent> t :call <SID>NetrwSplit(1)<cr> |
1650 nnoremap <buffer> <silent> u :<c-u>call <SID>NetBookmarkDir(4,b:netrw_curdir)<cr> | 1774 nnoremap <buffer> <silent> u :<c-u>call <SID>NetrwBookmarkDir(4,b:netrw_curdir)<cr> |
1651 nnoremap <buffer> <silent> U :<c-u>call <SID>NetBookmarkDir(5,b:netrw_curdir)<cr> | 1775 nnoremap <buffer> <silent> U :<c-u>call <SID>NetrwBookmarkDir(5,b:netrw_curdir)<cr> |
1652 nnoremap <buffer> <silent> v :call <SID>NetSplit(2)<cr> | 1776 nnoremap <buffer> <silent> v :call <SID>NetrwSplit(2)<cr> |
1653 nnoremap <buffer> <silent> x :call netrw#NetBrowseX(<SID>NetBrowseChgDir(0,<SID>NetGetWord()),1)<cr> | 1777 nnoremap <buffer> <silent> x :call netrw#NetrwBrowseX(<SID>NetrwBrowseChgDir(0,<SID>NetrwGetWord()),1)<cr> |
1654 exe 'nnoremap <buffer> <silent> <del> :call <SID>NetBrowseRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | 1778 if !hasmapto('<Plug>NetrwHideEdit') |
1655 exe 'vnoremap <buffer> <silent> <del> :call <SID>NetBrowseRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | 1779 nmap <buffer> <c-h> <Plug>NetrwHideEdit |
1656 exe 'nnoremap <buffer> <silent> <rightmouse> <leftmouse>:call <SID>NetBrowseRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | 1780 endif |
1657 exe 'vnoremap <buffer> <silent> <rightmouse> <leftmouse>:call <SID>NetBrowseRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | 1781 nnoremap <buffer> <silent> <Plug>NetrwHideEdit :call <SID>NetrwHideEdit(0)<cr> |
1658 exe 'nnoremap <buffer> <silent> d :call <SID>NetMakeDir("'.s:user.s:machine.'")<cr>' | 1782 if !hasmapto('<Plug>NetrwRefresh') |
1659 exe 'nnoremap <buffer> <silent> D :call <SID>NetBrowseRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | 1783 nmap <buffer> <c-l> <Plug>NetrwRefresh |
1660 exe 'vnoremap <buffer> <silent> D :call <SID>NetBrowseRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | 1784 endif |
1661 exe 'nnoremap <buffer> <silent> R :call <SID>NetBrowseRename("'.s:user.s:machine.'","'.s:path.'")<cr>' | 1785 nnoremap <buffer> <silent> <Plug>NetrwRefresh :call <SID>NetrwRefresh(0,<SID>NetrwBrowseChgDir(0,'./'))<cr> |
1662 exe 'vnoremap <buffer> <silent> R :call <SID>NetBrowseRename("'.s:user.s:machine.'","'.s:path.'")<cr>' | 1786 if g:netrw_mousemaps == 1 |
1787 nnoremap <buffer> <silent> <leftmouse> <leftmouse>:call <SID>NetrwLeftmouse(0)<cr> | |
1788 nnoremap <buffer> <silent> <middlemouse> <leftmouse>:call <SID>NetrwPrevWinOpen(0)<cr> | |
1789 nnoremap <buffer> <silent> <s-leftmouse> <leftmouse>:call <SID>NetrwMarkFile(0,<SID>NetrwGetWord())<cr> | |
1790 exe 'nnoremap <buffer> <silent> <rightmouse> <leftmouse>:call <SID>NetrwRemoteRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | |
1791 exe 'vnoremap <buffer> <silent> <rightmouse> <leftmouse>:call <SID>NetrwRemoteRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | |
1792 endif | |
1793 exe 'nnoremap <buffer> <silent> <del> :call <SID>NetrwRemoteRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | |
1794 exe 'vnoremap <buffer> <silent> <del> :call <SID>NetrwRemoteRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | |
1795 exe 'nnoremap <buffer> <silent> d :call <SID>NetrwMakeDir("'.s:user.s:machine.'")<cr>' | |
1796 exe 'nnoremap <buffer> <silent> D :call <SID>NetrwRemoteRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | |
1797 exe 'vnoremap <buffer> <silent> D :call <SID>NetrwRemoteRm("'.s:user.s:machine.'","'.s:path.'")<cr>' | |
1798 exe 'nnoremap <buffer> <silent> R :call <SID>NetrwRemoteRename("'.s:user.s:machine.'","'.s:path.'")<cr>' | |
1799 exe 'vnoremap <buffer> <silent> R :call <SID>NetrwRemoteRename("'.s:user.s:machine.'","'.s:path.'")<cr>' | |
1663 nnoremap <buffer> <F1> :he netrw-browse-cmds<cr> | 1800 nnoremap <buffer> <F1> :he netrw-browse-cmds<cr> |
1664 endif | 1801 endif |
1802 call s:SetRexDir(a:islocal,b:netrw_curdir) | |
1665 " call Dret("s:BrowserMaps") | 1803 " call Dret("s:BrowserMaps") |
1666 endfun | 1804 endfun |
1667 | 1805 |
1668 " --------------------------------------------------------------------- | 1806 " --------------------------------------------------------------------- |
1669 " s:NetBrowse: This function uses the command in g:netrw_list_cmd to get a list {{{2 | 1807 " s:ExplorePatHls: converts an Explore pattern into a regular expression search pattern {{{2 |
1670 " of the contents of a remote directory. It is assumed that the | 1808 fun! s:ExplorePatHls(pattern) |
1671 " g:netrw_list_cmd has a string, USEPORT HOSTNAME, that needs to be substituted | 1809 " call Dfunc("s:ExplorePatHls(pattern<".a:pattern.">)") |
1672 " with the requested remote hostname first. | 1810 let repat= substitute(a:pattern,'^**/\{1,2}','','') |
1673 fun! s:NetBrowse(islocal,dirname) | 1811 " call Decho("repat<".repat.">") |
1674 if !exists("w:netrw_liststyle")|let w:netrw_liststyle= g:netrw_liststyle|endif | 1812 let repat= escape(repat,'][.\') |
1675 " call Dfunc("NetBrowse(islocal=".a:islocal." dirname<".a:dirname.">) liststyle=".w:netrw_liststyle." ".g:loaded_netrw." buf#".bufnr("%")."<".bufname("%").">") | 1813 " call Decho("repat<".repat.">") |
1676 " call Dredir("ls!") | 1814 let repat= '\<'.substitute(repat,'\*','\\(\\S\\+ \\)*\\S\\+','g').'\>' |
1677 | 1815 " call Dret("s:ExplorePatHls repat<".repat.">") |
1678 if exists("s:netrw_skipbrowse") | 1816 return repat |
1679 unlet s:netrw_skipbrowse | 1817 endfun |
1680 " call Dret("NetBrowse : s:netrw_skipbrowse=".s:netrw_skipbrowse) | 1818 |
1681 return | 1819 " --------------------------------------------------------------------- |
1682 endif | 1820 " s:NetrwBookmarkDir: {{{2 |
1683 | 1821 " 0: (user: <mb>) bookmark current directory |
1684 call s:NetOptionSave() | 1822 " 1: (user: <gb>) change to the bookmarked directory |
1685 | 1823 " 2: (user: <qb>) list bookmarks |
1686 if a:islocal && exists("w:netrw_acdkeep") && w:netrw_acdkeep | 1824 " 3: (browsing) record current directory history |
1687 " call Decho("handle w:netrw_acdkeep:") | 1825 " 4: (user: <u>) go up (previous) bookmark |
1688 " call Decho("cd ".escape(a:dirname,s:netrw_cd_escape)." (due to 'acd')") | 1826 " 5: (user: <U>) go down (next) bookmark |
1689 exe 'cd '.escape(a:dirname,s:netrw_cd_escape) | 1827 " 6: (user: <mB>) delete bookmark |
1690 " call Decho("getcwd<".getcwd().">") | 1828 fun! s:NetrwBookmarkDir(chg,curdir) |
1691 | 1829 " call Dfunc("NetrwBookmarkDir(chg=".a:chg." curdir<".a:curdir.">) cnt=".v:count." bookmarkcnt=".g:NETRW_BOOKMARKMAX." histcnt=".g:NETRW_DIRHIST_CNT." bookmax=".g:NETRW_BOOKMARKMAX." histmax=".g:netrw_dirhistmax) |
1692 elseif !a:islocal && a:dirname !~ '[\/]$' && a:dirname !~ '^"' | |
1693 " looks like a regular file, attempt transfer | |
1694 " call Decho("attempt transfer as regular file<".a:dirname.">") | |
1695 | |
1696 " remove any filetype indicator from end of dirname, except for the {{{3 | |
1697 " "this is a directory" indicator (/). | |
1698 " There shouldn't be one of those here, anyway. | |
1699 let path= substitute(a:dirname,'[*=@|]\r\=$','','e') | |
1700 " call Decho("new path<".path.">") | |
1701 call s:RemotePathAnalysis(a:dirname) | |
1702 | |
1703 " remote-read the requested file into current buffer {{{3 | |
1704 mark ' | |
1705 call s:NetrwEnew(a:dirname) | |
1706 let b:netrw_curdir= a:dirname | |
1707 call s:NetrwSafeOptions() | |
1708 setlocal ma noro | |
1709 " call Decho("exe silent! keepalt file ".s:method."://".s:user.s:machine."/".escape(s:path,s:netrw_cd_escape)." (bt=".&bt.")") | |
1710 exe "silent! keepalt file ".s:method."://".s:user.s:machine."/".escape(s:path,s:netrw_cd_escape) | |
1711 exe "silent keepalt doau BufReadPre ".s:fname | |
1712 silent call netrw#NetRead(2,s:method."://".s:user.s:machine."/".s:path) | |
1713 exe "silent keepalt doau BufReadPost ".s:fname | |
1714 | |
1715 " save certain window-oriented variables into buffer-oriented variables {{{3 | |
1716 call s:SetBufWinVars() | |
1717 call s:NetOptionRestore() | |
1718 setlocal nomod nowrap | |
1719 | |
1720 " call Dret("NetBrowse : file<".s:fname.">") | |
1721 return | |
1722 endif | |
1723 | |
1724 " use buffer-oriented WinVars if buffer ones exist but window ones don't {{{3 | |
1725 call s:UseBufWinVars() | |
1726 | |
1727 " set up some variables {{{3 | |
1728 let b:netrw_browser_active = 1 | |
1729 let dirname = a:dirname | |
1730 let s:last_sort_by = g:netrw_sort_by | |
1731 | |
1732 call s:NetMenu(1) " set up menu {{{3 | |
1733 if s:NetGetBuffer(a:islocal,dirname) " set up buffer {{{3 | |
1734 " call Dret("NetBrowse : re-using buffer") | |
1735 return | |
1736 endif | |
1737 | |
1738 " set b:netrw_curdir to the new directory name {{{3 | |
1739 " call Decho("set b:netrw_curdir to the new directory name:") | |
1740 let b:netrw_curdir= dirname | |
1741 if b:netrw_curdir =~ '[/\\]$' | |
1742 let b:netrw_curdir= substitute(b:netrw_curdir,'[/\\]$','','e') | |
1743 endif | |
1744 if b:netrw_curdir == '' | |
1745 if has("amiga") | |
1746 " On the Amiga, the empty string connotes the current directory | |
1747 let b:netrw_curdir= getcwd() | |
1748 else | |
1749 " under unix, when the root directory is encountered, the result | |
1750 " from the preceding substitute is an empty string. | |
1751 let b:netrw_curdir= '/' | |
1752 endif | |
1753 endif | |
1754 if !a:islocal && b:netrw_curdir !~ '/$' | |
1755 let b:netrw_curdir= b:netrw_curdir.'/' | |
1756 endif | |
1757 " call Decho("b:netrw_curdir<".b:netrw_curdir.">") | |
1758 | |
1759 " ------------ | |
1760 " (local only) {{{3 | |
1761 " ------------ | |
1762 if a:islocal | |
1763 " call Decho("local only:") | |
1764 | |
1765 " Set up ShellCmdPost handling. Append current buffer to browselist | |
1766 call s:LocalFastBrowser() | |
1767 | |
1768 " handle g:netrw_keepdir: set vim's current directory to netrw's notion of the current directory {{{3 | |
1769 if !g:netrw_keepdir | |
1770 " call Decho("handle keepdir: (g:netrw_keepdir=".g:netrw_keepdir.")") | |
1771 " call Decho('exe cd '.escape(b:netrw_curdir,s:netrw_cd_escape)) | |
1772 try | |
1773 exe 'cd '.escape(b:netrw_curdir,s:netrw_cd_escape) | |
1774 catch /^Vim\%((\a\+)\)\=:E472/ | |
1775 call netrw#ErrorMsg(s:ERROR,"unable to change directory to <".b:netrw_curdir."> (permissions?)",33) | |
1776 if exists("w:netrw_prvdir") | |
1777 let b:netrw_curdir= w:netrw_prvdir | |
1778 else | |
1779 call s:NetOptionRestore() | |
1780 let b:netrw_curdir= dirname | |
1781 " call Dret("NetBrowse : reusing buffer#".(exists("bufnum")? bufnum : 'N/A')."<".dirname."> getcwd<".getcwd().">") | |
1782 return | |
1783 endif | |
1784 endtry | |
1785 endif | |
1786 | |
1787 " -------------------------------- | |
1788 " remote handling: {{{3 | |
1789 " -------------------------------- | |
1790 else | |
1791 " call Decho("remote only:") | |
1792 | |
1793 " analyze a:dirname and g:netrw_list_cmd {{{4 | |
1794 " call Decho("b:netrw_curdir<".(exists("b:netrw_curdir")? b:netrw_curdir : "doesn't exist")."> a:dirname<".a:dirname.">") | |
1795 if a:dirname == "NetrwTreeListing" | |
1796 let dirname= b:netrw_curdir | |
1797 " call Decho("(dirname was NetrwTreeListing) dirname<".dirname.">") | |
1798 elseif exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("b:netrw_curdir") | |
1799 let dirname= substitute(b:netrw_curdir,'\\','/','g') | |
1800 if dirname !~ '/$' | |
1801 let dirname= dirname.'/' | |
1802 endif | |
1803 let b:netrw_curdir = dirname | |
1804 " call Decho("(liststyle is TREELIST) dirname<".dirname.">") | |
1805 else | |
1806 let dirname = substitute(a:dirname,'\\','/','g') | |
1807 " call Decho("(normal) dirname<".dirname.">") | |
1808 endif | |
1809 | |
1810 let dirpat = '^\(\w\{-}\)://\(\w\+@\)\=\([^/]\+\)/\(.*\)$' | |
1811 if dirname !~ dirpat | |
1812 if !exists("g:netrw_quiet") | |
1813 call netrw#ErrorMsg(s:ERROR,"netrw doesn't understand your dirname<".dirname.">",20) | |
1814 endif | |
1815 call s:NetOptionRestore() | |
1816 " call Dret("NetBrowse : badly formatted dirname<".dirname.">") | |
1817 return | |
1818 endif | |
1819 let b:netrw_curdir= dirname | |
1820 " call Decho("b:netrw_curdir<".b:netrw_curdir."> (remote)") | |
1821 endif " (additional remote handling) | |
1822 | |
1823 " ----------------------- | |
1824 " Directory Listing: {{{3 | |
1825 " ----------------------- | |
1826 setlocal noro ma | |
1827 call s:BrowserMaps(a:islocal) | |
1828 call s:PerformListing(a:islocal) | |
1829 | |
1830 " call Dret("NetBrowse") | |
1831 return | |
1832 endfun | |
1833 | |
1834 " --------------------------------------------------------------------- | |
1835 " s:NetGetBuffer: {{{2 | |
1836 " returns 0=cleared buffer | |
1837 " 1=re-used buffer | |
1838 fun! s:NetGetBuffer(islocal,dirname) | |
1839 " call Dfunc("s:NetGetBuffer(islocal=".a:islocal." dirname<".a:dirname.">)") | |
1840 | |
1841 " re-use buffer if possible {{{3 | |
1842 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST | |
1843 " find NetrwTreeList buffer if there is one | |
1844 let dirname= "NetrwTreeListing" | |
1845 let bufnum = bufnr('\<NetrwTreeListing\>') | |
1846 if bufnum != -1 | |
1847 " call Dret("s:NetGetBuffer : bufnum#".bufnum."<NetrwTreeListing>") | |
1848 return | |
1849 endif | |
1850 | |
1851 else | |
1852 " find buffer number of buffer named precisely the same as dirname {{{3 | |
1853 " call Dredir("ls!") | |
1854 let dirname= a:dirname | |
1855 " call Decho("find buffer<".dirname.">'s number ") | |
1856 let bufnum= bufnr(escape(dirname,'\')) | |
1857 " call Decho("findbuf1: bufnum=bufnr('".escape(dirname,'\')."')=".bufnum." (initial)") | |
1858 let ibuf= 1 | |
1859 if bufnum > 0 && bufname(bufnum) != dirname | |
1860 let buflast = bufnr("$") | |
1861 " call Decho("findbuf2: buflast=".buflast) | |
1862 while ibuf <= buflast | |
1863 let bname= bufname(ibuf) | |
1864 " call Decho("findbuf3: dirname<".dirname."> bufname(".ibuf.")<".bname.">") | |
1865 if bname != '' && bname !~ '/' && dirname =~ '/'.bname.'$' | break | endif | |
1866 if bname =~ '^'.dirname.'\=$' | break | endif | |
1867 let ibuf= ibuf + 1 | |
1868 endwhile | |
1869 if ibuf > buflast | |
1870 let bufnum= -1 | |
1871 else | |
1872 let bufnum= ibuf | |
1873 endif | |
1874 " call Decho("findbuf4: bufnum=".bufnum) | |
1875 endif | |
1876 endif | |
1877 | |
1878 " get enew buffer and name it -or- re-use buffer {{{3 | |
1879 mark ' | |
1880 if bufnum < 0 || !bufexists(bufnum) | |
1881 " call Decho("get enew buffer") | |
1882 call s:NetrwEnew(dirname) | |
1883 call s:NetrwSafeOptions() | |
1884 " name the buffer | |
1885 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST | |
1886 " call Decho('silent! keepalt file NetrwTreeListing') | |
1887 silent! keepalt file NetrwTreeListing | |
1888 else | |
1889 " call Decho('exe silent! keepalt file '.escape(dirname,s:netrw_cd_escape)) | |
1890 " let v:errmsg= "" " Decho | |
1891 let escdirname= escape(dirname,s:netrw_cd_escape) | |
1892 exe 'silent! keepalt file '.escdirname | |
1893 " call Decho("errmsg<".v:errmsg."> bufnr(".escdirname.")=".bufnr(escdirname)."<".bufname(bufnr(escdirname)).">") | |
1894 endif | |
1895 " call Decho("named enew buffer#".bufnr("%")."<".bufname("%").">") | |
1896 | |
1897 else " Re-use the buffer | |
1898 | |
1899 " call Decho("re-use buffer:") | |
1900 let eikeep= &ei | |
1901 set ei=all | |
1902 if getline(2) =~ '^" Netrw Directory Listing' | |
1903 " call Decho("re-use buffer#".bufnum."<".((bufnum > 0)? bufname(bufnum) : "")."> using: keepalt b ".bufnum) | |
1904 exe "keepalt b ".bufnum | |
1905 else | |
1906 " call Decho("reusing buffer#".bufnum."<".((bufnum > 0)? bufname(bufnum) : "")."> using: b ".bufnum) | |
1907 exe "b ".bufnum | |
1908 endif | |
1909 let &ei= eikeep | |
1910 if line("$") <= 1 | |
1911 call s:NetrwListSettings(a:islocal) | |
1912 " call Dret("s:NetGetBuffer 0 : re-using buffer#".bufnr("%").", but its empty, so refresh it") | |
1913 return 0 | |
1914 elseif exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST | |
1915 " call Decho("clear buffer<".expand("%")."> with :%d") | |
1916 silent %d | |
1917 call s:NetrwListSettings(a:islocal) | |
1918 " call Dret("s:NetGetBuffer 0 : re-using buffer#".bufnr("%").", but treelist mode always needs a refresh") | |
1919 return 0 | |
1920 else | |
1921 " call Dret("s:NetGetBuffer 1 : buf#".bufnr("%")) | |
1922 return 1 | |
1923 endif | |
1924 endif | |
1925 | |
1926 " do netrw settings: make this buffer not-a-file, modifiable, not line-numbered, etc {{{3 | |
1927 " fastbrowse Local Remote Hiding a buffer implies it may be re-used (fast) | |
1928 " slow 0 D D Deleting a buffer implies it will not be re-used (slow) | |
1929 " med 1 D H | |
1930 " fast 2 H H | |
1931 let fname= expand("%") | |
1932 call s:NetrwListSettings(a:islocal) | |
1933 exe "file ".escape(fname,' ') | |
1934 | |
1935 " delete all lines from buffer {{{3 | |
1936 " call Decho("clear buffer<".expand("%")."> with :%d") | |
1937 keepalt silent! %d | |
1938 | |
1939 " call Dret("s:NetGetBuffer 0 : buf#".bufnr("%")) | |
1940 return 0 | |
1941 endfun | |
1942 | |
1943 " --------------------------------------------------------------------- | |
1944 " s:NetrwListSettings: {{{2 | |
1945 fun! s:NetrwListSettings(islocal) | |
1946 " call Dfunc("s:NetrwListSettings(islocal=".a:islocal.")") | |
1947 let fname= bufname("%") | |
1948 setlocal bt=nofile nobl ma nonu nowrap noro | |
1949 exe "file ".escape(fname,' ') | |
1950 if g:netrw_use_noswf | |
1951 setlocal noswf | |
1952 endif | |
1953 " call Dredir("ls!") | |
1954 " call Decho("exe setlocal ts=".g:netrw_maxfilenamelen) | |
1955 exe "setlocal ts=".g:netrw_maxfilenamelen | |
1956 if g:netrw_fastbrowse > a:islocal | |
1957 setlocal bh=hide | |
1958 else | |
1959 setlocal bh=delete | |
1960 endif | |
1961 " call Dret("s:NetrwListSettings") | |
1962 endfun | |
1963 | |
1964 " --------------------------------------------------------------------- | |
1965 " s:PerformListing: {{{2 | |
1966 fun! s:PerformListing(islocal) | |
1967 " call Dfunc("s:PerformListing(islocal=".a:islocal.") buf(%)=".bufnr("%")."<".bufname("%").">") | |
1968 | |
1969 " if exists("g:netrw_silent") && g:netrw_silent == 0 && &ch >= 1 " Decho | |
1970 " call Decho("(netrw) Processing your browsing request...") | |
1971 " endif " Decho | |
1972 | |
1973 " call Decho('w:netrw_liststyle='.(exists("w:netrw_liststyle")? w:netrw_liststyle : 'n/a')) | |
1974 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("w:netrw_treedict") | |
1975 " force a refresh for tree listings | |
1976 " call Decho("force refresh for treelisting: clear buffer<".expand("%")."> with :%d") | |
1977 setlocal ma noro | |
1978 keepjumps %d | |
1979 endif | |
1980 | |
1981 " save current directory on directory history list | |
1982 call s:NetBookmarkDir(3,b:netrw_curdir) | |
1983 | |
1984 " Set up the banner {{{3 | |
1985 " call Decho("set up banner") | |
1986 keepjumps put ='\" ============================================================================' | |
1987 keepjumps put ='\" Netrw Directory Listing (netrw '.g:loaded_netrw.')' | |
1988 keepjumps put ='\" '.b:netrw_curdir | |
1989 keepjumps 1d | |
1990 let w:netrw_bannercnt= 3 | |
1991 exe w:netrw_bannercnt | |
1992 | |
1993 let sortby= g:netrw_sort_by | |
1994 if g:netrw_sort_direction =~ "^r" | |
1995 let sortby= sortby." reversed" | |
1996 endif | |
1997 | |
1998 " Sorted by... {{{3 | |
1999 " call Decho("handle specified sorting: g:netrw_sort_by<".g:netrw_sort_by.">") | |
2000 if g:netrw_sort_by =~ "^n" | |
2001 " call Decho("directories will be sorted by name") | |
2002 " sorted by name | |
2003 keepjumps put ='\" Sorted by '.sortby | |
2004 keepjumps put ='\" Sort sequence: '.g:netrw_sort_sequence | |
2005 let w:netrw_bannercnt= w:netrw_bannercnt + 2 | |
2006 else | |
2007 " call Decho("directories will be sorted by size or time") | |
2008 " sorted by size or date | |
2009 keepjumps put ='\" Sorted by '.sortby | |
2010 let w:netrw_bannercnt= w:netrw_bannercnt + 1 | |
2011 endif | |
2012 exe w:netrw_bannercnt | |
2013 | |
2014 " Hiding... -or- Showing... {{{3 | |
2015 " call Decho("handle hiding/showing (g:netrw_hide=".g:netrw_list_hide." g:netrw_list_hide<".g:netrw_list_hide.">)") | |
2016 if g:netrw_list_hide != "" && g:netrw_hide | |
2017 if g:netrw_hide == 1 | |
2018 keepjumps put ='\" Hiding: '.g:netrw_list_hide | |
2019 else | |
2020 keepjumps put ='\" Showing: '.g:netrw_list_hide | |
2021 endif | |
2022 let w:netrw_bannercnt= w:netrw_bannercnt + 1 | |
2023 endif | |
2024 exe w:netrw_bannercnt | |
2025 keepjumps put ='\" Quick Help: <F1>:help -:go up dir D:delete R:rename s:sort-by x:exec' | |
2026 keepjumps put ='\" ============================================================================' | |
2027 let w:netrw_bannercnt= w:netrw_bannercnt + 2 | |
2028 | |
2029 " bannercnt should index the line just after the banner | |
2030 let w:netrw_bannercnt= w:netrw_bannercnt + 1 | |
2031 exe w:netrw_bannercnt | |
2032 " call Decho("bannercnt=".w:netrw_bannercnt." (should index line just after banner) line($)=".line("$")) | |
2033 | |
2034 " set up syntax highlighting {{{3 | |
2035 " call Decho("set up syntax highlighting") | |
2036 if has("syntax") | |
2037 setlocal ft=netrw | |
2038 if !exists("g:syntax_on") || !g:syntax_on | |
2039 setlocal ft= | |
2040 endif | |
2041 endif | |
2042 | |
2043 " get list of files | |
2044 if a:islocal | |
2045 call s:LocalListing() | |
2046 else " remote | |
2047 call s:RemoteListing() | |
2048 endif | |
2049 " call Decho("w:netrw_bannercnt=".w:netrw_bannercnt." (banner complete)") | |
2050 | |
2051 " manipulate the directory listing (hide, sort) {{{3 | |
2052 if line("$") >= w:netrw_bannercnt | |
2053 " call Decho("manipulate directory listing (hide)") | |
2054 " call Decho("g:netrw_hide=".g:netrw_hide." g:netrw_list_hide<".g:netrw_list_hide.">") | |
2055 if g:netrw_hide && g:netrw_list_hide != "" | |
2056 call s:NetListHide() | |
2057 endif | |
2058 if line("$") >= w:netrw_bannercnt | |
2059 " call Decho("manipulate directory listing (sort) : g:netrw_sort_by<".g:netrw_sort_by.">") | |
2060 | |
2061 if g:netrw_sort_by =~ "^n" | |
2062 " sort by name | |
2063 call s:SetSort() | |
2064 | |
2065 if w:netrw_bannercnt < line("$") | |
2066 " call Decho("g:netrw_sort_direction=".g:netrw_sort_direction." (bannercnt=".w:netrw_bannercnt.")") | |
2067 if g:netrw_sort_direction =~ 'n' | |
2068 " normal direction sorting | |
2069 exe 'silent keepjumps '.w:netrw_bannercnt.',$sort' | |
2070 else | |
2071 " reverse direction sorting | |
2072 exe 'silent keepjumps '.w:netrw_bannercnt.',$sort!' | |
2073 endif | |
2074 endif | |
2075 " remove priority pattern prefix | |
2076 " call Decho("remove priority pattern prefix") | |
2077 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^\d\{3}\///e' | |
2078 | |
2079 elseif a:islocal | |
2080 if w:netrw_bannercnt < line("$") | |
2081 " call Decho("g:netrw_sort_direction=".g:netrw_sort_direction) | |
2082 if g:netrw_sort_direction =~ 'n' | |
2083 " call Decho('exe silent keepjumps '.w:netrw_bannercnt.',$sort') | |
2084 exe 'silent keepjumps '.w:netrw_bannercnt.',$sort' | |
2085 else | |
2086 " call Decho('exe silent keepjumps '.w:netrw_bannercnt.',$sort!') | |
2087 exe 'silent keepjumps '.w:netrw_bannercnt.',$sort!' | |
2088 endif | |
2089 endif | |
2090 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^\d\{-}\///e' | |
2091 endif | |
2092 | |
2093 elseif g:netrw_sort_direction =~ 'r' | |
2094 " call Decho('reverse the sorted listing') | |
2095 exe 'silent keepjumps '.w:netrw_bannercnt.'g/^/m '.w:netrw_bannercnt | |
2096 endif | |
2097 endif | |
2098 | |
2099 " convert to wide/tree listing {{{3 | |
2100 " call Decho("modify display if wide/tree listing style") | |
2101 call s:NetWideListing() | |
2102 call s:NetTreeListing(b:netrw_curdir) | |
2103 | |
2104 if exists("w:netrw_bannercnt") && line("$") > w:netrw_bannercnt | |
2105 " place cursor on the top-left corner of the file listing | |
2106 " call Decho("place cursor on top-left corner of file listing") | |
2107 exe 'silent '.w:netrw_bannercnt | |
2108 norm! 0 | |
2109 endif | |
2110 | |
2111 " record previous current directory | |
2112 let w:netrw_prvdir= b:netrw_curdir | |
2113 " call Decho("record netrw_prvdir<".w:netrw_prvdir.">") | |
2114 | |
2115 " save certain window-oriented variables into buffer-oriented variables {{{3 | |
2116 call s:SetBufWinVars() | |
2117 call s:NetOptionRestore() | |
2118 | |
2119 " set display to netrw display settings | |
2120 " call Decho("set display to netrw display settings (noma nomod etc)") | |
2121 setlocal noma nomod nonu nobl nowrap ro | |
2122 if exists("s:treecurpos") | |
2123 call setpos('.',s:treecurpos) | |
2124 unlet s:treecurpos | |
2125 endif | |
2126 | |
2127 " call Dret("s:PerformListing : curpos<".string(getpos(".")).">") | |
2128 endfun | |
2129 | |
2130 " --------------------------------------------------------------------- | |
2131 " s:NetBrowseChgDir: constructs a new directory based on the current {{{2 | |
2132 " directory and a new directory name | |
2133 fun! s:NetBrowseChgDir(islocal,newdir,...) | |
2134 " call Dfunc("s:NetBrowseChgDir(islocal=".a:islocal."> newdir<".a:newdir.">) a:0=".a:0." curpos<".string(getpos("."))."> b:netrw_curdir<".(exists("b:netrw_curdir")? b:netrw_curdir : "").">") | |
2135 | |
2136 if !exists("b:netrw_curdir") | |
2137 " call Decho("(NetBrowseChgDir) b:netrw_curdir doesn't exist!") | |
2138 echoerr "(NetBrowseChgDir) b:netrw_curdir doesn't exist!" | |
2139 " call Dret("s:NetBrowseChgDir") | |
2140 return | |
2141 endif | |
2142 | |
2143 call netrw#NetSavePosn() | |
2144 let nbcd_curpos = getpos('.') | |
2145 let dirname = substitute(b:netrw_curdir,'\\','/','ge') | |
2146 let newdir = a:newdir | |
2147 | |
2148 " set up o/s-dependent directory recognition pattern | |
2149 if has("amiga") | |
2150 let dirpat= '[\/:]$' | |
2151 else | |
2152 let dirpat= '[\/]$' | |
2153 endif | |
2154 " call Decho("dirname<".dirname."> dirpat<".dirpat.">") | |
2155 | |
2156 if dirname !~ dirpat | |
2157 " apparently vim is "recognizing" that it is in a directory and | |
2158 " is removing the trailing "/". Bad idea, so I have to put it back. | |
2159 let dirname= dirname.'/' | |
2160 " call Decho("adjusting dirname<".dirname.">") | |
2161 endif | |
2162 | |
2163 if newdir !~ dirpat | |
2164 " handling a file | |
2165 " call Decho('case "handling a file": newdir<'.newdir.'> !~ dirpat<'.dirpat.">") | |
2166 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("w:netrw_treedict") && newdir !~ '^\(/\|\a:\)' | |
2167 let dirname= s:NetTreeDir().newdir | |
2168 " call Decho("tree listing") | |
2169 elseif newdir =~ '^\(/\|\a:\)' | |
2170 let dirname= newdir | |
2171 else | |
2172 let dirname= s:ComposePath(dirname,newdir) | |
2173 endif | |
2174 " call Decho("handling a file: dirname<".dirname."> (a:0=".a:0.")") | |
2175 " this lets NetBrowseX avoid the edit | |
2176 if a:0 < 1 | |
2177 " call Decho("dirname<".dirname."> netrw_cd_escape<".s:netrw_cd_escape."> browse_split=".g:netrw_browse_split) | |
2178 " call Decho("about to edit<".escape(dirname,s:netrw_cd_escape)."> didsplit=".(exists("s:didsplit")? s:didsplit : "doesn't exist")) | |
2179 if !exists("s:didsplit") | |
2180 if g:netrw_browse_split == 1 | |
2181 new | |
2182 wincmd _ | |
2183 elseif g:netrw_browse_split == 2 | |
2184 rightb vert new | |
2185 wincmd | | |
2186 elseif g:netrw_browse_split == 3 | |
2187 tabnew | |
2188 else | |
2189 " handling a file, didn't split, so remove menu | |
2190 " call Decho("handling a file+didn't split, so remove menu") | |
2191 call s:NetMenu(0) | |
2192 " optional change to window | |
2193 if g:netrw_chgwin >= 1 | |
2194 exe g:netrw_chgwin."wincmd w" | |
2195 endif | |
2196 endif | |
2197 endif | |
2198 " edit the file | |
2199 " its local only: LocalBrowseCheck() doesn't edit a file, but NetBrowse() will | |
2200 if a:islocal | |
2201 " call Decho("edit file: exe e! ".escape(dirname,s:netrw_cd_escape)) | |
2202 exe "e! ".escape(dirname,s:netrw_cd_escape) | |
2203 endif | |
2204 setlocal ma nomod noro | |
2205 endif | |
2206 | |
2207 elseif newdir =~ '^/' | |
2208 " just go to the new directory spec | |
2209 " call Decho('case "just go to new directory spec": newdir<'.newdir.'>') | |
2210 let dirname= newdir | |
2211 | |
2212 elseif newdir == './' | |
2213 " refresh the directory list | |
2214 " call Decho('case "refresh directory listing": newdir == "./"') | |
2215 | |
2216 elseif newdir == '../' | |
2217 " go up one directory | |
2218 " call Decho('case "go up one directory": newdir == "../"') | |
2219 | |
2220 if w:netrw_liststyle == s:TREELIST && exists("w:netrw_treedict") | |
2221 " force a refresh | |
2222 " call Decho("clear buffer<".expand("%")."> with :%d") | |
2223 setlocal noro ma | |
2224 keepjumps %d | |
2225 endif | |
2226 | |
2227 if has("amiga") | |
2228 " amiga | |
2229 " call Decho('case "go up one directory": newdir == "../" and amiga') | |
2230 if a:islocal | |
2231 let dirname= substitute(dirname,'^\(.*[/:]\)\([^/]\+$\)','\1','') | |
2232 let dirname= substitute(dirname,'/$','','') | |
2233 else | |
2234 let dirname= substitute(dirname,'^\(.*[/:]\)\([^/]\+/$\)','\1','') | |
2235 endif | |
2236 " call Decho("amiga: dirname<".dirname."> (go up one dir)") | |
2237 | |
2238 else | |
2239 " unix or cygwin | |
2240 " call Decho('case "go up one directory": newdir == "../" and unix or cygwin') | |
2241 if a:islocal | |
2242 let dirname= substitute(dirname,'^\(.*\)/\([^/]\+\)/$','\1','') | |
2243 if dirname == "" | |
2244 let dirname= '/' | |
2245 endif | |
2246 else | |
2247 let dirname= substitute(dirname,'^\(\a\+://.\{-}/\{1,2}\)\(.\{-}\)\([^/]\+\)/$','\1\2','') | |
2248 endif | |
2249 " call Decho("unix: dirname<".dirname."> (go up one dir)") | |
2250 endif | |
2251 | |
2252 elseif w:netrw_liststyle == s:TREELIST && exists("w:netrw_treedict") | |
2253 " call Decho('case liststyle is TREELIST and w:netrw_treedict exists') | |
2254 " force a refresh (for TREELIST, wait for NetTreeDir() to force the refresh) | |
2255 setlocal noro ma | |
2256 if !(exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("b:netrw_curdir")) | |
2257 " call Decho("clear buffer<".expand("%")."> with :%d") | |
2258 keepjumps %d | |
2259 endif | |
2260 let treedir = s:NetTreeDir() | |
2261 let s:treecurpos = nbcd_curpos | |
2262 let haskey= 0 | |
2263 " call Decho("w:netrw_treedict<".string(w:netrw_treedict).">") | |
2264 | |
2265 " search treedict for tree dir as-is | |
2266 if has_key(w:netrw_treedict,treedir) | |
2267 " call Decho('....searched for treedir<'.treedir.'> : found it!') | |
2268 let haskey= 1 | |
2269 else | |
2270 " call Decho('....searched for treedir<'.treedir.'> : not found') | |
2271 endif | |
2272 | |
2273 " search treedict for treedir with a / appended | |
2274 if !haskey && treedir !~ '/$' | |
2275 if has_key(w:netrw_treedict,treedir."/") | |
2276 let treedir= treedir."/" | |
2277 " call Decho('....searched.for treedir<'.treedir.'> found it!') | |
2278 let haskey = 1 | |
2279 else | |
2280 " call Decho('....searched for treedir<'.treedir.'/> : not found') | |
2281 endif | |
2282 endif | |
2283 | |
2284 " search treedict for treedir with any trailing / elided | |
2285 if !haskey && treedir =~ '/$' | |
2286 let treedir= substitute(treedir,'/$','','') | |
2287 if has_key(w:netrw_treedict,treedir) | |
2288 " call Decho('....searched.for treedir<'.treedir.'> found it!') | |
2289 let haskey = 1 | |
2290 else | |
2291 " call Decho('....searched for treedir<'.treedir.'> : not found') | |
2292 endif | |
2293 endif | |
2294 | |
2295 if haskey | |
2296 " close tree listing for selected subdirectory | |
2297 " call Decho("closing selected subdirectory<".dirname.">") | |
2298 call remove(w:netrw_treedict,treedir) | |
2299 " call Decho("removed entry<".dirname."> from treedict") | |
2300 " call Decho("yielding treedict<".string(w:netrw_treedict).">") | |
2301 let dirname= w:netrw_treetop | |
2302 else | |
2303 " go down one directory | |
2304 let dirname= substitute(treedir,'/*$','/','') | |
2305 " call Decho("go down one dir: treedir<".treedir.">") | |
2306 endif | |
2307 | |
2308 else | |
2309 " go down one directory | |
2310 let dirname= s:ComposePath(dirname,newdir) | |
2311 " call Decho("go down one dir: dirname<".dirname."> newdir<".newdir.">") | |
2312 endif | |
2313 | |
2314 " call Dret("s:NetBrowseChgDir <".dirname."> : curpos<".string(getpos(".")).">") | |
2315 return dirname | |
2316 endfun | |
2317 | |
2318 " --------------------------------------------------------------------- | |
2319 " s:NetHide: this function is invoked by the "a" map for browsing {{{2 | |
2320 " and switches the hiding mode | |
2321 fun! s:NetHide(islocal) | |
2322 " call Dfunc("NetHide(islocal=".a:islocal.")") | |
2323 let g:netrw_hide=(g:netrw_hide+1)%3 | |
2324 exe "norm! 0" | |
2325 if g:netrw_hide && g:netrw_list_hide == "" | |
2326 call netrw#ErrorMsg(s:WARNING,"your hiding list is empty!",49) | |
2327 " call Dret("NetHide") | |
2328 return | |
2329 endif | |
2330 call netrw#NetSavePosn() | |
2331 call s:NetRefresh(a:islocal,s:NetBrowseChgDir(a:islocal,'./')) | |
2332 " call Dret("NetHide") | |
2333 endfun | |
2334 | |
2335 " --------------------------------------------------------------------- | |
2336 | |
2337 " =========================================== | |
2338 " s:NetPreview: {{{2 | |
2339 fun! s:NetPreview(path) range | |
2340 " call Dfunc("NetPreview(path<".a:path.">)") | |
2341 if has("quickfix") | |
2342 if !isdirectory(a:path) | |
2343 exe "pedit ".escape(a:path,g:netrw_fname_escape) | |
2344 elseif !exists("g:netrw_quiet") | |
2345 call netrw#ErrorMsg(s:WARNING,"sorry, cannot preview a directory such as <".a:path.">",38) | |
2346 endif | |
2347 elseif !exists("g:netrw_quiet") | |
2348 call netrw#ErrorMsg(s:WARNING,"sorry, to preview your vim needs the quickfix feature compiled in",39) | |
2349 endif | |
2350 " call Dret("NetPreview") | |
2351 endfun | |
2352 | |
2353 " --------------------------------------------------------------------- | |
2354 " s:NetSortStyle: change sorting style (name - time - size) and refresh display {{{2 | |
2355 fun! s:NetSortStyle(islocal) | |
2356 " call Dfunc("s:NetSortStyle(islocal=".a:islocal.") netrw_sort_by<".g:netrw_sort_by.">") | |
2357 call s:NetSaveWordPosn() | |
2358 | |
2359 let g:netrw_sort_by= (g:netrw_sort_by =~ 'n')? 'time' : (g:netrw_sort_by =~ 't')? 'size' : 'name' | |
2360 norm! 0 | |
2361 call netrw#NetSavePosn() | |
2362 call s:NetRefresh(a:islocal,s:NetBrowseChgDir(a:islocal,'./')) | |
2363 | |
2364 " call Dret("s:NetSortStyle : netrw_sort_by<".g:netrw_sort_by.">") | |
2365 endfun | |
2366 | |
2367 " --------------------------------------------------------------------- | |
2368 " Remote Directory Browsing Support: {{{1 | |
2369 " =========================================== | |
2370 | |
2371 " --------------------------------------------------------------------- | |
2372 " s:RemoteListing: {{{2 | |
2373 fun! s:RemoteListing() | |
2374 " call Dfunc("s:RemoteListing() b:netrw_curdir<".b:netrw_curdir.">)") | |
2375 | |
2376 call s:RemotePathAnalysis(b:netrw_curdir) | |
2377 | |
2378 " sanity check: | |
2379 if exists("b:netrw_method") && b:netrw_method =~ '[235]' | |
2380 " call Decho("b:netrw_method=".b:netrw_method) | |
2381 if !executable("ftp") | |
2382 if !exists("g:netrw_quiet") | |
2383 call netrw#ErrorMsg(s:ERROR,"this system doesn't support remote directory listing via ftp",18) | |
2384 endif | |
2385 call s:NetOptionRestore() | |
2386 " call Dret("s:RemoteListing") | |
2387 return | |
2388 endif | |
2389 | |
2390 elseif !exists("g:netrw_list_cmd") || g:netrw_list_cmd == '' | |
2391 if !exists("g:netrw_quiet") | |
2392 if g:netrw_list_cmd == "" | |
2393 call netrw#ErrorMsg(s:ERROR,g:netrw_ssh_cmd." is not executable on your system",47) | |
2394 else | |
2395 call netrw#ErrorMsg(s:ERROR,"this system doesn't support remote directory listing via ".g:netrw_list_cmd,19) | |
2396 endif | |
2397 endif | |
2398 | |
2399 call s:NetOptionRestore() | |
2400 " call Dret("s:RemoteListing") | |
2401 return | |
2402 endif " (remote handling sanity check) | |
2403 | |
2404 if exists("b:netrw_method") | |
2405 " call Decho("setting w:netrw_method<".b:netrw_method.">") | |
2406 let w:netrw_method= b:netrw_method | |
2407 endif | |
2408 | |
2409 if s:method == "ftp" | |
2410 " use ftp to get remote file listing | |
2411 " call Decho("use ftp to get remote file listing") | |
2412 let s:method = "ftp" | |
2413 let listcmd = g:netrw_ftp_list_cmd | |
2414 if g:netrw_sort_by =~ '^t' | |
2415 let listcmd= g:netrw_ftp_timelist_cmd | |
2416 elseif g:netrw_sort_by =~ '^s' | |
2417 let listcmd= g:netrw_ftp_sizelist_cmd | |
2418 endif | |
2419 " call Decho("listcmd<".listcmd."> (using g:netrw_ftp_list_cmd)") | |
2420 call s:NetBrowseFtpCmd(s:path,listcmd) | |
2421 " exe "keepjumps ".w:netrw_bannercnt.',$g/^./call Decho("raw listing: ".getline("."))' | |
2422 | |
2423 if w:netrw_liststyle == s:THINLIST || w:netrw_liststyle == s:WIDELIST || w:netrw_liststyle == s:TREELIST | |
2424 " shorten the listing | |
2425 " call Decho("generate short listing") | |
2426 exe "keepjumps ".w:netrw_bannercnt | |
2427 | |
2428 " cleanup | |
2429 if g:netrw_ftp_browse_reject != "" | |
2430 exe "silent! g/".g:netrw_ftp_browse_reject."/keepjumps d" | |
2431 endif | |
2432 silent! keepjumps %s/\r$//e | |
2433 | |
2434 " if there's no ../ listed, then put ./ and ../ in | |
2435 let line1= line(".") | |
2436 exe "keepjumps ".w:netrw_bannercnt | |
2437 let line2= search('^\.\.\/\%(\s\|$\)','cnW') | |
2438 if line2 == 0 | |
2439 " call Decho("netrw is putting ./ and ../ into listing") | |
2440 keepjumps put='../' | |
2441 keepjumps put='./' | |
2442 endif | |
2443 exe "keepjumps ".line1 | |
2444 keepjumps norm! 0 | |
2445 | |
2446 " call Decho("line1=".line1." line2=".line2." line(.)=".line(".")) | |
2447 if search('^\d\{2}-\d\{2}-\d\{2}\s','n') " M$ ftp site cleanup | |
2448 " call Decho("M$ ftp cleanup") | |
2449 exe 'silent! keepjumps '.w:netrw_bannercnt.',$s/^\d\{2}-\d\{2}-\d\{2}\s\+\d\+:\d\+[AaPp][Mm]\s\+\%(<DIR>\|\d\+\)\s\+//' | |
2450 else " normal ftp cleanup | |
2451 " call Decho("normal ftp cleanup") | |
2452 exe 'silent! keepjumps '.w:netrw_bannercnt.',$s/^\(\%(\S\+\s\+\)\{7}\S\+\)\s\+\(\S.*\)$/\2/e' | |
2453 exe "silent! keepjumps ".w:netrw_bannercnt.',$g/ -> /s# -> .*/$#/#e' | |
2454 exe "silent! keepjumps ".w:netrw_bannercnt.',$g/ -> /s# -> .*$#/#e' | |
2455 endif | |
2456 endif | |
2457 | |
2458 else | |
2459 " use ssh to get remote file listing {{{3 | |
2460 " call Decho("use ssh to get remote file listing: s:netrw_shq<".g:netrw_shq."> s:path<".s:path."> s:netrw_cd_escape<".s:netrw_cd_escape.">") | |
2461 let listcmd= s:MakeSshCmd(g:netrw_list_cmd) | |
2462 " call Decho("listcmd<".listcmd."> (using g:netrw_list_cmd)") | |
2463 if g:netrw_scp_cmd =~ '^pscp' | |
2464 " call Decho("1: exe silent r! ".listcmd.g:netrw_shq.s:path.g:netrw_shq) | |
2465 exe "silent r! ".listcmd.g:netrw_shq.s:path.g:netrw_shq | |
2466 " remove rubbish and adjust listing format of 'pscp' to 'ssh ls -FLa' like | |
2467 g/^Listing directory/d | |
2468 g/^d[-rwx][-rwx][-rwx]/s+$+/+e | |
2469 silent g/^l[-rwx][-rwx][-rwx]/s+$+@+e | |
2470 if g:netrw_liststyle != s:LONGLIST | |
2471 g/^[dlsp-][-rwx][-rwx][-rwx]/s/^.*\s\(\S\+\)$/\1/e | |
2472 endif | |
2473 else | |
2474 if s:path == "" | |
2475 " call Decho("2: exe silent r! ".listcmd) | |
2476 exe "silent r! ".listcmd | |
2477 else | |
2478 " call Decho("3: exe silent r! ".listcmd." ".g:netrw_shq.s:path.g:netrw_shq) | |
2479 exe "silent r! ".listcmd." ".g:netrw_shq.s:path.g:netrw_shq | |
2480 endif | |
2481 endif | |
2482 | |
2483 " cleanup | |
2484 if g:netrw_ftp_browse_reject != "" | |
2485 " call Decho("(cleanup) exe silent! g/".g:netrw_ssh_browse_reject."/keepjumps d") | |
2486 exe "silent! g/".g:netrw_ssh_browse_reject."/keepjumps d" | |
2487 endif | |
2488 endif | |
2489 | |
2490 if w:netrw_liststyle == s:LONGLIST | |
2491 " do a long listing; these substitutions need to be done prior to sorting {{{3 | |
2492 " call Decho("fix long listing:") | |
2493 | |
2494 if s:method == "ftp" | |
2495 " cleanup | |
2496 exe "keepjumps ".w:netrw_bannercnt | |
2497 while getline(".") =~ g:netrw_ftp_browse_reject | |
2498 keepjumps d | |
2499 endwhile | |
2500 " if there's no ../ listed, then put ./ and ../ in | |
2501 let line1= line(".") | |
2502 keepjumps 1 | |
2503 silent keepjumps call search('^\.\.\/\%(\s\|$\)','W') | |
2504 let line2= line(".") | |
2505 if line2 == 0 | |
2506 exe 'keepjumps '.w:netrw_bannercnt."put='./'" | |
2507 if b:netrw_curdir != '/' | |
2508 exe 'keepjumps '.w:netrw_bannercnt."put='../'" | |
2509 endif | |
2510 endif | |
2511 exe "keepjumps ".line1 | |
2512 keepjumps norm! 0 | |
2513 endif | |
2514 | |
2515 if search('^\d\{2}-\d\{2}-\d\{2}\s','n') " M$ ftp site cleanup | |
2516 " call Decho("M$ ftp site listing cleanup") | |
2517 exe 'silent! keepjumps '.w:netrw_bannercnt.',$s/^\(\d\{2}-\d\{2}-\d\{2}\s\+\d\+:\d\+[AaPp][Mm]\s\+\%(<DIR>\|\d\+\)\s\+\)\(\w.*\)$/\2\t\1/' | |
2518 elseif exists("w:netrw_bannercnt") && w:netrw_bannercnt <= line("$") | |
2519 " call Decho("normal ftp site listing cleanup: bannercnt=".w:netrw_bannercnt." line($)=".line("$")) | |
2520 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/ -> .*$//e' | |
2521 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^\(\%(\S\+\s\+\)\{7}\S\+\)\s\+\(\S.*\)$/\2\t\1/e' | |
2522 exe 'silent keepjumps '.w:netrw_bannercnt | |
2523 endif | |
2524 endif | |
2525 | |
2526 " if exists("w:netrw_bannercnt") && w:netrw_bannercnt <= line("$") " Decho | |
2527 " exe "keepjumps ".w:netrw_bannercnt.',$g/^./call Decho("listing: ".getline("."))' | |
2528 " endif " Decho | |
2529 " call Dret("s:RemoteListing") | |
2530 endfun | |
2531 | |
2532 " --------------------------------------------------------------------- | |
2533 " NetGetWord: it gets the directory named under the cursor {{{2 | |
2534 fun! s:NetGetWord() | |
2535 " call Dfunc("NetGetWord() line#".line(".")." liststyle=".g:netrw_liststyle." virtcol=".virtcol(".")) | |
2536 call s:UseBufWinVars() | |
2537 | |
2538 " insure that w:netrw_liststyle is set up | |
2539 if !exists("w:netrw_liststyle") | |
2540 if exists("g:netrw_liststyle") | |
2541 let w:netrw_liststyle= g:netrw_liststyle | |
2542 else | |
2543 let w:netrw_liststyle= s:THINLIST | |
2544 endif | |
2545 " call Decho("w:netrw_liststyle=".w:netrw_liststyle) | |
2546 endif | |
2547 | |
2548 if exists("w:netrw_bannercnt") && line(".") < w:netrw_bannercnt | |
2549 " Active Banner support | |
2550 " call Decho("active banner handling") | |
2551 norm! 0 | |
2552 let dirname= "./" | |
2553 let curline= getline(".") | |
2554 | |
2555 if curline =~ '"\s*Sorted by\s' | |
2556 norm s | |
2557 let s:netrw_skipbrowse= 1 | |
2558 echo 'Pressing "s" also works' | |
2559 | |
2560 elseif curline =~ '"\s*Sort sequence:' | |
2561 let s:netrw_skipbrowse= 1 | |
2562 echo 'Press "S" to edit sorting sequence' | |
2563 | |
2564 elseif curline =~ '"\s*Quick Help:' | |
2565 norm ? | |
2566 let s:netrw_skipbrowse= 1 | |
2567 echo 'Pressing "?" also works' | |
2568 | |
2569 elseif curline =~ '"\s*\%(Hiding\|Showing\):' | |
2570 norm a | |
2571 let s:netrw_skipbrowse= 1 | |
2572 echo 'Pressing "a" also works' | |
2573 | |
2574 elseif line("$") > w:netrw_bannercnt | |
2575 exe 'silent keepjumps '.w:netrw_bannercnt | |
2576 endif | |
2577 | |
2578 elseif w:netrw_liststyle == s:THINLIST | |
2579 " call Decho("thin column handling") | |
2580 norm! 0 | |
2581 let dirname= getline(".") | |
2582 | |
2583 elseif w:netrw_liststyle == s:LONGLIST | |
2584 " call Decho("long column handling") | |
2585 norm! 0 | |
2586 let dirname= substitute(getline("."),'^\(\%(\S\+ \)*\S\+\).\{-}$','\1','e') | |
2587 | |
2588 elseif w:netrw_liststyle == s:TREELIST | |
2589 " call Decho("treelist handling") | |
2590 let dirname= substitute(getline("."),'^\(| \)*','','e') | |
2591 | |
2592 else | |
2593 " call Decho("obtain word from wide listing") | |
2594 let dirname= getline(".") | |
2595 | |
2596 if !exists("b:netrw_cpf") | |
2597 let b:netrw_cpf= 0 | |
2598 exe 'silent keepjumps '.w:netrw_bannercnt.',$g/^./if virtcol("$") > b:netrw_cpf|let b:netrw_cpf= virtcol("$")|endif' | |
2599 " call Decho("computed cpf") | |
2600 endif | |
2601 | |
2602 " call Decho("buf#".bufnr("%")."<".bufname("%").">") | |
2603 let filestart = (virtcol(".")/b:netrw_cpf)*b:netrw_cpf | |
2604 " call Decho("filestart= ([virtcol=".virtcol(".")."]/[b:netrw_cpf=".b:netrw_cpf."])*b:netrw_cpf=".filestart." bannercnt=".w:netrw_bannercnt) | |
2605 " call Decho("1: dirname<".dirname.">") | |
2606 if filestart > 0|let dirname= substitute(dirname,'^.\{'.filestart.'}','','')|endif | |
2607 " call Decho("2: dirname<".dirname.">") | |
2608 let dirname = substitute(dirname,'^\(.\{'.b:netrw_cpf.'}\).*$','\1','e') | |
2609 " call Decho("3: dirname<".dirname.">") | |
2610 let dirname = substitute(dirname,'\s\+$','','e') | |
2611 " call Decho("4: dirname<".dirname.">") | |
2612 endif | |
2613 | |
2614 " call Dret("NetGetWord <".dirname.">") | |
2615 return dirname | |
2616 endfun | |
2617 | |
2618 " --------------------------------------------------------------------- | |
2619 " NetBrowseRm: remove/delete a remote file or directory {{{2 | |
2620 fun! s:NetBrowseRm(usrhost,path) range | |
2621 " call Dfunc("NetBrowseRm(usrhost<".a:usrhost."> path<".a:path.">) virtcol=".virtcol(".")) | |
2622 " call Decho("firstline=".a:firstline." lastline=".a:lastline) | |
2623 | |
2624 " preparation for removing multiple files/directories | |
2625 let ctr= a:firstline | |
2626 let all= 0 | |
2627 | |
2628 " remove multiple files and directories | |
2629 while ctr <= a:lastline | |
2630 exe ctr | |
2631 | |
2632 let rmfile= s:NetGetWord() | |
2633 " call Decho("rmfile<".rmfile.">") | |
2634 | |
2635 if rmfile !~ '^"' && (rmfile =~ '@$' || rmfile !~ '[\/]$') | |
2636 " attempt to remove file | |
2637 " call Decho("attempt to remove file") | |
2638 if !all | |
2639 echohl Statement | |
2640 call inputsave() | |
2641 let ok= input("Confirm deletion of file<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") | |
2642 call inputrestore() | |
2643 echohl NONE | |
2644 if ok == "" | |
2645 let ok="no" | |
2646 endif | |
2647 let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') | |
2648 if ok =~ 'a\%[ll]' | |
2649 let all= 1 | |
2650 endif | |
2651 endif | |
2652 | |
2653 if all || ok =~ 'y\%[es]' || ok == "" | |
2654 if exists("w:netrw_method") && (w:netrw_method == 2 || w:netrw_method == 3) | |
2655 silent! keepjumps .,$d | |
2656 call s:NetBrowseFtpCmd(a:path,"delete ".rmfile) | |
2657 else | |
2658 let netrw_rm_cmd= s:MakeSshCmd(g:netrw_rm_cmd) | |
2659 " call Decho("attempt to remove file: system(".netrw_rm_cmd.")") | |
2660 let ret= s:System("system",netrw_rm_cmd) | |
2661 " call Decho("returned=".ret." errcode=".v:shell_error) | |
2662 endif | |
2663 elseif ok =~ 'q\%[uit]' | |
2664 break | |
2665 endif | |
2666 | |
2667 else | |
2668 " attempt to remove directory | |
2669 " call Decho("attempt to remove directory") | |
2670 if !all | |
2671 call inputsave() | |
2672 let ok= input("Confirm deletion of directory<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") | |
2673 call inputrestore() | |
2674 if ok == "" | |
2675 let ok="no" | |
2676 endif | |
2677 let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') | |
2678 if ok =~ 'a\%[ll]' | |
2679 let all= 1 | |
2680 endif | |
2681 endif | |
2682 | |
2683 if all || ok =~ 'y\%[es]' || ok == "" | |
2684 if exists("w:netrw_method") && (w:netrw_method == 2 || w:netrw_method == 3) | |
2685 call s:NetBrowseFtpCmd(a:path,"rmdir ".rmfile) | |
2686 else | |
2687 let rmfile = substitute(a:path.rmfile,'/$','','') | |
2688 let netrw_rmdir_cmd = s:MakeSshCmd(g:netrw_rmdir_cmd).' '.rmfile | |
2689 " call Decho("attempt to remove dir: system(".netrw_rmdir_cmd.")") | |
2690 let ret= s:System("system",netrw_rmdir_cmd) | |
2691 " call Decho("returned=".ret." errcode=".v:shell_error) | |
2692 | |
2693 if v:shell_error != 0 | |
2694 " call Decho("v:shell_error not 0") | |
2695 let netrw_rmf_cmd= s:MakeSshCmd(g:netrw_rmf_cmd).' '.substitute(rmfile,'[\/]$','','e') | |
2696 " call Decho("2nd attempt to remove dir: system(".netrw_rmf_cmd.")") | |
2697 let ret= s:System("system",netrw_rmf_cmd) | |
2698 " call Decho("returned=".ret." errcode=".v:shell_error) | |
2699 | |
2700 if v:shell_error != 0 && !exists("g:netrw_quiet") | |
2701 call netrw#ErrorMsg(s:ERROR,"unable to remove directory<".rmfile."> -- is it empty?",22) | |
2702 endif | |
2703 endif | |
2704 endif | |
2705 | |
2706 elseif ok =~ 'q\%[uit]' | |
2707 break | |
2708 endif | |
2709 endif | |
2710 | |
2711 let ctr= ctr + 1 | |
2712 endwhile | |
2713 | |
2714 " refresh the (remote) directory listing | |
2715 " call Decho("refresh remote directory listing") | |
2716 call netrw#NetSavePosn() | |
2717 call s:NetRefresh(0,s:NetBrowseChgDir(0,'./')) | |
2718 | |
2719 " call Dret("NetBrowseRm") | |
2720 endfun | |
2721 | |
2722 " --------------------------------------------------------------------- | |
2723 " NetBrowseRename: rename a remote file or directory {{{2 | |
2724 fun! s:NetBrowseRename(usrhost,path) range | |
2725 " call Dfunc("NetBrowseRename(usrhost<".a:usrhost."> path<".a:path.">)") | |
2726 | |
2727 " preparation for removing multiple files/directories | |
2728 let ctr = a:firstline | |
2729 let rename_cmd = s:MakeSshCmd(g:netrw_rename_cmd) | |
2730 | |
2731 " attempt to rename files/directories | |
2732 while ctr <= a:lastline | |
2733 exe "keepjumps ".ctr | |
2734 | |
2735 norm! 0 | |
2736 let oldname= s:NetGetWord() | |
2737 " call Decho("oldname<".oldname.">") | |
2738 | |
2739 call inputsave() | |
2740 let newname= input("Moving ".oldname." to : ",oldname) | |
2741 call inputrestore() | |
2742 | |
2743 if exists("w:netrw_method") && (w:netrw_method == 2 || w:netrw_method == 3) | |
2744 call s:NetBrowseFtpCmd(a:path,"rename ".oldname." ".newname) | |
2745 else | |
2746 let oldname= a:path.oldname | |
2747 let newname= a:path.newname | |
2748 " call Decho("system(rename_cmd".' "'.escape(oldname," ").'" "'.escape(newname,s:netrw_cd_escape).'"') | |
2749 let ret= s:System("system",rename_cmd.' "'.escape(oldname,s:netrw_cd_escape).'" "'.escape(newname,s:netrw_cd_escape).'"') | |
2750 endif | |
2751 | |
2752 let ctr= ctr + 1 | |
2753 endwhile | |
2754 | |
2755 " refresh the directory | |
2756 let curline= line(".") | |
2757 call s:NetBrowse(0,s:NetBrowseChgDir(0,'./')) | |
2758 exe "keepjumps ".curline | |
2759 " call Dret("NetBrowseRename") | |
2760 endfun | |
2761 | |
2762 " --------------------------------------------------------------------- | |
2763 " NetRefresh: {{{2 | |
2764 fun! s:NetRefresh(islocal,dirname) | |
2765 " call Dfunc("NetRefresh(islocal<".a:islocal.">,dirname=".a:dirname.") hide=".g:netrw_hide." sortdir=".g:netrw_sort_direction) | |
2766 " at the current time (Mar 19, 2007) all calls to NetRefresh() call NetBrowseChgDir() first. | |
2767 " NetBrowseChgDir() may clear the display; hence a NetSavePosn() may not work if its placed here. | |
2768 " Also, NetBrowseChgDir() now does a NetSavePosn() itself. | |
2769 setlocal ma noro | |
2770 " call Decho("clear buffer<".expand("%")."> with :%d") | |
2771 %d | |
2772 if a:islocal | |
2773 call netrw#LocalBrowseCheck(a:dirname) | |
2774 else | |
2775 call s:NetBrowse(a:islocal,a:dirname) | |
2776 endif | |
2777 call netrw#NetRestorePosn() | |
2778 redraw! | |
2779 " call Dret("NetRefresh") | |
2780 endfun | |
2781 | |
2782 " --------------------------------------------------------------------- | |
2783 " NetSplit: mode {{{2 | |
2784 " =0 : net and o | |
2785 " =1 : net and t | |
2786 " =2 : net and v | |
2787 " =3 : local and o | |
2788 " =4 : local and t | |
2789 " =5 : local and v | |
2790 fun! s:NetSplit(mode) | |
2791 " call Dfunc("NetSplit(mode=".a:mode.") alto=".g:netrw_alto." altv=".g:netrw_altv) | |
2792 | |
2793 call s:SaveWinVars() | |
2794 | |
2795 if a:mode == 0 | |
2796 " remote and o | |
2797 exe (g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s" | |
2798 let s:didsplit= 1 | |
2799 call s:RestoreWinVars() | |
2800 call s:NetBrowse(0,s:NetBrowseChgDir(0,s:NetGetWord())) | |
2801 unlet s:didsplit | |
2802 | |
2803 elseif a:mode == 1 | |
2804 " remote and t | |
2805 let cursorword = s:NetGetWord() | |
2806 tabnew | |
2807 let s:didsplit= 1 | |
2808 call s:RestoreWinVars() | |
2809 call s:NetBrowse(0,s:NetBrowseChgDir(0,cursorword)) | |
2810 unlet s:didsplit | |
2811 | |
2812 elseif a:mode == 2 | |
2813 " remote and v | |
2814 exe (g:netrw_altv? "rightb " : "lefta ").g:netrw_winsize."wincmd v" | |
2815 let s:didsplit= 1 | |
2816 call s:RestoreWinVars() | |
2817 call s:NetBrowse(0,s:NetBrowseChgDir(0,s:NetGetWord())) | |
2818 unlet s:didsplit | |
2819 | |
2820 elseif a:mode == 3 | |
2821 " local and o | |
2822 exe (g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s" | |
2823 let s:didsplit= 1 | |
2824 call s:RestoreWinVars() | |
2825 call netrw#LocalBrowseCheck(s:NetBrowseChgDir(1,s:NetGetWord())) | |
2826 unlet s:didsplit | |
2827 | |
2828 elseif a:mode == 4 | |
2829 " local and t | |
2830 let netrw_curdir= b:netrw_curdir | |
2831 let cursorword = s:NetGetWord() | |
2832 tabnew | |
2833 let b:netrw_curdir= netrw_curdir | |
2834 let s:didsplit= 1 | |
2835 call s:RestoreWinVars() | |
2836 call netrw#LocalBrowseCheck(s:NetBrowseChgDir(1,cursorword)) | |
2837 unlet s:didsplit | |
2838 | |
2839 elseif a:mode == 5 | |
2840 " local and v | |
2841 exe (g:netrw_altv? "rightb " : "lefta ").g:netrw_winsize."wincmd v" | |
2842 let s:didsplit= 1 | |
2843 call s:RestoreWinVars() | |
2844 call netrw#LocalBrowseCheck(s:NetBrowseChgDir(1,s:NetGetWord())) | |
2845 unlet s:didsplit | |
2846 | |
2847 else | |
2848 call netrw#ErrorMsg(s:ERROR,"(NetSplit) unsupported mode=".a:mode,45) | |
2849 endif | |
2850 | |
2851 " call Dret("NetSplit") | |
2852 endfun | |
2853 | |
2854 " --------------------------------------------------------------------- | |
2855 " NetBrowseX: allows users to write custom functions to operate on {{{2 | |
2856 " files given their extension. Passes 0=local, 1=remote | |
2857 fun! netrw#NetBrowseX(fname,remote) | |
2858 " call Dfunc("NetBrowseX(fname<".a:fname."> remote=".a:remote.")") | |
2859 | |
2860 " set up the filename | |
2861 " (lower case the extension, make a local copy of a remote file) | |
2862 let exten= substitute(a:fname,'.*\.\(.\{-}\)','\1','e') | |
2863 if has("win32") || has("win95") || has("win64") || has("win16") | |
2864 let exten= substitute(exten,'^.*$','\L&\E','') | |
2865 endif | |
2866 let fname= escape(a:fname,"%#") | |
2867 " call Decho("fname<".fname."> after escape()") | |
2868 | |
2869 " seems kde systems often have gnome-open due to dependencies, even though | |
2870 " gnome-open's subsidiary display tools are largely absent. Kde systems | |
2871 " usually have "kdeinit" running, though... (tnx Mikolaj Machowski) | |
2872 if !exists("s:haskdeinit") | |
2873 if has("unix") | |
2874 let s:haskdeinit= s:System("system",'ps -e') =~ 'kdeinit' | |
2875 if v:shell_error | |
2876 let s:haskdeinit = 0 | |
2877 endif | |
2878 else | |
2879 let s:haskdeinit= 0 | |
2880 endif | |
2881 " call Decho("setting s:haskdeinit=".s:haskdeinit) | |
2882 endif | |
2883 | |
2884 if a:remote == 1 | |
2885 " create a local copy | |
2886 let fname= fnamemodify(tempname(),":t:r").".".exten | |
2887 " call Decho("a:remote=".a:remote.": create a local copy of <".a:fname."> as <".fname.">") | |
2888 exe "silent keepjumps bot 1new ".a:fname | |
2889 setlocal bh=delete | |
2890 " call Decho("exe w! ".fname) | |
2891 exe "w! ".fname | |
2892 q | |
2893 endif | |
2894 " call Decho("exten<".exten."> "."netrwFileHandlers#NFH_".exten."():exists=".exists("*netrwFileHandlers#NFH_".exten)) | |
2895 | |
2896 " set up redirection | |
2897 if &srr =~ "%s" | |
2898 let redir= substitute(&srr,"%s","/dev/null","") | |
2899 else | |
2900 let redir= &srr . "/dev/null" | |
2901 endif | |
2902 " call Decho("redir{".redir."} srr{".&srr."}") | |
2903 | |
2904 " execute the file handler | |
2905 if exists("g:netrw_browsex_viewer") && g:netrw_browsex_viewer == '-' | |
2906 " call Decho("g:netrw_browsex_viewer<".g:netrw_browsex_viewer.">") | |
2907 let ret= netrwFileHandlers#Invoke(exten,fname) | |
2908 | |
2909 elseif exists("g:netrw_browsex_viewer") && executable(g:netrw_browsex_viewer) | |
2910 " call Decho("g:netrw_browsex_viewer<".g:netrw_browsex_viewer.">") | |
2911 " call Decho("exe silent !".g:netrw_browsex_viewer." '".escape(fname,'%#')."' ".redir) | |
2912 exe "silent !".g:netrw_browsex_viewer." '".escape(fname,'%#')."'".redir | |
2913 let ret= v:shell_error | |
2914 | |
2915 elseif has("win32") || has("win64") | |
2916 " call Decho('exe silent !start rundll32 url.dll,FileProtocolHandler "'.escape(fname, '%#').'"') | |
2917 exe 'silent !start rundll32 url.dll,FileProtocolHandler "'.escape(fname, '%#').'"' | |
2918 call inputsave()|call input("Press <cr> to continue")|call inputrestore() | |
2919 let ret= v:shell_error | |
2920 | |
2921 elseif has("unix") && executable("gnome-open") && !s:haskdeinit | |
2922 " call Decho("exe silent !gnome-open '".escape(fname,'%#')."' ".redir) | |
2923 exe "silent !gnome-open '".escape(fname,'%#')."'".redir | |
2924 let ret= v:shell_error | |
2925 | |
2926 elseif has("unix") && executable("kfmclient") && s:haskdeinit | |
2927 " call Decho("exe silent !kfmclient exec '".escape(fname,'%#')."' ".redir) | |
2928 exe "silent !kfmclient exec '".escape(fname,'%#')."' ".redir | |
2929 let ret= v:shell_error | |
2930 | |
2931 else | |
2932 " netrwFileHandlers#Invoke() always returns 0 | |
2933 let ret= netrwFileHandlers#Invoke(exten,fname) | |
2934 endif | |
2935 | |
2936 " if unsuccessful, attempt netrwFileHandlers#Invoke() | |
2937 if ret | |
2938 let ret= netrwFileHandlers#Invoke(exten,fname) | |
2939 endif | |
2940 | |
2941 redraw! | |
2942 | |
2943 " cleanup: remove temporary file, | |
2944 " delete current buffer if success with handler, | |
2945 " return to prior buffer (directory listing) | |
2946 if a:remote == 1 && fname != a:fname | |
2947 " call Decho("deleting temporary file<".fname.">") | |
2948 call s:System("delete",fname) | |
2949 endif | |
2950 | |
2951 if a:remote == 1 | |
2952 setlocal bh=delete bt=nofile | |
2953 if g:netrw_use_noswf | |
2954 setlocal noswf | |
2955 endif | |
2956 exe "norm! \<c-o>" | |
2957 redraw! | |
2958 endif | |
2959 | |
2960 " call Dret("NetBrowseX") | |
2961 endfun | |
2962 | |
2963 " --------------------------------------------------------------------- | |
2964 " NetBrowseFtpCmd: unfortunately, not all ftp servers honor options for ls {{{2 | |
2965 " This function assumes that a long listing will be received. Size, time, | |
2966 " and reverse sorts will be requested of the server but not otherwise | |
2967 " enforced here. | |
2968 fun! s:NetBrowseFtpCmd(path,listcmd) | |
2969 " call Dfunc("NetBrowseFtpCmd(path<".a:path."> listcmd<".a:listcmd.">) netrw_method=".w:netrw_method) | |
2970 " call Decho("line($)=".line("$")." bannercnt=".w:netrw_bannercnt) | |
2971 | |
2972 " because WinXX ftp uses unix style input | |
2973 let ffkeep= &ff | |
2974 setlocal ma ff=unix noro | |
2975 | |
2976 " clear off any older non-banner lines | |
2977 " note that w:netrw_bannercnt indexes the line after the banner | |
2978 " call Decho('exe silent! keepjumps '.w:netrw_bannercnt.",$d (clear off old non-banner lines)") | |
2979 exe "silent! keepjumps ".w:netrw_bannercnt.",$d" | |
2980 | |
2981 "......................................... | |
2982 if w:netrw_method == 2 || w:netrw_method == 5 | |
2983 " ftp + <.netrc>: Method #2 | |
2984 if a:path != "" | |
2985 put ='cd \"'.a:path.'\"' | |
2986 endif | |
2987 if exists("g:netrw_ftpextracmd") | |
2988 exe "put ='".g:netrw_ftpextracmd."'" | |
2989 " call Decho("filter input: ".getline(".")) | |
2990 endif | |
2991 exe "put ='".a:listcmd."'" | |
2992 " exe w:netrw_bannercnt.',$g/^./call Decho("ftp#".line(".").": ".getline("."))' | |
2993 if exists("g:netrw_port") && g:netrw_port != "" | |
2994 " call Decho("exe ".g:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) | |
2995 exe g:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port | |
2996 else | |
2997 " call Decho("exe ".g:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine) | |
2998 exe g:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine | |
2999 endif | |
3000 | |
3001 "......................................... | |
3002 elseif w:netrw_method == 3 | |
3003 " ftp + machine,id,passwd,filename: Method #3 | |
3004 setlocal ff=unix | |
3005 if exists("g:netrw_port") && g:netrw_port != "" | |
3006 put ='open '.g:netrw_machine.' '.g:netrw_port | |
3007 else | |
3008 put ='open '.g:netrw_machine | |
3009 endif | |
3010 | |
3011 if exists("g:netrw_ftp") && g:netrw_ftp == 1 | |
3012 put =g:netrw_uid | |
3013 put ='\"'.g:netrw_passwd.'\"' | |
3014 else | |
3015 put ='user \"'.g:netrw_uid.'\" \"'.g:netrw_passwd.'\"' | |
3016 endif | |
3017 | |
3018 if a:path != "" | |
3019 put ='cd \"'.a:path.'\"' | |
3020 endif | |
3021 if exists("g:netrw_ftpextracmd") | |
3022 exe "put ='".g:netrw_ftpextracmd."'" | |
3023 " call Decho("filter input: ".getline(".")) | |
3024 endif | |
3025 exe "put ='".a:listcmd."'" | |
3026 | |
3027 " perform ftp: | |
3028 " -i : turns off interactive prompting from ftp | |
3029 " -n unix : DON'T use <.netrc>, even though it exists | |
3030 " -n win32: quit being obnoxious about password | |
3031 " exe w:netrw_bannercnt.',$g/^./call Decho("ftp#".line(".").": ".getline("."))' | |
3032 " call Decho("exe ".g:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i -n") | |
3033 exe g:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i -n" | |
3034 | |
3035 "......................................... | |
3036 else | |
3037 call netrw#ErrorMsg(s:WARNING,"unable to comply with your request<" . choice . ">",23) | |
3038 endif | |
3039 | |
3040 " cleanup for Windows | |
3041 if has("win32") || has("win95") || has("win64") || has("win16") | |
3042 silent! keepjumps %s/\r$//e | |
3043 endif | |
3044 if a:listcmd == "dir" | |
3045 " infer directory/link based on the file permission string | |
3046 silent! keepjumps g/d\%([-r][-w][-x]\)\{3}/s@$@/@ | |
3047 silent! keepjumps g/l\%([-r][-w][-x]\)\{3}/s/$/@/ | |
3048 if w:netrw_liststyle == s:THINLIST || w:netrw_liststyle == s:WIDELIST || w:netrw_liststyle == s:TREELIST | |
3049 exe "silent! keepjumps ".w:netrw_bannercnt.',$s/^\%(\S\+\s\+\)\{8}//e' | |
3050 endif | |
3051 endif | |
3052 | |
3053 " ftp's listing doesn't seem to include ./ or ../ | |
3054 if !search('^\.\/$\|\s\.\/$','wn') | |
3055 exe 'keepjumps '.w:netrw_bannercnt | |
3056 put ='./' | |
3057 endif | |
3058 if !search('^\.\.\/$\|\s\.\.\/$','wn') | |
3059 exe 'keepjumps '.w:netrw_bannercnt | |
3060 put ='../' | |
3061 endif | |
3062 | |
3063 " restore settings | |
3064 let &ff= ffkeep | |
3065 " call Dret("NetBrowseFtpCmd") | |
3066 endfun | |
3067 | |
3068 " --------------------------------------------------------------------- | |
3069 " NetListHide: uses [range]g~...~d to delete files that match comma {{{2 | |
3070 " separated patterns given in g:netrw_list_hide | |
3071 fun! s:NetListHide() | |
3072 " call Dfunc("NetListHide() hide=".g:netrw_hide." listhide<".g:netrw_list_hide.">") | |
3073 | |
3074 " find a character not in the "hide" string to use as a separator for :g and :v commands | |
3075 " How-it-works: take the hiding command, convert it into a range. Duplicate | |
3076 " characters don't matter. Remove all such characters from the '/~...90' | |
3077 " string. Use the first character left as a separator character. | |
3078 let listhide= g:netrw_list_hide | |
3079 let sep = strpart(substitute('/~@#$%^&*{};:,<.>?|1234567890','['.escape(listhide,'-]^\').']','','ge'),1,1) | |
3080 " call Decho("sep=".sep) | |
3081 | |
3082 while listhide != "" | |
3083 if listhide =~ ',' | |
3084 let hide = substitute(listhide,',.*$','','e') | |
3085 let listhide = substitute(listhide,'^.\{-},\(.*\)$','\1','e') | |
3086 else | |
3087 let hide = listhide | |
3088 let listhide= "" | |
3089 endif | |
3090 | |
3091 " Prune the list by hiding any files which match | |
3092 if g:netrw_hide == 1 | |
3093 " call Decho("hiding<".hide."> listhide<".listhide.">") | |
3094 exe 'silent keepjumps '.w:netrw_bannercnt.',$g'.sep.hide.sep.'d' | |
3095 elseif g:netrw_hide == 2 | |
3096 " call Decho("showing<".hide."> listhide<".listhide.">") | |
3097 exe 'silent keepjumps '.w:netrw_bannercnt.',$g'.sep.hide.sep.'s@^@ /-KEEP-/ @' | |
3098 endif | |
3099 endwhile | |
3100 if g:netrw_hide == 2 | |
3101 exe 'silent keepjumps '.w:netrw_bannercnt.',$v@^ /-KEEP-/ @d' | |
3102 exe 'silent keepjumps '.w:netrw_bannercnt.',$s@^\%( /-KEEP-/ \)\+@@e' | |
3103 endif | |
3104 | |
3105 " call Dret("NetListHide") | |
3106 endfun | |
3107 | |
3108 " --------------------------------------------------------------------- | |
3109 " NetHideEdit: allows user to edit the file/directory hiding list | |
3110 fun! s:NetHideEdit(islocal) | |
3111 " call Dfunc("NetHideEdit(islocal=".a:islocal.")") | |
3112 | |
3113 " save current cursor position | |
3114 let s:nhe_curpos= getpos(".") | |
3115 | |
3116 " get new hiding list from user | |
3117 call inputsave() | |
3118 let newhide= input("Edit Hiding List: ",g:netrw_list_hide) | |
3119 call inputrestore() | |
3120 let g:netrw_list_hide= newhide | |
3121 " call Decho("new g:netrw_list_hide<".g:netrw_list_hide.">") | |
3122 | |
3123 " refresh the listing | |
3124 silent call s:NetRefresh(a:islocal,s:NetBrowseChgDir(a:islocal,"./")) | |
3125 | |
3126 " restore cursor position | |
3127 call setpos('.',s:nhe_curpos) | |
3128 unlet s:nhe_curpos | |
3129 | |
3130 " call Dret("NetHideEdit") | |
3131 endfun | |
3132 | |
3133 " --------------------------------------------------------------------- | |
3134 " NetSortSequence: allows user to edit the sorting sequence | |
3135 fun! s:NetSortSequence(islocal) | |
3136 " call Dfunc("NetSortSequence(islocal=".a:islocal.")") | |
3137 | |
3138 call inputsave() | |
3139 let newsortseq= input("Edit Sorting Sequence: ",g:netrw_sort_sequence) | |
3140 call inputrestore() | |
3141 | |
3142 " refresh the listing | |
3143 let g:netrw_sort_sequence= newsortseq | |
3144 call netrw#NetSavePosn() | |
3145 call s:NetRefresh(a:islocal,s:NetBrowseChgDir(a:islocal,'./')) | |
3146 | |
3147 " call Dret("NetSortSequence") | |
3148 endfun | |
3149 | |
3150 " --------------------------------------------------------------------- | |
3151 " NetListStyle: {{{2 | |
3152 " islocal=0: remote browsing | |
3153 " =1: local browsing | |
3154 fun! s:NetListStyle(islocal) | |
3155 " call Dfunc("NetListStyle(islocal=".a:islocal.") w:netrw_liststyle=".w:netrw_liststyle) | |
3156 let fname = s:NetGetWord() | |
3157 if !exists("w:netrw_liststyle")|let w:netrw_liststyle= g:netrw_liststyle|endif | |
3158 let w:netrw_liststyle = (w:netrw_liststyle + 1) % s:MAXLIST | |
3159 " call Decho("fname<".fname.">") | |
3160 " call Decho("chgd w:netrw_liststyle to ".w:netrw_liststyle) | |
3161 " call Decho("b:netrw_curdir<".(exists("b:netrw_curdir")? b:netrw_curdir : "doesn't exist").">") | |
3162 | |
3163 if w:netrw_liststyle == s:THINLIST | |
3164 " use one column listing | |
3165 " call Decho("use one column list") | |
3166 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') | |
3167 | |
3168 elseif w:netrw_liststyle == s:LONGLIST | |
3169 " use long list | |
3170 " call Decho("use long list") | |
3171 let g:netrw_list_cmd = g:netrw_list_cmd." -l" | |
3172 | |
3173 elseif w:netrw_liststyle == s:WIDELIST | |
3174 " give wide list | |
3175 " call Decho("use wide list") | |
3176 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') | |
3177 | |
3178 elseif w:netrw_liststyle == s:TREELIST | |
3179 " call Decho("use tree list") | |
3180 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') | |
3181 | |
3182 else | |
3183 call netrw#ErrorMsg(s:WARNING,"bad value for g:netrw_liststyle (=".w:netrw_liststyle.")",46) | |
3184 let g:netrw_liststyle = s:THINLIST | |
3185 let w:netrw_liststyle = g:netrw_liststyle | |
3186 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') | |
3187 endif | |
3188 setlocal ma noro | |
3189 | |
3190 " clear buffer - this will cause NetBrowse/LocalBrowseCheck to do a refresh | |
3191 " call Decho("clear buffer<".expand("%")."> with :%d") | |
3192 %d | |
3193 | |
3194 " refresh the listing | |
3195 call netrw#NetSavePosn() | |
3196 call s:NetRefresh(a:islocal,s:NetBrowseChgDir(a:islocal,'./')) | |
3197 | |
3198 " keep cursor on the filename | |
3199 silent keepjumps $ | |
3200 let result= search('\%(^\%(|\+\s\)\=\|\s\{2,}\)\zs'.escape(fname,'.\[]*$^').'\%(\s\{2,}\|$\)','bc') | |
3201 " call Decho("search result=".result." w:netrw_bannercnt=".(exists("w:netrw_bannercnt")? w:netrw_bannercnt : 'N/A')) | |
3202 if result <= 0 && exists("w:netrw_bannercnt") | |
3203 exe w:netrw_bannercnt | |
3204 endif | |
3205 | |
3206 " call Dret("NetListStyle".(exists("w:netrw_liststyle")? ' : w:netrw_liststyle='.w:netrw_liststyle : "")) | |
3207 endfun | |
3208 | |
3209 " --------------------------------------------------------------------- | |
3210 " NetWideListing: {{{2 | |
3211 fun! s:NetWideListing() | |
3212 | |
3213 if w:netrw_liststyle == s:WIDELIST | |
3214 " call Dfunc("NetWideListing() w:netrw_liststyle=".w:netrw_liststyle.' fo='.&fo.' l:fo='.&l:fo) | |
3215 " look for longest filename (cpf=characters per filename) | |
3216 " cpf: characters per file | |
3217 " fpl: files per line | |
3218 " fpc: files per column | |
3219 setlocal ma noro | |
3220 let b:netrw_cpf= 0 | |
3221 if line("$") >= w:netrw_bannercnt | |
3222 exe 'silent keepjumps '.w:netrw_bannercnt.',$g/^./if virtcol("$") > b:netrw_cpf|let b:netrw_cpf= virtcol("$")|endif' | |
3223 else | |
3224 " call Dret("NetWideListing") | |
3225 return | |
3226 endif | |
3227 " call Decho("max file strlen+1=".b:netrw_cpf) | |
3228 let b:netrw_cpf= b:netrw_cpf + 1 | |
3229 | |
3230 " determine qty files per line (fpl) | |
3231 let w:netrw_fpl= winwidth(0)/b:netrw_cpf | |
3232 if w:netrw_fpl <= 0 | |
3233 let w:netrw_fpl= 1 | |
3234 endif | |
3235 " call Decho("fpl= ".winwidth(0)."/[b:netrw_cpf=".b:netrw_cpf.']='.w:netrw_fpl) | |
3236 | |
3237 " make wide display | |
3238 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^.*$/\=escape(printf("%-'.b:netrw_cpf.'s",submatch(0)),"\\")/' | |
3239 let fpc = (line("$") - w:netrw_bannercnt + w:netrw_fpl)/w:netrw_fpl | |
3240 let newcolstart = w:netrw_bannercnt + fpc | |
3241 let newcolend = newcolstart + fpc - 1 | |
3242 " call Decho("bannercnt=".w:netrw_bannercnt." fpl=".w:netrw_fpl." fpc=".fpc." newcol[".newcolstart.",".newcolend."]") | |
3243 silent! let keepregstar = @* | |
3244 while line("$") >= newcolstart | |
3245 if newcolend > line("$") | let newcolend= line("$") | endif | |
3246 let newcolqty= newcolend - newcolstart | |
3247 exe newcolstart | |
3248 if newcolqty == 0 | |
3249 exe "silent keepjumps norm! 0\<c-v>$hx".w:netrw_bannercnt."G$p" | |
3250 else | |
3251 exe "silent keepjumps norm! 0\<c-v>".newcolqty.'j$hx'.w:netrw_bannercnt.'G$p' | |
3252 endif | |
3253 exe "silent keepjumps ".newcolstart.','.newcolend.'d' | |
3254 exe 'silent keepjumps '.w:netrw_bannercnt | |
3255 endwhile | |
3256 silent! let @*= keepregstar | |
3257 exe "silent keepjumps ".w:netrw_bannercnt.',$s/\s\+$//e' | |
3258 setlocal noma nomod ro | |
3259 " call Dret("NetWideListing") | |
3260 endif | |
3261 | |
3262 endfun | |
3263 | |
3264 " --------------------------------------------------------------------- | |
3265 " NetTreeDir: determine tree directory given current cursor position {{{2 | |
3266 " (full path directory with trailing slash returned) | |
3267 fun! s:NetTreeDir() | |
3268 " call Dfunc("NetTreeDir() curline#".line(".")."<".getline(".")."> b:netrw_curdir<".b:netrw_curdir."> tab#".tabpagenr()." win#".winnr()." buf#".bufnr("%")."<".bufname("%").">") | |
3269 | |
3270 let treedir= b:netrw_curdir | |
3271 " call Decho("set initial treedir<".treedir.">") | |
3272 let s:treecurpos= getpos(".") | |
3273 | |
3274 if w:netrw_liststyle == s:TREELIST | |
3275 " call Decho("w:netrrw_liststyle is TREELIST:") | |
3276 " call Decho("line#".line(".")." getline(.)<".getline('.')."> treecurpos<".string(s:treecurpos).">") | |
3277 if getline('.') =~ '/$' | |
3278 let treedir= substitute(getline('.'),'^\%(| \)*\([^|].\{-}\)$','\1','e') | |
3279 else | |
3280 let treedir= "" | |
3281 endif | |
3282 | |
3283 " call Decho("treedir<".treedir.">") | |
3284 | |
3285 " detect user attempting to close treeroot | |
3286 if getline('.') !~ '|' && getline('.') != '..' | |
3287 " call Decho("user attempted to close treeroot") | |
3288 " now force a refresh | |
3289 " call Decho("clear buffer<".expand("%")."> with :%d") | |
3290 keepjumps %d | |
3291 " call Dret("NetTreeDir <".treedir."> : (side effect) s:treecurpos<".string(s:treecurpos).">") | |
3292 return b:netrw_curdir | |
3293 endif | |
3294 | |
3295 " elide all non-depth information | |
3296 let depth = substitute(getline('.'),'^\(\%(| \)*\)[^|].\{-}$','\1','e') | |
3297 " call Decho("depth<".depth."> 1st subst") | |
3298 | |
3299 " elide first depth | |
3300 let depth = substitute(depth,'^| ','','') | |
3301 " call Decho("depth<".depth."> 2nd subst") | |
3302 | |
3303 " construct treedir by searching backwards at correct depth | |
3304 " call Decho("constructing treedir<".treedir."> depth<".depth.">") | |
3305 while depth != "" && search('^'.depth.'[^|].\{-}/$','bW') | |
3306 let dirname= substitute(getline("."),'^\(| \)*','','e') | |
3307 let treedir= dirname.treedir | |
3308 let depth = substitute(depth,'^| ','','') | |
3309 " call Decho("constructing treedir<".treedir.">: dirname<".dirname."> while depth<".depth.">") | |
3310 endwhile | |
3311 if w:netrw_treetop =~ '/$' | |
3312 let treedir= w:netrw_treetop.treedir | |
3313 else | |
3314 let treedir= w:netrw_treetop.'/'.treedir | |
3315 endif | |
3316 " call Decho("bufnr(.)=".bufnr(".")." line($)=".line("$")." line(.)=".line(".")) | |
3317 endif | |
3318 let treedir= substitute(treedir,'//$','/','') | |
3319 | |
3320 " " now force a refresh | |
3321 " call Decho("clear buffer<".expand("%")."> with :%d") | |
3322 " setlocal ma noro | |
3323 " keepjumps %d | |
3324 | |
3325 " call Dret("NetTreeDir <".treedir."> : (side effect) s:treecurpos<".string(s:treecurpos).">") | |
3326 return treedir | |
3327 endfun | |
3328 | |
3329 " --------------------------------------------------------------------- | |
3330 " NetTreeDisplay: recursive tree display {{{2 | |
3331 fun! s:NetTreeDisplay(dir,depth) | |
3332 " call Dfunc("NetTreeDisplay(dir<".a:dir."> depth<".a:depth.">)") | |
3333 | |
3334 " insure that there are no folds | |
3335 setlocal nofen | |
3336 | |
3337 " install ../ and shortdir | |
3338 if a:depth == "" | |
3339 call setline(line("$")+1,'../') | |
3340 " call Decho("setline#".line("$")." ../ (depth is zero)") | |
3341 endif | |
3342 if a:dir =~ '^\a\+://' | |
3343 if a:dir == w:netrw_treetop | |
3344 let shortdir= a:dir | |
3345 else | |
3346 let shortdir= substitute(a:dir,'^.*/\([^/]\+\)/$','\1/','e') | |
3347 endif | |
3348 call setline(line("$")+1,a:depth.shortdir) | |
3349 else | |
3350 let shortdir= substitute(a:dir,'^.*/','','e') | |
3351 call setline(line("$")+1,a:depth.shortdir.'/') | |
3352 endif | |
3353 " call Decho("setline#".line("$")." shortdir<".a:depth.shortdir.">") | |
3354 | |
3355 " append a / to dir if its missing one | |
3356 let dir= a:dir | |
3357 if dir !~ '/$' | |
3358 let dir= dir.'/' | |
3359 endif | |
3360 | |
3361 " display subtrees (if any) | |
3362 let depth= "| ".a:depth | |
3363 " call Decho("display subtrees with depth<".depth."> and current leaves") | |
3364 for entry in w:netrw_treedict[a:dir] | |
3365 let direntry= substitute(dir.entry,'/$','','e') | |
3366 " call Decho("dir<".dir."> entry<".entry."> direntry<".direntry.">") | |
3367 if entry =~ '/$' && has_key(w:netrw_treedict,direntry) | |
3368 " call Decho("<".direntry."> is a key in treedict - display subtree for it") | |
3369 call s:NetTreeDisplay(direntry,depth) | |
3370 elseif entry =~ '/$' && has_key(w:netrw_treedict,direntry.'/') | |
3371 " call Decho("<".direntry."/> is a key in treedict - display subtree for it") | |
3372 call s:NetTreeDisplay(direntry.'/',depth) | |
3373 else | |
3374 " call Decho("<".entry."> is not a key in treedict (no subtree)") | |
3375 call setline(line("$")+1,depth.entry) | |
3376 endif | |
3377 endfor | |
3378 " call Dret("NetTreeDisplay") | |
3379 endfun | |
3380 | |
3381 " --------------------------------------------------------------------- | |
3382 " NetTreeListing: displays tree listing from treetop on down, using NetTreeDisplay() {{{2 | |
3383 fun! s:NetTreeListing(dirname) | |
3384 if w:netrw_liststyle == s:TREELIST | |
3385 " call Dfunc("NetTreeListing() bufname<".expand("%").">") | |
3386 " call Decho("curdir<".a:dirname.">") | |
3387 | |
3388 " update the treetop | |
3389 " call Decho("update the treetop") | |
3390 if !exists("w:netrw_treetop") | |
3391 let w:netrw_treetop= a:dirname | |
3392 " call Decho("w:netrw_treetop<".w:netrw_treetop."> (reusing)") | |
3393 elseif (w:netrw_treetop =~ ('^'.a:dirname) && strlen(a:dirname) < strlen(w:netrw_treetop)) || a:dirname !~ ('^'.w:netrw_treetop) | |
3394 let w:netrw_treetop= a:dirname | |
3395 " call Decho("w:netrw_treetop<".w:netrw_treetop."> (went up)") | |
3396 endif | |
3397 | |
3398 " insure that we have at least an empty treedict | |
3399 if !exists("w:netrw_treedict") | |
3400 let w:netrw_treedict= {} | |
3401 endif | |
3402 | |
3403 " update the directory listing for the current directory | |
3404 " call Decho("updating dictionary with ".a:dirname.":[..directory listing..]") | |
3405 " call Decho("bannercnt=".w:netrw_bannercnt." line($)=".line("$")) | |
3406 exe "silent! keepjumps ".w:netrw_bannercnt.',$g@^\.\.\=/$@d' | |
3407 let w:netrw_treedict[a:dirname]= getline(w:netrw_bannercnt,line("$")) | |
3408 " call Decho("treedict=".string(w:netrw_treedict)) | |
3409 exe "silent! keepjumps ".w:netrw_bannercnt.",$d" | |
3410 | |
3411 " if past banner, record word | |
3412 if exists("w:netrw_bannercnt") && line(".") > w:netrw_bannercnt | |
3413 let fname= expand("<cword>") | |
3414 else | |
3415 let fname= "" | |
3416 endif | |
3417 | |
3418 " display from treetop on down | |
3419 call s:NetTreeDisplay(w:netrw_treetop,"") | |
3420 | |
3421 " place cursor | |
3422 if !exists("s:nbcd_curpos") | |
3423 if fname != "" | |
3424 " call Decho("(NetTreeListing) place cursor <".fname.">") | |
3425 call search('\<'.fname.'\>','cw') | |
3426 elseif exists("w:netrw_bannercnt") | |
3427 exe (w:netrw_bannercnt+1) | |
3428 " call Decho("(NetTreeListing) place cursor line#".(w:netrw_bannercnt+1)) | |
3429 endif | |
3430 endif | |
3431 | |
3432 " call Dret("NetTreeListing : bufname<".expand("%").">") | |
3433 endif | |
3434 endfun | |
3435 | |
3436 " --------------------------------------------------------------------- | |
3437 " NetSaveWordPosn: used by the "s" command in both remote and local {{{2 | |
3438 " browsing. Along with NetRestoreWordPosn(), it keeps the cursor on | |
3439 " the same word even though the sorting has changed its order of appearance. | |
3440 fun! s:NetSaveWordPosn() | |
3441 " call Dfunc("NetSaveWordPosn()") | |
3442 let s:netrw_saveword= '^'.escape(getline("."),s:netrw_cd_escape).'$' | |
3443 " call Dret("NetSaveWordPosn : saveword<".s:netrw_saveword.">") | |
3444 endfun | |
3445 | |
3446 " --------------------------------------------------------------------- | |
3447 " NetRestoreWordPosn: used by the "s" command; see NetSaveWordPosn() above {{{2 | |
3448 fun! s:NetRestoreWordPosn() | |
3449 " call Dfunc("NetRestoreWordPosn()") | |
3450 silent! call search(s:netrw_saveword,'w') | |
3451 " call Dret("NetRestoreWordPosn") | |
3452 endfun | |
3453 | |
3454 " --------------------------------------------------------------------- | |
3455 " NetMakeDir: this function makes a directory (both local and remote) {{{2 | |
3456 fun! s:NetMakeDir(usrhost) | |
3457 " call Dfunc("NetMakeDir(usrhost<".a:usrhost.">)") | |
3458 | |
3459 " get name of new directory from user. A bare <CR> will skip. | |
3460 " if its currently a directory, also request will be skipped, but with | |
3461 " a message. | |
3462 call inputsave() | |
3463 let newdirname= input("Please give directory name: ") | |
3464 call inputrestore() | |
3465 " call Decho("newdirname<".newdirname.">") | |
3466 | |
3467 if newdirname == "" | |
3468 " call Dret("NetMakeDir : user aborted with bare <cr>") | |
3469 return | |
3470 endif | |
3471 | |
3472 if a:usrhost == "" | |
3473 | |
3474 " Local mkdir: | |
3475 " sanity checks | |
3476 let fullnewdir= b:netrw_curdir.'/'.newdirname | |
3477 " call Decho("fullnewdir<".fullnewdir.">") | |
3478 if isdirectory(fullnewdir) | |
3479 if !exists("g:netrw_quiet") | |
3480 call netrw#ErrorMsg(s:WARNING,"<".newdirname."> is already a directory!",24) | |
3481 endif | |
3482 " call Dret("NetMakeDir : directory<".newdirname."> exists previously") | |
3483 return | |
3484 endif | |
3485 if s:FileReadable(fullnewdir) | |
3486 if !exists("g:netrw_quiet") | |
3487 call netrw#ErrorMsg(s:WARNING,"<".newdirname."> is already a file!",25) | |
3488 endif | |
3489 " call Dret("NetMakeDir : file<".newdirname."> exists previously") | |
3490 return | |
3491 endif | |
3492 | |
3493 " requested new local directory is neither a pre-existing file or | |
3494 " directory, so make it! | |
3495 if exists("*mkdir") | |
3496 call mkdir(fullnewdir,"p") | |
3497 else | |
3498 let netrw_origdir= s:NetGetcwd(1) | |
3499 exe 'keepjumps cd '.b:netrw_curdir | |
3500 " call Decho("netrw_origdir<".netrw_origdir.">: cd b:netrw_curdir<".b:netrw_curdir.">") | |
3501 " call Decho("exe silent! !".g:netrw_local_mkdir.' '.g:netrw_shq.newdirname.g:netrw_shq) | |
3502 exe "silent! !".g:netrw_local_mkdir.' '.g:netrw_shq.newdirname.g:netrw_shq | |
3503 if !g:netrw_keepdir | exe 'keepjumps cd '.netrw_origdir | endif | |
3504 if !g:netrw_keepdir | |
3505 exe 'keepjumps cd '.netrw_origdir | |
3506 " call Decho("netrw_keepdir=".g:netrw_keepdir.": cd ".netrw_origdir) | |
3507 endif | |
3508 endif | |
3509 | |
3510 if v:shell_error == 0 | |
3511 " refresh listing | |
3512 " call Decho("refresh listing") | |
3513 call netrw#NetSavePosn() | |
3514 call s:NetRefresh(1,s:NetBrowseChgDir(1,'./')) | |
3515 elseif !exists("g:netrw_quiet") | |
3516 call netrw#ErrorMsg(s:ERROR,"unable to make directory<".newdirname.">",26) | |
3517 endif | |
3518 redraw! | |
3519 | |
3520 else | |
3521 " Remote mkdir: | |
3522 let mkdircmd = s:MakeSshCmd(g:netrw_mkdir_cmd) | |
3523 let newdirname= substitute(b:netrw_curdir,'^\%(.\{-}/\)\{3}\(.*\)$','\1','').newdirname | |
3524 " call Decho("exe silent! !".mkdircmd." ".g:netrw_shq.newdirname.g:netrw_shq) | |
3525 exe "silent! !".mkdircmd." ".g:netrw_shq.newdirname.g:netrw_shq | |
3526 if v:shell_error == 0 | |
3527 " refresh listing | |
3528 call netrw#NetSavePosn() | |
3529 call s:NetRefresh(0,s:NetBrowseChgDir(0,'./')) | |
3530 elseif !exists("g:netrw_quiet") | |
3531 call netrw#ErrorMsg(s:ERROR,"unable to make directory<".newdirname.">",27) | |
3532 endif | |
3533 redraw! | |
3534 endif | |
3535 | |
3536 " call Dret("NetMakeDir") | |
3537 endfun | |
3538 | |
3539 " --------------------------------------------------------------------- | |
3540 " NetBookmarkDir: {{{2 | |
3541 " 0: (user: <b>) bookmark current directory | |
3542 " 1: (user: <B>) change to the bookmarked directory | |
3543 " 2: (user: <q>) list bookmarks | |
3544 " 3: (browsing) record current directory history | |
3545 " 4: (user: <u>) go up (previous) bookmark | |
3546 " 5: (user: <U>) go down (next) bookmark | |
3547 fun! s:NetBookmarkDir(chg,curdir) | |
3548 " call Dfunc("NetBookmarkDir(chg=".a:chg." curdir<".a:curdir.">) cnt=".v:count." bookmarkcnt=".g:NETRW_BOOKMARKMAX." histcnt=".g:NETRW_DIRHIST_CNT." bookmax=".g:NETRW_BOOKMARKMAX." histmax=".g:netrw_dirhistmax) | |
3549 | 1830 |
3550 if a:chg == 0 | 1831 if a:chg == 0 |
3551 " bookmark the current directory | 1832 " bookmark the current directory |
3552 " call Decho("(user: <b>) bookmark the current directory") | 1833 " call Decho("(user: <b>) bookmark the current directory") |
3553 if v:count > 0 | 1834 if v:count > 0 |
3573 else | 1854 else |
3574 echomsg "Sorry, bookmark#".v:count." doesn't exist!" | 1855 echomsg "Sorry, bookmark#".v:count." doesn't exist!" |
3575 endif | 1856 endif |
3576 | 1857 |
3577 elseif a:chg == 2 | 1858 elseif a:chg == 2 |
3578 redraw! | 1859 " redraw! |
3579 let didwork= 0 | 1860 let didwork= 0 |
3580 " list user's bookmarks | 1861 " list user's bookmarks |
3581 " call Decho("(user: <q>) list user's bookmarks") | 1862 " call Decho("(user: <q>) list user's bookmarks") |
3582 if exists("g:NETRW_BOOKMARKMAX") | 1863 if exists("g:NETRW_BOOKMARKMAX") |
3583 " call Decho("list bookmarks [0,".g:NETRW_BOOKMARKMAX."]") | 1864 " call Decho("list bookmarks [0,".g:NETRW_BOOKMARKMAX."]") |
3633 endif | 1914 endif |
3634 if exists("g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}") | 1915 if exists("g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}") |
3635 " call Decho("changedir u#".g:NETRW_DIRHIST_CNT."<".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}.">") | 1916 " call Decho("changedir u#".g:NETRW_DIRHIST_CNT."<".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}.">") |
3636 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("b:netrw_curdir") | 1917 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("b:netrw_curdir") |
3637 setlocal ma noro | 1918 setlocal ma noro |
1919 " call Decho("setlocal ma noro") | |
3638 %d | 1920 %d |
3639 setlocal nomod | 1921 setlocal nomod |
1922 " call Decho("setlocal nomod") | |
3640 endif | 1923 endif |
3641 " call Decho("exe e! ".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}) | 1924 " call Decho("exe e! ".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}) |
3642 exe "e! ".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT} | 1925 exe "e! ".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT} |
3643 else | 1926 else |
3644 let g:NETRW_DIRHIST_CNT= ( g:NETRW_DIRHIST_CNT + 1 ) % g:netrw_dirhistmax | 1927 let g:NETRW_DIRHIST_CNT= ( g:NETRW_DIRHIST_CNT + 1 ) % g:netrw_dirhistmax |
3651 let g:NETRW_DIRHIST_CNT= ( g:NETRW_DIRHIST_CNT + 1 ) % g:netrw_dirhistmax | 1934 let g:NETRW_DIRHIST_CNT= ( g:NETRW_DIRHIST_CNT + 1 ) % g:netrw_dirhistmax |
3652 if exists("g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}") | 1935 if exists("g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}") |
3653 " call Decho("changedir U#".g:NETRW_DIRHIST_CNT."<".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}.">") | 1936 " call Decho("changedir U#".g:NETRW_DIRHIST_CNT."<".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}.">") |
3654 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("b:netrw_curdir") | 1937 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("b:netrw_curdir") |
3655 setlocal ma noro | 1938 setlocal ma noro |
1939 " call Decho("setlocal ma noro") | |
3656 %d | 1940 %d |
1941 " call Decho("removed all lines from buffer (%d)") | |
3657 setlocal nomod | 1942 setlocal nomod |
1943 " call Decho("setlocal nomod") | |
3658 endif | 1944 endif |
3659 " call Decho("exe e! ".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}) | 1945 " call Decho("exe e! ".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT}) |
3660 exe "e! ".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT} | 1946 exe "e! ".g:NETRW_DIRHIST_{g:NETRW_DIRHIST_CNT} |
3661 else | 1947 else |
3662 let g:NETRW_DIRHIST_CNT= ( g:NETRW_DIRHIST_CNT - 1 ) % g:netrw_dirhistmax | 1948 let g:NETRW_DIRHIST_CNT= ( g:NETRW_DIRHIST_CNT - 1 ) % g:netrw_dirhistmax |
3663 if g:NETRW_DIRHIST_CNT < 0 | 1949 if g:NETRW_DIRHIST_CNT < 0 |
3664 let g:NETRW_DIRHIST_CNT= g:NETRW_DIRHIST_CNT + g:netrw_dirhistmax | 1950 let g:NETRW_DIRHIST_CNT= g:NETRW_DIRHIST_CNT + g:netrw_dirhistmax |
3665 endif | 1951 endif |
3666 echo "Sorry, no successor directory exists yet" | 1952 echo "Sorry, no successor directory exists yet" |
3667 endif | 1953 endif |
3668 endif | 1954 |
3669 call s:NetBookmarkMenu() | 1955 elseif a:chg == 6 |
3670 " call Dret("NetBookmarkDir") | 1956 if v:count > 0 && v:count == g:NETRW_BOOKMARKMAX |
3671 endfun | 1957 " delete the v:count'th bookmark |
3672 | 1958 " call Decho("delete bookmark#".v:count."<".g:NETRW_BOOKMARKDIR_{g:NETRW_BOOKMARKMAX}.">") |
3673 " --------------------------------------------------------------------- | 1959 unlet g:NETRW_BOOKMARKDIR_{g:NETRW_BOOKMARKMAX} |
3674 " NetBookmarkMenu: {{{2 | 1960 let g:NETRW_BOOKMARKMAX= g:NETRW_BOOKMARKMAX - 1 |
3675 fun! s:NetBookmarkMenu() | 1961 |
1962 elseif v:count > 0 | |
1963 " call Decho("delete by shifting bookmark#".v:count."<".g:NETRW_BOOKMARKDIR_{v:count}.">") | |
1964 let cnt= v:count | |
1965 while cnt < g:NETRW_BOOKMARKMAX | |
1966 let g:NETRW_BOOKMARKDIR_{cnt} = g:NETRW_BOOKMARKDIR_{(cnt+1)} | |
1967 let cnt = cnt + 1 | |
1968 endwhile | |
1969 unlet g:NETRW_BOOKMARKDIR_{g:NETRW_BOOKMARKMAX} | |
1970 let g:NETRW_BOOKMARKMAX= g:NETRW_BOOKMARKMAX - 1 | |
1971 | |
1972 elseif exists("b:netrw_curdir") | |
1973 " look for current directory amongst the bookmarks and remove that bookmark | |
1974 " call Decho("search for bookmark<".b:netrw_curdir.">") | |
1975 let cnt= 1 | |
1976 while cnt <= g:NETRW_BOOKMARKMAX | |
1977 " call Decho("checking: g:NETRW_BOOKMARKDIR_".cnt."<".g:NETRW_BOOKMARKDIR_{cnt}.">") | |
1978 if g:NETRW_BOOKMARKDIR_{cnt} == b:netrw_curdir | |
1979 if cnt < g:NETRW_BOOKMARKMAX | |
1980 " call Decho("delete bookmark#".cnt."<".b:netrw_curdir.">") | |
1981 while cnt < g:NETRW_BOOKMARMAX | |
1982 let g:NETRW_BOOKMARKDIR_{cnt} = g:NETRW_BOOKMARKDIR_{(cnt+1)} | |
1983 let cnt = cnt + 1 | |
1984 endwhile | |
1985 endif | |
1986 unlet g:NETRW_BOOKMARKDIR_{g:NETRW_BOOKMARKMAX} | |
1987 let g:NETRW_BOOKMARKMAX= g:NETRW_BOOKMARKMAX - 1 | |
1988 endif | |
1989 let cnt= cnt + 1 | |
1990 endwhile | |
1991 endif | |
1992 | |
1993 endif | |
1994 call s:NetrwBookmarkMenu() | |
1995 " call Dret("NetrwBookmarkDir") | |
1996 endfun | |
1997 | |
1998 " --------------------------------------------------------------------- | |
1999 " s:NetrwBrowse: This function uses the command in g:netrw_list_cmd to provide a {{{2 | |
2000 " list of the contents of a local or remote directory. It is assumed that the | |
2001 " g:netrw_list_cmd has a string, USEPORT HOSTNAME, that needs to be substituted | |
2002 " with the requested remote hostname first. | |
2003 fun! s:NetrwBrowse(islocal,dirname) | |
2004 if !exists("w:netrw_liststyle")|let w:netrw_liststyle= g:netrw_liststyle|endif | |
2005 " call Dfunc("s:NetrwBrowse(islocal=".a:islocal." dirname<".a:dirname.">) liststyle=".w:netrw_liststyle." ".g:loaded_netrw." buf#".bufnr("%")."<".bufname("%").">") | |
2006 " call Decho("tab#".tabpagenr()." win#".winnr()) | |
2007 " call Dredir("ls!") | |
2008 | |
2009 if exists("s:netrw_skipbrowse") | |
2010 unlet s:netrw_skipbrowse | |
2011 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
2012 " call Dret("s:NetrwBrowse : s:netrw_skipbrowse=".s:netrw_skipbrowse) | |
2013 return | |
2014 endif | |
2015 if !exists("*shellescape") | |
2016 call netrw#ErrorMsg(s:ERROR,"netrw can't run -- your vim is missing shellescape()",69) | |
2017 " call Dret("s:NetrwBrowse : missing shellescape()") | |
2018 return | |
2019 endif | |
2020 if !exists("*fnameescape") | |
2021 call netrw#ErrorMsg(s:ERROR,"netrw can't run -- your vim is missing fnameescape()",70) | |
2022 " call Dret("s:NetrwBrowse : missing fnameescape()") | |
2023 return | |
2024 endif | |
2025 | |
2026 call s:NetrwOptionSave("w:") | |
2027 call s:NetrwSafeOptions() | |
2028 | |
2029 " re-instate any marked files | |
2030 if exists("s:netrwmarkfilelist_{bufnr('%')}") | |
2031 " call Decho("clearing marked files") | |
2032 exe "2match netrwMarkFile /".s:netrwmarkfilemtch_{bufnr("%")}."/" | |
2033 endif | |
2034 | |
2035 if a:islocal && exists("w:netrw_acdkeep") && w:netrw_acdkeep | |
2036 " call Decho("handle w:netrw_acdkeep:") | |
2037 " call Decho("keepjumps lcd ".fnameescape(a:dirname)." (due to w:netrw_acdkeep=".w:netrw_acdkeep." - acd=".&acd.")") | |
2038 exe 'keepjumps lcd '.fnameescape(a:dirname) | |
2039 " call Decho("getcwd<".getcwd().">") | |
2040 | |
2041 elseif !a:islocal && a:dirname !~ '[\/]$' && a:dirname !~ '^"' | |
2042 " looks like a regular file, attempt transfer | |
2043 " call Decho("attempt transfer as regular file<".a:dirname.">") | |
2044 | |
2045 " remove any filetype indicator from end of dirname, except for the {{{3 | |
2046 " "this is a directory" indicator (/). | |
2047 " There shouldn't be one of those here, anyway. | |
2048 let path= substitute(a:dirname,'[*=@|]\r\=$','','e') | |
2049 " call Decho("new path<".path.">") | |
2050 call s:RemotePathAnalysis(a:dirname) | |
2051 | |
2052 " remote-read the requested file into current buffer {{{3 | |
2053 mark ' | |
2054 call s:NetrwEnew(a:dirname) | |
2055 setlocal ma noro | |
2056 " call Decho("setlocal ma noro") | |
2057 let b:netrw_curdir= a:dirname | |
2058 " call Decho("exe silent! keepalt file ".s:method."://".s:user.s:machine."/".fnameescape(s:path)." (bt=".&bt.")") | |
2059 exe "silent! keepalt file ".s:method."://".s:user.s:machine."/".fnameescape(s:path) | |
2060 exe "silent keepalt doau BufReadPre ".s:fname | |
2061 silent call netrw#NetRead(2,s:method."://".s:user.s:machine."/".s:path) | |
2062 if s:path !~ '.tar.bz2$' && s:path !~ '.tar.gz' | |
2063 " netrw.vim and tar.vim have already handled decompression of the tarball; avoiding gzip.vim error | |
2064 exe "silent keepalt doau BufReadPost ".s:fname | |
2065 endif | |
2066 | |
2067 " save certain window-oriented variables into buffer-oriented variables {{{3 | |
2068 call s:SetBufWinVars() | |
2069 call s:NetrwOptionRestore("w:") | |
2070 setlocal ma nomod | |
2071 | |
2072 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
2073 " call Dret("s:NetrwBrowse : file<".s:fname.">") | |
2074 return | |
2075 endif | |
2076 | |
2077 " use buffer-oriented WinVars if buffer ones exist but window ones don't {{{3 | |
2078 call s:UseBufWinVars() | |
2079 | |
2080 " set up some variables {{{3 | |
2081 let b:netrw_browser_active = 1 | |
2082 let dirname = a:dirname | |
2083 let s:last_sort_by = g:netrw_sort_by | |
2084 | |
2085 " set up menu {{{3 | |
2086 call s:NetrwMenu(1) | |
2087 | |
2088 " set up buffer {{{3 | |
2089 let reusing= s:NetrwGetBuffer(a:islocal,dirname) | |
2090 " maintain markfile highlighting | |
2091 if exists("s:netrwmarkfilemtch_{bufnr('%')}") && s:netrwmarkfilemtch_{bufnr("%")} != "" | |
2092 " call Decho("bufnr(%)=".bufnr('%')) | |
2093 " call Decho("exe 2match netrwMarkFile /".s:netrwmarkfilemtch_{bufnr("%")}."/") | |
2094 exe "2match netrwMarkFile /".s:netrwmarkfilemtch_{bufnr("%")}."/" | |
2095 else | |
2096 " call Decho("2match none") | |
2097 2match none | |
2098 endif | |
2099 if reusing | |
2100 call s:NetrwOptionRestore("w:") | |
2101 setlocal noma nomod nowrap | |
2102 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
2103 " call Dret("s:NetrwBrowse : re-using buffer") | |
2104 return | |
2105 endif | |
2106 | |
2107 " set b:netrw_curdir to the new directory name {{{3 | |
2108 " call Decho("set b:netrw_curdir to the new directory name:") | |
2109 let b:netrw_curdir= dirname | |
2110 if b:netrw_curdir =~ '[/\\]$' | |
2111 let b:netrw_curdir= substitute(b:netrw_curdir,'[/\\]$','','e') | |
2112 endif | |
2113 if b:netrw_curdir == '' | |
2114 if has("amiga") | |
2115 " On the Amiga, the empty string connotes the current directory | |
2116 let b:netrw_curdir= getcwd() | |
2117 else | |
2118 " under unix, when the root directory is encountered, the result | |
2119 " from the preceding substitute is an empty string. | |
2120 let b:netrw_curdir= '/' | |
2121 endif | |
2122 endif | |
2123 if !a:islocal && b:netrw_curdir !~ '/$' | |
2124 let b:netrw_curdir= b:netrw_curdir.'/' | |
2125 endif | |
2126 " call Decho("b:netrw_curdir<".b:netrw_curdir.">") | |
2127 | |
2128 " ------------ | |
2129 " (local only) {{{3 | |
2130 " ------------ | |
2131 if a:islocal | |
2132 " call Decho("local only:") | |
2133 | |
2134 " Set up ShellCmdPost handling. Append current buffer to browselist | |
2135 call s:LocalFastBrowser() | |
2136 | |
2137 " handle g:netrw_keepdir: set vim's current directory to netrw's notion of the current directory {{{3 | |
2138 if !g:netrw_keepdir | |
2139 " call Decho("handle g:netrw_keepdir=".g:netrw_keepdir.": getcwd<".getcwd()."> acd=".&acd) | |
2140 " call Decho("l:acd".(exists("&l:acd")? "=".&l:acd : " doesn't exist")) | |
2141 if !exists("&l:acd") || !&l:acd | |
2142 " call Decho('exe keepjumps lcd '.fnameescape(b:netrw_curdir)) | |
2143 try | |
2144 exe 'keepjumps lcd '.fnameescape(b:netrw_curdir) | |
2145 catch /^Vim\%((\a\+)\)\=:E472/ | |
2146 call netrw#ErrorMsg(s:ERROR,"unable to change directory to <".b:netrw_curdir."> (permissions?)",61) | |
2147 if exists("w:netrw_prvdir") | |
2148 let b:netrw_curdir= w:netrw_prvdir | |
2149 else | |
2150 call s:NetrwOptionRestore("w:") | |
2151 setlocal noma nomod nowrap | |
2152 let b:netrw_curdir= dirname | |
2153 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
2154 " call Dret("s:NetrwBrowse : reusing buffer#".(exists("bufnum")? bufnum : 'N/A')."<".dirname."> getcwd<".getcwd().">") | |
2155 return | |
2156 endif | |
2157 endtry | |
2158 endif | |
2159 endif | |
2160 | |
2161 " -------------------------------- | |
2162 " remote handling: {{{3 | |
2163 " -------------------------------- | |
2164 else | |
2165 " call Decho("remote only:") | |
2166 | |
2167 " analyze a:dirname and g:netrw_list_cmd {{{4 | |
2168 " call Decho("b:netrw_curdir<".(exists("b:netrw_curdir")? b:netrw_curdir : "doesn't exist")."> a:dirname<".a:dirname.">") | |
2169 if a:dirname =~ "^NetrwTreeListing\>" | |
2170 let dirname= b:netrw_curdir | |
2171 " call Decho("(dirname was ".a:dirname.") dirname<".dirname.">") | |
2172 elseif exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("b:netrw_curdir") | |
2173 let dirname= substitute(b:netrw_curdir,'\\','/','g') | |
2174 if dirname !~ '/$' | |
2175 let dirname= dirname.'/' | |
2176 endif | |
2177 let b:netrw_curdir = dirname | |
2178 " call Decho("(liststyle is TREELIST) dirname<".dirname.">") | |
2179 else | |
2180 let dirname = substitute(a:dirname,'\\','/','g') | |
2181 " call Decho("(normal) dirname<".dirname.">") | |
2182 endif | |
2183 | |
2184 let dirpat = '^\(\w\{-}\)://\(\w\+@\)\=\([^/]\+\)/\(.*\)$' | |
2185 if dirname !~ dirpat | |
2186 if !exists("g:netrw_quiet") | |
2187 call netrw#ErrorMsg(s:ERROR,"netrw doesn't understand your dirname<".dirname.">",20) | |
2188 endif | |
2189 call s:NetrwOptionRestore("w:") | |
2190 setlocal noma nomod nowrap | |
2191 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
2192 " call Dret("s:NetrwBrowse : badly formatted dirname<".dirname.">") | |
2193 return | |
2194 endif | |
2195 let b:netrw_curdir= dirname | |
2196 " call Decho("b:netrw_curdir<".b:netrw_curdir."> (remote)") | |
2197 endif " (additional remote handling) | |
2198 | |
2199 " ----------------------- | |
2200 " Directory Listing: {{{3 | |
2201 " ----------------------- | |
2202 call s:BrowserMaps(a:islocal) | |
2203 call s:PerformListing(a:islocal) | |
2204 | |
2205 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
2206 " call Dret("s:NetrwBrowse : did PerformListing") | |
2207 return | |
2208 endfun | |
2209 | |
2210 " --------------------------------------------------------------------- | |
2211 " s:NetrwFileInfo: supports qf (query for file information) {{{2 | |
2212 fun! s:NetrwFileInfo(islocal,fname) | |
2213 " call Dfunc("s:NetrwFileInfo(islocal=".a:islocal." fname<".a:fname.">)") | |
2214 if a:islocal | |
2215 if (has("unix") || has("macunix")) && executable("/bin/ls") | |
2216 if exists("b:netrw_curdir") | |
2217 " call Decho('using ls with b:netrw_curdir<'.b:netrw_curdir.'>') | |
2218 if b:netrw_curdir =~ '/$' | |
2219 echo system("/bin/ls -lsad ".shellescape(b:netrw_curdir.a:fname)) | |
2220 else | |
2221 echo system("/bin/ls -lsad ".shellescape(b:netrw_curdir."/".a:fname)) | |
2222 endif | |
2223 else | |
2224 " call Decho('using ls '.a:fname." using cwd<".getcwd().">") | |
2225 echo system("/bin/ls -lsad ".shellescape(a:fname)) | |
2226 endif | |
2227 else | |
2228 " use vim functions to return information about file below cursor | |
2229 " call Decho("using vim functions to query for file info") | |
2230 if !isdirectory(a:fname) && !filereadable(a:fname) && a:fname =~ '[*@/]' | |
2231 let fname= substitute(a:fname,".$","","") | |
2232 else | |
2233 let fname= a:fname | |
2234 endif | |
2235 let t = getftime(fname) | |
2236 let sz = getfsize(fname) | |
2237 echo a:fname.": ".sz." ".strftime(g:netrw_timefmt,getftime(fname)) | |
2238 " call Decho(fname.": ".sz." ".strftime(g:netrw_timefmt,getftime(fname))) | |
2239 endif | |
2240 else | |
2241 echo "sorry, \"qf\" not supported yet for remote files" | |
2242 endif | |
2243 " call Dret("s:NetrwFileInfo") | |
2244 endfun | |
2245 | |
2246 " --------------------------------------------------------------------- | |
2247 " s:NetrwGetBuffer: {{{2 | |
2248 " returns 0=cleared buffer | |
2249 " 1=re-used buffer | |
2250 fun! s:NetrwGetBuffer(islocal,dirname) | |
2251 " call Dfunc("s:NetrwGetBuffer(islocal=".a:islocal." dirname<".a:dirname.">) liststyle=".g:netrw_liststyle) | |
2252 let dirname= a:dirname | |
2253 | |
2254 " re-use buffer if possible {{{3 | |
2255 " call Decho("--re-use a buffer if possible--") | |
2256 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST | |
2257 " find NetrwTreeList buffer if there is one | |
2258 if exists("w:netrw_treebufnr") && w:netrw_treebufnr > 0 | |
2259 " call Decho(" re-use w:netrw_treebufnr=".w:netrw_treebufnr) | |
2260 let eikeep= &ei | |
2261 set ei=all | |
2262 exe "b ".w:netrw_treebufnr | |
2263 let &ei= eikeep | |
2264 " call Dret("s:NetrwGetBuffer : bufnum#".bufnum."<NetrwTreeListing>") | |
2265 return | |
2266 endif | |
2267 let bufnum= -1 | |
2268 " call Decho(" liststyle=TREE but w:netrw_treebufnr doesn't exist") | |
2269 | |
2270 else | |
2271 " find buffer number of buffer named precisely the same as dirname {{{3 | |
2272 " call Decho("--find buffer numnber of buffer named precisely the same as dirname--") | |
2273 " call Dredir("ls!") | |
2274 | |
2275 " get dirname and associated buffer number | |
2276 let bufnum = bufnr(escape(dirname,'\')) | |
2277 " call Decho(" find buffer<".dirname.">'s number ") | |
2278 " call Decho(" bufnr(dirname<".escape(dirname,'\').">)=".bufnum) | |
2279 | |
2280 if bufnum < 0 && dirname !~ '/$' | |
2281 " trying appending a trailing / | |
2282 " call Decho(" try appending a trailing / to dirname<".dirname.">") | |
2283 let bufnum= bufnr(escape(dirname.'/','\')) | |
2284 if bufnum > 0 | |
2285 let dirname= dirname.'/' | |
2286 endif | |
2287 endif | |
2288 | |
2289 if bufnum < 0 && dirname =~ '/$' | |
2290 " trying removing a trailing / | |
2291 " call Decho(" try removing a trailing / from dirname<".dirname.">") | |
2292 let bufnum= bufnr(escape(substitute(dirname,'/$','',''),'\')) | |
2293 if bufnum > 0 | |
2294 let dirname= substitute(dirname,'/$','','') | |
2295 endif | |
2296 endif | |
2297 | |
2298 " call Decho(" findbuf1: bufnum=bufnr('".dirname."')=".bufnum." bufname(".bufnum.")<".bufname(bufnum)."> (initial)") | |
2299 " note: !~ was used just below, but that means using ../ to go back would match (ie. abc/def/ and abc/ matches) | |
2300 if bufnum > 0 && bufname(bufnum) != dirname && bufname(bufnum) != '.' | |
2301 " handle approximate matches | |
2302 " call Decho(" handling approx match: bufnum#%d<".bufname(bufnum)."> approx= dirname<".dirname.">") | |
2303 let ibuf = 1 | |
2304 let buflast = bufnr("$") | |
2305 " call Decho(" findbuf2: buflast=".buflast) | |
2306 while ibuf <= buflast | |
2307 let bname= substitute(bufname(ibuf),'\\','/','g') | |
2308 " call Decho(" findbuf3: dirname<".dirname."> bufname(".ibuf.")<".bname.">") | |
2309 if bname != '' && bname !~ '/' && dirname =~ '/'.bname.'/\=$' | break | endif | |
2310 if bname =~ '^'.dirname.'/\=$' | break | endif | |
2311 if dirname =~ '^'.bname.'/$' | break | endif | |
2312 let ibuf= ibuf + 1 | |
2313 endwhile | |
2314 if ibuf > buflast | |
2315 let bufnum= -1 | |
2316 else | |
2317 let bufnum= ibuf | |
2318 endif | |
2319 " call Decho(" findbuf4: bufnum=".bufnum." (ibuf=".ibuf." buflast=".buflast.")") | |
2320 endif | |
2321 endif | |
2322 | |
2323 " get enew buffer and name it -or- re-use buffer {{{3 | |
2324 " call Decho("--get enew buffer and name it OR re-use buffer-- (bufnum=".bufnum.")") | |
2325 mark ' | |
2326 if bufnum < 0 || !bufexists(bufnum) | |
2327 call s:NetrwEnew(dirname) | |
2328 " call Decho(" got enew buffer#".bufnr("%")." (altbuf<".expand("#").">)") | |
2329 " name the buffer | |
2330 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST | |
2331 " Got enew buffer; transform into a NetrwTreeListing | |
2332 " call Decho("--transform enew buffer#".bufnr("%")." into a NetrwTreeListing --") | |
2333 if !exists("s:netrw_treelistnum") | |
2334 let s:netrw_treelistnum= 1 | |
2335 else | |
2336 let s:netrw_treelistnum= s:netrw_treelistnum + 1 | |
2337 endif | |
2338 let w:netrw_treebufnr= bufnr("%") | |
2339 " call Decho(" exe silent! keepalt file NetrwTreeListing ".s:netrw_treelistnum) | |
2340 exe 'silent! keepalt file NetrwTreeListing\ '.s:netrw_treelistnum | |
2341 nnoremap <silent> <buffer> [ :silent call <SID>TreeListMove('[')<cr> | |
2342 nnoremap <silent> <buffer> ] :silent call <SID>TreeListMove(']')<cr> | |
2343 nnoremap <silent> <buffer> [[ :silent call <SID>TreeListMove('[')<cr> | |
2344 nnoremap <silent> <buffer> ]] :silent call <SID>TreeListMove(']')<cr> | |
2345 " call Decho(" tree listing#".s:netrw_treelistnum." bufnr=".w:netrw_treebufnr) | |
2346 else | |
2347 " let v:errmsg= "" " Decho | |
2348 let escdirname= fnameescape(dirname) | |
2349 " call Decho(" errmsg<".v:errmsg."> bufnr(".escdirname.")=".bufnr(escdirname)."<".bufname(bufnr(escdirname)).">") | |
2350 " call Decho(' exe silent! keepalt file '.escdirname) | |
2351 exe 'silent! keepalt file '.escdirname | |
2352 " call Decho(" errmsg<".v:errmsg."> bufnr(".escdirname.")=".bufnr(escdirname)."<".bufname(bufnr(escdirname)).">") | |
2353 endif | |
2354 " call Decho(" named enew buffer#".bufnr("%")."<".bufname("%").">") | |
2355 | |
2356 else " Re-use the buffer | |
2357 " call Decho("--re-use buffer#".bufnum.": --") | |
2358 let eikeep= &ei | |
2359 set ei=all | |
2360 if getline(2) =~ '^" Netrw Directory Listing' | |
2361 " call Decho(" re-use buffer#".bufnum."<".((bufnum > 0)? bufname(bufnum) : "")."> using: keepalt b ".bufnum) | |
2362 exe "keepalt b ".bufnum | |
2363 else | |
2364 " call Decho(" reusing buffer#".bufnum."<".((bufnum > 0)? bufname(bufnum) : "")."> using: b ".bufnum) | |
2365 exe "b ".bufnum | |
2366 endif | |
2367 if bufname("%") == '.' | |
2368 exe "silent! keepalt file ".escape(getcwd(),' ') | |
2369 endif | |
2370 let &ei= eikeep | |
2371 if line("$") <= 1 | |
2372 call s:NetrwListSettings(a:islocal) | |
2373 " call Dret("s:NetrwGetBuffer 0 : re-using buffer#".bufnr("%").", but its empty, so refresh it") | |
2374 return 0 | |
2375 elseif exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST | |
2376 " call Decho("--re-use tree listing--") | |
2377 " call Decho(" clear buffer<".expand("%")."> with :%d") | |
2378 silent %d | |
2379 call s:NetrwListSettings(a:islocal) | |
2380 " call Dret("s:NetrwGetBuffer 0 : re-using buffer#".bufnr("%").", but treelist mode always needs a refresh") | |
2381 return 0 | |
2382 else | |
2383 " call Dret("s:NetrwGetBuffer 1 : buf#".bufnr("%")) | |
2384 return 1 | |
2385 endif | |
2386 endif | |
2387 | |
2388 " do netrw settings: make this buffer not-a-file, modifiable, not line-numbered, etc {{{3 | |
2389 " fastbrowse Local Remote Hiding a buffer implies it may be re-used (fast) | |
2390 " slow 0 D D Deleting a buffer implies it will not be re-used (slow) | |
2391 " med 1 D H | |
2392 " fast 2 H H | |
2393 " call Decho("--do netrw settings: make this buffer not-a-file, modifiable, not line-numbered, etc--") | |
2394 let fname= expand("%") | |
2395 call s:NetrwListSettings(a:islocal) | |
2396 exe "keepalt file ".escape(fname,' ') | |
2397 | |
2398 " delete all lines from buffer {{{3 | |
2399 " call Decho("--delete all lines from buffer--") | |
2400 " call Decho(" clear buffer<".expand("%")."> with :%d") | |
2401 keepalt silent! %d | |
2402 | |
2403 " call Dret("s:NetrwGetBuffer 0 : buf#".bufnr("%")) | |
2404 return 0 | |
2405 endfun | |
2406 | |
2407 " --------------------------------------------------------------------- | |
2408 " s:NetrwGetcwd: get the current directory. {{{2 | |
2409 " Change backslashes to forward slashes, if any. | |
2410 " If doesc is true, escape certain troublesome characters | |
2411 fun! s:NetrwGetcwd(doesc) | |
2412 " call Dfunc("NetrwGetcwd(doesc=".a:doesc.")") | |
2413 let curdir= substitute(getcwd(),'\\','/','ge') | |
2414 if curdir !~ '[\/]$' | |
2415 let curdir= curdir.'/' | |
2416 endif | |
2417 if a:doesc | |
2418 let curdir= fnameescape(curdir) | |
2419 endif | |
2420 " call Dret("NetrwGetcwd <".curdir.">") | |
2421 return curdir | |
2422 endfun | |
2423 | |
2424 " --------------------------------------------------------------------- | |
2425 " s:NetrwGetWord: it gets the directory/file named under the cursor {{{2 | |
2426 fun! s:NetrwGetWord() | |
2427 " call Dfunc("s:NetrwGetWord() line#".line(".")." liststyle=".g:netrw_liststyle." virtcol=".virtcol(".")) | |
2428 call s:UseBufWinVars() | |
2429 | |
2430 " insure that w:netrw_liststyle is set up | |
2431 if !exists("w:netrw_liststyle") | |
2432 if exists("g:netrw_liststyle") | |
2433 let w:netrw_liststyle= g:netrw_liststyle | |
2434 else | |
2435 let w:netrw_liststyle= s:THINLIST | |
2436 endif | |
2437 " call Decho("w:netrw_liststyle=".w:netrw_liststyle) | |
2438 endif | |
2439 | |
2440 if exists("w:netrw_bannercnt") && line(".") < w:netrw_bannercnt | |
2441 " Active Banner support | |
2442 " call Decho("active banner handling") | |
2443 norm! 0 | |
2444 let dirname= "./" | |
2445 let curline= getline('.') | |
2446 | |
2447 if curline =~ '"\s*Sorted by\s' | |
2448 norm s | |
2449 let s:netrw_skipbrowse= 1 | |
2450 echo 'Pressing "s" also works' | |
2451 | |
2452 elseif curline =~ '"\s*Sort sequence:' | |
2453 let s:netrw_skipbrowse= 1 | |
2454 echo 'Press "S" to edit sorting sequence' | |
2455 | |
2456 elseif curline =~ '"\s*Quick Help:' | |
2457 norm ? | |
2458 let s:netrw_skipbrowse= 1 | |
2459 echo 'Pressing "?" also works' | |
2460 | |
2461 elseif curline =~ '"\s*\%(Hiding\|Showing\):' | |
2462 norm a | |
2463 let s:netrw_skipbrowse= 1 | |
2464 echo 'Pressing "a" also works' | |
2465 | |
2466 elseif line("$") > w:netrw_bannercnt | |
2467 exe 'silent keepjumps '.w:netrw_bannercnt | |
2468 endif | |
2469 | |
2470 elseif w:netrw_liststyle == s:THINLIST | |
2471 " call Decho("thin column handling") | |
2472 norm! 0 | |
2473 let dirname= getline('.') | |
2474 | |
2475 elseif w:netrw_liststyle == s:LONGLIST | |
2476 " call Decho("long column handling") | |
2477 norm! 0 | |
2478 let dirname= substitute(getline('.'),'^\(\%(\S\+ \)*\S\+\).\{-}$','\1','e') | |
2479 | |
2480 elseif w:netrw_liststyle == s:TREELIST | |
2481 " call Decho("treelist handling") | |
2482 let dirname= substitute(getline('.'),'^\(| \)*','','e') | |
2483 | |
2484 else | |
2485 " call Decho("obtain word from wide listing") | |
2486 let dirname= getline('.') | |
2487 | |
2488 if !exists("b:netrw_cpf") | |
2489 let b:netrw_cpf= 0 | |
2490 exe 'silent keepjumps '.w:netrw_bannercnt.',$g/^./if virtcol("$") > b:netrw_cpf|let b:netrw_cpf= virtcol("$")|endif' | |
2491 " call Decho("computed cpf=".b:netrw_cpf) | |
2492 endif | |
2493 | |
2494 " call Decho("buf#".bufnr("%")."<".bufname("%").">") | |
2495 let filestart = (virtcol(".")/b:netrw_cpf)*b:netrw_cpf | |
2496 " call Decho("filestart= ([virtcol=".virtcol(".")."]/[b:netrw_cpf=".b:netrw_cpf."])*b:netrw_cpf=".filestart." bannercnt=".w:netrw_bannercnt) | |
2497 " call Decho("1: dirname<".dirname.">") | |
2498 if filestart == 0 | |
2499 norm! 0ma | |
2500 else | |
2501 call cursor(line("."),filestart+1) | |
2502 norm! ma | |
2503 endif | |
2504 let rega= @a | |
2505 call cursor(line("."),filestart+b:netrw_cpf+1) | |
2506 norm! "ay`a | |
2507 let dirname = @a | |
2508 let @a = rega | |
2509 " call Decho("2: dirname<".dirname.">") | |
2510 let dirname= substitute(dirname,'\s\+$','','e') | |
2511 " call Decho("3: dirname<".dirname.">") | |
2512 endif | |
2513 | |
2514 " symlinks are indicated by a trailing "@". Remove it before further processing. | |
2515 let dirname= substitute(dirname,"@$","","") | |
2516 | |
2517 " executables are indicated by a trailing "*". Remove it before further processing. | |
2518 let dirname= substitute(dirname,"\*$","","") | |
2519 | |
2520 " call Dret("s:NetrwGetWord <".dirname.">") | |
2521 return dirname | |
2522 endfun | |
2523 | |
2524 " --------------------------------------------------------------------- | |
2525 " s:NetrwListSettings: {{{2 | |
2526 fun! s:NetrwListSettings(islocal) | |
2527 " call Dfunc("s:NetrwListSettings(islocal=".a:islocal.")") | |
2528 let fname= bufname("%") | |
2529 setlocal bt=nofile nobl ma nonu nowrap noro | |
2530 " call Decho("setlocal bt=nofile nobl ma nonu nowrap noro") | |
2531 exe "keepalt file ".escape(fname,' ') | |
2532 if g:netrw_use_noswf | |
2533 setlocal noswf | |
2534 endif | |
2535 " call Dredir("ls!") | |
2536 " call Decho("exe setlocal ts=".g:netrw_maxfilenamelen) | |
2537 exe "setlocal ts=".g:netrw_maxfilenamelen | |
2538 setlocal isk+=.,~,- | |
2539 if g:netrw_fastbrowse > a:islocal | |
2540 setlocal bh=hide | |
2541 else | |
2542 setlocal bh=delete | |
2543 endif | |
2544 " call Dret("s:NetrwListSettings") | |
2545 endfun | |
2546 | |
2547 " --------------------------------------------------------------------- | |
2548 " s:NetrwListStyle: {{{2 | |
2549 " islocal=0: remote browsing | |
2550 " =1: local browsing | |
2551 fun! s:NetrwListStyle(islocal) | |
2552 " call Dfunc("NetrwListStyle(islocal=".a:islocal.") w:netrw_liststyle=".w:netrw_liststyle) | |
2553 let fname = s:NetrwGetWord() | |
2554 if !exists("w:netrw_liststyle")|let w:netrw_liststyle= g:netrw_liststyle|endif | |
2555 let w:netrw_liststyle = (w:netrw_liststyle + 1) % s:MAXLIST | |
2556 " call Decho("fname<".fname.">") | |
2557 " call Decho("chgd w:netrw_liststyle to ".w:netrw_liststyle) | |
2558 " call Decho("b:netrw_curdir<".(exists("b:netrw_curdir")? b:netrw_curdir : "doesn't exist").">") | |
2559 | |
2560 if w:netrw_liststyle == s:THINLIST | |
2561 " use one column listing | |
2562 " call Decho("use one column list") | |
2563 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') | |
2564 | |
2565 elseif w:netrw_liststyle == s:LONGLIST | |
2566 " use long list | |
2567 " call Decho("use long list") | |
2568 let g:netrw_list_cmd = g:netrw_list_cmd." -l" | |
2569 | |
2570 elseif w:netrw_liststyle == s:WIDELIST | |
2571 " give wide list | |
2572 " call Decho("use wide list") | |
2573 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') | |
2574 | |
2575 elseif w:netrw_liststyle == s:TREELIST | |
2576 " call Decho("use tree list") | |
2577 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') | |
2578 | |
2579 else | |
2580 call netrw#ErrorMsg(s:WARNING,"bad value for g:netrw_liststyle (=".w:netrw_liststyle.")",46) | |
2581 let g:netrw_liststyle = s:THINLIST | |
2582 let w:netrw_liststyle = g:netrw_liststyle | |
2583 let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge') | |
2584 endif | |
2585 setlocal ma noro | |
2586 " call Decho("setlocal ma noro") | |
2587 | |
2588 " clear buffer - this will cause NetrwBrowse/LocalBrowseCheck to do a refresh | |
2589 " call Decho("clear buffer<".expand("%")."> with :%d") | |
2590 %d | |
2591 | |
2592 " refresh the listing | |
2593 let svpos= netrw#NetrwSavePosn() | |
2594 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
2595 call netrw#NetrwRestorePosn(svpos) | |
2596 | |
2597 " keep cursor on the filename | |
2598 silent keepjumps $ | |
2599 let result= search('\%(^\%(|\+\s\)\=\|\s\{2,}\)\zs'.escape(fname,'.\[]*$^').'\%(\s\{2,}\|$\)','bc') | |
2600 " call Decho("search result=".result." w:netrw_bannercnt=".(exists("w:netrw_bannercnt")? w:netrw_bannercnt : 'N/A')) | |
2601 if result <= 0 && exists("w:netrw_bannercnt") | |
2602 exe "keepjumps ".w:netrw_bannercnt | |
2603 endif | |
2604 | |
2605 " call Dret("NetrwListStyle".(exists("w:netrw_liststyle")? ' : w:netrw_liststyle='.w:netrw_liststyle : "")) | |
2606 endfun | |
2607 | |
2608 " --------------------------------------------------------------------- | |
2609 " s:NetrwBookmarkMenu: Uses menu priorities {{{2 | |
2610 " .2.[cnt] for bookmarks, and | |
2611 " .3.[cnt] for history | |
2612 " (see s:NetrwMenu()) | |
2613 fun! s:NetrwBookmarkMenu() | |
3676 if !exists("s:netrw_menucnt") | 2614 if !exists("s:netrw_menucnt") |
3677 return | 2615 return |
3678 endif | 2616 endif |
3679 " call Dfunc("NetBookmarkMenu() bookmarkcnt=".g:NETRW_BOOKMARKMAX." histcnt=".g:NETRW_DIRHIST_CNT." menucnt=".s:netrw_menucnt) | 2617 " call Dfunc("NetrwBookmarkMenu() bookmarkcnt=".g:NETRW_BOOKMARKMAX." histcnt=".g:NETRW_DIRHIST_CNT." menucnt=".s:netrw_menucnt) |
3680 if has("menu") && has("gui_running") && &go =~ 'm' | 2618 |
2619 " the following test assures that gvim is running, has menus available, and has menus enabled. | |
2620 if has("gui") && has("menu") && has("gui_running") && &go =~ 'm' && g:netrw_menu | |
3681 if exists("g:NetrwTopLvlMenu") | 2621 if exists("g:NetrwTopLvlMenu") |
3682 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Bookmark' | 2622 " call Decho("removing ".g:NetrwTopLvlMenu."Bookmarks menu item(s)") |
2623 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Bookmarks' | |
3683 endif | 2624 endif |
3684 | 2625 |
3685 " show bookmarked places | 2626 " show bookmarked places |
3686 let cnt = 0 | 2627 let cnt = 1 |
3687 while cnt <= g:NETRW_BOOKMARKMAX | 2628 while cnt <= g:NETRW_BOOKMARKMAX |
3688 if exists("g:NETRW_BOOKMARKDIR_{cnt}") | 2629 if exists("g:NETRW_BOOKMARKDIR_{cnt}") |
3689 let bmdir= escape(g:NETRW_BOOKMARKDIR_{cnt},'.') | 2630 let bmdir= escape(g:NETRW_BOOKMARKDIR_{cnt},'. ') |
3690 " call Decho('silent! menu '.g:NetrwMenuPriority.".2.".cnt." ".g:NetrwTopLvlMenu.'Bookmark.'.bmdir.' :e '.g:NETRW_BOOKMARKDIR_{cnt}) | 2631 " call Decho('silent! menu '.g:NetrwMenuPriority.".2.".cnt." ".g:NetrwTopLvlMenu.'Bookmark.'.bmdir.' :e '.bmdir) |
3691 exe 'silent! menu '.g:NetrwMenuPriority.".2.".cnt." ".g:NetrwTopLvlMenu.'Bookmarks.'.bmdir.' :e '.g:NETRW_BOOKMARKDIR_{cnt}."\<cr>" | 2632 exe 'silent! menu '.g:NetrwMenuPriority.".2.".cnt." ".g:NetrwTopLvlMenu.'Bookmarks.'.bmdir.' :e '.bmdir."\<cr>" |
3692 endif | 2633 endif |
3693 let cnt= cnt + 1 | 2634 let cnt= cnt + 1 |
3694 endwhile | 2635 endwhile |
3695 | 2636 |
3696 " show directory browsing history | 2637 " show directory browsing history |
3699 let histcnt = 0 | 2640 let histcnt = 0 |
3700 while ( first || cnt != g:NETRW_DIRHIST_CNT ) | 2641 while ( first || cnt != g:NETRW_DIRHIST_CNT ) |
3701 let histcnt = histcnt + 1 | 2642 let histcnt = histcnt + 1 |
3702 let priority = g:NETRW_DIRHIST_CNT + histcnt | 2643 let priority = g:NETRW_DIRHIST_CNT + histcnt |
3703 if exists("g:NETRW_DIRHIST_{cnt}") | 2644 if exists("g:NETRW_DIRHIST_{cnt}") |
3704 let bmdir= escape(g:NETRW_DIRHIST_{cnt},'.') | 2645 let bmdir= escape(g:NETRW_DIRHIST_{cnt},'. ') |
3705 " call Decho('silent! menu '.g:NetrwMenuPriority.".3.".priority." ".g:NetrwTopLvlMenu.'History.'.bmdir.' :e '.g:NETRW_DIRHIST_{cnt}) | 2646 " call Decho('silent! menu '.g:NetrwMenuPriority.".3.".priority." ".g:NetrwTopLvlMenu.'History.'.bmdir.' :e '.bmdir) |
3706 exe 'silent! menu '.g:NetrwMenuPriority.".3.".priority." ".g:NetrwTopLvlMenu.'History.'.bmdir.' :e '.g:NETRW_DIRHIST_{cnt}."\<cr>" | 2647 exe 'silent! menu '.g:NetrwMenuPriority.".3.".priority." ".g:NetrwTopLvlMenu.'History.'.bmdir.' :e '.bmdir."\<cr>" |
3707 endif | 2648 endif |
3708 let first = 0 | 2649 let first = 0 |
3709 let cnt = ( cnt - 1 ) % g:netrw_dirhistmax | 2650 let cnt = ( cnt - 1 ) % g:netrw_dirhistmax |
3710 if cnt < 0 | 2651 if cnt < 0 |
3711 let cnt= cnt + g:netrw_dirhistmax | 2652 let cnt= cnt + g:netrw_dirhistmax |
3712 endif | 2653 endif |
3713 endwhile | 2654 endwhile |
3714 endif | 2655 endif |
3715 " call Dret("NetBookmarkMenu") | 2656 " call Dret("NetrwBookmarkMenu") |
3716 endfun | 2657 endfun |
3717 | 2658 |
3718 " --------------------------------------------------------------------- | 2659 " --------------------------------------------------------------------- |
3719 " NetObtain: obtain file under cursor (for remote browsing support) {{{2 | 2660 " s:NetrwBrowseChgDir: constructs a new directory based on the current {{{2 |
3720 fun! netrw#NetObtain(vismode,...) range | 2661 " directory and a new directory name. Also, if the |
3721 " call Dfunc("NetObtain(vismode=".a:vismode.") a:0=".a:0) | 2662 " "new directory name" is actually a file, |
3722 | 2663 " NetrwBrowseChgDir() edits the file. |
3723 if a:vismode == 0 | 2664 fun! s:NetrwBrowseChgDir(islocal,newdir,...) |
3724 " normal mode | 2665 " call Dfunc("s:NetrwBrowseChgDir(islocal=".a:islocal."> newdir<".a:newdir.">) a:0=".a:0." curpos<".string(getpos("."))."> b:netrw_curdir<".(exists("b:netrw_curdir")? b:netrw_curdir : "").">") |
3725 let fname= expand("<cWORD>") | 2666 |
3726 " call Decho("no arguments, use <".fname.">") | 2667 if !exists("b:netrw_curdir") |
3727 elseif a:vismode == 1 | 2668 " Don't try to change-directory: this can happen, for example, when netrw#ErrorMsg has been called |
3728 " visual mode | 2669 " and the current window is the NetrwMessage window. |
3729 let keeprega = @a | 2670 " call Decho("(NetrwBrowseChgDir) b:netrw_curdir doesn't exist!") |
3730 norm! gv"ay | 2671 " call Decho("getcwd<".getcwd().">") |
3731 if g:netrw_liststyle == s:THINLIST | 2672 " call Dredir("ls!") |
3732 " thin listing | 2673 " call Dret("s:NetrwBrowseChgDir") |
3733 let filelist= split(@a,'\n') | 2674 return |
3734 elseif g:netrw_liststyle == s:LONGLIST | 2675 endif |
3735 " long listing | 2676 |
3736 let filelist= split(substitute(@a,'\t.\{-}\n','\n','g'),'\n') | 2677 call s:NetrwOptionSave("s:") |
2678 call s:NetrwSafeOptions() | |
2679 let nbcd_curpos = netrw#NetrwSavePosn() | |
2680 let s:nbcd_curpos_{bufnr('%')} = nbcd_curpos | |
2681 let dirname = substitute(b:netrw_curdir,'\\','/','ge') | |
2682 let newdir = a:newdir | |
2683 let dolockout = 0 | |
2684 | |
2685 " set up o/s-dependent directory recognition pattern | |
2686 if has("amiga") | |
2687 let dirpat= '[\/:]$' | |
2688 else | |
2689 let dirpat= '[\/]$' | |
2690 endif | |
2691 " call Decho("dirname<".dirname."> dirpat<".dirpat.">") | |
2692 | |
2693 if dirname !~ dirpat | |
2694 " apparently vim is "recognizing" that it is in a directory and | |
2695 " is removing the trailing "/". Bad idea, so I put it back. | |
2696 let dirname= dirname.'/' | |
2697 " call Decho("adjusting dirname<".dirname.">") | |
2698 endif | |
2699 | |
2700 if newdir !~ dirpat | |
2701 " ------------ | |
2702 " edit a file: | |
2703 " ------------ | |
2704 " call Decho('case "handling a file": newdir<'.newdir.'> !~ dirpat<'.dirpat.">") | |
2705 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("w:netrw_treedict") && newdir !~ '^\(/\|\a:\)' | |
2706 let dirname= s:NetrwTreeDir() | |
2707 if dirname =~ '/$' | |
2708 let dirname= dirname.newdir | |
2709 else | |
2710 let dirname= s:NetrwTreeDir()."/".newdir | |
2711 endif | |
2712 " call Decho("tree listing") | |
2713 elseif newdir =~ '^\(/\|\a:\)' | |
2714 let dirname= newdir | |
3737 else | 2715 else |
3738 " wide listing | 2716 let dirname= s:ComposePath(dirname,newdir) |
3739 let filelist = split(substitute(@a,'\s\{2,}','\n','g'),'\n') | 2717 endif |
3740 let filelist = map(filelist,'substitute(v:val,"^\\s\\+","","")') | 2718 " call Decho("handling a file: dirname<".dirname."> (a:0=".a:0.")") |
3741 let filelist = map(filelist,'substitute(v:val,"\\s\\+$","","")') | 2719 " this lets NetrwBrowseX avoid the edit |
3742 endif | 2720 if a:0 < 1 |
3743 " call Decho("filelist<".string(filelist).">") | 2721 " call Decho("dirname<".dirname."> netrw_cd_escape<".g:netrw_cd_escape."> browse_split=".g:netrw_browse_split) |
3744 let @a= keeprega | 2722 " call Decho("set up windows for editing<".fnameescape(dirname)."> didsplit=".(exists("s:didsplit")? s:didsplit : "doesn't exist")) |
3745 for f in filelist | 2723 call s:NetrwOptionRestore("s:") |
3746 if f != "" | 2724 if !exists("s:didsplit") |
3747 call netrw#NetObtain(2,f) | 2725 if g:netrw_browse_split == 1 |
3748 endif | 2726 new |
3749 endfor | 2727 wincmd _ |
3750 " call Dret("NetObtain : visual mode handler") | 2728 elseif g:netrw_browse_split == 2 |
3751 return | 2729 rightb vert new |
3752 elseif a:vismode == 2 | 2730 wincmd | |
3753 " multiple file mode | 2731 elseif g:netrw_browse_split == 3 |
3754 let fname= a:1 | 2732 tabnew |
3755 " call Decho("visual mode handling: <".fname.">") | 2733 elseif g:netrw_browse_split == 4 |
3756 endif | 2734 if s:NetrwPrevWinOpen(2) == 3 |
3757 | 2735 " call Dret("s:NetrwBrowseChgDir") |
3758 " NetrwStatusLine support - for obtaining support | |
3759 call s:SetupNetrwStatusLine('%f %h%m%r%=%9*Obtaining '.fname) | |
3760 | |
3761 if exists("w:netrw_method") && w:netrw_method =~ '[235]' | |
3762 " call Decho("method=".w:netrw_method) | |
3763 if executable("ftp") | |
3764 " call Decho("ftp is executable, method=".w:netrw_method) | |
3765 let curdir = b:netrw_curdir | |
3766 let path = substitute(curdir,'ftp://[^/]\+/','','e') | |
3767 let curline= line(".") | |
3768 let endline= line("$")+1 | |
3769 setlocal ma noro | |
3770 keepjumps $ | |
3771 " call Decho("getcwd<".getcwd().">") | |
3772 " call Decho("curdir<".curdir.">") | |
3773 " call Decho("path<".path.">") | |
3774 " call Decho("curline=".curline) | |
3775 " call Decho("endline=".endline) | |
3776 | |
3777 "......................................... | |
3778 if w:netrw_method == 2 | |
3779 " ftp + <.netrc>: Method #2 | |
3780 setlocal ff=unix | |
3781 if path != "" | |
3782 put ='cd '.path | |
3783 " call Decho("ftp: cd ".path) | |
3784 endif | |
3785 put ='get '.fname | |
3786 " call Decho("ftp: get ".fname) | |
3787 put ='quit' | |
3788 " call Decho("ftp: quit") | |
3789 if exists("g:netrw_port") && g:netrw_port != "" | |
3790 " call Decho("exe ".g:netrw_silentxfer.endline.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) | |
3791 exe g:netrw_silentxfer.endline.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port | |
3792 else | |
3793 " call Decho("exe ".g:netrw_silentxfer.endline.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine) | |
3794 exe g:netrw_silentxfer.endline.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine | |
3795 endif | |
3796 | |
3797 "......................................... | |
3798 elseif w:netrw_method == 3 | |
3799 " ftp + machine,id,passwd,filename: Method #3 | |
3800 setlocal ff=unix | |
3801 if exists("g:netrw_port") && g:netrw_port != "" | |
3802 put ='open '.g:netrw_machine.' '.g:netrw_port | |
3803 " call Decho('ftp: open '.g:netrw_machine.' '.g:netrw_port) | |
3804 else | |
3805 put ='open '.g:netrw_machine | |
3806 " call Decho('ftp: open '.g:netrw_machine) | |
3807 endif | |
3808 | |
3809 if exists("g:netrw_ftp") && g:netrw_ftp == 1 | |
3810 put =g:netrw_uid | |
3811 put ='\"'.g:netrw_passwd.'\"' | |
3812 " call Decho('ftp: g:netrw_uid') | |
3813 " call Decho('ftp: g:netrw_passwd') | |
3814 else | |
3815 put ='user \"'.g:netrw_uid.'\" \"'.g:netrw_passwd.'\"' | |
3816 " call Decho('user '.g:netrw_uid.' '.g:netrw_passwd) | |
3817 endif | |
3818 | |
3819 if path != "" | |
3820 put ='cd '.path | |
3821 " call Decho('cd '.a:path) | |
3822 endif | |
3823 put ='get '.fname | |
3824 " call Decho("ftp: get ".fname) | |
3825 put ='quit' | |
3826 " call Decho("ftp: quit") | |
3827 | |
3828 " perform ftp: | |
3829 " -i : turns off interactive prompting from ftp | |
3830 " -n unix : DON'T use <.netrc>, even though it exists | |
3831 " -n win32: quit being obnoxious about password | |
3832 " call Decho("exe ".g:netrw_silentxfer.curline.",$!".g:netrw_ftp_cmd." -i -n") | |
3833 exe g:netrw_silentxfer.endline.",$!".g:netrw_ftp_cmd." -i -n" | |
3834 | |
3835 "......................................... | |
3836 else | |
3837 call netrw#ErrorMsg(s:WARNING,"unable to comply with your request<" . choice . ">",28) | |
3838 endif | |
3839 " restore | |
3840 exe "silent! ".endline.",$d" | |
3841 exe "keepjumps ".curline | |
3842 setlocal noma nomod ro | |
3843 else | |
3844 " call Decho("ftp not executable") | |
3845 if !exists("g:netrw_quiet") | |
3846 call netrw#ErrorMsg(s:ERROR,"this system doesn't support ftp",29) | |
3847 endif | |
3848 " restore status line | |
3849 let &stl = s:netrw_users_stl | |
3850 let &laststatus = s:netrw_users_ls | |
3851 " restore NetMethod | |
3852 if exists("keep_netrw_method") | |
3853 call s:NetMethod(keep_netrw_choice) | |
3854 let w:netrw_method = keep_netrw_wmethod | |
3855 endif | |
3856 " call Dret("NetObtain") | |
3857 return | |
3858 endif | |
3859 | |
3860 "......................................... | |
3861 else | |
3862 " scp: Method#4 | |
3863 " call Decho("using scp") | |
3864 let curdir = b:netrw_curdir | |
3865 let path = substitute(curdir,'scp://[^/]\+/','','e') | |
3866 " call Decho("path<".path.">") | |
3867 if exists("g:netrw_port") && g:netrw_port != "" | |
3868 let useport= " ".g:netrw_scpport." ".g:netrw_port | |
3869 else | |
3870 let useport= "" | |
3871 endif | |
3872 " call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".path.escape(fname,' ?&')." .") | |
3873 exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".path.escape(fname,' ?&')." ." | |
3874 endif | |
3875 endif | |
3876 | |
3877 " restore status line | |
3878 let &stl = s:netrw_users_stl | |
3879 let &laststatus = s:netrw_users_ls | |
3880 redraw! | |
3881 | |
3882 " restore NetMethod | |
3883 if exists("keep_netrw_method") | |
3884 call s:NetMethod(keep_netrw_choice) | |
3885 let w:netrw_method = keep_netrw_wmethod | |
3886 endif | |
3887 | |
3888 " call Dret("NetObtain") | |
3889 endfun | |
3890 | |
3891 " --------------------------------------------------------------------- | |
3892 " NetPrevWinOpen: open file/directory in previous window. {{{2 | |
3893 " If there's only one window, then the window will first be split. | |
3894 fun! s:NetPrevWinOpen(islocal) | |
3895 " call Dfunc("NetPrevWinOpen(islocal=".a:islocal.")") | |
3896 | |
3897 " get last window number and the word currently under the cursor | |
3898 let lastwinnr = winnr("$") | |
3899 let curword = s:NetGetWord() | |
3900 " call Decho("lastwinnr=".lastwinnr." curword<".curword.">") | |
3901 | |
3902 let didsplit = 0 | |
3903 if lastwinnr == 1 | |
3904 " if only one window, open a new one first | |
3905 " call Decho("only one window, so open a new one (g:netrw_alto=".g:netrw_alto.")") | |
3906 exe (g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s" | |
3907 let didsplit = 1 | |
3908 | |
3909 else | |
3910 wincmd p | |
3911 " if the previous window's buffer has been changed (is modified), | |
3912 " and it doesn't appear in any other extant window, then ask the | |
3913 " user if s/he wants to abandon modifications therein. | |
3914 let bnr = winbufnr(0) | |
3915 let bnrcnt = 0 | |
3916 if &mod | |
3917 windo if winbufnr(0) == bnr | let bnrcnt=bnrcnt+1 | endif | |
3918 " call Decho("bnr=".bnr." bnrcnt=".bnrcnt) | |
3919 if bnrcnt == 1 | |
3920 let bufname= bufname(winbufnr(winnr())) | |
3921 let choice= confirm("Save modified file<".bufname.">?","&Yes\n&No\n&Cancel") | |
3922 | |
3923 if choice == 1 | |
3924 " Yes -- write file & then browse | |
3925 let v:errmsg= "" | |
3926 silent w | |
3927 if v:errmsg != "" | |
3928 call netrw#ErrorMsg(s:ERROR,"unable to write <".bufname.">!",30) | |
3929 if didsplit | |
3930 q | |
3931 else | |
3932 wincmd p | |
3933 endif | |
3934 " call Dret("NetPrevWinOpen : unable to write <".bufname.">") | |
3935 return | 2736 return |
3936 endif | 2737 endif |
3937 | |
3938 elseif choice == 2 | |
3939 " No -- don't worry about changed file, just browse anyway | |
3940 setlocal nomod | |
3941 call netrw#ErrorMsg(s:WARNING,bufname." changes abandoned",31) | |
3942 | |
3943 else | 2738 else |
3944 " Cancel -- don't do this | 2739 " handling a file, didn't split, so remove menu |
3945 if didsplit | 2740 " call Decho("handling a file+didn't split, so remove menu") |
3946 q | 2741 call s:NetrwMenu(0) |
3947 else | 2742 " optional change to window |
3948 wincmd p | 2743 if g:netrw_chgwin >= 1 |
3949 endif | 2744 exe "keepjumps ".g:netrw_chgwin."wincmd w" |
3950 " call Dret("NetPrevWinOpen : cancelled") | |
3951 return | |
3952 endif | |
3953 endif | |
3954 endif | |
3955 endif | |
3956 | |
3957 if a:islocal | |
3958 call netrw#LocalBrowseCheck(s:NetBrowseChgDir(a:islocal,curword)) | |
3959 else | |
3960 call s:NetBrowse(a:islocal,s:NetBrowseChgDir(a:islocal,curword)) | |
3961 endif | |
3962 " call Dret("NetPrevWinOpen") | |
3963 endfun | |
3964 | |
3965 " --------------------------------------------------------------------- | |
3966 " NetMenu: generates the menu for gvim and netrw {{{2 | |
3967 fun! s:NetMenu(domenu) | |
3968 | |
3969 if !exists("g:NetrwMenuPriority") | |
3970 let g:NetrwMenuPriority= 80 | |
3971 endif | |
3972 | |
3973 if has("menu") && has("gui_running") && &go =~ 'm' && g:netrw_menu | |
3974 " call Dfunc("NetMenu(domenu=".a:domenu.")") | |
3975 | |
3976 if !exists("s:netrw_menu_enabled") && a:domenu | |
3977 " call Decho("initialize menu") | |
3978 let s:netrw_menu_enabled= 1 | |
3979 exe 'silent! menu '.g:NetrwMenuPriority.'.1 '.g:NetrwTopLvlMenu.'Help<tab><F1> <F1>' | |
3980 call s:NetBookmarkMenu() " provide some history! | |
3981 exe 'silent! menu '.g:NetrwMenuPriority.'.4 '.g:NetrwTopLvlMenu.'Go\ Up\ Directory<tab>- -' | |
3982 exe 'silent! menu '.g:NetrwMenuPriority.'.5 '.g:NetrwTopLvlMenu.'Apply\ Special\ Viewer<tab>x x' | |
3983 exe 'silent! menu '.g:NetrwMenuPriority.'.6 '.g:NetrwTopLvlMenu.'Bookmark\ Current\ Directory<tab>mb mb' | |
3984 exe 'silent! menu '.g:NetrwMenuPriority.'.7 '.g:NetrwTopLvlMenu.'Goto\ Bookmarked\ Directory<tab>gb gb' | |
3985 exe 'silent! menu '.g:NetrwMenuPriority.'.8 '.g:NetrwTopLvlMenu.'Change\ To\ Recently\ Used\ Directory<tab>u u' | |
3986 exe 'silent! menu '.g:NetrwMenuPriority.'.9 '.g:NetrwTopLvlMenu.'Change\ To\ Subsequently\ Used\ Directory<tab>U U' | |
3987 exe 'silent! menu '.g:NetrwMenuPriority.'.10 '.g:NetrwTopLvlMenu.'Delete\ File/Directory<tab>D D' | |
3988 exe 'silent! menu '.g:NetrwMenuPriority.'.11 '.g:NetrwTopLvlMenu.'Edit\ File\ Hiding\ List<tab>'."<ctrl-h> \<c-h>" | |
3989 exe 'silent! menu '.g:NetrwMenuPriority.'.12 '.g:NetrwTopLvlMenu.'Edit\ File/Directory<tab><cr> '."\<cr>" | |
3990 exe 'silent! menu '.g:NetrwMenuPriority.'.13 '.g:NetrwTopLvlMenu.'Edit\ File/Directory,\ New\ Window<tab>o o' | |
3991 exe 'silent! menu '.g:NetrwMenuPriority.'.14 '.g:NetrwTopLvlMenu.'Edit\ File/Directory,\ New\ Vertical\ Window<tab>v v' | |
3992 exe 'silent! menu '.g:NetrwMenuPriority.'.15 '.g:NetrwTopLvlMenu.'List\ Bookmarks\ and\ History<tab>q q' | |
3993 exe 'silent! menu '.g:NetrwMenuPriority.'.16 '.g:NetrwTopLvlMenu.'Listing\ Style\ (thin-long-wide)<tab>i i' | |
3994 exe 'silent! menu '.g:NetrwMenuPriority.'.17 '.g:NetrwTopLvlMenu.'Make\ Subdirectory<tab>d d' | |
3995 exe 'silent! menu '.g:NetrwMenuPriority.'.18 '.g:NetrwTopLvlMenu.'Normal-Hide-Show<tab>a a' | |
3996 exe 'silent! menu '.g:NetrwMenuPriority.'.19 '.g:NetrwTopLvlMenu.'Obtain\ File<tab>O O' | |
3997 exe 'silent! menu '.g:NetrwMenuPriority.'.20 '.g:NetrwTopLvlMenu.'Preview\ File/Directory<tab>p p' | |
3998 exe 'silent! menu '.g:NetrwMenuPriority.'.21 '.g:NetrwTopLvlMenu.'Previous\ Window\ Browser<tab>P P' | |
3999 exe 'silent! menu '.g:NetrwMenuPriority.'.22 '.g:NetrwTopLvlMenu.'Refresh\ Listing<tab>'."<ctrl-l> \<c-l>" | |
4000 exe 'silent! menu '.g:NetrwMenuPriority.'.23 '.g:NetrwTopLvlMenu.'Rename\ File/Directory<tab>R R' | |
4001 exe 'silent! menu '.g:NetrwMenuPriority.'.24 '.g:NetrwTopLvlMenu.'Reverse\ Sorting\ Order<tab>'."r r" | |
4002 exe 'silent! menu '.g:NetrwMenuPriority.'.25 '.g:NetrwTopLvlMenu.'Select\ Sorting\ Style<tab>s s' | |
4003 exe 'silent! menu '.g:NetrwMenuPriority.'.26 '.g:NetrwTopLvlMenu.'Sorting\ Sequence\ Edit<tab>S S' | |
4004 exe 'silent! menu '.g:NetrwMenuPriority.'.27 '.g:NetrwTopLvlMenu.'Set\ Current\ Directory<tab>c c' | |
4005 exe 'silent! menu '.g:NetrwMenuPriority.'.28 '.g:NetrwTopLvlMenu.'Settings/Options<tab>:NetrwSettings '.":NetrwSettings\<cr>" | |
4006 let s:netrw_menucnt= 28 | |
4007 | |
4008 elseif !a:domenu | |
4009 let s:netrwcnt = 0 | |
4010 let curwin = winnr() | |
4011 windo if getline(2) =~ "Netrw" | let s:netrwcnt= s:netrwcnt + 1 | endif | |
4012 exe curwin."wincmd w" | |
4013 | |
4014 if s:netrwcnt <= 1 | |
4015 " call Decho("clear menus") | |
4016 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Help' | |
4017 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Apply\ Special\ Viewer' | |
4018 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Bookmark\ Current\ Directory' | |
4019 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Go\ Up\ Directory' | |
4020 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Goto\ Bookmarked\ Directory' | |
4021 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Change\ To\ Recently\ Used\ Directory' | |
4022 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Change\ To\ Subsequently\ Used\ Directory' | |
4023 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Delete\ File/Directory' | |
4024 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Edit\ File/Directory' | |
4025 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Edit\ File/Directory,\ New\ Window' | |
4026 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Edit\ File/Directory,\ New\ Vertical\ Window' | |
4027 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Edit\ File\ Hiding\ List' | |
4028 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Edit\ File' | |
4029 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Enter\ File/Directory' | |
4030 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Enter\ File/Directory\ (vertical\ split)' | |
4031 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'List\ Bookmarks\ and\ History' | |
4032 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Listing\ Style\ (thin-long-wide)' | |
4033 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Make\ Subdirectory' | |
4034 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Normal-Hide-Show' | |
4035 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Obtain\ File' | |
4036 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Preview\ File/Directory' | |
4037 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Previous\ Window\ Browser' | |
4038 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Refresh\ Listing' | |
4039 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Rename\ File/Directory' | |
4040 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Reverse\ Sorting\ Order' | |
4041 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Select\ Sorting\ Style' | |
4042 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Sorting\ Sequence\ Edit' | |
4043 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Set\ Current\ Directory' | |
4044 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Settings/Options' | |
4045 exe 'silent! unmenu '.g:NetrwTopLvlMenu.'Bookmarks' | |
4046 silent! unlet s:netrw_menu_enabled | |
4047 endif | |
4048 endif | |
4049 " call Dret("NetMenu") | |
4050 endif | |
4051 | |
4052 endfun | |
4053 | |
4054 " ========================================== | |
4055 " Local Directory Browsing Support: {{{1 | |
4056 " ========================================== | |
4057 | |
4058 " --------------------------------------------------------------------- | |
4059 " LocalBrowseCheck: {{{2 | |
4060 fun! netrw#LocalBrowseCheck(dirname) | |
4061 " unfortunate interaction -- split window debugging can't be | |
4062 " " used here, must use DechoRemOn or DechoTabOn -- the BufEnter | |
4063 " event triggers another call to LocalBrowseCheck() when attempts | |
4064 " to write to the DBG buffer are made. | |
4065 " call Dfunc("LocalBrowseCheck(dirname<".a:dirname.">") | |
4066 if isdirectory(a:dirname) | |
4067 silent! call s:NetBrowse(1,a:dirname) | |
4068 endif | |
4069 " call Dret("LocalBrowseCheck") | |
4070 " not a directory, ignore it | |
4071 endfun | |
4072 | |
4073 " --------------------------------------------------------------------- | |
4074 " LocalListing: does the job of "ls" for local directories {{{2 | |
4075 fun! s:LocalListing() | |
4076 " call Dfunc("LocalListing() &ma=".&ma." &mod=".&mod." &ro=".&ro." buf(%)=".buf("%")) | |
4077 " if exists("b:netrw_curdir") |call Decho('b:netrw_curdir<'.b:netrw_curdir.">") |else|call Decho("b:netrw_curdir doesn't exist") |endif | |
4078 " if exists("g:netrw_sort_by")|call Decho('g:netrw_sort_by<'.g:netrw_sort_by.">")|else|call Decho("g:netrw_sort_by doesn't exist")|endif | |
4079 | |
4080 " get the list of files contained in the current directory | |
4081 let dirname = escape(b:netrw_curdir,s:netrw_glob_escape) | |
4082 let dirnamelen = strlen(b:netrw_curdir) | |
4083 let filelist = glob(s:ComposePath(dirname,"*")) | |
4084 " call Decho("glob(dirname<".dirname."/*>)=".filelist) | |
4085 if filelist != "" | |
4086 let filelist= filelist."\n" | |
4087 endif | |
4088 let filelist= filelist.glob(s:ComposePath(dirname,".*")) | |
4089 " call Decho("glob(dirname<".dirname."/.*>)=".glob(dirname.".*")) | |
4090 | |
4091 " if the directory name includes a "$", and possibly other characters, | |
4092 " the glob() doesn't include "." and ".." entries. | |
4093 if filelist !~ '[\\/]\.[\\/]\=\(\n\|$\)' | |
4094 " call Decho("forcibly tacking on .") | |
4095 if filelist == "" | |
4096 let filelist= s:ComposePath(dirname,"./") | |
4097 else | |
4098 let filelist= filelist."\n".s:ComposePath(b:netrw_curdir,"./") | |
4099 endif | |
4100 " call Decho("filelist<".filelist.">") | |
4101 endif | |
4102 if filelist !~ '[\\/]\.\.[\\/]\=\(\n\|$\)' | |
4103 " call Decho("forcibly tacking on ..") | |
4104 let filelist= filelist."\n".s:ComposePath(b:netrw_curdir,"../") | |
4105 " call Decho("filelist<".filelist.">") | |
4106 endif | |
4107 if b:netrw_curdir == '/' | |
4108 " remove .. from filelist when current directory is root directory | |
4109 let filelist= substitute(filelist,'/\.\.\n','','') | |
4110 " call Decho("remove .. from filelist") | |
4111 endif | |
4112 let filelist= substitute(filelist,'\n\{2,}','\n','ge') | |
4113 if (has("win32") || has("win95") || has("win64") || has("win16")) | |
4114 let filelist= substitute(filelist,'\','/','ge') | |
4115 else | |
4116 let filelist= substitute(filelist,'\','\\','ge') | |
4117 endif | |
4118 | |
4119 " call Decho("dirname<".dirname.">") | |
4120 " call Decho("dirnamelen<".dirnamelen.">") | |
4121 " call Decho("filelist<".filelist.">") | |
4122 | |
4123 while filelist != "" | |
4124 if filelist =~ '\n' | |
4125 let filename = substitute(filelist,'\n.*$','','e') | |
4126 let filelist = substitute(filelist,'^.\{-}\n\(.*\)$','\1','e') | |
4127 else | |
4128 let filename = filelist | |
4129 let filelist = "" | |
4130 endif | |
4131 let pfile= filename | |
4132 if isdirectory(filename) | |
4133 let pfile= filename."/" | |
4134 endif | |
4135 if pfile =~ '//$' | |
4136 let pfile= substitute(pfile,'//$','/','e') | |
4137 endif | |
4138 let pfile= strpart(pfile,dirnamelen) | |
4139 let pfile= substitute(pfile,'^[/\\]','','e') | |
4140 " call Decho(" ") | |
4141 " call Decho("filename<".filename.">") | |
4142 " call Decho("pfile <".pfile.">") | |
4143 | |
4144 if w:netrw_liststyle == s:LONGLIST | |
4145 let sz = getfsize(filename) | |
4146 let fsz = strpart(" ",1,15-strlen(sz)).sz | |
4147 let pfile= pfile."\t".fsz." ".strftime(g:netrw_timefmt,getftime(filename)) | |
4148 " call Decho("sz=".sz." fsz=".fsz) | |
4149 endif | |
4150 | |
4151 if g:netrw_sort_by =~ "^t" | |
4152 " sort by time (handles time up to 1 quintillion seconds, US) | |
4153 " call Decho("getftime(".filename.")=".getftime(filename)) | |
4154 let t = getftime(filename) | |
4155 let ft = strpart("000000000000000000",1,18-strlen(t)).t | |
4156 " call Decho("exe keepjumps put ='".ft.'/'.filename."'") | |
4157 let ftpfile= ft.'/'.pfile | |
4158 keepjumps silent! put=ftpfile | |
4159 | |
4160 elseif g:netrw_sort_by =~ "^s" | |
4161 " sort by size (handles file sizes up to 1 quintillion bytes, US) | |
4162 " call Decho("getfsize(".filename.")=".getfsize(filename)) | |
4163 let sz = getfsize(filename) | |
4164 let fsz = strpart("000000000000000000",1,18-strlen(sz)).sz | |
4165 " call Decho("exe keepjumps put ='".fsz.'/'.filename."'") | |
4166 let fszpfile= fsz.'/'.pfile | |
4167 keepjumps silent! put =fszpfile | |
4168 | |
4169 else | |
4170 " sort by name | |
4171 " call Decho("exe keepjumps put ='".pfile."'") | |
4172 keepjumps silent! put=pfile | |
4173 endif | |
4174 endwhile | |
4175 | |
4176 " cleanup any windows mess at end-of-line | |
4177 silent! keepjumps %s/\r$//e | |
4178 setlocal ts=32 | |
4179 " call Decho("setlocal ts=32") | |
4180 | |
4181 " call Dret("LocalListing") | |
4182 endfun | |
4183 | |
4184 " --------------------------------------------------------------------- | |
4185 " LocalBrowseShellCmdRefresh: this function is called after a user has {{{2 | |
4186 " performed any shell command. The idea is to cause all local-browsing | |
4187 " buffers to be refreshed after a user has executed some shell command, | |
4188 " on the chance that s/he removed/created a file/directory with it. | |
4189 fun! s:LocalBrowseShellCmdRefresh() | |
4190 " call Dfunc("LocalBrowseShellCmdRefresh() browselist=".string(s:netrw_browselist)) | |
4191 " determine which buffers currently reside in a tab | |
4192 let itab = 1 | |
4193 let buftablist = [] | |
4194 while itab <= tabpagenr("$") | |
4195 let buftablist= buftablist + tabpagebuflist() | |
4196 let itab= itab + 1 | |
4197 tabn | |
4198 endwhile | |
4199 " call Decho("buftablist".string(buftablist)) | |
4200 " GO through all buffers on netrw_browselist (ie. just local-netrw buffers): | |
4201 " | refresh any netrw window | |
4202 " | wipe out any non-displaying netrw buffer | |
4203 let curwin = winnr() | |
4204 let ibl = 0 | |
4205 for ibuf in s:netrw_browselist | |
4206 " call Decho("bufwinnr(".ibuf.") index(buftablist,".ibuf.")=".index(buftablist,ibuf)) | |
4207 if bufwinnr(ibuf) == -1 && index(buftablist,ibuf) == -1 | |
4208 " call Decho("wiping buf#".ibuf,"<".bufname(ibuf).">") | |
4209 exe "silent! bw ".ibuf | |
4210 call remove(s:netrw_browselist,ibl) | |
4211 " call Decho("browselist=".string(s:netrw_browselist)) | |
4212 continue | |
4213 elseif index(tabpagebuflist(),ibuf) != -1 | |
4214 " call Decho("refresh buf#".ibuf.'-> win#'.bufwinnr(ibuf)) | |
4215 exe bufwinnr(ibuf)."wincmd w" | |
4216 call s:NetRefresh(1,s:NetBrowseChgDir(1,'./')) | |
4217 endif | |
4218 let ibl= ibl + 1 | |
4219 endfor | |
4220 exe curwin."wincmd w" | |
4221 | |
4222 " call Dret("LocalBrowseShellCmdRefresh") | |
4223 endfun | |
4224 | |
4225 " --------------------------------------------------------------------- | |
4226 " LocalBrowseRm: {{{2 | |
4227 fun! s:LocalBrowseRm(path) range | |
4228 " call Dfunc("LocalBrowseRm(path<".a:path.">)") | |
4229 " call Decho("firstline=".a:firstline." lastline=".a:lastline) | |
4230 | |
4231 " preparation for removing multiple files/directories | |
4232 let ctr = a:firstline | |
4233 let ret = 0 | |
4234 let all= 0 | |
4235 | |
4236 " remove multiple files and directories | |
4237 while ctr <= a:lastline | |
4238 exe "keepjumps ".ctr | |
4239 | |
4240 " sanity checks | |
4241 if line(".") < w:netrw_bannercnt | |
4242 let ctr= ctr + 1 | |
4243 continue | |
4244 endif | |
4245 let curword= s:NetGetWord() | |
4246 if curword == "./" || curword == "../" | |
4247 let ctr= ctr + 1 | |
4248 continue | |
4249 endif | |
4250 | |
4251 norm! 0 | |
4252 let rmfile= s:ComposePath(a:path,curword) | |
4253 " call Decho("rmfile<".rmfile.">") | |
4254 | |
4255 if rmfile !~ '^"' && (rmfile =~ '@$' || rmfile !~ '[\/]$') | |
4256 " attempt to remove file | |
4257 if !all | |
4258 echohl Statement | |
4259 call inputsave() | |
4260 let ok= input("Confirm deletion of file<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") | |
4261 call inputrestore() | |
4262 echohl NONE | |
4263 if ok == "" | |
4264 let ok="no" | |
4265 endif | |
4266 " call Decho("response: ok<".ok.">") | |
4267 let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') | |
4268 " call Decho("response: ok<".ok."> (after sub)") | |
4269 if ok =~ 'a\%[ll]' | |
4270 let all= 1 | |
4271 endif | |
4272 endif | |
4273 | |
4274 if all || ok =~ 'y\%[es]' || ok == "" | |
4275 let ret= s:System("delete",rmfile) | |
4276 " call Decho("errcode=".v:shell_error." ret=".ret) | |
4277 elseif ok =~ 'q\%[uit]' | |
4278 break | |
4279 endif | |
4280 | |
4281 else | |
4282 " attempt to remove directory | |
4283 if !all | |
4284 echohl Statement | |
4285 call inputsave() | |
4286 let ok= input("Confirm deletion of directory<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") | |
4287 call inputrestore() | |
4288 let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') | |
4289 if ok == "" | |
4290 let ok="no" | |
4291 endif | |
4292 if ok =~ 'a\%[ll]' | |
4293 let all= 1 | |
4294 endif | |
4295 endif | |
4296 let rmfile= substitute(rmfile,'[\/]$','','e') | |
4297 | |
4298 if all || ok =~ 'y\%[es]' || ok == "" | |
4299 " call Decho("1st attempt: system(".g:netrw_local_rmdir.' "'.rmfile.'")') | |
4300 call s:System("system",g:netrw_local_rmdir.' "'.rmfile.'"') | |
4301 " call Decho("v:shell_error=".v:shell_error) | |
4302 | |
4303 if v:shell_error != 0 | |
4304 " call Decho("2nd attempt to remove directory<".rmfile.">") | |
4305 let errcode= s:System("delete",rmfile) | |
4306 " call Decho("errcode=".errcode) | |
4307 | |
4308 if errcode != 0 | |
4309 if has("unix") | |
4310 " call Decho("3rd attempt to remove directory<".rmfile.">") | |
4311 call s:System("system","rm ".rmfile) | |
4312 if v:shell_error != 0 && !exists("g:netrw_quiet") | |
4313 call netrw#ErrorMsg(s:ERROR,"unable to remove directory<".rmfile."> -- is it empty?",34) | |
4314 endif | |
4315 elseif !exists("g:netrw_quiet") | |
4316 call netrw#ErrorMsg(s:ERROR,"unable to remove directory<".rmfile."> -- is it empty?",35) | |
4317 endif | |
4318 endif | 2745 endif |
4319 endif | 2746 endif |
4320 | 2747 endif |
4321 elseif ok =~ 'q\%[uit]' | 2748 " the point where netrw actually edits the (local) file |
4322 break | 2749 " if its local only: LocalBrowseCheck() doesn't edit a file, but NetrwBrowse() will |
4323 endif | 2750 if a:islocal |
4324 endif | 2751 " call Decho("edit local file: exe e! ".fnameescape(dirname)) |
4325 | 2752 exe "e! ".fnameescape(dirname) |
4326 let ctr= ctr + 1 | |
4327 endwhile | |
4328 | |
4329 " refresh the directory | |
4330 let curline= line(".") | |
4331 " call Decho("refresh the directory") | |
4332 call s:NetRefresh(1,s:NetBrowseChgDir(1,'./')) | |
4333 exe curline | |
4334 | |
4335 " call Dret("LocalBrowseRm") | |
4336 endfun | |
4337 | |
4338 " --------------------------------------------------------------------- | |
4339 " LocalBrowseRename: rename a remote file or directory {{{2 | |
4340 fun! s:LocalBrowseRename(path) range | |
4341 " call Dfunc("LocalBrowseRename(path<".a:path.">)") | |
4342 | |
4343 " preparation for removing multiple files/directories | |
4344 let ctr= a:firstline | |
4345 | |
4346 " attempt to rename files/directories | |
4347 while ctr <= a:lastline | |
4348 exe "keepjumps ".ctr | |
4349 | |
4350 " sanity checks | |
4351 if line(".") < w:netrw_bannercnt | |
4352 let ctr= ctr + 1 | |
4353 continue | |
4354 endif | |
4355 let curword= s:NetGetWord() | |
4356 if curword == "./" || curword == "../" | |
4357 let ctr= ctr + 1 | |
4358 continue | |
4359 endif | |
4360 | |
4361 norm! 0 | |
4362 let oldname= s:ComposePath(a:path,curword) | |
4363 " call Decho("oldname<".oldname.">") | |
4364 | |
4365 call inputsave() | |
4366 let newname= input("Moving ".oldname." to : ",substitute(oldname,'/*$','','e')) | |
4367 call inputrestore() | |
4368 | |
4369 let ret= rename(oldname,newname) | |
4370 " call Decho("renaming <".oldname."> to <".newname.">") | |
4371 | |
4372 let ctr= ctr + 1 | |
4373 endwhile | |
4374 | |
4375 " refresh the directory | |
4376 " call Decho("refresh the directory listing") | |
4377 call netrw#NetSavePosn() | |
4378 call s:NetRefresh(1,s:NetBrowseChgDir(1,'./')) | |
4379 " call Dret("LocalBrowseRename") | |
4380 endfun | |
4381 | |
4382 " --------------------------------------------------------------------- | |
4383 " LocalFastBrowser: handles setting up/taking down fast browsing for the {{{2 | |
4384 " local browser | |
4385 " fastbrowse Local Remote Hiding a buffer implies it may be re-used (fast) | |
4386 " slow 0 D D Deleting a buffer implies it will not be re-used (slow) | |
4387 " med 1 D H | |
4388 " fast 2 H H | |
4389 fun! s:LocalFastBrowser() | |
4390 " call Dfunc("LocalFastBrowser() g:netrw_fastbrowse=".g:netrw_fastbrowse) | |
4391 | |
4392 " initialize browselist, a list of buffer numbers that the local browser has used | |
4393 if !exists("s:netrw_browselist") | |
4394 " call Decho("initialize s:netrw_browselist") | |
4395 let s:netrw_browselist= [] | |
4396 endif | |
4397 | |
4398 " append current buffer to fastbrowse list | |
4399 if g:netrw_fastbrowse <= 1 && (empty(s:netrw_browselist) || bufnr("%") > s:netrw_browselist[-1]) | |
4400 " call Decho("appendng current buffer to browselist") | |
4401 call add(s:netrw_browselist,bufnr("%")) | |
4402 " call Decho("browselist=".string(s:netrw_browselist)) | |
4403 endif | |
4404 | |
4405 " enable autocmd events to handle refreshing/removing local browser buffers | |
4406 " If local browse buffer is currently showing: refresh it | |
4407 " If local browse buffer is currently hidden : wipe it | |
4408 if !exists("s:netrw_browser_shellcmd") && g:netrw_fastbrowse <= 1 | |
4409 " call Decho("setting up local-browser shell command refresh") | |
4410 let s:netrw_browser_shellcmd= 1 | |
4411 augroup AuNetrwShellCmd | |
4412 au! | |
4413 if (has("win32") || has("win95") || has("win64") || has("win16")) | |
4414 au ShellCmdPost * call s:LocalBrowseShellCmdRefresh() | |
4415 else | 2753 else |
4416 au ShellCmdPost,FocusGained * call s:LocalBrowseShellCmdRefresh() | 2754 " call Decho("remote file: NetrwBrowse will edit it") |
4417 endif | 2755 endif |
4418 augroup END | 2756 let dolockout= 1 |
4419 endif | 2757 endif |
4420 | 2758 |
4421 " user must have changed fastbrowse to its fast setting, so remove | 2759 elseif newdir =~ '^/' |
4422 " the associated autocmd events | 2760 " --------------------------------- |
4423 if g:netrw_fastbrowse > 1 && exists("s:netrw_browser_shellcmd") | 2761 " just go to the new directory spec |
4424 " call Decho("remove AuNetrwShellCmd autcmd group") | 2762 " --------------------------------- |
4425 unlet s:netrw_browser_shellcmd | 2763 " call Decho('case "just go to new directory spec": newdir<'.newdir.'>') |
4426 augroup AuNetrwShellCmd | 2764 let dirname= newdir |
4427 au! | 2765 call s:SetRexDir(a:islocal,dirname) |
4428 augroup END | 2766 call s:NetrwOptionRestore("s:") |
4429 augroup! AuNetrwShellCmd | 2767 |
4430 endif | 2768 elseif newdir == './' |
4431 | 2769 " -------------------------- |
4432 " call Dret("LocalFastBrowser") | 2770 " refresh the directory list |
4433 endfun | 2771 " -------------------------- |
4434 | 2772 " call Decho('case "refresh directory listing": newdir == "./"') |
4435 " --------------------------------------------------------------------- | 2773 call s:SetRexDir(a:islocal,dirname) |
4436 " LocalObtain: copy selected file to current working directory {{{2 | 2774 |
4437 fun! s:LocalObtain() | 2775 elseif newdir == '../' |
4438 " call Dfunc("LocalObtain()") | 2776 " ------------------- |
4439 if exists("b:netrw_curdir") && getcwd() != b:netrw_curdir | 2777 " go up one directory |
4440 let fname= expand("<cWORD>") | 2778 " ------------------- |
4441 let fcopy= readfile(b:netrw_curdir."/".fname,"b") | 2779 " call Decho('case "go up one directory": newdir == "../"') |
4442 call writefile(fcopy,getcwd()."/".fname,"b") | 2780 |
4443 elseif !exists("b:netrw_curdir") | 2781 if w:netrw_liststyle == s:TREELIST && exists("w:netrw_treedict") |
4444 call netrw#ErrorMsg(s:ERROR,"local browsing directory doesn't exist!",36) | 2782 " force a refresh |
2783 " call Decho("clear buffer<".expand("%")."> with :%d") | |
2784 setlocal noro ma | |
2785 " call Decho("setlocal noro ma") | |
2786 keepjumps %d | |
2787 endif | |
2788 | |
2789 if has("amiga") | |
2790 " amiga | |
2791 " call Decho('case "go up one directory": newdir == "../" and amiga') | |
2792 if a:islocal | |
2793 let dirname= substitute(dirname,'^\(.*[/:]\)\([^/]\+$\)','\1','') | |
2794 let dirname= substitute(dirname,'/$','','') | |
2795 else | |
2796 let dirname= substitute(dirname,'^\(.*[/:]\)\([^/]\+/$\)','\1','') | |
2797 endif | |
2798 " call Decho("amiga: dirname<".dirname."> (go up one dir)") | |
2799 | |
2800 else | |
2801 " unix or cygwin | |
2802 " call Decho('case "go up one directory": newdir == "../" and unix or cygwin') | |
2803 if a:islocal | |
2804 let dirname= substitute(dirname,'^\(.*\)/\([^/]\+\)/$','\1','') | |
2805 if dirname == "" | |
2806 let dirname= '/' | |
2807 endif | |
2808 else | |
2809 let dirname= substitute(dirname,'^\(\a\+://.\{-}/\{1,2}\)\(.\{-}\)\([^/]\+\)/$','\1\2','') | |
2810 endif | |
2811 " call Decho("unix: dirname<".dirname."> (go up one dir)") | |
2812 endif | |
2813 call s:SetRexDir(a:islocal,dirname) | |
2814 | |
2815 elseif exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("w:netrw_treedict") | |
2816 " call Decho('case liststyle is TREELIST and w:netrw_treedict exists') | |
2817 " force a refresh (for TREELIST, wait for NetrwTreeDir() to force the refresh) | |
2818 setlocal noro ma | |
2819 " call Decho("setlocal noro ma") | |
2820 if !(exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("b:netrw_curdir")) | |
2821 " call Decho("clear buffer<".expand("%")."> with :%d") | |
2822 keepjumps %d | |
2823 endif | |
2824 let treedir = s:NetrwTreeDir() | |
2825 let s:treecurpos = nbcd_curpos | |
2826 let haskey= 0 | |
2827 " call Decho("w:netrw_treedict<".string(w:netrw_treedict).">") | |
2828 | |
2829 " search treedict for tree dir as-is | |
2830 if has_key(w:netrw_treedict,treedir) | |
2831 " call Decho('....searched for treedir<'.treedir.'> : found it!') | |
2832 let haskey= 1 | |
2833 else | |
2834 " call Decho('....searched for treedir<'.treedir.'> : not found') | |
2835 endif | |
2836 | |
2837 " search treedict for treedir with a / appended | |
2838 if !haskey && treedir !~ '/$' | |
2839 if has_key(w:netrw_treedict,treedir."/") | |
2840 let treedir= treedir."/" | |
2841 " call Decho('....searched.for treedir<'.treedir.'> found it!') | |
2842 let haskey = 1 | |
2843 else | |
2844 " call Decho('....searched for treedir<'.treedir.'/> : not found') | |
2845 endif | |
2846 endif | |
2847 | |
2848 " search treedict for treedir with any trailing / elided | |
2849 if !haskey && treedir =~ '/$' | |
2850 let treedir= substitute(treedir,'/$','','') | |
2851 if has_key(w:netrw_treedict,treedir) | |
2852 " call Decho('....searched.for treedir<'.treedir.'> found it!') | |
2853 let haskey = 1 | |
2854 else | |
2855 " call Decho('....searched for treedir<'.treedir.'> : not found') | |
2856 endif | |
2857 endif | |
2858 | |
2859 if haskey | |
2860 " close tree listing for selected subdirectory | |
2861 " call Decho("closing selected subdirectory<".dirname.">") | |
2862 call remove(w:netrw_treedict,treedir) | |
2863 " call Decho("removed entry<".dirname."> from treedict") | |
2864 " call Decho("yielding treedict<".string(w:netrw_treedict).">") | |
2865 let dirname= w:netrw_treetop | |
2866 else | |
2867 " go down one directory | |
2868 let dirname= substitute(treedir,'/*$','/','') | |
2869 " call Decho("go down one dir: treedir<".treedir.">") | |
2870 endif | |
2871 call s:SetRexDir(a:islocal,dirname) | |
2872 | |
4445 else | 2873 else |
4446 call netrw#ErrorMsg(s:ERROR,"local browsing directory and current directory are identical",37) | 2874 " go down one directory |
4447 endif | 2875 let dirname= s:ComposePath(dirname,newdir) |
4448 " call Dret("LocalObtain") | 2876 " call Decho("go down one dir: dirname<".dirname."> newdir<".newdir.">") |
2877 call s:SetRexDir(a:islocal,dirname) | |
2878 endif | |
2879 | |
2880 call s:NetrwOptionRestore("s:") | |
2881 if dolockout | |
2882 " call Decho("doing modification lockout settings: ma nomod noro") | |
2883 setlocal ma nomod noro | |
2884 " call Decho("setlocal ma nomod noro") | |
2885 endif | |
2886 | |
2887 " call Dret("s:NetrwBrowseChgDir <".dirname."> : curpos<".string(getpos(".")).">") | |
2888 return dirname | |
2889 endfun | |
2890 | |
2891 " --------------------------------------------------------------------- | |
2892 " s:NetrwBrowseX: allows users to write custom functions to operate on {{{2 | |
2893 " files given their extension. Passes 0=local, 1=remote | |
2894 fun! netrw#NetrwBrowseX(fname,remote) | |
2895 " call Dfunc("NetrwBrowseX(fname<".a:fname."> remote=".a:remote.")") | |
2896 | |
2897 " set up the filename | |
2898 " (lower case the extension, make a local copy of a remote file) | |
2899 let exten= substitute(a:fname,'.*\.\(.\{-}\)','\1','e') | |
2900 if has("win32") || has("win95") || has("win64") || has("win16") | |
2901 let exten= substitute(exten,'^.*$','\L&\E','') | |
2902 endif | |
2903 let fname= escape(a:fname,"%#") | |
2904 " call Decho("fname<".fname."> after escape()") | |
2905 | |
2906 " seems kde systems often have gnome-open due to dependencies, even though | |
2907 " gnome-open's subsidiary display tools are largely absent. Kde systems | |
2908 " usually have "kdeinit" running, though... (tnx Mikolaj Machowski) | |
2909 if !exists("s:haskdeinit") | |
2910 if has("unix") | |
2911 let s:haskdeinit= s:System("system",'ps -e') =~ 'kdeinit' | |
2912 if v:shell_error | |
2913 let s:haskdeinit = 0 | |
2914 endif | |
2915 else | |
2916 let s:haskdeinit= 0 | |
2917 endif | |
2918 " call Decho("setting s:haskdeinit=".s:haskdeinit) | |
2919 endif | |
2920 | |
2921 if a:remote == 1 | |
2922 " create a local copy | |
2923 let fname= fnamemodify(tempname(),":r").".".exten | |
2924 " call Decho("a:remote=".a:remote.": create a local copy of <".a:fname."> as <".fname.">") | |
2925 exe "silent keepjumps bot 1new ".a:fname | |
2926 setlocal bh=delete | |
2927 " call Decho("read <".fname.">, now writing: exe w! ".fname) | |
2928 exe "silent! w! ".fname | |
2929 q | |
2930 endif | |
2931 " call Decho("exten<".exten."> "."netrwFileHandlers#NFH_".exten."():exists=".exists("*netrwFileHandlers#NFH_".exten)) | |
2932 | |
2933 " set up redirection | |
2934 if &srr =~ "%s" | |
2935 if (has("win32") || has("win95") || has("win64") || has("win16")) | |
2936 let redir= substitute(&srr,"%s","nul","") | |
2937 else | |
2938 let redir= substitute(&srr,"%s","/dev/null","") | |
2939 endif | |
2940 elseif (has("win32") || has("win95") || has("win64") || has("win16")) | |
2941 let redir= &srr . "nul" | |
2942 else | |
2943 let redir= &srr . "/dev/null" | |
2944 endif | |
2945 " call Decho("redir{".redir."} srr{".&srr."}") | |
2946 | |
2947 " extract any viewing options. Assumes that they're set apart by quotes. | |
2948 if exists("g:netrw_browsex_viewer") | |
2949 if g:netrw_browsex_viewer =~ '\s' | |
2950 let viewer = substitute(g:netrw_browsex_viewer,'\s.*$','','') | |
2951 let viewopt = substitute(g:netrw_browsex_viewer,'^\S\+\s*','','')." " | |
2952 let oviewer = '' | |
2953 let cnt = 1 | |
2954 while !executable(viewer) && viewer != oviewer | |
2955 let viewer = substitute(g:netrw_browsex_viewer,'^\(\(^\S\+\s\+\)\{'.cnt.'}\S\+\)\(.*\)$','\1','') | |
2956 let viewopt = substitute(g:netrw_browsex_viewer,'^\(\(^\S\+\s\+\)\{'.cnt.'}\S\+\)\(.*\)$','\3','')." " | |
2957 let cnt = cnt + 1 | |
2958 let oviewer = viewer | |
2959 " call Decho("!exe: viewer<".viewer."> viewopt<".viewopt.">") | |
2960 endwhile | |
2961 else | |
2962 let viewer = g:netrw_browsex_viewer | |
2963 let viewopt = "" | |
2964 endif | |
2965 " call Decho("viewer<".viewer."> viewopt<".viewopt.">") | |
2966 endif | |
2967 | |
2968 " execute the file handler | |
2969 if exists("g:netrw_browsex_viewer") && g:netrw_browsex_viewer == '-' | |
2970 " call Decho("g:netrw_browsex_viewer<".g:netrw_browsex_viewer.">") | |
2971 let ret= netrwFileHandlers#Invoke(exten,fname) | |
2972 | |
2973 elseif exists("g:netrw_browsex_viewer") && executable(viewer) | |
2974 " call Decho("g:netrw_browsex_viewer<".g:netrw_browsex_viewer.">") | |
2975 " call Decho("exe silent !".viewer." ".viewopt.shellescape(fname).redir) | |
2976 exe "silent !".viewer." ".viewopt.shellescape(fname).redir | |
2977 let ret= v:shell_error | |
2978 | |
2979 elseif has("win32") || has("win64") | |
2980 " call Decho('exe silent !start rundll32 url.dll,FileProtocolHandler '.shellescape(fname)) | |
2981 exe 'silent !start rundll32 url.dll,FileProtocolHandler '.shellescape(fname) | |
2982 call inputsave()|call input("Press <cr> to continue")|call inputrestore() | |
2983 let ret= v:shell_error | |
2984 | |
2985 elseif has("unix") && executable("gnome-open") && !s:haskdeinit | |
2986 " call Decho("exe silent !gnome-open ".shellescape(fname)." ".redir) | |
2987 exe "silent !gnome-open ".shellescape(fname).redir | |
2988 let ret= v:shell_error | |
2989 | |
2990 elseif has("unix") && executable("kfmclient") && s:haskdeinit | |
2991 " call Decho("exe silent !kfmclient exec ".shellescape(fname)." ".redir) | |
2992 exe "silent !kfmclient exec ".shellescape(fname)." ".redir | |
2993 let ret= v:shell_error | |
2994 | |
2995 elseif has("macunix") && executable("open") | |
2996 " call Decho("exe silent !open ".shellescape(fname)." ".redir) | |
2997 exe "silent !open ".shellescape(fname)." ".redir | |
2998 let ret= v:shell_error | |
2999 | |
3000 else | |
3001 " netrwFileHandlers#Invoke() always returns 0 | |
3002 let ret= netrwFileHandlers#Invoke(exten,fname) | |
3003 endif | |
3004 | |
3005 " if unsuccessful, attempt netrwFileHandlers#Invoke() | |
3006 if ret | |
3007 let ret= netrwFileHandlers#Invoke(exten,fname) | |
3008 endif | |
3009 | |
3010 " redraw! | |
3011 | |
3012 " cleanup: remove temporary file, | |
3013 " delete current buffer if success with handler, | |
3014 " return to prior buffer (directory listing) | |
3015 " Feb 12, 2008: had to de-activiate removal of | |
3016 " temporary file because it wasn't getting seen. | |
3017 " if a:remote == 1 && fname != a:fname | |
3018 " call Decho("deleting temporary file<".fname.">") | |
3019 " call s:System("delete",fname) | |
3020 " endif | |
3021 | |
3022 if a:remote == 1 | |
3023 setlocal bh=delete bt=nofile | |
3024 if g:netrw_use_noswf | |
3025 setlocal noswf | |
3026 endif | |
3027 exe "norm! \<c-o>" | |
3028 " redraw! | |
3029 endif | |
3030 | |
3031 " call Dret("NetrwBrowseX") | |
4449 endfun | 3032 endfun |
4450 | 3033 |
4451 " --------------------------------------------------------------------- | 3034 " --------------------------------------------------------------------- |
4452 " netrw#Explore: launch the local browser in the directory of the current file {{{2 | 3035 " netrw#Explore: launch the local browser in the directory of the current file {{{2 |
4453 " dosplit==0: the window will be split iff the current file has | 3036 " dosplit==0: the window will be split iff the current file has |
4506 call s:RestoreWinVars() | 3089 call s:RestoreWinVars() |
4507 endif | 3090 endif |
4508 norm! 0 | 3091 norm! 0 |
4509 | 3092 |
4510 if a:0 > 0 | 3093 if a:0 > 0 |
4511 " call Decho("a:1<".a:1.">") | 3094 " call Decho("case [a:0=".a:0."]>0: a:1<".a:1.">") |
4512 if a:1 =~ '^\~' && (has("unix") || (exists("g:netrw_cygwin") && g:netrw_cygwin)) | 3095 if a:1 =~ '^\~' && (has("unix") || (exists("g:netrw_cygwin") && g:netrw_cygwin)) |
4513 let dirname= substitute(a:1,'\~',expand("$HOME"),'') | 3096 let dirname= substitute(a:1,'\~',expand("$HOME"),'') |
4514 " call Decho("using dirname<".dirname."> (case: ~ && unix||cygwin)") | 3097 " call Decho("using dirname<".dirname."> (case: ~ && unix||cygwin)") |
4515 elseif a:1 == '.' | 3098 elseif a:1 == '.' |
4516 let dirname= exists("b:netrw_curdir")? b:netrw_curdir : getcwd() | 3099 let dirname= exists("b:netrw_curdir")? b:netrw_curdir : getcwd() |
4522 let dirname= expand(a:1) | 3105 let dirname= expand(a:1) |
4523 else | 3106 else |
4524 let dirname= a:1 | 3107 let dirname= a:1 |
4525 " call Decho("using dirname<".dirname.">") | 3108 " call Decho("using dirname<".dirname.">") |
4526 endif | 3109 endif |
4527 endif | 3110 else |
4528 | 3111 " clear explore |
4529 if dirname =~ '^\*/' | 3112 " call Decho("clearing explore variables") |
4530 " Explore */pattern | 3113 2match none |
4531 " call Decho("case Explore */pattern") | 3114 if exists("s:explore_match") |unlet s:explore_match |endif |
4532 let pattern= substitute(dirname,'^\*/\(.*\)$','\1','') | 3115 if exists("s:explore_indx") |unlet s:explore_indx |endif |
4533 " call Decho("Explore */pat: dirname<".dirname."> -> pattern<".pattern.">") | 3116 if exists("s:dirstarstar") |unlet s:dirstarstar |endif |
3117 if exists("s:dirstarstar") |unlet s:dirstarstar |endif | |
3118 if exists("w:netrw_explore_indx") |unlet w:netrw_explore_indx |endif | |
3119 if exists("w:netrw_explore_listlen")|unlet w:netrw_explore_listlen|endif | |
3120 if exists("w:netrw_explore_list") |unlet w:netrw_explore_list |endif | |
3121 if exists("w:netrw_explore_bufnr") |unlet w:netrw_explore_bufnr |endif | |
3122 " redraw! | |
3123 echo " " | |
3124 echo " " | |
3125 " call Dret("netrw#Explore : cleared list") | |
3126 return | |
3127 endif | |
3128 | |
3129 if dirname =~ '/\*\*/' | |
3130 " handle .../**/.../filepat | |
3131 " call Decho("case Explore .../**/.../filepat") | |
3132 let prefixdir= substitute(dirname,'^\(.\{-}\)\*\*.*$','\1','') | |
3133 if prefixdir =~ '^/' || (prefixdir =~ '^\a:/' && (has("win32") || has("win95") || has("win64") || has("win16"))) | |
3134 let b:netrw_curdir = prefixdir | |
3135 else | |
3136 let b:netrw_curdir= getcwd().'/'.prefixdir | |
3137 endif | |
3138 let dirname= substitute(dirname,'^.\{-}\(\*\*/.*\)$','\1','') | |
3139 let starpat= 4; | |
3140 " call Decho("pwd<".getcwd()."> dirname<".dirname.">") | |
3141 " call Decho("case Explore ../**/../filepat (starpat=".starpat.")") | |
3142 | |
3143 elseif dirname =~ '^\*//' | |
3144 " starpat=1: Explore *//pattern (current directory only search for files containing pattern) | |
3145 " call Decho("case Explore *//pattern") | |
3146 let pattern= substitute(dirname,'^\*//\(.*\)$','\1','') | |
3147 let starpat= 1 | |
3148 " call Decho("Explore *//pat: (starpat=".starpat.") dirname<".dirname."> -> pattern<".pattern.">") | |
4534 if &hls | let keepregslash= s:ExplorePatHls(pattern) | endif | 3149 if &hls | let keepregslash= s:ExplorePatHls(pattern) | endif |
3150 | |
4535 elseif dirname =~ '^\*\*//' | 3151 elseif dirname =~ '^\*\*//' |
4536 " Explore **//pattern | 3152 " starpat=2: Explore **//pattern (recursive descent search for files containing pattern) |
4537 " call Decho("case Explore **//pattern") | 3153 " call Decho("case Explore **//pattern") |
4538 let pattern = substitute(dirname,'^\*\*//','','') | 3154 let pattern= substitute(dirname,'^\*\*//','','') |
4539 let starstarpat = 1 | 3155 let starpat= 2 |
4540 " call Decho("Explore **//pat: dirname<".dirname."> -> pattern<".pattern.">") | 3156 " call Decho("Explore **//pat: (starpat=".starpat.") dirname<".dirname."> -> pattern<".pattern.">") |
4541 endif | 3157 |
4542 | 3158 elseif dirname =~ '^\*/' |
4543 if dirname == "" && a:indx >= 0 | 3159 " starpat=3: Explore */filepat (search in current directory for filenames matching filepat) |
4544 " Explore Hexplore Vexplore Sexplore | 3160 let starpat= 3 |
4545 " call Decho("case Explore Hexplore Vexplore Sexplore") | 3161 " call Decho("case Explore */filepat (starpat=".starpat.")") |
4546 let newdir= substitute(expand("%:p"),'^\(.*[/\\]\)[^/\\]*$','\1','e') | 3162 |
4547 if newdir =~ '^scp:' || newdir =~ '^ftp:' | 3163 elseif dirname=~ '^\*\*/' |
4548 " call Decho("calling NetBrowse(0,newdir<".newdir.">)") | 3164 " starpat=4: Explore **/filepat (recursive descent search for filenames matching filepat) |
4549 call s:NetBrowse(0,newdir) | 3165 let starpat= 4 |
3166 " call Decho("case Explore **/filepat (starpat=".starpat.")") | |
3167 else | |
3168 let starpat= 0 | |
3169 endif | |
3170 | |
3171 if starpat == 0 && a:indx >= 0 | |
3172 " [Explore Hexplore Vexplore Sexplore] [dirname] | |
3173 " call Decho("case dirname<".dirname."> a:indx=".a:indx.": Explore Hexplore Vexplore Sexplore") | |
3174 if dirname == "" | |
3175 let dirname= substitute(expand("%:p"),'^\(.*[/\\]\)[^/\\]*$','\1','e') | |
3176 endif | |
3177 if dirname =~ '^scp:' || dirname =~ '^ftp:' | |
3178 " call Decho("calling NetrwBrowse(0,dirname<".dirname.">)") | |
3179 call s:NetrwBrowse(0,dirname) | |
4550 else | 3180 else |
4551 if newdir == ""|let newdir= getcwd()|endif | 3181 if dirname == ""|let dirname= getcwd()|endif |
4552 " call Decho("calling LocalBrowseCheck(newdir<".newdir.">)") | 3182 " call Decho("calling LocalBrowseCheck(dirname<".dirname.">)") |
4553 call netrw#LocalBrowseCheck(newdir) | 3183 call netrw#LocalBrowseCheck(dirname) |
4554 endif | 3184 endif |
4555 call search('\<'.substitute(curfile,'^.*/','','e').'\>','cW') | 3185 |
4556 | 3186 " call Decho("curfile<".curfile.">") |
4557 elseif dirname =~ '^\*\*/' || a:indx < 0 || dirname =~ '^\*/' | 3187 if has("win32") || has("win95") || has("win64") || has("win16") |
4558 " Nexplore, Pexplore, Explore **/... , or Explore */pattern | 3188 call search('\<'.substitute(curfile,'^.*[/\\]','','e').'\>','cW') |
4559 " call Decho("case Nexplore, Pexplore, <s-down>, <s-up>, Explore dirname<".dirname.">") | 3189 else |
3190 call search('\<'.substitute(curfile,'^.*/','','e').'\>','cW') | |
3191 endif | |
3192 | |
3193 " starpat=1: Explore *//pattern (current directory only search for files containing pattern) | |
3194 " starpat=2: Explore **//pattern (recursive descent search for files containing pattern) | |
3195 " starpat=3: Explore */filepat (search in current directory for filenames matching filepat) | |
3196 " starpat=4: Explore **/filepat (recursive descent search for filenames matching filepat) | |
3197 elseif a:indx <= 0 | |
3198 " Nexplore, Pexplore, Explore: handle starpat | |
3199 " call Decho("case Nexplore, Pexplore, <s-down>, <s-up>: starpat=".starpat." a:indx=".a:indx) | |
4560 if !mapcheck("<s-up>","n") && !mapcheck("<s-down>","n") && exists("b:netrw_curdir") | 3200 if !mapcheck("<s-up>","n") && !mapcheck("<s-down>","n") && exists("b:netrw_curdir") |
4561 " call Decho("set up <s-up> and <s-down> maps") | 3201 " call Decho("set up <s-up> and <s-down> maps") |
4562 let s:didstarstar= 1 | 3202 let s:didstarstar= 1 |
4563 nnoremap <buffer> <silent> <s-up> :Pexplore<cr> | 3203 nnoremap <buffer> <silent> <s-up> :Pexplore<cr> |
4564 nnoremap <buffer> <silent> <s-down> :Nexplore<cr> | 3204 nnoremap <buffer> <silent> <s-down> :Nexplore<cr> |
4565 endif | 3205 endif |
4566 | 3206 |
4567 if has("path_extra") | 3207 if has("path_extra") |
4568 " call Decho("has path_extra") | 3208 " call Decho("starpat=".starpat.": has +path_extra") |
4569 if !exists("w:netrw_explore_indx") | 3209 if !exists("w:netrw_explore_indx") |
4570 let w:netrw_explore_indx= 0 | 3210 let w:netrw_explore_indx= 0 |
4571 endif | 3211 endif |
4572 let indx = a:indx | 3212 let indx = a:indx |
4573 " call Decho("set indx= [a:indx=".indx."]") | 3213 " call Decho("starpat=".starpat.": set indx= [a:indx=".indx."]") |
4574 " | 3214 " |
4575 if indx == -1 | 3215 if indx == -1 |
4576 "Nexplore | 3216 " Nexplore |
4577 " call Decho("case Nexplore: (indx=".indx.")") | 3217 " call Decho("case Nexplore with starpat=".starpat.": (indx=".indx.")") |
4578 if !exists("w:netrw_explore_list") " sanity check | 3218 if !exists("w:netrw_explore_list") " sanity check |
4579 call netrw#ErrorMsg(s:WARNING,"using Nexplore or <s-down> improperly; see help for netrw-starstar",40) | 3219 call netrw#ErrorMsg(s:WARNING,"using Nexplore or <s-down> improperly; see help for netrw-starstar",40) |
4580 silent! let @* = keepregstar | 3220 silent! let @* = keepregstar |
4581 silent! let @+ = keepregstar | 3221 silent! let @+ = keepregstar |
4582 silent! let @/ = keepregslash | 3222 silent! let @/ = keepregslash |
4594 endwhile | 3234 endwhile |
4595 if indx >= w:netrw_explore_listlen | let indx= w:netrw_explore_listlen - 1 | endif | 3235 if indx >= w:netrw_explore_listlen | let indx= w:netrw_explore_listlen - 1 | endif |
4596 " call Decho("Nexplore: indx= [w:netrw_explore_indx=".w:netrw_explore_indx."]=".indx) | 3236 " call Decho("Nexplore: indx= [w:netrw_explore_indx=".w:netrw_explore_indx."]=".indx) |
4597 | 3237 |
4598 elseif indx == -2 | 3238 elseif indx == -2 |
4599 "Pexplore | 3239 " Pexplore |
4600 " call Decho("case Pexplore: (indx=".indx.")") | 3240 " call Decho("case Pexplore with starpat=".starpat.": (indx=".indx.")") |
4601 if !exists("w:netrw_explore_list") " sanity check | 3241 if !exists("w:netrw_explore_list") " sanity check |
4602 call netrw#ErrorMsg(s:WARNING,"using Pexplore or <s-up> improperly; see help for netrw-starstar",41) | 3242 call netrw#ErrorMsg(s:WARNING,"using Pexplore or <s-up> improperly; see help for netrw-starstar",41) |
4603 silent! let @* = keepregstar | 3243 silent! let @* = keepregstar |
4604 silent! let @+ = keepregstar | 3244 silent! let @+ = keepregstar |
4605 silent! let @/ = keepregslash | 3245 silent! let @/ = keepregslash |
4619 " call Decho("Pexplore: indx= [w:netrw_explore_indx=".w:netrw_explore_indx."]=".indx) | 3259 " call Decho("Pexplore: indx= [w:netrw_explore_indx=".w:netrw_explore_indx."]=".indx) |
4620 | 3260 |
4621 else | 3261 else |
4622 " Explore -- initialize | 3262 " Explore -- initialize |
4623 " build list of files to Explore with Nexplore/Pexplore | 3263 " build list of files to Explore with Nexplore/Pexplore |
4624 " call Decho("case Explore: initialize (indx=".indx.")") | 3264 " call Decho("starpat=".starpat.": case Explore: initialize (indx=".indx.")") |
4625 let w:netrw_explore_indx= 0 | 3265 let w:netrw_explore_indx= 0 |
4626 if !exists("b:netrw_curdir") | 3266 if !exists("b:netrw_curdir") |
4627 let b:netrw_curdir= getcwd() | 3267 let b:netrw_curdir= getcwd() |
4628 endif | 3268 endif |
4629 " call Decho("b:netrw_curdir<".b:netrw_curdir.">") | 3269 " call Decho("starpat=".starpat.": b:netrw_curdir<".b:netrw_curdir.">") |
4630 | 3270 |
4631 if exists("pattern") | 3271 " switch on starpat to build the w:netrw_explore_list of files |
4632 " call Decho("pattern exists: building list pattern<".pattern."> cwd<".getcwd().">") | 3272 if starpat == 1 |
4633 if exists("starstarpat") | 3273 " starpat=1: Explore *//pattern (current directory only search for files containing pattern) |
4634 " call Decho("starstarpat<".starstarpat.">") | 3274 " call Decho("starpat=".starpat.": build *//pattern list") |
4635 try | 3275 exe "vimgrep /".pattern."/gj ".b:netrw_curdir."/*" |
4636 exe "silent vimgrep /".pattern."/gj "."**/*" | 3276 let w:netrw_explore_list = map(getqflist(),'bufname(v:val.bufnr)') |
4637 catch /^Vim\%((\a\+)\)\=:E480/ | 3277 if &hls | let keepregslash= s:ExplorePatHls(pattern) | endif |
4638 call netrw#ErrorMsg(s:WARNING,'no files matched pattern<'.pattern.'>',45) | 3278 |
4639 if &hls | let keepregslash= s:ExplorePatHls(pattern) | endif | 3279 elseif starpat == 2 |
4640 silent! let @* = keepregstar | 3280 " starpat=2: Explore **//pattern (recursive descent search for files containing pattern) |
4641 silent! let @+ = keepregstar | 3281 " call Decho("starpat=".starpat.": build **//pattern list") |
4642 silent! let @/ = keepregslash | 3282 try |
4643 " call Dret("netrw#Explore : no files matched pattern") | 3283 exe "silent vimgrep /".pattern."/gj "."**/*" |
4644 return | 3284 catch /^Vim\%((\a\+)\)\=:E480/ |
4645 endtry | 3285 call netrw#ErrorMsg(s:WARNING,'no files matched pattern<'.pattern.'>',45) |
4646 let s:netrw_curdir = b:netrw_curdir | |
4647 let w:netrw_explore_list = getqflist() | |
4648 let w:netrw_explore_list = map(w:netrw_explore_list,'s:netrw_curdir."/".bufname(v:val.bufnr)') | |
4649 else | |
4650 " call Decho("no starstarpat") | |
4651 exe "vimgrep /".pattern."/gj ".b:netrw_curdir."/*" | |
4652 let w:netrw_explore_list = map(getqflist(),'bufname(v:val.bufnr)') | |
4653 if &hls | let keepregslash= s:ExplorePatHls(pattern) | endif | 3286 if &hls | let keepregslash= s:ExplorePatHls(pattern) | endif |
4654 endif | 3287 silent! let @* = keepregstar |
4655 else | 3288 silent! let @+ = keepregstar |
4656 " call Decho("no pattern: building list based on ".b:netrw_curdir."/".dirname) | 3289 silent! let @/ = keepregslash |
3290 " call Dret("netrw#Explore : no files matched pattern") | |
3291 return | |
3292 endtry | |
3293 let s:netrw_curdir = b:netrw_curdir | |
3294 let w:netrw_explore_list = getqflist() | |
3295 let w:netrw_explore_list = map(w:netrw_explore_list,'s:netrw_curdir."/".bufname(v:val.bufnr)') | |
3296 | |
3297 elseif starpat == 3 | |
3298 " starpat=3: Explore */filepat (search in current directory for filenames matching filepat) | |
3299 " call Decho("starpat=".starpat.": build */filepat list") | |
3300 let dirname = substitute(dirname,'^\*/','','') | |
4657 let w:netrw_explore_list= split(expand(b:netrw_curdir."/".dirname),'\n') | 3301 let w:netrw_explore_list= split(expand(b:netrw_curdir."/".dirname),'\n') |
4658 if &hls | let keepregslash= s:ExplorePatHls(dirname) | endif | 3302 if &hls | let keepregslash= s:ExplorePatHls(dirname) | endif |
4659 endif | 3303 |
3304 elseif starpat == 4 | |
3305 " starpat=4: Explore **/filepat (recursive descent search for filenames matching filepat) | |
3306 " call Decho("starpat=".starpat.": build **/filepat list") | |
3307 let w:netrw_explore_list= split(expand(b:netrw_curdir."/".dirname),'\n') | |
3308 if &hls | let keepregslash= s:ExplorePatHls(dirname) | endif | |
3309 endif " switch on starpat to build w:netrw_explore_list | |
4660 | 3310 |
4661 let w:netrw_explore_listlen = len(w:netrw_explore_list) | 3311 let w:netrw_explore_listlen = len(w:netrw_explore_list) |
4662 " call Decho("w:netrw_explore_list<".string(w:netrw_explore_list)."> listlen=".w:netrw_explore_listlen) | 3312 " call Decho("w:netrw_explore_list<".string(w:netrw_explore_list).">") |
3313 " call Decho("w:netrw_explore_listlen=".w:netrw_explore_listlen) | |
4663 | 3314 |
4664 if w:netrw_explore_listlen == 0 || (w:netrw_explore_listlen == 1 && w:netrw_explore_list[0] =~ '\*\*\/') | 3315 if w:netrw_explore_listlen == 0 || (w:netrw_explore_listlen == 1 && w:netrw_explore_list[0] =~ '\*\*\/') |
4665 call netrw#ErrorMsg(s:WARNING,"no files matched",42) | 3316 call netrw#ErrorMsg(s:WARNING,"no files matched",42) |
4666 silent! let @* = keepregstar | 3317 silent! let @* = keepregstar |
4667 silent! let @+ = keepregstar | 3318 silent! let @+ = keepregstar |
4668 silent! let @/ = keepregslash | 3319 silent! let @/ = keepregslash |
4669 " call Dret("netrw#Explore : no files matched") | 3320 " call Dret("netrw#Explore : no files matched") |
4670 return | 3321 return |
4671 endif | 3322 endif |
4672 endif | 3323 endif " if indx ... endif |
4673 | 3324 |
4674 " NetrwStatusLine support - for exploring support | 3325 " NetrwStatusLine support - for exploring support |
4675 let w:netrw_explore_indx= indx | 3326 let w:netrw_explore_indx= indx |
4676 " call Decho("explorelist<".join(w:netrw_explore_list,',')."> len=".w:netrw_explore_listlen) | 3327 " call Decho("explorelist<".join(w:netrw_explore_list,',')."> len=".w:netrw_explore_listlen) |
4677 | 3328 |
4704 let w:netrw_explore_line = line(".") | 3355 let w:netrw_explore_line = line(".") |
4705 call s:SetupNetrwStatusLine('%f %h%m%r%=%9*%{NetrwStatusLine()}') | 3356 call s:SetupNetrwStatusLine('%f %h%m%r%=%9*%{NetrwStatusLine()}') |
4706 " call Decho("explore: mtchcnt=".w:netrw_explore_mtchcnt." bufnr=".w:netrw_explore_bufnr." line#".w:netrw_explore_line) | 3357 " call Decho("explore: mtchcnt=".w:netrw_explore_mtchcnt." bufnr=".w:netrw_explore_bufnr." line#".w:netrw_explore_line) |
4707 | 3358 |
4708 else | 3359 else |
4709 " call Decho("vim does not have path_extra") | 3360 " call Decho("your vim does not have +path_extra") |
4710 if !exists("g:netrw_quiet") | 3361 if !exists("g:netrw_quiet") |
4711 call netrw#ErrorMsg(s:WARNING,"your vim needs the +path_extra feature for Exploring with **!",44) | 3362 call netrw#ErrorMsg(s:WARNING,"your vim needs the +path_extra feature for Exploring with **!",44) |
4712 endif | 3363 endif |
4713 silent! let @* = keepregstar | 3364 silent! let @* = keepregstar |
4714 silent! let @+ = keepregstar | 3365 silent! let @+ = keepregstar |
4725 endif | 3376 endif |
4726 let newdir= dirname | 3377 let newdir= dirname |
4727 if !exists("b:netrw_curdir") | 3378 if !exists("b:netrw_curdir") |
4728 call netrw#LocalBrowseCheck(getcwd()) | 3379 call netrw#LocalBrowseCheck(getcwd()) |
4729 else | 3380 else |
4730 call netrw#LocalBrowseCheck(s:NetBrowseChgDir(1,newdir)) | 3381 call netrw#LocalBrowseCheck(s:NetrwBrowseChgDir(1,newdir)) |
4731 endif | 3382 endif |
3383 endif | |
3384 | |
3385 " visual display of **/ **// */ Exploration files | |
3386 if exists("w:netrw_explore_indx") && exists("b:netrw_curdir") | |
3387 if !exists("s:explore_prvdir") || s:explore_prvdir != b:netrw_curdir | |
3388 " only update match list if current directory isn't the same as before | |
3389 let s:explore_prvdir = b:netrw_curdir | |
3390 let s:explore_match = "" | |
3391 let dirlen = strlen(b:netrw_curdir) | |
3392 if b:netrw_curdir !~ '/$' | |
3393 let dirlen= dirlen + 1 | |
3394 endif | |
3395 let prvfname= "" | |
3396 for fname in w:netrw_explore_list | |
3397 " call Decho("fname<".fname.">") | |
3398 if fname =~ '^'.b:netrw_curdir | |
3399 if s:explore_match == "" | |
3400 let s:explore_match= '\<'.escape(strpart(fname,dirlen),g:netrw_markfileesc."'".g:netrw_markfileesc."'").'\>' | |
3401 else | |
3402 let s:explore_match= s:explore_match.'\|\<'.escape(strpart(fname,dirlen),g:netrw_markfileesc."'".g:netrw_markfileesc."'").'\>' | |
3403 endif | |
3404 elseif fname !~ '^/' && fname != prvfname | |
3405 if s:explore_match == "" | |
3406 let s:explore_match= '\<'.escape(fname,g:netrw_markfileesc."'".g:netrw_markfileesc."'").'\>' | |
3407 else | |
3408 let s:explore_match= s:explore_match.'\|\<'.escape(fname,g:netrw_markfileesc."'".g:netrw_markfileesc."'").'\>' | |
3409 endif | |
3410 endif | |
3411 let prvfname= fname | |
3412 endfor | |
3413 " call Decho("explore_match<".s:explore_match.">") | |
3414 exe "2match netrwMarkFile /".s:explore_match."/" | |
3415 endif | |
3416 echo "<s-up>==Pexplore <s-down>==Nexplore" | |
3417 else | |
3418 2match none | |
3419 if exists("s:explore_match") | unlet s:explore_match | endif | |
3420 if exists("s:explore_prvdir") | unlet s:explore_prvdir | endif | |
3421 echo " " | |
3422 " call Decho("cleared explore match list") | |
4732 endif | 3423 endif |
4733 | 3424 |
4734 silent! let @* = keepregstar | 3425 silent! let @* = keepregstar |
4735 silent! let @+ = keepregstar | 3426 silent! let @+ = keepregstar |
4736 silent! let @/ = keepregslash | 3427 silent! let @/ = keepregslash |
4737 " call Dret("netrw#Explore : @/<".@/.">") | 3428 " call Dret("netrw#Explore : @/<".@/.">") |
4738 endfun | 3429 endfun |
4739 | 3430 |
4740 " --------------------------------------------------------------------- | 3431 " --------------------------------------------------------------------- |
4741 " s:ExplorePatHls: converts an Explore pattern into a regular expression search pattern {{{2 | 3432 " s:NetrwHide: this function is invoked by the "a" map for browsing {{{2 |
4742 fun! s:ExplorePatHls(pattern) | 3433 " and switches the hiding mode. The actual hiding is done by |
4743 " call Dfunc("s:ExplorePatHls(pattern<".a:pattern.">)") | 3434 " s:NetrwListHide(). |
4744 let repat= substitute(a:pattern,'^**/\{1,2}','','') | 3435 " g:netrw_hide= 0: show all |
4745 " call Decho("repat<".repat.">") | 3436 " 1: show not-hidden files |
4746 let repat= escape(repat,'][.\') | 3437 " 2: show hidden files only |
4747 " call Decho("repat<".repat.">") | 3438 fun! s:NetrwHide(islocal) |
4748 let repat= '\<'.substitute(repat,'\*','\\(\\S\\+ \\)*\\S\\+','g').'\>' | 3439 " call Dfunc("NetrwHide(islocal=".a:islocal.") g:netrw_hide=".g:netrw_hide) |
4749 " call Dret("s:ExplorePatHls repat<".repat.">") | 3440 let svpos= netrw#NetrwSavePosn() |
4750 return repat | 3441 |
4751 endfun | 3442 if exists("s:netrwmarkfilelist_{bufnr('%')}") |
4752 | 3443 " call Decho(((g:netrw_hide == 1)? "unhide" : "hide")." files in markfilelist<".string(s:netrwmarkfilelist_{bufnr("%")}).">") |
4753 " --------------------------------------------------------------------- | 3444 " call Decho("g:netrw_list_hide<".g:netrw_list_hide.">") |
4754 " SetupNetrwStatusLine: {{{2 | 3445 |
4755 fun! s:SetupNetrwStatusLine(statline) | 3446 " hide the files in the markfile list |
4756 " call Dfunc("SetupNetrwStatusLine(statline<".a:statline.">)") | 3447 for fname in s:netrwmarkfilelist_{bufnr("%")} |
4757 | 3448 " call Decho("match(g:netrw_list_hide<".g:netrw_list_hide.'> fname<\<'.fname.'\>>)='.match(g:netrw_list_hide,'\<'.fname.'\>')." isk=".&isk) |
4758 if !exists("s:netrw_setup_statline") | 3449 if match(g:netrw_list_hide,'\<'.fname.'\>') != -1 |
4759 let s:netrw_setup_statline= 1 | 3450 " remove fname from hiding list |
4760 " call Decho("do first-time status line setup") | 3451 let g:netrw_list_hide= substitute(g:netrw_list_hide,'..\<'.escape(fname,g:netrw_fname_escape).'\>..','','') |
4761 | 3452 let g:netrw_list_hide= substitute(g:netrw_list_hide,',,',',','g') |
4762 if !exists("s:netrw_users_stl") | 3453 let g:netrw_list_hide= substitute(g:netrw_list_hide,'^,\|,$','','') |
4763 let s:netrw_users_stl= &stl | 3454 " call Decho("unhide: g:netrw_list_hide<".g:netrw_list_hide.">") |
4764 endif | |
4765 if !exists("s:netrw_users_ls") | |
4766 let s:netrw_users_ls= &laststatus | |
4767 endif | |
4768 | |
4769 " set up User9 highlighting as needed | |
4770 let keepa= @a | |
4771 redir @a | |
4772 try | |
4773 hi User9 | |
4774 catch /^Vim\%((\a\+)\)\=:E411/ | |
4775 if &bg == "dark" | |
4776 hi User9 ctermfg=yellow ctermbg=blue guifg=yellow guibg=blue | |
4777 else | 3455 else |
4778 hi User9 ctermbg=yellow ctermfg=blue guibg=yellow guifg=blue | 3456 " append fname to hiding list |
4779 endif | 3457 if exists("g:netrw_list_hide") && g:netrw_list_hide != "" |
4780 endtry | 3458 let g:netrw_list_hide= g:netrw_list_hide.',\<'.escape(fname,g:netrw_fname_escape).'\>' |
4781 redir END | 3459 else |
4782 let @a= keepa | 3460 let g:netrw_list_hide= '\<'.escape(fname,g:netrw_fname_escape).'\>' |
4783 endif | 3461 endif |
4784 | 3462 " call Decho("hide: g:netrw_list_hide<".g:netrw_list_hide.">") |
4785 " set up status line (may use User9 highlighting) | 3463 endif |
4786 " insure that windows have a statusline | 3464 endfor |
4787 " make sure statusline is displayed | 3465 unlet s:netrwmarkfilelist_{bufnr("%")} |
4788 let &stl=a:statline | 3466 unlet s:netrwmarkfilemtch_{bufnr("%")} |
4789 setlocal laststatus=2 | 3467 2match none |
4790 " call Decho("stl=".&stl) | 3468 let g:netrw_hide= 1 |
4791 redraw! | 3469 |
4792 | 3470 else |
4793 " call Dret("SetupNetrwStatusLine : stl=".&stl) | 3471 |
3472 " switch between show-all/show-not-hidden/show-hidden | |
3473 let g:netrw_hide=(g:netrw_hide+1)%3 | |
3474 exe "norm! 0" | |
3475 if g:netrw_hide && g:netrw_list_hide == "" | |
3476 call netrw#ErrorMsg(s:WARNING,"your hiding list is empty!",49) | |
3477 " call Dret("NetrwHide") | |
3478 return | |
3479 endif | |
3480 endif | |
3481 | |
3482 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
3483 call netrw#NetrwRestorePosn(svpos) | |
3484 " call Dret("NetrwHide") | |
3485 endfun | |
3486 | |
3487 " --------------------------------------------------------------------- | |
3488 " s:NetrwHidden: invoked by "gh" {{{2 | |
3489 fun! s:NetrwHidden(islocal) | |
3490 " call Dfunc("s:NetrwHidden()") | |
3491 " save current position | |
3492 let svpos= netrw#NetrwSavePosn() | |
3493 | |
3494 if g:netrw_list_hide =~ '\(^\|,\)\\(^\\|\\s\\s\\)\\zs\\.\\S\\+' | |
3495 " remove pattern from hiding list | |
3496 let g:netrw_list_hide= substitute(g:netrw_list_hide,'\(^\|,\)\\(^\\|\\s\\s\\)\\zs\\.\\S\\+','','') | |
3497 elseif strlen(g:netrw_list_hide) >= 1 | |
3498 let g:netrw_list_hide= g:netrw_list_hide . ',\(^\|\s\s\)\zs\.\S\+' | |
3499 else | |
3500 let g:netrw_list_hide= '\(^\|\s\s\)\zs\.\S\+' | |
3501 endif | |
3502 | |
3503 " refresh screen and return to saved position | |
3504 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
3505 call netrw#NetrwRestorePosn(svpos) | |
3506 " call Dret("s:NetrwHidden") | |
3507 endfun | |
3508 | |
3509 " --------------------------------------------------------------------- | |
3510 " s:NetrwLeftmouse: handles the <leftmouse> when in a netrw browsing window {{{2 | |
3511 fun! s:NetrwLeftmouse(islocal) | |
3512 " call Dfunc("s:NetrwLeftmouse(islocal=".a:islocal.")") | |
3513 if a:islocal | |
3514 if exists("b:netrw_curdir") | |
3515 call netrw#LocalBrowseCheck(s:NetrwBrowseChgDir(1,s:NetrwGetWord())) | |
3516 endif | |
3517 else | |
3518 if exists("b:netrw_curdir") | |
3519 call s:NetrwBrowse(0,s:NetrwBrowseChgDir(0,s:NetrwGetWord())) | |
3520 endif | |
3521 endif | |
3522 " call Dret("s:NetrwLeftmouse") | |
3523 endfun | |
3524 | |
3525 " --------------------------------------------------------------------- | |
3526 " s:NetrwListHide: uses [range]g~...~d to delete files that match comma {{{2 | |
3527 " separated patterns given in g:netrw_list_hide | |
3528 fun! s:NetrwListHide() | |
3529 " call Dfunc("NetrwListHide() hide=".g:netrw_hide." listhide<".g:netrw_list_hide.">") | |
3530 | |
3531 " find a character not in the "hide" string to use as a separator for :g and :v commands | |
3532 " How-it-works: take the hiding command, convert it into a range. Duplicate | |
3533 " characters don't matter. Remove all such characters from the '/~...90' | |
3534 " string. Use the first character left as a separator character. | |
3535 let listhide= g:netrw_list_hide | |
3536 let sep = strpart(substitute('/~@#$%^&*{};:,<.>?|1234567890','['.escape(listhide,'-]^\').']','','ge'),1,1) | |
3537 " call Decho("sep=".sep) | |
3538 | |
3539 while listhide != "" | |
3540 if listhide =~ ',' | |
3541 let hide = substitute(listhide,',.*$','','e') | |
3542 let listhide = substitute(listhide,'^.\{-},\(.*\)$','\1','e') | |
3543 else | |
3544 let hide = listhide | |
3545 let listhide = "" | |
3546 endif | |
3547 | |
3548 " Prune the list by hiding any files which match | |
3549 if g:netrw_hide == 1 | |
3550 " call Decho("hiding<".hide."> listhide<".listhide.">") | |
3551 exe 'silent keepjumps '.w:netrw_bannercnt.',$g'.sep.hide.sep.'d' | |
3552 elseif g:netrw_hide == 2 | |
3553 " call Decho("showing<".hide."> listhide<".listhide.">") | |
3554 exe 'silent keepjumps '.w:netrw_bannercnt.',$g'.sep.hide.sep.'s@^@ /-KEEP-/ @' | |
3555 endif | |
3556 endwhile | |
3557 if g:netrw_hide == 2 | |
3558 exe 'silent keepjumps '.w:netrw_bannercnt.',$v@^ /-KEEP-/ @d' | |
3559 exe 'silent keepjumps '.w:netrw_bannercnt.',$s@^\%( /-KEEP-/ \)\+@@e' | |
3560 endif | |
3561 | |
3562 " call Dret("NetrwListHide") | |
3563 endfun | |
3564 | |
3565 " --------------------------------------------------------------------- | |
3566 " NetrwHideEdit: allows user to edit the file/directory hiding list | |
3567 fun! s:NetrwHideEdit(islocal) | |
3568 " call Dfunc("NetrwHideEdit(islocal=".a:islocal.")") | |
3569 | |
3570 " save current cursor position | |
3571 let svpos= netrw#NetrwSavePosn() | |
3572 | |
3573 " get new hiding list from user | |
3574 call inputsave() | |
3575 let newhide= input("Edit Hiding List: ",g:netrw_list_hide) | |
3576 call inputrestore() | |
3577 let g:netrw_list_hide= newhide | |
3578 " call Decho("new g:netrw_list_hide<".g:netrw_list_hide.">") | |
3579 | |
3580 " refresh the listing | |
3581 silent call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,"./")) | |
3582 | |
3583 " restore cursor position | |
3584 call netrw#NetrwRestorePosn(svpos) | |
3585 | |
3586 " call Dret("NetrwHideEdit") | |
3587 endfun | |
3588 | |
3589 " --------------------------------------------------------------------- | |
3590 " NetSortSequence: allows user to edit the sorting sequence | |
3591 fun! s:NetSortSequence(islocal) | |
3592 " call Dfunc("NetSortSequence(islocal=".a:islocal.")") | |
3593 | |
3594 let svpos= netrw#NetrwSavePosn() | |
3595 call inputsave() | |
3596 let newsortseq= input("Edit Sorting Sequence: ",g:netrw_sort_sequence) | |
3597 call inputrestore() | |
3598 | |
3599 " refresh the listing | |
3600 let g:netrw_sort_sequence= newsortseq | |
3601 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
3602 call netrw#NetrwRestorePosn(svpos) | |
3603 | |
3604 " call Dret("NetSortSequence") | |
3605 endfun | |
3606 | |
3607 " --------------------------------------------------------------------- | |
3608 " s:NetrwMakeDir: this function makes a directory (both local and remote) {{{2 | |
3609 fun! s:NetrwMakeDir(usrhost) | |
3610 " call Dfunc("NetrwMakeDir(usrhost<".a:usrhost.">)") | |
3611 | |
3612 " get name of new directory from user. A bare <CR> will skip. | |
3613 " if its currently a directory, also request will be skipped, but with | |
3614 " a message. | |
3615 call inputsave() | |
3616 let newdirname= input("Please give directory name: ") | |
3617 call inputrestore() | |
3618 " call Decho("newdirname<".newdirname.">") | |
3619 | |
3620 if newdirname == "" | |
3621 " call Dret("NetrwMakeDir : user aborted with bare <cr>") | |
3622 return | |
3623 endif | |
3624 | |
3625 if a:usrhost == "" | |
3626 " call Decho("local mkdir") | |
3627 | |
3628 " Local mkdir: | |
3629 " sanity checks | |
3630 let fullnewdir= b:netrw_curdir.'/'.newdirname | |
3631 " call Decho("fullnewdir<".fullnewdir.">") | |
3632 if isdirectory(fullnewdir) | |
3633 if !exists("g:netrw_quiet") | |
3634 call netrw#ErrorMsg(s:WARNING,"<".newdirname."> is already a directory!",24) | |
3635 endif | |
3636 " call Dret("NetrwMakeDir : directory<".newdirname."> exists previously") | |
3637 return | |
3638 endif | |
3639 if s:FileReadable(fullnewdir) | |
3640 if !exists("g:netrw_quiet") | |
3641 call netrw#ErrorMsg(s:WARNING,"<".newdirname."> is already a file!",25) | |
3642 endif | |
3643 " call Dret("NetrwMakeDir : file<".newdirname."> exists previously") | |
3644 return | |
3645 endif | |
3646 | |
3647 " requested new local directory is neither a pre-existing file or | |
3648 " directory, so make it! | |
3649 if exists("*mkdir") | |
3650 call mkdir(fullnewdir,"p") | |
3651 else | |
3652 let netrw_origdir= s:NetrwGetcwd(1) | |
3653 exe 'keepjumps lcd '.fnameescape(b:netrw_curdir) | |
3654 " call Decho("netrw_origdir<".netrw_origdir.">: lcd b:netrw_curdir<".fnameescape(b:netrw_curdir).">") | |
3655 " call Decho("exe silent! !".g:netrw_local_mkdir.' '.shellescape(newdirname)) | |
3656 exe "silent! !".g:netrw_local_mkdir.' '.shellescape(newdirname) | |
3657 if !g:netrw_keepdir | |
3658 exe 'keepjumps lcd '.fnameescape(netrw_origdir) | |
3659 " call Decho("netrw_keepdir=".g:netrw_keepdir.": keepjumps lcd ".fnameescape(netrw_origdir)." getcwd<".getcwd().">") | |
3660 endif | |
3661 endif | |
3662 | |
3663 if v:shell_error == 0 | |
3664 " refresh listing | |
3665 " call Decho("refresh listing") | |
3666 let svpos= netrw#NetrwSavePosn() | |
3667 call s:NetrwRefresh(1,s:NetrwBrowseChgDir(1,'./')) | |
3668 call netrw#NetrwRestorePosn(svpos) | |
3669 elseif !exists("g:netrw_quiet") | |
3670 call netrw#ErrorMsg(s:ERROR,"unable to make directory<".newdirname.">",26) | |
3671 endif | |
3672 " redraw! | |
3673 | |
3674 elseif !exists("b:netrw_method") || b:netrw_method == 4 | |
3675 " Remote mkdir: | |
3676 " call Decho("remote mkdir") | |
3677 let mkdircmd = s:MakeSshCmd(g:netrw_mkdir_cmd) | |
3678 let newdirname= substitute(b:netrw_curdir,'^\%(.\{-}/\)\{3}\(.*\)$','\1','').newdirname | |
3679 " call Decho("exe silent! !".mkdircmd." ".shellescape(newdirname)) | |
3680 exe "silent! !".mkdircmd." ".shellescape(newdirname) | |
3681 if v:shell_error == 0 | |
3682 " refresh listing | |
3683 let svpos= netrw#NetrwSavePosn() | |
3684 call s:NetrwRefresh(0,s:NetrwBrowseChgDir(0,'./')) | |
3685 call netrw#NetrwRestorePosn(svpos) | |
3686 elseif !exists("g:netrw_quiet") | |
3687 call netrw#ErrorMsg(s:ERROR,"unable to make directory<".newdirname.">",27) | |
3688 endif | |
3689 " redraw! | |
3690 | |
3691 elseif b:netrw_method == 2 | |
3692 " COMBAK -- future work | |
3693 call netrw#ErrorMsg(s:ERROR,"making directories via ftp not currently supported",68) | |
3694 elseif b:netrw_method == 3 | |
3695 " COMBAK -- future work | |
3696 call netrw#ErrorMsg(s:ERROR,"making directories via ftp not currently supported",68) | |
3697 endif | |
3698 | |
3699 " call Dret("NetrwMakeDir") | |
3700 endfun | |
3701 | |
3702 " --------------------------------------------------------------------- | |
3703 " s:NetrwMarkFile: (invoked by mf) This function is used to both {{{2 | |
3704 " mark and unmark files. If a markfile list exists, | |
3705 " then the rename and delete functions will use it instead | |
3706 " of whatever may happen to be under the cursor at that | |
3707 " moment. When the mouse and gui are available, | |
3708 " shift-leftmouse may also be used to mark files. | |
3709 fun! s:NetrwMarkFile(islocal,fname) | |
3710 " call Dfunc("s:NetrwMarkFile(islocal=".a:islocal." fname<".a:fname.">)") | |
3711 let curbufnr= bufnr("%") | |
3712 let curdir = b:netrw_curdir | |
3713 if exists("s:netrwmarkfilelist_{curbufnr}") | |
3714 " markfile list exists | |
3715 " call Decho("starting s:netrwmarkfilelist_{curbufnr}<".string(s:netrwmarkfilelist_{curbufnr}).">") | |
3716 " call Decho("starting s:netrwmarkfilemtch_{curbufnr}<".s:netrwmarkfilemtch_{curbufnr}.">") | |
3717 | |
3718 if index(s:netrwmarkfilelist_{curbufnr},a:fname) == -1 | |
3719 " append filename to local-directory markfilelist | |
3720 " call Decho("append filename<".a:fname."> to local markfilelist_".curbufnr."<".string(s:netrwmarkfilelist_{curbufnr}).">") | |
3721 call add(s:netrwmarkfilelist_{curbufnr},a:fname) | |
3722 let s:netrwmarkfilemtch_{curbufnr}= s:netrwmarkfilemtch_{curbufnr}.'\|\<'.escape(a:fname,g:netrw_markfileesc."'".g:netrw_markfileesc."'").'\>' | |
3723 | |
3724 else | |
3725 " remove filename from local markfilelist | |
3726 " call Decho("remove filename<".a:fname."> from local markfilelist_".curbufnr."<".string(s:netrwmarkfilelist_{curbufnr}).">") | |
3727 call filter(s:netrwmarkfilelist_{curbufnr},'v:val != a:fname') | |
3728 if s:netrwmarkfilelist_{curbufnr} == [] | |
3729 " local markfilelist is empty; remove it entirely | |
3730 " call Decho("markfile list now empty, unlet s:netrwmarkfilelist_".curbufnr." and ...mtch_".curbufnr) | |
3731 call s:NetrwUnmarkList(curbufnr,curdir) | |
3732 else | |
3733 " rebuild match list to display markings correctly | |
3734 " call Decho("rebuild s:netrwmarkfilemtch_".curbufnr) | |
3735 let s:netrwmarkfilemtch_{curbufnr}= "" | |
3736 let first = 1 | |
3737 for fname in s:netrwmarkfilelist_{curbufnr} | |
3738 if first | |
3739 let s:netrwmarkfilemtch_{curbufnr}= s:netrwmarkfilemtch_{curbufnr}.'\<'.escape(fname,g:netrw_markfileesc."'".g:netrw_markfileesc."'").'\>' | |
3740 else | |
3741 let s:netrwmarkfilemtch_{curbufnr}= s:netrwmarkfilemtch_{curbufnr}.'\|\<'.escape(fname,g:netrw_markfileesc."'".g:netrw_markfileesc."'").'\>' | |
3742 endif | |
3743 let first= 0 | |
3744 endfor | |
3745 " call Decho("ending s:netrwmarkfilelist_"curbufnr."<".string(s:netrwmarkfilelist_{curbufnr}).">") | |
3746 " call Decho("ending s:netrwmarkfilemtch_"curbufnr."<".s:netrwmarkfilemtch_{curbufnr}.">") | |
3747 endif | |
3748 endif | |
3749 | |
3750 else | |
3751 " initialize new markfilelist | |
3752 | |
3753 " call Decho("add fname<".a:fname."> to new markfilelist_".curbufnr) | |
3754 let s:netrwmarkfilelist_{curbufnr}= [] | |
3755 call add(s:netrwmarkfilelist_{curbufnr},a:fname) | |
3756 " call Decho("ending s:netrwmarkfilelist_{curbufnr}<".string(s:netrwmarkfilelist_{curbufnr}).">") | |
3757 | |
3758 " build initial markfile matching pattern | |
3759 if a:fname =~ '/$' | |
3760 let s:netrwmarkfilemtch_{curbufnr}= '\<'.escape(a:fname,g:netrw_markfileesc) | |
3761 else | |
3762 let s:netrwmarkfilemtch_{curbufnr}= '\<'.escape(a:fname,g:netrw_markfileesc).'\>' | |
3763 endif | |
3764 " call Decho("ending s:netrwmarkfilemtch_".curbufnr."<".s:netrwmarkfilemtch_{curbufnr}.">") | |
3765 endif | |
3766 | |
3767 " handle global markfilelist | |
3768 if exists("s:netrwmarkfilelist") | |
3769 let dname= s:ComposePath(b:netrw_curdir,a:fname) | |
3770 if index(s:netrwmarkfilelist,dname) == -1 | |
3771 " append new filename to global markfilelist | |
3772 call add(s:netrwmarkfilelist,s:ComposePath(b:netrw_curdir,a:fname)) | |
3773 " call Decho("append filename<".a:fname."> to global markfilelist<".string(s:netrwmarkfilelist).">") | |
3774 else | |
3775 " remove new filename from global markfilelist | |
3776 " call Decho("filter(".string(s:netrwmarkfilelist).",'v:val != '.".dname.")") | |
3777 call filter(s:netrwmarkfilelist,'v:val != "'.dname.'"') | |
3778 " call Decho("ending s:netrwmarkfilelist <".string(s:netrwmarkfilelist).">") | |
3779 if s:netrwmarkfilelist == [] | |
3780 unlet s:netrwmarkfilelist | |
3781 endif | |
3782 endif | |
3783 else | |
3784 " initialize new global-directory markfilelist | |
3785 let s:netrwmarkfilelist= [] | |
3786 call add(s:netrwmarkfilelist,s:ComposePath(b:netrw_curdir,a:fname)) | |
3787 " call Decho("init s:netrwmarkfilelist<".string(s:netrwmarkfilelist).">") | |
3788 endif | |
3789 | |
3790 " set up 2match'ing to netrwmarkfilemtch list | |
3791 if exists("s:netrwmarkfilemtch_{curbufnr}") && s:netrwmarkfilemtch_{curbufnr} != "" | |
3792 " call Decho("exe 2match netrwMarkFile /".s:netrwmarkfilemtch_{curbufnr}."/") | |
3793 exe "2match netrwMarkFile /".s:netrwmarkfilemtch_{curbufnr}."/" | |
3794 else | |
3795 " call Decho("2match none") | |
3796 2match none | |
3797 endif | |
3798 " call Dret("s:NetrwMarkFile : netrwmarkfilelist_".curbufnr."<".(exists("s:netrwmarkfilelist_{curbufnr}")? string(s:netrwmarkfilelist_{curbufnr}) : " doesn't exist").">") | |
3799 endfun | |
3800 | |
3801 " --------------------------------------------------------------------- | |
3802 " s:NetrwMarkFileCompress: (invoked by mz) This function is used to {{{2 | |
3803 " compress/decompress files using the programs | |
3804 " in g:netrw_compress and g:netrw_uncompress, | |
3805 " using g:netrw_compress_suffix to know which to | |
3806 " do. By default: | |
3807 " g:netrw_compress = "gzip" | |
3808 " g:netrw_decompress = { ".gz" : "gunzip" , ".bz2" : "bunzip2" , ".zip" : "unzip" , ".tar" : "tar -xf"} | |
3809 fun! s:NetrwMarkFileCompress(islocal) | |
3810 " call Dfunc("s:NetrwMarkFileCompress(islocal=".a:islocal.")") | |
3811 let svpos = netrw#NetrwSavePosn() | |
3812 let curdir = b:netrw_curdir | |
3813 let curbufnr = bufnr("%") | |
3814 | |
3815 if exists("s:netrwmarkfilelist_{curbufnr}") && exists("g:netrw_compress") && exists("g:netrw_decompress") | |
3816 for fname in s:netrwmarkfilelist_{curbufnr} | |
3817 " for every filename in the marked list | |
3818 for sfx in sort(keys(g:netrw_decompress)) | |
3819 if fname =~ '\'.sfx.'$' | |
3820 " fname has a suffix indicating that its compressed; apply associated decompression routine | |
3821 let exe= g:netrw_decompress[sfx] | |
3822 " call Decho("fname<".fname."> is compressed so decompress with <".exe.">") | |
3823 if a:islocal | |
3824 if g:netrw_keepdir | |
3825 let fname= s:ComposePath(curdir,fname) | |
3826 endif | |
3827 else | |
3828 let fname= b:netrw_curdir.fname | |
3829 endif | |
3830 if executable(exe) | |
3831 if a:islocal | |
3832 call system(exe." ".fname) | |
3833 else | |
3834 call s:RemoteSystem(exe." ".fname) | |
3835 endif | |
3836 else | |
3837 call netrw#ErrorMsg(s:WARNING,"unable to apply<".exe."> to file<".fname.">",50) | |
3838 endif | |
3839 break | |
3840 endif | |
3841 endfor | |
3842 if exists("exe") | |
3843 unlet exe | |
3844 elseif a:islocal | |
3845 " fname not a compressed file, so compress it | |
3846 call system(g:netrw_compress." ".s:ComposePath(b:netrw_curdir,fname)) | |
3847 else | |
3848 " fname not a compressed file, so compress it | |
3849 call s:RemoteSystem(g:netrw_compress." ".fname) | |
3850 endif | |
3851 endfor | |
3852 call s:NetrwUnmarkList(curbufnr,curdir) | |
3853 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
3854 call netrw#NetrwRestorePosn(svpos) | |
3855 endif | |
3856 " call Dret("s:NetrwMarkFileCompress") | |
3857 endfun | |
3858 | |
3859 " --------------------------------------------------------------------- | |
3860 " s:NetrwMarkFileCopy: (invoked by mc) copy marked files to target {{{2 | |
3861 " If no marked files, then set up directory as the | |
3862 " target. Currently does not support copying entire | |
3863 " directories. Uses the local-buffer marked file list. | |
3864 " Returns 1=success (used by NetrwMarkFileMove()) | |
3865 " 0=failure | |
3866 fun! s:NetrwMarkFileCopy(islocal) | |
3867 " call Dfunc("s:NetrwMarkFileCopy(islocal=".a:islocal.") target<".(exists("s:netrwmftgt")? s:netrwmftgt : '---').">") | |
3868 | |
3869 " sanity checks | |
3870 if !exists("s:netrwmarkfilelist_{bufnr('%')}") || empty(s:netrwmarkfilelist_{bufnr('%')}) | |
3871 call netrw#ErrorMsg(2,"there are no marked files in this window (:help netrw-mf)",66) | |
3872 " call Dret("s:NetrwMarkFileCopy 0") | |
3873 return 0 | |
3874 endif | |
3875 " call Decho("sanity chk passed: s:netrwmarkfilelist_".bufnr('%')."<".string(s:netrwmarkfilelist_{bufnr('%')})) | |
3876 if !exists("s:netrwmftgt") | |
3877 call netrw#ErrorMsg(2,"your marked file target is empty! (:help netrw-mt)",67) | |
3878 " call Dret("s:NetrwMarkFileCopy 0") | |
3879 return 0 | |
3880 endif | |
3881 " call Decho("sanity chk passed: s:netrwmftgt<".s:netrwmftgt.">") | |
3882 let curdir = b:netrw_curdir | |
3883 let curbufnr = bufnr("%") | |
3884 | |
3885 if a:islocal && s:netrwmftgt_islocal | |
3886 " Copy marked files, local directory to local directory | |
3887 " call Decho("copy from local to local") | |
3888 let args= join(map(copy(s:netrwmarkfilelist_{bufnr('%')}),"b:netrw_curdir.\"/\".shellescape(v:val)")) | |
3889 " call Decho("system(".g:netrw_localcopycmd." ".args." ".shellescape(s:netrwmftgt).")") | |
3890 call system(g:netrw_localcopycmd." ".args." ".shellescape(s:netrwmftgt)) | |
3891 | |
3892 elseif a:islocal && !s:netrwmftgt_islocal | |
3893 " Copy marked files, local directory to remote directory | |
3894 " call Decho("copy from local to remote") | |
3895 call s:NetrwUpload(s:netrwmarkfilelist_{bufnr('%')},s:netrwmftgt) | |
3896 | |
3897 elseif !a:islocal && s:netrwmftgt_islocal | |
3898 " call Decho("copy from remote to local") | |
3899 call netrw#NetrwObtain(a:islocal,s:netrwmarkfilelist_{bufnr('%')},s:netrwmftgt) | |
3900 | |
3901 elseif !a:islocal && !s:netrwmftgt_islocal | |
3902 " call Decho("copy from remote to remote") | |
3903 let curdir = getcwd() | |
3904 let tmpdir = s:GetTempfile("") | |
3905 if tmpdir !~ '/' | |
3906 let tmpdir= curdir."/".tmpdir | |
3907 endif | |
3908 if exists("*mkdir") | |
3909 call mkdir(tmpdir) | |
3910 else | |
3911 exe "silent! !".g:netrw_local_mkdir.' '.shellescape(tmpdir) | |
3912 endif | |
3913 if isdirectory(tmpdir) | |
3914 exe "keepjumps lcd ".fnameescape(tmpdir) | |
3915 call netrw#NetrwObtain(a:islocal,s:netrwmarkfilelist_{bufnr('%')},tmpdir) | |
3916 let localfiles= map(copy(s:netrwmarkfilelist_{bufnr('%')}),'substitute(v:val,"^.*/","","")') | |
3917 call s:NetrwUpload(localfiles,s:netrwmftgt) | |
3918 if getcwd() == tmpdir | |
3919 for fname in s:netrwmarkfilelist_{bufnr('%')} | |
3920 call s:System("delete",fname) | |
3921 endfor | |
3922 exe "keepjumps lcd ".fnameescape(curdir) | |
3923 exe "silent !".g:netrw_local_rmdir." ".fnameescape(tmpdir) | |
3924 else | |
3925 exe "keepjumps lcd ".fnameescape(curdir) | |
3926 endif | |
3927 endif | |
3928 endif | |
3929 | |
3930 " ------- | |
3931 " cleanup | |
3932 " ------- | |
3933 " call Decho("cleanup") | |
3934 | |
3935 " remove markings from local buffer | |
3936 call s:NetrwUnmarkList(curbufnr,curdir) | |
3937 | |
3938 " refresh buffers | |
3939 if !s:netrwmftgt_islocal | |
3940 call s:NetrwRefreshDir(s:netrwmftgt_islocal,s:netrwmftgt) | |
3941 endif | |
3942 if a:islocal | |
3943 call s:NetrwRefreshDir(a:islocal,b:netrw_curdir) | |
3944 endif | |
3945 call s:LocalBrowseShellCmdRefresh() | |
3946 | |
3947 " call Dret("s:NetrwMarkFileCopy 1") | |
3948 return 1 | |
3949 endfun | |
3950 | |
3951 " --------------------------------------------------------------------- | |
3952 " s:NetrwMarkFileDiff: (invoked by md) This function is used to {{{2 | |
3953 " invoke vim's diff mode on the marked files. | |
3954 " Either two or three files can be so handled. | |
3955 " Uses the global marked file list. | |
3956 fun! s:NetrwMarkFileDiff(islocal) | |
3957 " call Dfunc("s:NetrwMarkFileDiff(islocal=".a:islocal.") b:netrw_curdir<".b:netrw_curdir.">") | |
3958 let curbufnr= bufnr("%") | |
3959 if exists("s:netrwmarkfilelist_{curbufnr}") | |
3960 | |
3961 let cnt = 0 | |
3962 let curdir = b:netrw_curdir | |
3963 for fname in s:netrwmarkfilelist | |
3964 let cnt= cnt + 1 | |
3965 if !a:islocal | |
3966 let fname= curdir.fname | |
3967 endif | |
3968 if cnt == 1 | |
3969 " call Decho("diffthis: ".fname) | |
3970 exe "e ".fname | |
3971 diffthis | |
3972 elseif cnt == 2 || cnt == 3 | |
3973 vsplit | |
3974 wincmd l | |
3975 " call Decho("diffthis: ".fname) | |
3976 exe "e ".fname | |
3977 diffthis | |
3978 else | |
3979 break | |
3980 endif | |
3981 endfor | |
3982 call s:NetrwUnmarkList(curbufnr,curdir) | |
3983 endif | |
3984 " call Dret("s:NetrwMarkFileDiff") | |
3985 endfun | |
3986 | |
3987 " --------------------------------------------------------------------- | |
3988 " s:NetrwMarkFileEdit: (invoked by me) put marked files on arg list and start editing them {{{2 | |
3989 " Uses global markfilelist | |
3990 fun! s:NetrwMarkFileEdit(islocal) | |
3991 " call Dfunc("s:NetrwMarkFileEdit(islocal=".a:islocal.")") | |
3992 | |
3993 let curdir = b:netrw_curdir | |
3994 let curbufnr = bufnr("%") | |
3995 if exists("s:netrwmarkfilelist_{curbufnr}") | |
3996 call s:SetRexDir(a:islocal,curdir) | |
3997 if a:islocal && g:netrw_keepdir | |
3998 " use complete paths if its local and keepdir enabled | |
3999 let flist= "" | |
4000 for fname in s:netrwmarkfilelist | |
4001 " let flist= flist." ".s:ComposePath(curdir,fname) | |
4002 let flist= flist." ".fname | |
4003 endfor | |
4004 else | |
4005 " let flist= substitute(escape(join(s:netrwmarkfilelist_{curbufnr},"\t"),' '),"\t",' ','g') | |
4006 let flist= substitute(escape(join(s:netrwmarkfilelist,"\t"),' '),"\t",' ','g') | |
4007 endif | |
4008 " unmark markedfile list | |
4009 " call s:NetrwUnmarkList(curbufnr,curdir) | |
4010 call s:NetrwUnmarkAll() | |
4011 " call Decho("exe silent args ".flist) | |
4012 exe "silent args ".flist | |
4013 endif | |
4014 | |
4015 " call Dret("s:NetrwMarkFileEdit") | |
4016 endfun | |
4017 | |
4018 " --------------------------------------------------------------------- | |
4019 " s:NetrwMarkFileExe: (invoked by mx) execute arbitrary command on marked files, one at a time {{{2 | |
4020 " Uses the local marked-file list. | |
4021 fun! s:NetrwMarkFileExe(islocal) | |
4022 " call Dfunc("s:NetrwMarkFileExe(islocal=".a:islocal.")") | |
4023 let svpos = netrw#NetrwSavePosn() | |
4024 let curdir = b:netrw_curdir | |
4025 let curbufnr = bufnr("%") | |
4026 | |
4027 if exists("s:netrwmarkfilelist_{curbufnr}") | |
4028 " get the command | |
4029 call inputsave() | |
4030 let cmd= input("Enter command: ","","file") | |
4031 call inputrestore() | |
4032 " call Decho("cmd<".cmd.">") | |
4033 | |
4034 " apply command to marked files. Substitute: filename -> % | |
4035 " If no %, then append a space and the filename to the command | |
4036 for fname in s:netrwmarkfilelist_{curbufnr} | |
4037 if a:islocal | |
4038 if g:netrw_keepdir | |
4039 let fname= s:ComposePath(curdir,fname) | |
4040 endif | |
4041 else | |
4042 let fname= b:netrw_curdir.fname | |
4043 endif | |
4044 if cmd =~ '%' | |
4045 let xcmd= substitute(cmd,'%',fname,'g') | |
4046 else | |
4047 let xcmd= cmd.' '.fname | |
4048 endif | |
4049 if a:islocal | |
4050 " call Decho("local: xcmd<".xcmd.">") | |
4051 let ret= system(xcmd) | |
4052 else | |
4053 " call Decho("remote: xcmd<".xcmd.">") | |
4054 let ret= s:RemoteSystem(xcmd) | |
4055 endif | |
4056 if v:shell_error < 0 | |
4057 call netrw#ErrorMsg(s:ERROR,"command<".xcmd."> failed, aborting",54) | |
4058 break | |
4059 else | |
4060 echo ret | |
4061 endif | |
4062 endfor | |
4063 | |
4064 " unmark marked file list | |
4065 call s:NetrwUnmarkList(curbufnr,curdir) | |
4066 | |
4067 " refresh the listing | |
4068 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
4069 call netrw#NetrwRestorePosn(svpos) | |
4070 else | |
4071 call netrw#ErrorMsg(s:ERROR,"no files marked!",59) | |
4072 endif | |
4073 | |
4074 " call Dret("s:NetrwMarkFileExe") | |
4075 endfun | |
4076 | |
4077 " --------------------------------------------------------------------- | |
4078 " s:NetrwMarkHideSfx: (invoked by mh) (un)hide files having same suffix | |
4079 " as the marked file(s) (toggles suffix presence) | |
4080 " Uses the local marked file list. | |
4081 fun! s:NetrwMarkHideSfx(islocal) | |
4082 " call Dfunc("s:NetrwMarkHideSfx(islocal=".a:islocal.")") | |
4083 let svpos = netrw#NetrwSavePosn() | |
4084 let curbufnr = bufnr("%") | |
4085 | |
4086 " s:netrwmarkfilelist_{curbufnr}: the List of marked files | |
4087 if exists("s:netrwmarkfilelist_{curbufnr}") | |
4088 | |
4089 for fname in s:netrwmarkfilelist_{curbufnr} | |
4090 " call Decho("s:NetrwMarkFileCopy: fname<".fname.">") | |
4091 " construct suffix pattern | |
4092 if fname =~ '\.' | |
4093 let sfxpat= "^.*".substitute(fname,'^.*\(\.[^. ]\+\)$','\1','') | |
4094 else | |
4095 let sfxpat= '^\%(\%(\.\)\@!.\)*$' | |
4096 endif | |
4097 " determine if its in the hiding list or not | |
4098 let inhidelist= 0 | |
4099 if g:netrw_list_hide != "" | |
4100 let itemnum = 0 | |
4101 let hidelist= split(g:netrw_list_hide,',') | |
4102 for hidepat in hidelist | |
4103 if sfxpat == hidepat | |
4104 let inhidelist= 1 | |
4105 break | |
4106 endif | |
4107 let itemnum= itemnum + 1 | |
4108 endfor | |
4109 endif | |
4110 " call Decho("fname<".fname."> inhidelist=".inhidelist." sfxpat<".sfxpat.">") | |
4111 if inhidelist | |
4112 " remove sfxpat from list | |
4113 call remove(hidelist,itemnum) | |
4114 let g:netrw_list_hide= join(hidelist,",") | |
4115 elseif g:netrw_list_hide != "" | |
4116 " append sfxpat to non-empty list | |
4117 let g:netrw_list_hide= g:netrw_list_hide.",".sfxpat | |
4118 else | |
4119 " set hiding list to sfxpat | |
4120 let g:netrw_list_hide= sfxpat | |
4121 endif | |
4122 endfor | |
4123 | |
4124 " refresh the listing | |
4125 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
4126 call netrw#NetrwRestorePosn(svpos) | |
4127 else | |
4128 call netrw#ErrorMsg(s:ERROR,"no files marked!",59) | |
4129 endif | |
4130 | |
4131 " call Dret("s:NetrwMarkHideSfx") | |
4132 endfun | |
4133 | |
4134 " --------------------------------------------------------------------- | |
4135 " s:NetrwMarkFileGrep: (invoked by mg) This function applies vimgrep to marked files {{{2 | |
4136 " Uses the global markfilelist | |
4137 fun! s:NetrwMarkFileGrep(islocal) | |
4138 " call Dfunc("s:NetrwMarkFileGrep(islocal=".a:islocal.")") | |
4139 let svpos = netrw#NetrwSavePosn() | |
4140 let curdir = b:netrw_curdir | |
4141 let curbufnr = bufnr("%") | |
4142 | |
4143 if exists("s:netrwmarkfilelist") | |
4144 " call Decho("s:netrwmarkfilelist".string(s:netrwmarkfilelist).">") | |
4145 let netrwmarkfilelist= "" | |
4146 for fname in s:netrwmarkfilelist | |
4147 " call Decho("fname<".fname.">") | |
4148 let fname = escape(substitute(fname,"[\"']","","g")," ") | |
4149 let netrwmarkfilelist = netrwmarkfilelist." ".fname | |
4150 endfor | |
4151 call s:NetrwUnmarkAll() | |
4152 | |
4153 " ask user for pattern | |
4154 call inputsave() | |
4155 let pat= input("Enter pattern: ","") | |
4156 call inputrestore() | |
4157 if pat !~ '^\s' | |
4158 if pat !~ '^/' | |
4159 let pat= '/'.pat.'/' | |
4160 endif | |
4161 let pat= " ".pat | |
4162 endif | |
4163 | |
4164 " use vimgrep for both local and remote | |
4165 " call Decho("exe vimgrep".pat." ".netrwmarkfilelist) | |
4166 exe "vimgrep".pat." ".netrwmarkfilelist | |
4167 | |
4168 2match none | |
4169 call netrw#NetrwRestorePosn(svpos) | |
4170 endif | |
4171 | |
4172 " call Dret("s:NetrwMarkFileGrep") | |
4173 endfun | |
4174 | |
4175 " --------------------------------------------------------------------- | |
4176 " s:NetrwMarkFileMove: (invoked by mm) execute arbitrary command on marked files, one at a time {{{2 | |
4177 " uses the global marked file list | |
4178 " s:netrwmfloc= 0: target directory is remote | |
4179 " = 1: target directory is local | |
4180 fun! s:NetrwMarkFileMove(islocal) | |
4181 " call Dfunc("s:NetrwMarkFileMove(islocal=".a:islocal.")") | |
4182 let curdir = b:netrw_curdir | |
4183 let curbufnr = bufnr("%") | |
4184 | |
4185 " sanity check | |
4186 if !exists("s:netrwmarkfilelist_{bufnr('%')}") || empty(s:netrwmarkfilelist_{bufnr('%')}) | |
4187 call netrw#ErrorMsg(2,"there are no marked files in this window (:help netrw-mf)",66) | |
4188 " call Dret("s:NetrwMarkFileMove") | |
4189 return | |
4190 endif | |
4191 " call Decho("sanity chk passed: s:netrwmarkfilelist_".bufnr('%')."<".string(s:netrwmarkfilelist_{bufnr('%')})) | |
4192 if !exists("s:netrwmftgt") | |
4193 call netrw#ErrorMsg(2,"your marked file target is empty! (:help netrw-mt)",67) | |
4194 " call Dret("s:NetrwMarkFileCopy 0") | |
4195 return 0 | |
4196 endif | |
4197 " call Decho("sanity chk passed: s:netrwmftgt<".s:netrwmftgt.">") | |
4198 | |
4199 if a:islocal && s:netrwmftgt_islocal | |
4200 " move: local -> local | |
4201 " call Decho("move from local to local") | |
4202 " call Decho("(s:NetrwMarkFileMove) local to local move") | |
4203 if executable(g:netrw_localmovecmd) | |
4204 for fname in s:netrwmarkfilelist_{bufnr("%")} | |
4205 " call Decho("system(".g:netrw_localmovecmd." ".shellescape(fname)." ".shellescape(s:netrwmftgt).")") | |
4206 let ret= system(g:netrw_localmovecmd." ".shellescape(fname)." ".shellescape(s:netrwmftgt)) | |
4207 if v:shell_error < 0 | |
4208 call netrw#ErrorMsg(s:ERROR,"command<".g:netrw_localmovecmd."> failed, aborting",54) | |
4209 break | |
4210 endif | |
4211 endfor | |
4212 else | |
4213 call netrw#ErrorMsg(s:ERROR,"command<".g:netrw_localmovecmd."> is not executable!",57) | |
4214 endif | |
4215 | |
4216 elseif a:islocal && !s:netrwmftgt_islocal | |
4217 " move: local -> remote | |
4218 " call Decho("move from local to remote") | |
4219 " call Decho("copy") | |
4220 let mflist= s:netrwmarkfilelist_{bufnr("%")} | |
4221 call s:NetrwMarkFileCopy(a:islocal) | |
4222 " call Decho("remove") | |
4223 for fname in mflist | |
4224 let barefname = substitute(fname,'^\(.*/\)\(.\{-}\)$','\2','') | |
4225 let ok = s:NetrwLocalRmFile(b:netrw_curdir,barefname,1) | |
4226 endfor | |
4227 unlet mflist | |
4228 | |
4229 elseif !a:islocal && s:netrwmftgt_islocal | |
4230 " move: remote -> local | |
4231 " call Decho("move from remote to local") | |
4232 " call Decho("copy") | |
4233 let mflist= s:netrwmarkfilelist_{bufnr("%")} | |
4234 call s:NetrwMarkFileCopy(a:islocal) | |
4235 " call Decho("remove") | |
4236 for fname in mflist | |
4237 let barefname = substitute(fname,'^\(.*/\)\(.\{-}\)$','\2','') | |
4238 let ok = s:NetrwRemoteRmFile(b:netrw_curdir,barefname,1) | |
4239 endfor | |
4240 unlet mflist | |
4241 | |
4242 elseif !a:islocal && !s:netrwmftgt_islocal | |
4243 " move: remote -> remote | |
4244 " call Decho("move from remote to remote") | |
4245 " call Decho("copy") | |
4246 let mflist= s:netrwmarkfilelist_{bufnr("%")} | |
4247 call s:NetrwMarkFileCopy(a:islocal) | |
4248 " call Decho("remove") | |
4249 for fname in mflist | |
4250 let barefname = substitute(fname,'^\(.*/\)\(.\{-}\)$','\2','') | |
4251 let ok = s:NetrwRemoteRmFile(b:netrw_curdir,barefname,1) | |
4252 endfor | |
4253 unlet mflist | |
4254 endif | |
4255 | |
4256 " ------- | |
4257 " cleanup | |
4258 " ------- | |
4259 " call Decho("cleanup") | |
4260 | |
4261 " remove markings from local buffer | |
4262 call s:NetrwUnmarkList(curbufnr,curdir) " remove markings from local buffer | |
4263 | |
4264 " refresh buffers | |
4265 if !s:netrwmftgt_islocal | |
4266 call s:NetrwRefreshDir(s:netrwmftgt_islocal,s:netrwmftgt) | |
4267 endif | |
4268 if a:islocal | |
4269 call s:NetrwRefreshDir(a:islocal,b:netrw_curdir) | |
4270 endif | |
4271 call s:LocalBrowseShellCmdRefresh() | |
4272 | |
4273 " call Dret("s:NetrwMarkFileMove") | |
4274 endfun | |
4275 | |
4276 " --------------------------------------------------------------------- | |
4277 " s:NetrwMarkFilePrint: (invoked by mp) This function prints marked files {{{2 | |
4278 " using the hardcopy command. Local marked-file list only. | |
4279 fun! s:NetrwMarkFilePrint(islocal) | |
4280 " call Dfunc("s:NetrwMarkFilePrint(islocal=".a:islocal.")") | |
4281 let curbufnr= bufnr("%") | |
4282 if exists("s:netrwmarkfilelist_{curbufnr}") | |
4283 let netrwmarkfilelist = s:netrwmarkfilelist_{curbufnr} | |
4284 let curdir = b:netrw_curdir | |
4285 call s:NetrwUnmarkList(curbufnr,curdir) | |
4286 for fname in netrwmarkfilelist | |
4287 if a:islocal | |
4288 if g:netrw_keepdir | |
4289 let fname= s:ComposePath(curdir,fname) | |
4290 endif | |
4291 else | |
4292 let fname= curdir.fname | |
4293 endif | |
4294 1split | |
4295 " the autocmds will handle both local and remote files | |
4296 " call Decho("exe silent e ".escape(fname,' ')) | |
4297 exe "silent e ".escape(fname,' ') | |
4298 " call Decho("hardcopy") | |
4299 hardcopy | |
4300 q | |
4301 endfor | |
4302 2match none | |
4303 endif | |
4304 " call Dret("s:NetrwMarkFilePrint") | |
4305 endfun | |
4306 | |
4307 " --------------------------------------------------------------------- | |
4308 " s:NetrwMarkFileRegexp: (invoked by mr) This function is used to mark {{{2 | |
4309 " files when given a regexp (for which a prompt is | |
4310 " issued). | |
4311 fun! s:NetrwMarkFileRegexp(islocal) | |
4312 " call Dfunc("s:NetrwMarkFileRegexp(islocal=".a:islocal.")") | |
4313 | |
4314 " get the regular expression | |
4315 call inputsave() | |
4316 let regexp= input("Enter regexp: ","","file") | |
4317 call inputrestore() | |
4318 | |
4319 if a:islocal | |
4320 " get the matching list of files using local glob() | |
4321 " call Decho("handle local regexp") | |
4322 let dirname = escape(b:netrw_curdir,g:netrw_glob_escape) | |
4323 let filelist = glob(s:ComposePath(dirname,regexp)) | |
4324 if filelist != "" | |
4325 let filelist= filelist."\n" | |
4326 endif | |
4327 | |
4328 " mark the list of files | |
4329 while filelist != "" | |
4330 if filelist =~ '\n' | |
4331 let filename = substitute(filelist,'\n.*$','','e') | |
4332 let filelist = substitute(filelist,'^.\{-}\n\(.*\)$','\1','e') | |
4333 else | |
4334 let filename = filelist | |
4335 let filelist = "" | |
4336 endif | |
4337 " call Decho("filelist<".filelist.">") | |
4338 " call Decho("filename<".filename.">") | |
4339 call s:NetrwMarkFile(a:islocal,substitute(filename,'^.*/','','')) | |
4340 endwhile | |
4341 | |
4342 else | |
4343 " call Decho("handle remote regexp") | |
4344 | |
4345 " convert displayed listing into a filelist | |
4346 let eikeep = &ei | |
4347 let areg = @a | |
4348 silent %y a | |
4349 set ei=all ma | |
4350 " call Decho("set ei=all ma") | |
4351 1split | |
4352 enew | |
4353 silent norm! "ap | |
4354 2 | |
4355 let bannercnt= search('^" =====','W') | |
4356 exe "silent 1,".bannercnt."d" | |
4357 set bt=nofile | |
4358 if g:netrw_liststyle == s:LONGLIST | |
4359 silent %s/\s\{2,}\S.*$//e | |
4360 elseif g:netrw_liststyle == s:WIDELIST | |
4361 silent %s/\s\{2,}/\r/ge | |
4362 elseif g:netrw_liststyle == s:TREELIST | |
4363 silent %s/^| //e | |
4364 silent! g/^ .*$/d | |
4365 endif | |
4366 " convert regexp into the more usual glob-style format | |
4367 let regexp= substitute(regexp,'\*','.*','g') | |
4368 " call Decho("regexp<".regexp.">") | |
4369 exe "silent! v/".escape(regexp,'/')."/d" | |
4370 let filelist= getline(1,line("$")) | |
4371 q! | |
4372 for filename in filelist | |
4373 call s:NetrwMarkFile(a:islocal,substitute(filename,'^.*/','','')) | |
4374 endfor | |
4375 unlet filelist | |
4376 let @a = areg | |
4377 let &ei = eikeep | |
4378 endif | |
4379 | |
4380 " call Dret("s:NetrwMarkFileRegexp") | |
4381 endfun | |
4382 | |
4383 " --------------------------------------------------------------------- | |
4384 " s:NetrwMarkFileSource: (invoked by ms) This function sources marked files {{{2 | |
4385 " Uses the local marked file list. | |
4386 fun! s:NetrwMarkFileSource(islocal) | |
4387 " call Dfunc("s:NetrwMarkFileSource(islocal=".a:islocal.")") | |
4388 let curbufnr= bufnr("%") | |
4389 if exists("s:netrwmarkfilelist_{curbufnr}") | |
4390 let netrwmarkfilelist = s:netrwmarkfilelist_{bufnr("%")} | |
4391 let curdir = b:netrw_curdir | |
4392 call s:NetrwUnmarkList(curbufnr,curdir) | |
4393 for fname in netrwmarkfilelist | |
4394 if a:islocal | |
4395 if g:netrw_keepdir | |
4396 let fname= s:ComposePath(curdir,fname) | |
4397 endif | |
4398 else | |
4399 let fname= curdir.fname | |
4400 endif | |
4401 " the autocmds will handle sourcing both local and remote files | |
4402 " call Decho("exe so ".escape(fname,' ')) | |
4403 exe "so ".escape(fname,' ') | |
4404 endfor | |
4405 2match none | |
4406 endif | |
4407 " call Dret("s:NetrwMarkFileSource") | |
4408 endfun | |
4409 | |
4410 " --------------------------------------------------------------------- | |
4411 " s:NetrwMarkFileTag: (invoked by mT) This function applies g:netrw_ctags to marked files {{{2 | |
4412 " Uses the global markfilelist | |
4413 fun! s:NetrwMarkFileTag(islocal) | |
4414 " call Dfunc("s:NetrwMarkFileTag(islocal=".a:islocal.")") | |
4415 let svpos = netrw#NetrwSavePosn() | |
4416 let curdir = b:netrw_curdir | |
4417 let curbufnr = bufnr("%") | |
4418 | |
4419 if exists("s:netrwmarkfilelist") | |
4420 " call Decho("s:netrwmarkfilelist".string(s:netrwmarkfilelist).">") | |
4421 if a:islocal && g:netrw_keepdir | |
4422 let netrwmarkfilelist= "" | |
4423 for fname in s:netrwmarkfilelist | |
4424 " let netrwmarkfilelist= netrwmarkfilelist." ".s:ComposePath(curdir,fname) | |
4425 let netrwmarkfilelist= netrwmarkfilelist." ".fname | |
4426 endfor | |
4427 else | |
4428 let netrwmarkfilelist= string(s:netrwmarkfilelist) | |
4429 let netrwmarkfilelist= substitute(netrwmarkfilelist,'[[\],]','','g') | |
4430 endif | |
4431 call s:NetrwUnmarkAll() | |
4432 | |
4433 if a:islocal | |
4434 if executable(g:netrw_ctags) | |
4435 call map(netrwmarkfilelist,"shellescape(v:val)") | |
4436 " call Decho("call system(".g:netrw_ctags." ".netrwmarkfilelist.")") | |
4437 call system(g:netrw_ctags." ".netrwmarkfilelist) | |
4438 else | |
4439 call netrw#ErrorMsg(s:ERROR,"g:netrw_ctags<".g:netrw_ctags."> is not executable!",51) | |
4440 endif | |
4441 else | |
4442 let cmd= s:RemoteSystem(g:netrw_ctags." ".netrwmarkfilelist) | |
4443 call netrw#NetrwObtain(a:islocal,"tags") | |
4444 let curdir= b:netrw_curdir | |
4445 1split | |
4446 e tags | |
4447 let path= substitute(curdir,'^\(.*\)/[^/]*$','\1/','') | |
4448 " call Decho("curdir<".curdir."> path<".path.">") | |
4449 exe '%s/\t\(\S\+\)\t/\t'.escape(path,'/').'\1\t/e' | |
4450 wq! | |
4451 endif | |
4452 2match none | |
4453 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
4454 call netrw#NetrwRestorePosn(svpos) | |
4455 endif | |
4456 | |
4457 " call Dret("s:NetrwMarkFileTag") | |
4458 endfun | |
4459 | |
4460 " --------------------------------------------------------------------- | |
4461 " s:NetrwMarkFileTgt: (invoked by mt) This function sets up a marked file target {{{2 | |
4462 " Sets up two variables, | |
4463 " s:netrwmftgt : holds the target directory | |
4464 " s:netrwmftgt_islocal : 0=target directory is remote | |
4465 " 1=target directory is local | |
4466 fun! s:NetrwMarkFileTgt(islocal) | |
4467 " call Dfunc("s:NetrwMarkFileTgt(islocal=".a:islocal.")") | |
4468 let svpos = netrw#NetrwSavePosn() | |
4469 let curdir = b:netrw_curdir | |
4470 let hadtgt = exists("s:netrwmftgt") | |
4471 if !exists("w:netrw_bannercnt") | |
4472 let w:netrw_bannercnt= b:netrw_bannercnt | |
4473 endif | |
4474 | |
4475 " set up target | |
4476 if line(".") < w:netrw_bannercnt | |
4477 " if cursor in banner region, use b:netrw_curdir for the target | |
4478 let s:netrwmftgt= b:netrw_curdir | |
4479 " call Decho("inbanner: s:netrwmftgt<".s:netrwmftgt.">") | |
4480 | |
4481 else | |
4482 " get word under cursor. | |
4483 " * If directory, use it for the target. | |
4484 " * If file, use b:netrw_curdir for the target | |
4485 let curword= s:NetrwGetWord() | |
4486 let tgtdir = s:ComposePath(curdir,curword) | |
4487 if a:islocal && isdirectory(tgtdir) | |
4488 let s:netrwmftgt = tgtdir | |
4489 " call Decho("local isdir: s:netrwmftgt<".s:netrwmftgt.">") | |
4490 elseif !a:islocal && tgtdir =~ '/$' | |
4491 let s:netrwmftgt = tgtdir | |
4492 " call Decho("remote isdir: s:netrwmftgt<".s:netrwmftgt.">") | |
4493 else | |
4494 let s:netrwmftgt = curdir | |
4495 " call Decho("isfile: s:netrwmftgt<".s:netrwmftgt.">") | |
4496 endif | |
4497 endif | |
4498 if a:islocal | |
4499 " simplify the target (eg. /abc/def/../ghi -> /abc/ghi) | |
4500 let s:netrwmftgt= simplify(s:netrwmftgt) | |
4501 " call Decho("simplify: s:netrwmftgt<".s:netrwmftgt.">") | |
4502 endif | |
4503 if g:netrw_cygwin | |
4504 let s:netrwmftgt= substitute(system("cygpath ".shellescape(s:netrwmftgt)),'\n$','','') | |
4505 let s:netrwmftgt= substitute(s:netrwmftgt,'\n$','','') | |
4506 endif | |
4507 let s:netrwmftgt_islocal= a:islocal | |
4508 | |
4509 if g:netrw_fastbrowse > 0 | |
4510 call s:LocalBrowseShellCmdRefresh() | |
4511 endif | |
4512 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
4513 call netrw#NetrwRestorePosn(svpos) | |
4514 if !hadtgt | |
4515 norm! j | |
4516 endif | |
4517 | |
4518 " call Dret("s:NetrwMarkFileTgt : netrwmftgt<".(exists("s:netrwmftgt")? s:netrwmftgt : "").">") | |
4519 endfun | |
4520 | |
4521 " --------------------------------------------------------------------- | |
4522 " s:NetrwUnmarkList: delete local marked file lists and remove their contents from the global marked-file list {{{2 | |
4523 fun! s:NetrwUnmarkList(curbufnr,curdir) | |
4524 " call Dfunc("s:NetrwUnmarkList(curbufnr=".a:curbufnr." curdir<".a:curdir.">)") | |
4525 | |
4526 " remove all files in local marked-file list from global list | |
4527 if exists("s:netrwmarkfilelist_{a:curbufnr}") | |
4528 for mfile in s:netrwmarkfilelist_{a:curbufnr} | |
4529 let dfile = s:ComposePath(a:curdir,mfile) " prepend directory to mfile | |
4530 let idx = index(s:netrwmarkfilelist,dfile) " get index in list of dfile | |
4531 call remove(s:netrwmarkfilelist,idx) " remove from global list | |
4532 endfor | |
4533 if s:netrwmarkfilelist == [] | |
4534 unlet s:netrwmarkfilelist | |
4535 endif | |
4536 | |
4537 " getting rid of the local marked-file lists is easy | |
4538 unlet s:netrwmarkfilelist_{a:curbufnr} | |
4539 endif | |
4540 if exists("s:netrwmarkfilemtch_{a:curbufnr}") | |
4541 unlet s:netrwmarkfilemtch_{a:curbufnr} | |
4542 endif | |
4543 2match none | |
4544 " call Dret("s:NetrwUnmarkList") | |
4545 endfun | |
4546 | |
4547 " --------------------------------------------------------------------- | |
4548 " s:NetrwUnmarkAll: remove the global marked file list and all local ones {{{2 | |
4549 fun! s:NetrwUnmarkAll() | |
4550 " call Dfunc("s:NetrwUnmarkAll()") | |
4551 if exists("s:netrwmarkfilelist") | |
4552 unlet s:netrwmarkfilelist | |
4553 endif | |
4554 silent call s:NetrwUnmarkAll2() | |
4555 2match none | |
4556 " call Dret("s:NetrwUnmarkAll") | |
4557 endfun | |
4558 | |
4559 " --------------------------------------------------------------------- | |
4560 " s:NetrwUnmarkAll2: {{{2 | |
4561 fun! s:NetrwUnmarkAll2() | |
4562 " call Dfunc("s:NetrwUnmarkAll2()") | |
4563 redir => netrwmarkfilelist_let | |
4564 let | |
4565 redir END | |
4566 let netrwmarkfilelist_list= split(netrwmarkfilelist_let,'\n') " convert let string into a let list | |
4567 call filter(netrwmarkfilelist_list,"v:val =~ '^s:netrwmarkfilelist_'") " retain only those vars that start as s:netrwmarkfilelist_ | |
4568 call map(netrwmarkfilelist_list,"substitute(v:val,'\\s.*$','','')") " remove what the entries are equal to | |
4569 for flist in netrwmarkfilelist_list | |
4570 let curbufnr= substitute(flist,'s:netrwmarkfilelist_','','') | |
4571 unlet s:netrwmarkfilelist_{curbufnr} | |
4572 unlet s:netrwmarkfilemtch_{curbufnr} | |
4573 endfor | |
4574 " call Dret("s:NetrwUnmarkAll2") | |
4575 endfun | |
4576 | |
4577 " --------------------------------------------------------------------- | |
4578 " s:NetrwUnMarkFile: {{{2 | |
4579 fun! s:NetrwUnMarkFile(islocal) | |
4580 " call Dfunc("s:NetrwUnMarkFile(islocal=".a:islocal.")") | |
4581 let svpos = netrw#NetrwSavePosn() | |
4582 let curbufnr = bufnr("%") | |
4583 | |
4584 " unmark marked file list (although I expect s:NetrwUpload() | |
4585 " to do it, I'm just making sure) | |
4586 if exists("s:netrwmarkfilelist_{bufnr('%')}") | |
4587 " call Decho("unlet'ing: s:netrwmarkfile[list|mtch]_".bufnr("%")) | |
4588 unlet s:netrwmarkfilelist | |
4589 unlet s:netrwmarkfilelist_{curbufnr} | |
4590 unlet s:netrwmarkfilemtch_{curbufnr} | |
4591 2match none | |
4592 endif | |
4593 | |
4594 " call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
4595 call netrw#NetrwRestorePosn(svpos) | |
4596 " call Dret("s:NetrwUnMarkFile") | |
4597 endfun | |
4598 | |
4599 " --------------------------------------------------------------------- | |
4600 " s:NetrwMenu: generates the menu for gvim and netrw {{{2 | |
4601 fun! s:NetrwMenu(domenu) | |
4602 | |
4603 if !exists("g:NetrwMenuPriority") | |
4604 let g:NetrwMenuPriority= 80 | |
4605 endif | |
4606 | |
4607 if has("menu") && has("gui_running") && &go =~ 'm' && g:netrw_menu | |
4608 " call Dfunc("NetrwMenu(domenu=".a:domenu.")") | |
4609 | |
4610 if !exists("s:netrw_menu_enabled") && a:domenu | |
4611 " call Decho("initialize menu") | |
4612 let s:netrw_menu_enabled= 1 | |
4613 exe 'silent! menu '.g:NetrwMenuPriority.'.1 '.g:NetrwTopLvlMenu.'Help<tab><F1> <F1>' | |
4614 call s:NetrwBookmarkMenu() " provide some history! uses priorities 2,3, reserves 4 | |
4615 exe 'silent! menu '.g:NetrwMenuPriority.'.5 '.g:NetrwTopLvlMenu.'-Sep1- :' | |
4616 exe 'silent! menu '.g:NetrwMenuPriority.'.6 '.g:NetrwTopLvlMenu.'Go\ Up\ Directory<tab>- -' | |
4617 exe 'silent! menu '.g:NetrwMenuPriority.'.7 '.g:NetrwTopLvlMenu.'Apply\ Special\ Viewer<tab>x x' | |
4618 exe 'silent! menu '.g:NetrwMenuPriority.'.8.1 '.g:NetrwTopLvlMenu.'Bookmarks\ and\ History.Bookmark\ Current\ Directory<tab>mb mb' | |
4619 exe 'silent! menu '.g:NetrwMenuPriority.'.8.2 '.g:NetrwTopLvlMenu.'Bookmarks\ and\ History.Bookmark\ Delete<tab>mB mB' | |
4620 exe 'silent! menu '.g:NetrwMenuPriority.'.8.3 '.g:NetrwTopLvlMenu.'Bookmarks\ and\ History.Goto\ Bookmark<tab>gb gb' | |
4621 exe 'silent! menu '.g:NetrwMenuPriority.'.8.4 '.g:NetrwTopLvlMenu.'Bookmarks\ and\ History.Goto\ Prev\ Dir\ (History)<tab>u u' | |
4622 exe 'silent! menu '.g:NetrwMenuPriority.'.8.5 '.g:NetrwTopLvlMenu.'Bookmarks\ and\ History.Goto\ Next\ Dir\ (History)<tab>U U' | |
4623 exe 'silent! menu '.g:NetrwMenuPriority.'.8.6 '.g:NetrwTopLvlMenu.'Bookmarks\ and\ History.List<tab>qb qb' | |
4624 exe 'silent! menu '.g:NetrwMenuPriority.'.9.1 '.g:NetrwTopLvlMenu.'Browsing\ Control.Edit\ File\ Hiding\ List<tab>'."<ctrl-h> \<Plug>NetrwHideEdit" | |
4625 exe 'silent! menu '.g:NetrwMenuPriority.'.9.2 '.g:NetrwTopLvlMenu.'Browsing\ Control.Edit\ Sorting\ Sequence<tab>S S' | |
4626 exe 'silent! menu '.g:NetrwMenuPriority.'.9.3 '.g:NetrwTopLvlMenu.'Browsing\ Control.Quick\ Hide/Unhide\ Dot\ Files<tab>'."gh gh" | |
4627 exe 'silent! menu '.g:NetrwMenuPriority.'.9.4 '.g:NetrwTopLvlMenu.'Browsing\ Control.Refresh\ Listing<tab>'."<ctrl-l> \<Plug>NetrwRefresh" | |
4628 exe 'silent! menu '.g:NetrwMenuPriority.'.9.5 '.g:NetrwTopLvlMenu.'Browsing\ Control.Settings/Options<tab>:NetrwSettings '.":NetrwSettings\<cr>" | |
4629 exe 'silent! menu '.g:NetrwMenuPriority.'.10 '.g:NetrwTopLvlMenu.'Delete\ File/Directory<tab>D D' | |
4630 exe 'silent! menu '.g:NetrwMenuPriority.'.11.1 '.g:NetrwTopLvlMenu.'Edit\ File/Dir.In\ Current\ Window<tab><cr> '."\<cr>" | |
4631 exe 'silent! menu '.g:NetrwMenuPriority.'.11.2 '.g:NetrwTopLvlMenu.'Edit\ File/Dir.Preview\ File/Directory<tab>p p' | |
4632 exe 'silent! menu '.g:NetrwMenuPriority.'.11.3 '.g:NetrwTopLvlMenu.'Edit\ File/Dir.In\ Previous\ Window<tab>P P' | |
4633 exe 'silent! menu '.g:NetrwMenuPriority.'.11.4 '.g:NetrwTopLvlMenu.'Edit\ File/Dir.In\ New\ Window<tab>o o' | |
4634 exe 'silent! menu '.g:NetrwMenuPriority.'.11.5 '.g:NetrwTopLvlMenu.'Edit\ File/Dir.In\ New\ Vertical\ Window<tab>v v' | |
4635 exe 'silent! menu '.g:NetrwMenuPriority.'.12.1 '.g:NetrwTopLvlMenu.'Explore.Directory\ Name :Explore ' | |
4636 exe 'silent! menu '.g:NetrwMenuPriority.'.12.2 '.g:NetrwTopLvlMenu.'Explore.Filenames\ Matching\ Pattern\ (curdir\ only)<tab>:Explore\ */ :Explore */' | |
4637 exe 'silent! menu '.g:NetrwMenuPriority.'.12.2 '.g:NetrwTopLvlMenu.'Explore.Filenames\ Matching\ Pattern\ (+subdirs)<tab>:Explore\ **/ :Explore **/' | |
4638 exe 'silent! menu '.g:NetrwMenuPriority.'.12.3 '.g:NetrwTopLvlMenu.'Explore.Files\ Containing\ Pattern\ (curdir\ only)<tab>:Explore\ *// :Explore *//' | |
4639 exe 'silent! menu '.g:NetrwMenuPriority.'.12.4 '.g:NetrwTopLvlMenu.'Explore.Files\ Containing\ Pattern\ (+subdirs)<tab>:Explore\ **// :Explore **//' | |
4640 exe 'silent! menu '.g:NetrwMenuPriority.'.12.4 '.g:NetrwTopLvlMenu.'Explore.Next\ Match<tab>:Nexplore :Nexplore<cr>' | |
4641 exe 'silent! menu '.g:NetrwMenuPriority.'.12.4 '.g:NetrwTopLvlMenu.'Explore.Prev\ Match<tab>:Pexplore :Pexplore<cr>' | |
4642 exe 'silent! menu '.g:NetrwMenuPriority.'.13 '.g:NetrwTopLvlMenu.'Make\ Subdirectory<tab>d d' | |
4643 exe 'silent! menu '.g:NetrwMenuPriority.'.14.1 '.g:NetrwTopLvlMenu.'Marked\ Files.Mark\ File<tab>mf mf' | |
4644 exe 'silent! menu '.g:NetrwMenuPriority.'.14.2 '.g:NetrwTopLvlMenu.'Marked\ Files.Mark\ Files\ by\ Regexp<tab>mr mr' | |
4645 exe 'silent! menu '.g:NetrwMenuPriority.'.14.3 '.g:NetrwTopLvlMenu.'Marked\ Files.Hide-Show-List\ Control<tab>a a' | |
4646 exe 'silent! menu '.g:NetrwMenuPriority.'.14.4 '.g:NetrwTopLvlMenu.'Marked\ Files.Copy\ To\ Target<tab>mc mc' | |
4647 exe 'silent! menu '.g:NetrwMenuPriority.'.14.5 '.g:NetrwTopLvlMenu.'Marked\ Files.Delete<tab>D D' | |
4648 exe 'silent! menu '.g:NetrwMenuPriority.'.14.6 '.g:NetrwTopLvlMenu.'Marked\ Files.Diff<tab>md md' | |
4649 exe 'silent! menu '.g:NetrwMenuPriority.'.14.7 '.g:NetrwTopLvlMenu.'Marked\ Files.Edit<tab>me me' | |
4650 exe 'silent! menu '.g:NetrwMenuPriority.'.14.8 '.g:NetrwTopLvlMenu.'Marked\ Files.Exe\ Cmd<tab>mx mx' | |
4651 exe 'silent! menu '.g:NetrwMenuPriority.'.14.9 '.g:NetrwTopLvlMenu.'Marked\ Files.Move\ To\ Target<tab>mm mm' | |
4652 exe 'silent! menu '.g:NetrwMenuPriority.'.14.10 '.g:NetrwTopLvlMenu.'Marked\ Files.Obtain<tab>O O' | |
4653 exe 'silent! menu '.g:NetrwMenuPriority.'.14.11 '.g:NetrwTopLvlMenu.'Marked\ Files.Print<tab>mp mp' | |
4654 exe 'silent! menu '.g:NetrwMenuPriority.'.14.12 '.g:NetrwTopLvlMenu.'Marked\ Files.Replace<tab>R R' | |
4655 exe 'silent! menu '.g:NetrwMenuPriority.'.14.13 '.g:NetrwTopLvlMenu.'Marked\ Files.Set\ Target<tab>mt mt' | |
4656 exe 'silent! menu '.g:NetrwMenuPriority.'.14.14 '.g:NetrwTopLvlMenu.'Marked\ Files.Tag<tab>mT mT' | |
4657 exe 'silent! menu '.g:NetrwMenuPriority.'.14.15 '.g:NetrwTopLvlMenu.'Marked\ Files.Zip/Unzip/Compress/Uncompress<tab>mz mz' | |
4658 exe 'silent! menu '.g:NetrwMenuPriority.'.15 '.g:NetrwTopLvlMenu.'Obtain\ File<tab>O O' | |
4659 exe 'silent! menu '.g:NetrwMenuPriority.'.16.1 '.g:NetrwTopLvlMenu.'Style.Listing\ Style\ (thin-long-wide-tree)<tab>i i' | |
4660 exe 'silent! menu '.g:NetrwMenuPriority.'.16.2 '.g:NetrwTopLvlMenu.'Style.Normal-Hide-Show<tab>a a' | |
4661 exe 'silent! menu '.g:NetrwMenuPriority.'.16.3 '.g:NetrwTopLvlMenu.'Style.Reverse\ Sorting\ Order<tab>'."r r" | |
4662 exe 'silent! menu '.g:NetrwMenuPriority.'.16.4 '.g:NetrwTopLvlMenu.'Style.Sorting\ Method\ (name-time-size)<tab>s s' | |
4663 exe 'silent! menu '.g:NetrwMenuPriority.'.17 '.g:NetrwTopLvlMenu.'Rename\ File/Directory<tab>R R' | |
4664 exe 'silent! menu '.g:NetrwMenuPriority.'.18 '.g:NetrwTopLvlMenu.'Set\ Current\ Directory<tab>c c' | |
4665 let s:netrw_menucnt= 28 | |
4666 | |
4667 elseif !a:domenu | |
4668 let s:netrwcnt = 0 | |
4669 let curwin = winnr() | |
4670 windo if getline(2) =~ "Netrw" | let s:netrwcnt= s:netrwcnt + 1 | endif | |
4671 exe curwin."wincmd w" | |
4672 | |
4673 if s:netrwcnt <= 1 | |
4674 " call Decho("clear menus") | |
4675 exe 'silent! unmenu '.g:NetrwTopLvlMenu | |
4676 " call Decho('exe silent! unmenu '.g:NetrwTopLvlMenu.'*') | |
4677 silent! unlet s:netrw_menu_enabled | |
4678 endif | |
4679 endif | |
4680 " call Dret("NetrwMenu") | |
4681 endif | |
4682 | |
4683 endfun | |
4684 | |
4685 " --------------------------------------------------------------------- | |
4686 " s:NetrwObtain: obtain file under cursor or from markfile list {{{2 | |
4687 " Used by the O maps (as <SID>NetrwObtain()) | |
4688 fun! s:NetrwObtain(islocal) | |
4689 " call Dfunc("NetrwObtain(islocal=".a:islocal.")") | |
4690 | |
4691 if exists("s:netrwmarkfilelist_{bufnr('%')}") | |
4692 let islocal= s:netrwmarkfilelist_{bufnr("%")}[1] !~ '^\a\+://' | |
4693 call netrw#NetrwObtain(islocal,s:netrwmarkfilelist_{bufnr("%")}) | |
4694 call s:NetrwUnmarkList(bufnr('%'),b:netrw_curdir) | |
4695 else | |
4696 call netrw#NetrwObtain(a:islocal,expand("<cWORD>")) | |
4697 endif | |
4698 | |
4699 " call Dret("NetrwObtain") | |
4700 endfun | |
4701 | |
4702 " --------------------------------------------------------------------- | |
4703 " netrw#NetrwObtain: {{{2 | |
4704 " netrw#NetrwObtain(islocal,fname[,tgtdirectory]) | |
4705 " islocal=0 obtain from remote source | |
4706 " =1 obtain from local source | |
4707 " fname : a filename or a list of filenames | |
4708 " tgtdir : optional place where files are to go (not present, uses getcwd()) | |
4709 fun! netrw#NetrwObtain(islocal,fname,...) | |
4710 " call Dfunc("netrw#NetrwObtain(islocal=".a:islocal." fname<".((type(a:fname) == 1)? a:fname : string(a:fname)).">) a:0=".a:0) | |
4711 " NetrwStatusLine support - for obtaining support | |
4712 | |
4713 if type(a:fname) == 1 | |
4714 let fnamelist= [ a:fname ] | |
4715 elseif type(a:fname) == 3 | |
4716 let fnamelist= a:fname | |
4717 else | |
4718 call netrw#ErrorMsg(s:ERROR,"attempting to use NetrwObtain on something not a filename or a list",62) | |
4719 " call Dret("netrw#NetrwObtain") | |
4720 return | |
4721 endif | |
4722 " call Decho("fnamelist<".string(fnamelist).">") | |
4723 if a:0 > 0 | |
4724 let tgtdir= a:1 | |
4725 else | |
4726 let tgtdir= getcwd() | |
4727 endif | |
4728 " call Decho("tgtdir<".tgtdir.">") | |
4729 | |
4730 if a:islocal | |
4731 " obtain a file from b:netrw_curdir to getcwd() | |
4732 " call Decho("obtain a local file from ".b:netrw_curdir." to ".tgtdir | |
4733 if exists("b:netrw_curdir") && getcwd() != b:netrw_curdir | |
4734 let topath= s:ComposePath(tgtdir,"") | |
4735 if (has("win32") || has("win95") || has("win64") || has("win16")) | |
4736 " transfer files one at time | |
4737 for fname in fnamelist | |
4738 " call Decho("system(".g:netrw_localcopycmd." ".fname." ".shellescape(topath).")") | |
4739 call system(g:netrw_localcopycmd." ".fname." ".shellescape(topath)) | |
4740 endfor | |
4741 else | |
4742 " transfer files with one command | |
4743 let filelist= join(map(copy(fname),"shellescape(v:val)")) | |
4744 " call Decho("system(".g:netrw_localcopycmd." ".filelist." ".shellescape(topath).")") | |
4745 call system(g:netrw_localcopycmd." ".filelist." ".shellescape(topath)) | |
4746 endif | |
4747 elseif !exists("b:netrw_curdir") | |
4748 call netrw#ErrorMsg(s:ERROR,"local browsing directory doesn't exist!",36) | |
4749 else | |
4750 call netrw#ErrorMsg(s:WARNING,"local browsing directory and current directory are identical",37) | |
4751 endif | |
4752 | |
4753 else | |
4754 " call Decho("obtain a remote file from ".b:netrw_curdir." to ".tgtdir) | |
4755 if type(a:fname) == 1 | |
4756 call s:SetupNetrwStatusLine('%f %h%m%r%=%9*Obtaining '.a:fname) | |
4757 endif | |
4758 call s:NetrwMethod(b:netrw_curdir) | |
4759 | |
4760 if b:netrw_method == 4 | |
4761 " obtain file using scp | |
4762 " call Decho("obtain via scp (method#4)") | |
4763 if exists("g:netrw_port") && g:netrw_port != "" | |
4764 let useport= " ".g:netrw_scpport." ".g:netrw_port | |
4765 else | |
4766 let useport= "" | |
4767 endif | |
4768 if b:netrw_fname =~ '/' | |
4769 let path= substitute(b:netrw_fname,'^\(.*/\).\{-}$','\1','') | |
4770 else | |
4771 let path= "" | |
4772 endif | |
4773 let filelist= join(map(copy(fnamelist),'shellescape(g:netrw_machine.":".escape(path.v:val,g:netrw_fname_escape))')) | |
4774 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".filelist." ".shellescape(tgtdir)) | |
4775 exe s:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".filelist." ".shellescape(tgtdir) | |
4776 | |
4777 elseif b:netrw_method == 2 | |
4778 " obtain file using ftp + .netrc | |
4779 " call Decho("obtain via ftp+.netrc (method #2)") | |
4780 call s:SaveBufVars()|silent keepjumps new|call s:RestoreBufVars() | |
4781 let tmpbufnr= bufnr("%") | |
4782 setlocal ff=unix | |
4783 if exists("g:netrw_ftpmode") && g:netrw_ftpmode != "" | |
4784 exe "put ='".g:netrw_ftpmode."'" | |
4785 " call Decho("filter input: ".getline('$')) | |
4786 endif | |
4787 | |
4788 if exists("b:netrw_fname") && b:netrw_fname != "" | |
4789 call setline(line("$")+1,'cd "'.b:netrw_fname.'"') | |
4790 " call Decho("filter input: ".getline('$')) | |
4791 endif | |
4792 | |
4793 if exists("g:netrw_ftpextracmd") | |
4794 exe "put ='".g:netrw_ftpextracmd."'" | |
4795 " call Decho("filter input: ".getline('$')) | |
4796 endif | |
4797 for fname in fnamelist | |
4798 call setline(line("$")+1,'get "'.fname.'"') | |
4799 " call Decho("filter input: ".getline('$')) | |
4800 endfor | |
4801 if exists("g:netrw_port") && g:netrw_port != "" | |
4802 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) | |
4803 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port | |
4804 else | |
4805 " call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) | |
4806 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine | |
4807 endif | |
4808 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) | |
4809 if getline(1) !~ "^$" && !exists("g:netrw_quiet") && getline(1) !~ '^Trying ' | |
4810 let debugkeep= &debug | |
4811 setlocal debug=msg | |
4812 call netrw#ErrorMsg(s:ERROR,getline(1),4) | |
4813 let &debug= debugkeep | |
4814 endif | |
4815 | |
4816 elseif b:netrw_method == 3 | |
4817 " obtain with ftp + machine, id, passwd, and fname (ie. no .netrc) | |
4818 " call Decho("obtain via ftp+mipf (method #3)") | |
4819 call s:SaveBufVars()|silent keepjumps new|call s:RestoreBufVars() | |
4820 let tmpbufnr= bufnr("%") | |
4821 setlocal ff=unix | |
4822 | |
4823 if exists("g:netrw_port") && g:netrw_port != "" | |
4824 put ='open '.g:netrw_machine.' '.g:netrw_port | |
4825 " call Decho("filter input: ".getline('$')) | |
4826 else | |
4827 put ='open '.g:netrw_machine | |
4828 " call Decho("filter input: ".getline('$')) | |
4829 endif | |
4830 | |
4831 if exists("g:netrw_ftp") && g:netrw_ftp == 1 | |
4832 put =g:netrw_uid | |
4833 " call Decho("filter input: ".getline('$')) | |
4834 put ='\"'.s:netrw_passwd.'\"' | |
4835 " call Decho("filter input: ".getline('$')) | |
4836 else | |
4837 put ='user \"'.g:netrw_uid.'\" \"'.s:netrw_passwd.'\"' | |
4838 " call Decho("filter input: ".getline('$')) | |
4839 endif | |
4840 | |
4841 if exists("g:netrw_ftpmode") && g:netrw_ftpmode != "" | |
4842 put =g:netrw_ftpmode | |
4843 " call Decho("filter input: ".getline('$')) | |
4844 endif | |
4845 | |
4846 if exists("b:netrw_fname") && b:netrw_fname != "" | |
4847 call setline(line("$")+1,'cd "'.b:netrw_fname.'"') | |
4848 " call Decho("filter input: ".getline('$')) | |
4849 endif | |
4850 | |
4851 if exists("g:netrw_ftpextracmd") | |
4852 exe "put ='".g:netrw_ftpextracmd."'" | |
4853 " call Decho("filter input: ".getline('$')) | |
4854 endif | |
4855 | |
4856 if exists("g:netrw_ftpextracmd") | |
4857 exe "put ='".g:netrw_ftpextracmd."'" | |
4858 " call Decho("filter input: ".getline('$')) | |
4859 endif | |
4860 for fname in fnamelist | |
4861 call setline(line("$")+1,'get "'.fname.'"') | |
4862 endfor | |
4863 " call Decho("filter input: ".getline('$')) | |
4864 | |
4865 " perform ftp: | |
4866 " -i : turns off interactive prompting from ftp | |
4867 " -n unix : DON'T use <.netrc>, even though it exists | |
4868 " -n win32: quit being obnoxious about password | |
4869 norm! 1Gdd | |
4870 " call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") | |
4871 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n" | |
4872 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) | |
4873 if getline(1) !~ "^$" | |
4874 " call Decho("error<".getline(1).">") | |
4875 if !exists("g:netrw_quiet") | |
4876 call netrw#ErrorMsg(s:ERROR,getline(1),5) | |
4877 endif | |
4878 endif | |
4879 endif | |
4880 | |
4881 endif | |
4882 | |
4883 " cleanup | |
4884 if exists("tmpbufnr") | |
4885 if bufnr("%") != tmpbufnr | |
4886 exe tmpbufnr."bw!" | |
4887 else | |
4888 q! | |
4889 endif | |
4890 endif | |
4891 | |
4892 " call Dret("netrw#NetrwObtain") | |
4893 endfun | |
4894 | |
4895 " --------------------------------------------------------------------- | |
4896 " s:NetrwPrevWinOpen: open file/directory in previous window. {{{2 | |
4897 " If there's only one window, then the window will first be split. | |
4898 " Returns: | |
4899 " choice = 0 : didn't have to choose | |
4900 " choice = 1 : saved modified file in window first | |
4901 " choice = 2 : didn't save modified file, opened window | |
4902 " choice = 3 : cancel open | |
4903 fun! s:NetrwPrevWinOpen(islocal) | |
4904 " call Dfunc("NetrwPrevWinOpen(islocal=".a:islocal.")") | |
4905 | |
4906 " grab a copy of the b:netrw_curdir to pass it along to newly split windows | |
4907 let curdir = b:netrw_curdir | |
4908 | |
4909 " get last window number and the word currently under the cursor | |
4910 let lastwinnr = winnr("$") | |
4911 let curword = s:NetrwGetWord() | |
4912 let choice = 0 | |
4913 " call Decho("lastwinnr=".lastwinnr." curword<".curword.">") | |
4914 | |
4915 let didsplit = 0 | |
4916 if lastwinnr == 1 | |
4917 " if only one window, open a new one first | |
4918 " call Decho("only one window, so open a new one (g:netrw_alto=".g:netrw_alto.")") | |
4919 if g:netrw_preview | |
4920 " call Decho("exe ".(g:netrw_alto? "top " : "bot ")."vert ".g:netrw_winsize."wincmd s") | |
4921 exe (g:netrw_alto? "top " : "bot ")."vert ".g:netrw_winsize."wincmd s" | |
4922 else | |
4923 " call Decho("exe ".(g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s") | |
4924 exe (g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s" | |
4925 endif | |
4926 let didsplit = 1 | |
4927 | |
4928 else | |
4929 call s:SaveBufVars() | |
4930 " call Decho("wincmd p") | |
4931 wincmd p | |
4932 call s:RestoreBufVars() | |
4933 " if the previous window's buffer has been changed (is modified), | |
4934 " and it doesn't appear in any other extant window, then ask the | |
4935 " user if s/he wants to abandon modifications therein. | |
4936 let bnr = winbufnr(0) | |
4937 let bnrcnt = 0 | |
4938 if &mod | |
4939 " call Decho("detected: prev window's buffer has been modified: bnr=".bnr." winnr#".winnr()) | |
4940 let eikeep= &ei | |
4941 set ei=all | |
4942 windo if winbufnr(0) == bnr | let bnrcnt=bnrcnt+1 | endif | |
4943 exe bnr."wincmd p" | |
4944 let &ei= eikeep | |
4945 " call Decho("bnr=".bnr." bnrcnt=".bnrcnt." buftype=".&bt." winnr#".winnr()) | |
4946 if bnrcnt == 1 | |
4947 let bufname= bufname(winbufnr(winnr())) | |
4948 let choice= confirm("Save modified file<".bufname.">?","&Yes\n&No\n&Cancel") | |
4949 " call Decho("bufname<".bufname."> choice=".choice." winnr#".winnr()) | |
4950 | |
4951 if choice == 1 | |
4952 " Yes -- write file & then browse | |
4953 let v:errmsg= "" | |
4954 silent w | |
4955 if v:errmsg != "" | |
4956 call netrw#ErrorMsg(s:ERROR,"unable to write <".bufname.">!",30) | |
4957 if didsplit | |
4958 q | |
4959 else | |
4960 wincmd p | |
4961 endif | |
4962 " call Dret("NetrwPrevWinOpen ".choice." : unable to write <".bufname.">") | |
4963 return choice | |
4964 endif | |
4965 | |
4966 elseif choice == 2 | |
4967 " No -- don't worry about changed file, just browse anyway | |
4968 setlocal nomod | |
4969 call netrw#ErrorMsg(s:WARNING,bufname." changes to ".bufname." abandoned",31) | |
4970 wincmd p | |
4971 | |
4972 else | |
4973 " Cancel -- don't do this | |
4974 if didsplit | |
4975 q | |
4976 else | |
4977 wincmd p | |
4978 endif | |
4979 " call Dret("NetrwPrevWinOpen ".choice." : cancelled") | |
4980 return choice | |
4981 endif | |
4982 endif | |
4983 endif | |
4984 endif | |
4985 | |
4986 " restore b:netrw_curdir (window split/enew may have lost it) | |
4987 let b:netrw_curdir= curdir | |
4988 if a:islocal < 2 | |
4989 if a:islocal | |
4990 call netrw#LocalBrowseCheck(s:NetrwBrowseChgDir(a:islocal,curword)) | |
4991 else | |
4992 call s:NetrwBrowse(a:islocal,s:NetrwBrowseChgDir(a:islocal,curword)) | |
4993 endif | |
4994 endif | |
4995 " call Dret("NetrwPrevWinOpen ".choice) | |
4996 return choice | |
4997 endfun | |
4998 | |
4999 " --------------------------------------------------------------------- | |
5000 " s:NetrwUpload: load fname to tgt (used by NetrwMarkFileCopy()) {{{2 | |
5001 " Always assumed to be local -> remote | |
5002 " call s:NetrwUpload(filename, target) | |
5003 " call s:NetrwUpload(filename, target, fromdirectory) | |
5004 fun! s:NetrwUpload(fname,tgt,...) | |
5005 " call Dfunc("s:NetrwUpload(fname<".((type(a:fname) == 1)? a:fname : string(a:fname))."> tgt<".a:tgt.">) a:0=".a:0) | |
5006 | |
5007 if a:tgt =~ '^\a\+://' | |
5008 let tgtdir= substitute(a:tgt,'^\a\+://[^/]\+/\(.\{-}\)$','\1','') | |
5009 else | |
5010 let tgtdir= substitute(a:tgt,'^\(.*\)/[^/]*$','\1','') | |
5011 endif | |
5012 " call Decho("tgtdir<".tgtdir.">") | |
5013 | |
5014 if a:0 > 0 | |
5015 let fromdir= a:1 | |
5016 else | |
5017 let fromdir= getcwd() | |
5018 endif | |
5019 " call Decho("fromdir<".fromdir.">") | |
5020 | |
5021 if type(a:fname) == 1 | |
5022 " handle uploading a single file using NetWrite | |
5023 " call Decho("handle uploading a single file via NetWrite") | |
5024 1split | |
5025 let efname= escape(a:fname,g:netrw_fname_escape) | |
5026 " call Decho("exe e ".efname) | |
5027 exe "e ".efname | |
5028 " call Decho("now locally editing<".expand("%").">, has ".line("$")." lines") | |
5029 if a:tgt =~ '/$' | |
5030 let wfname= substitute(a:fname,'^.*/','','') | |
5031 let wfname= escape(a:tgt.wfname,g:netrw_fname_escape) | |
5032 " call Decho("exe w! ".wfname) | |
5033 exe "w! ".wfname | |
5034 else | |
5035 let wfname= escape(a:tgt,g:netrw_fname_escape) | |
5036 " call Decho("writing local->remote: exe w ".wfname) | |
5037 exe "w ".wfname | |
5038 " call Decho("done writing local->remote") | |
5039 endif | |
5040 q! | |
5041 | |
5042 elseif type(a:fname) == 3 | |
5043 " handle uploading a list of files via scp | |
5044 " call Decho("handle uploading a list of files via scp") | |
5045 let curdir= getcwd() | |
5046 if a:tgt =~ '^scp:' | |
5047 exe "keepjumps silent lcd ".fnameescape(fromdir) | |
5048 let filelist= copy(s:netrwmarkfilelist_{bufnr('%')}) | |
5049 let args = join(map(filelist,"shellescape(v:val)")) | |
5050 if exists("g:netrw_port") && g:netrw_port != "" | |
5051 let useport= " ".g:netrw_scpport." ".g:netrw_port | |
5052 else | |
5053 let useport= "" | |
5054 endif | |
5055 let machine = substitute(a:tgt,'^scp://\([^/:]\+\).*$','\1','') | |
5056 let tgt = substitute(a:tgt,'^scp://[^/]\+/\(.*\)$','\1','') | |
5057 " call Decho("exe ".s:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".args." ".shellescape(machine.":".escape(tgt,g:netrw_fname_escape))) | |
5058 exe s:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".args." ".shellescape(machine.":".escape(tgt,g:netrw_fname_escape)) | |
5059 exe "keepjumps silent lcd ".fnameescape(curdir) | |
5060 | |
5061 elseif a:tgt =~ '^ftp:' | |
5062 call s:NetrwMethod(a:tgt) | |
5063 | |
5064 if b:netrw_method == 2 | |
5065 " handle uploading a list of files via ftp+.netrc | |
5066 let netrw_fname = b:netrw_fname | |
5067 silent keepjumps new | |
5068 " call Decho("filter input window#".winnr()) | |
5069 | |
5070 exe "put ='".g:netrw_ftpmode."'" | |
5071 " call Decho("filter input: ".getline('$')) | |
5072 | |
5073 if exists("g:netrw_ftpextracmd") | |
5074 exe "put ='".g:netrw_ftpextracmd."'" | |
5075 " call Decho("filter input: ".getline('$')) | |
5076 endif | |
5077 | |
5078 call setline(line("$")+1,'lcd "'.fromdir.'"') | |
5079 " call Decho("filter input: ".getline('$')) | |
5080 | |
5081 call setline(line("$")+1,'cd "'.tgtdir.'"') | |
5082 " call Decho("filter input: ".getline('$')) | |
5083 | |
5084 for fname in a:fname | |
5085 call setline(line("$")+1,'put "'.fname.'"') | |
5086 " call Decho("filter input: ".getline('$')) | |
5087 endfor | |
5088 | |
5089 if exists("g:netrw_port") && g:netrw_port != "" | |
5090 " call Decho("executing: ".s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) | |
5091 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port | |
5092 else | |
5093 " call Decho("filter input window#".winnr()) | |
5094 " call Decho("executing: ".s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine) | |
5095 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine | |
5096 endif | |
5097 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) | |
5098 silent g/Local directory now/d | |
5099 if getline(1) !~ "^$" && !exists("g:netrw_quiet") && getline(1) !~ '^Trying ' | |
5100 call netrw#ErrorMsg(s:ERROR,getline(1),14) | |
5101 else | |
5102 bw!|q | |
5103 endif | |
5104 | |
5105 elseif b:netrw_method == 3 | |
5106 " upload with ftp + machine, id, passwd, and fname (ie. no .netrc) | |
5107 let netrw_fname= b:netrw_fname | |
5108 call s:SaveBufVars()|silent keepjumps new|call s:RestoreBufVars() | |
5109 let tmpbufnr= bufnr("%") | |
5110 setlocal ff=unix | |
5111 | |
5112 if exists("g:netrw_port") && g:netrw_port != "" | |
5113 put ='open '.g:netrw_machine.' '.g:netrw_port | |
5114 " call Decho("filter input: ".getline('$')) | |
5115 else | |
5116 put ='open '.g:netrw_machine | |
5117 " call Decho("filter input: ".getline('$')) | |
5118 endif | |
5119 | |
5120 if exists("g:netrw_ftp") && g:netrw_ftp == 1 | |
5121 put =g:netrw_uid | |
5122 " call Decho("filter input: ".getline('$')) | |
5123 call setline(line("$")+1,'"'.s:netrw_passwd.'"') | |
5124 " call Decho("filter input: ".getline('$')) | |
5125 else | |
5126 put ='user \"'.g:netrw_uid.'\" \"'.s:netrw_passwd.'\"' | |
5127 " call Decho("filter input: ".getline('$')) | |
5128 endif | |
5129 | |
5130 call setline(line("$")+1,'lcd "'.fromdir.'"') | |
5131 " call Decho("filter input: ".getline('$')) | |
5132 | |
5133 if exists("b:netrw_fname") && b:netrw_fname != "" | |
5134 call setline(line("$")+1,'cd "'.b:netrw_fname.'"') | |
5135 " call Decho("filter input: ".getline('$')) | |
5136 endif | |
5137 | |
5138 if exists("g:netrw_ftpextracmd") | |
5139 exe "put ='".g:netrw_ftpextracmd."'" | |
5140 " call Decho("filter input: ".getline('$')) | |
5141 endif | |
5142 | |
5143 for fname in a:fname | |
5144 call setline(line("$")+1,'put "'.fname.'"') | |
5145 " call Decho("filter input: ".getline('$')) | |
5146 endfor | |
5147 | |
5148 " perform ftp: | |
5149 " -i : turns off interactive prompting from ftp | |
5150 " -n unix : DON'T use <.netrc>, even though it exists | |
5151 " -n win32: quit being obnoxious about password | |
5152 norm! 1Gdd | |
5153 " call Decho("executing: ".s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n") | |
5154 exe s:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n" | |
5155 " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) | |
5156 silent g/Local directory now/d | |
5157 if getline(1) !~ "^$" && !exists("g:netrw_quiet") && getline(1) !~ '^Trying ' | |
5158 let debugkeep= &debug | |
5159 setlocal debug=msg | |
5160 call netrw#ErrorMsg(s:ERROR,getline(1),15) | |
5161 let &debug = debugkeep | |
5162 let mod = 1 | |
5163 else | |
5164 bw!|q | |
5165 endif | |
5166 endif | |
5167 else | |
5168 call netrw#ErrorMsg(s:ERROR,"can't obtain files with protocol from<".a:tgt.">",63) | |
5169 endif | |
5170 endif | |
5171 | |
5172 " call Dret("s:NetrwUpload") | |
5173 endfun | |
5174 | |
5175 " --------------------------------------------------------------------- | |
5176 " s:NetrwPreview: {{{2 | |
5177 fun! s:NetrwPreview(path) range | |
5178 " call Dfunc("NetrwPreview(path<".a:path.">)") | |
5179 call s:NetrwOptionSave("s:") | |
5180 call s:NetrwSafeOptions() | |
5181 if has("quickfix") | |
5182 if !isdirectory(a:path) | |
5183 exe (g:netrw_preview? "vert " : "")."pedit ".escape(a:path,g:netrw_fname_escape) | |
5184 elseif !exists("g:netrw_quiet") | |
5185 call netrw#ErrorMsg(s:WARNING,"sorry, cannot preview a directory such as <".a:path.">",38) | |
5186 endif | |
5187 elseif !exists("g:netrw_quiet") | |
5188 call netrw#ErrorMsg(s:WARNING,"sorry, to preview your vim needs the quickfix feature compiled in",39) | |
5189 endif | |
5190 call s:NetrwOptionRestore("s:") | |
5191 " call Dret("NetrwPreview") | |
5192 endfun | |
5193 | |
5194 " --------------------------------------------------------------------- | |
5195 " s:NetrwRefresh: {{{2 | |
5196 fun! s:NetrwRefresh(islocal,dirname) | |
5197 " call Dfunc("NetrwRefresh(islocal<".a:islocal.">,dirname=".a:dirname.") hide=".g:netrw_hide." sortdir=".g:netrw_sort_direction) | |
5198 " at the current time (Mar 19, 2007) all calls to NetrwRefresh() call NetrwBrowseChgDir() first. | |
5199 " NetrwBrowseChgDir() may clear the display; hence a NetrwSavePosn() may not work if its placed here. | |
5200 " Also, NetrwBrowseChgDir() now does a NetrwSavePosn() itself. | |
5201 setlocal ma noro | |
5202 " call Decho("setlocal ma noro") | |
5203 " call Decho("clear buffer<".expand("%")."> with :%d") | |
5204 %d | |
5205 if a:islocal | |
5206 call netrw#LocalBrowseCheck(a:dirname) | |
5207 else | |
5208 call s:NetrwBrowse(a:islocal,a:dirname) | |
5209 endif | |
5210 call netrw#NetrwRestorePosn() | |
5211 | |
5212 " restore file marks | |
5213 if exists("s:netrwmarkfilemtch_{bufnr('%')}") && s:netrwmarkfilemtch_{bufnr("%")} != "" | |
5214 " call Decho("exe 2match netrwMarkFile /".s:netrwmarkfilemtch_{bufnr("%")}."/") | |
5215 exe "2match netrwMarkFile /".s:netrwmarkfilemtch_{bufnr("%")}."/" | |
5216 else | |
5217 " call Decho("2match none") | |
5218 2match none | |
5219 endif | |
5220 | |
5221 " redraw! | |
5222 " call Dret("NetrwRefresh") | |
5223 endfun | |
5224 | |
5225 " --------------------------------------------------------------------- | |
5226 " s:NetrwRefreshDir: refreshes a directory by name {{{2 | |
5227 " Called by NetrwMarkFileCopy() | |
5228 " Interfaces to s:NetrwRefresh() and s:LocalBrowseShellCmdRefresh() | |
5229 fun! s:NetrwRefreshDir(islocal,dirname) | |
5230 " call Dfunc("s:NetrwRefreshDir(islocal=".a:islocal." dirname<".a:dirname.">) fastbrowse=".g:netrw_fastbrowse) | |
5231 if g:netrw_fastbrowse == 0 | |
5232 " slowest mode (keep buffers refreshed, local or remote) | |
5233 " call Decho("slowest mode: keep buffers refreshed, local or remote") | |
5234 let tgtwin= bufwinnr(a:dirname) | |
5235 " call Decho("tgtwin= bufwinnr(".a:dirname.")=".tgtwin) | |
5236 | |
5237 if tgtwin > 0 | |
5238 " tgtwin is being displayed, so refresh it | |
5239 let curwin= winnr() | |
5240 " call Decho("refresh tgtwin#".tgtwin." (curwin#".curwin.")") | |
5241 exe tgtwin."wincmd w" | |
5242 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
5243 exe curwin."wincmd w" | |
5244 | |
5245 elseif bufnr(a:dirname) > 0 | |
5246 let bn= bufnr(a:dirname) | |
5247 " call Decho("bd bufnr(".a:dirname.")=".bn) | |
5248 exe "silent bd ".bn | |
5249 endif | |
5250 | |
5251 elseif g:netrw_fastbrowse <= 1 | |
5252 " call Decho("medium-speed mode: refresh local buffers only") | |
5253 call s:LocalBrowseShellCmdRefresh() | |
5254 endif | |
5255 " call Dret("s:NetrwRefreshDir") | |
5256 endfun | |
5257 | |
5258 " --------------------------------------------------------------------- | |
5259 " s:NetrwSetSort: sets up the sort based on the g:netrw_sort_sequence {{{2 | |
5260 " What this function does is to compute a priority for the patterns | |
5261 " in the g:netrw_sort_sequence. It applies a substitute to any | |
5262 " "files" that satisfy each pattern, putting the priority / in | |
5263 " front. An "*" pattern handles the default priority. | |
5264 fun! s:NetrwSetSort() | |
5265 " call Dfunc("SetSort() bannercnt=".w:netrw_bannercnt) | |
5266 if w:netrw_liststyle == s:LONGLIST | |
5267 let seqlist = substitute(g:netrw_sort_sequence,'\$','\\%(\t\\|\$\\)','ge') | |
5268 else | |
5269 let seqlist = g:netrw_sort_sequence | |
5270 endif | |
5271 " sanity check -- insure that * appears somewhere | |
5272 if seqlist == "" | |
5273 let seqlist= '*' | |
5274 elseif seqlist !~ '\*' | |
5275 let seqlist= seqlist.',*' | |
5276 endif | |
5277 let priority = 1 | |
5278 while seqlist != "" | |
5279 if seqlist =~ ',' | |
5280 let seq = substitute(seqlist,',.*$','','e') | |
5281 let seqlist = substitute(seqlist,'^.\{-},\(.*\)$','\1','e') | |
5282 else | |
5283 let seq = seqlist | |
5284 let seqlist = "" | |
5285 endif | |
5286 let sepchr= "\<Char-0xff>" | |
5287 if priority < 10 | |
5288 let spriority= "00".priority.sepchr | |
5289 elseif priority < 100 | |
5290 let spriority= "0".priority.sepchr | |
5291 else | |
5292 let spriority= priority.sepchr | |
5293 endif | |
5294 " call Decho("priority=".priority." spriority<".spriority."> seq<".seq."> seqlist<".seqlist.">") | |
5295 | |
5296 " sanity check | |
5297 if w:netrw_bannercnt > line("$") | |
5298 " apparently no files were left after a Hiding pattern was used | |
5299 " call Dret("SetSort : no files left after hiding") | |
5300 return | |
5301 endif | |
5302 if seq == '*' | |
5303 let starpriority= spriority | |
5304 else | |
5305 exe 'silent keepjumps '.w:netrw_bannercnt.',$g/'.seq.'/s/^/'.spriority.'/' | |
5306 " sometimes multiple sorting patterns will match the same file or directory. | |
5307 " The following substitute is intended to remove the excess matches. | |
5308 exe 'silent keepjumps '.w:netrw_bannercnt.',$g/^\d\{3}'.sepchr.'\d\{3}\//s/^\d\{3}'.sepchr.'\(\d\{3}\/\).\@=/\1/e' | |
5309 endif | |
5310 let priority = priority + 1 | |
5311 endwhile | |
5312 if exists("starpriority") | |
5313 exe 'silent keepjumps '.w:netrw_bannercnt.',$v/^\d\{3}'.sepchr.'/s/^/'.starpriority.'/' | |
5314 endif | |
5315 | |
5316 " Following line associated with priority -- items that satisfy a priority | |
5317 " pattern get prefixed by ###/ which permits easy sorting by priority. | |
5318 " Sometimes files can satisfy multiple priority patterns -- only the latest | |
5319 " priority pattern needs to be retained. So, at this point, these excess | |
5320 " priority prefixes need to be removed, but not directories that happen to | |
5321 " be just digits themselves. | |
5322 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^\(\d\{3}'.sepchr.'\)\%(\d\{3}'.sepchr.'\)\+\ze./\1/e' | |
5323 | |
5324 " call Dret("SetSort") | |
5325 endfun | |
5326 | |
5327 " ===================================================================== | |
5328 " s:NetrwSortStyle: change sorting style (name - time - size) and refresh display {{{2 | |
5329 fun! s:NetrwSortStyle(islocal) | |
5330 " call Dfunc("s:NetrwSortStyle(islocal=".a:islocal.") netrw_sort_by<".g:netrw_sort_by.">") | |
5331 call s:NetrwSaveWordPosn() | |
5332 let svpos= netrw#NetrwSavePosn() | |
5333 | |
5334 let g:netrw_sort_by= (g:netrw_sort_by =~ 'n')? 'time' : (g:netrw_sort_by =~ 't')? 'size' : 'name' | |
5335 norm! 0 | |
5336 call s:NetrwRefresh(a:islocal,s:NetrwBrowseChgDir(a:islocal,'./')) | |
5337 call netrw#NetrwRestorePosn(svpos) | |
5338 | |
5339 " call Dret("s:NetrwSortStyle : netrw_sort_by<".g:netrw_sort_by.">") | |
5340 endfun | |
5341 | |
5342 " --------------------------------------------------------------------- | |
5343 " s:NetrwSplit: mode {{{2 | |
5344 " =0 : net and o | |
5345 " =1 : net and t | |
5346 " =2 : net and v | |
5347 " =3 : local and o | |
5348 " =4 : local and t | |
5349 " =5 : local and v | |
5350 fun! s:NetrwSplit(mode) | |
5351 " call Dfunc("s:NetrwSplit(mode=".a:mode.") alto=".g:netrw_alto." altv=".g:netrw_altv) | |
5352 | |
5353 call s:SaveWinVars() | |
5354 | |
5355 if a:mode == 0 | |
5356 " remote and o | |
5357 " call Decho("exe ".(g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s") | |
5358 exe (g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s" | |
5359 let s:didsplit= 1 | |
5360 call s:RestoreWinVars() | |
5361 call s:NetrwBrowse(0,s:NetrwBrowseChgDir(0,s:NetrwGetWord())) | |
5362 unlet s:didsplit | |
5363 | |
5364 elseif a:mode == 1 | |
5365 " remote and t | |
5366 let cursorword = s:NetrwGetWord() | |
5367 " call Decho("tabnew") | |
5368 tabnew | |
5369 let s:didsplit= 1 | |
5370 call s:RestoreWinVars() | |
5371 call s:NetrwBrowse(0,s:NetrwBrowseChgDir(0,cursorword)) | |
5372 unlet s:didsplit | |
5373 | |
5374 elseif a:mode == 2 | |
5375 " remote and v | |
5376 " call Decho("exe ".(g:netrw_altv? "rightb " : "lefta ").g:netrw_winsize."wincmd v") | |
5377 exe (g:netrw_altv? "rightb " : "lefta ").g:netrw_winsize."wincmd v" | |
5378 let s:didsplit= 1 | |
5379 call s:RestoreWinVars() | |
5380 call s:NetrwBrowse(0,s:NetrwBrowseChgDir(0,s:NetrwGetWord())) | |
5381 unlet s:didsplit | |
5382 | |
5383 elseif a:mode == 3 | |
5384 " local and o | |
5385 " call Decho("exe ".(g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s") | |
5386 exe (g:netrw_alto? "bel " : "abo ").g:netrw_winsize."wincmd s" | |
5387 let s:didsplit= 1 | |
5388 call s:RestoreWinVars() | |
5389 call netrw#LocalBrowseCheck(s:NetrwBrowseChgDir(1,s:NetrwGetWord())) | |
5390 unlet s:didsplit | |
5391 | |
5392 elseif a:mode == 4 | |
5393 " local and t | |
5394 let netrw_curdir= b:netrw_curdir | |
5395 let cursorword = s:NetrwGetWord() | |
5396 " call Decho("tabnew") | |
5397 tabnew | |
5398 let b:netrw_curdir= netrw_curdir | |
5399 let s:didsplit= 1 | |
5400 call s:RestoreWinVars() | |
5401 call netrw#LocalBrowseCheck(s:NetrwBrowseChgDir(1,cursorword)) | |
5402 unlet s:didsplit | |
5403 | |
5404 elseif a:mode == 5 | |
5405 " local and v | |
5406 " call Decho("exe ".(g:netrw_altv? "rightb " : "lefta ").g:netrw_winsize."wincmd v") | |
5407 exe (g:netrw_altv? "rightb " : "lefta ").g:netrw_winsize."wincmd v" | |
5408 let s:didsplit= 1 | |
5409 call s:RestoreWinVars() | |
5410 call netrw#LocalBrowseCheck(s:NetrwBrowseChgDir(1,s:NetrwGetWord())) | |
5411 unlet s:didsplit | |
5412 | |
5413 else | |
5414 call netrw#ErrorMsg(s:ERROR,"(NetrwSplit) unsupported mode=".a:mode,45) | |
5415 endif | |
5416 | |
5417 " call Dret("s:NetrwSplit") | |
4794 endfun | 5418 endfun |
4795 | 5419 |
4796 " --------------------------------------------------------------------- | 5420 " --------------------------------------------------------------------- |
4797 " NetrwStatusLine: {{{2 | 5421 " NetrwStatusLine: {{{2 |
4798 fun! NetrwStatusLine() | 5422 fun! NetrwStatusLine() |
4817 if !exists("w:netrw_explore_bufnr") || w:netrw_explore_bufnr != bufnr("%") || !exists("w:netrw_explore_line") || w:netrw_explore_line != line(".") || !exists("w:netrw_explore_list") | 5441 if !exists("w:netrw_explore_bufnr") || w:netrw_explore_bufnr != bufnr("%") || !exists("w:netrw_explore_line") || w:netrw_explore_line != line(".") || !exists("w:netrw_explore_list") |
4818 " restore user's status line | 5442 " restore user's status line |
4819 let &stl = s:netrw_users_stl | 5443 let &stl = s:netrw_users_stl |
4820 let &laststatus = s:netrw_users_ls | 5444 let &laststatus = s:netrw_users_ls |
4821 if exists("w:netrw_explore_bufnr")|unlet w:netrw_explore_bufnr|endif | 5445 if exists("w:netrw_explore_bufnr")|unlet w:netrw_explore_bufnr|endif |
4822 if exists("w:netrw_explore_line")|unlet w:netrw_explore_line|endif | 5446 if exists("w:netrw_explore_line") |unlet w:netrw_explore_line |endif |
4823 return "" | 5447 return "" |
4824 else | 5448 else |
4825 return "Match ".w:netrw_explore_mtchcnt." of ".w:netrw_explore_listlen | 5449 return "Match ".w:netrw_explore_mtchcnt." of ".w:netrw_explore_listlen |
4826 endif | 5450 endif |
4827 endfun | 5451 endfun |
4828 | 5452 |
4829 " --------------------------------------------------------------------- | 5453 " --------------------------------------------------------------------- |
4830 " NetGetcwd: get the current directory. {{{2 | 5454 " s:NetrwTreeDir: determine tree directory given current cursor position {{{2 |
4831 " Change backslashes to forward slashes, if any. | 5455 " (full path directory with trailing slash returned) |
4832 " If doesc is true, escape certain troublesome characters | 5456 fun! s:NetrwTreeDir() |
4833 fun! s:NetGetcwd(doesc) | 5457 " call Dfunc("NetrwTreeDir() curline#".line(".")."<".getline('.')."> b:netrw_curdir<".b:netrw_curdir."> tab#".tabpagenr()." win#".winnr()." buf#".bufnr("%")."<".bufname("%").">") |
4834 " call Dfunc("NetGetcwd(doesc=".a:doesc.")") | 5458 |
4835 let curdir= substitute(getcwd(),'\\','/','ge') | 5459 let treedir= b:netrw_curdir |
4836 if curdir !~ '[\/]$' | 5460 " call Decho("set initial treedir<".treedir.">") |
4837 let curdir= curdir.'/' | 5461 let s:treecurpos= netrw#NetrwSavePosn() |
4838 endif | 5462 |
4839 if a:doesc | 5463 if w:netrw_liststyle == s:TREELIST |
4840 let curdir= escape(curdir,s:netrw_cd_escape) | 5464 " call Decho("w:netrrw_liststyle is TREELIST:") |
4841 endif | 5465 " call Decho("line#".line(".")." getline(.)<".getline('.')."> treecurpos<".string(s:treecurpos).">") |
4842 " call Dret("NetGetcwd <".curdir.">") | 5466 if getline('.') =~ '/$' |
4843 return curdir | 5467 let treedir= substitute(getline('.'),'^\%(| \)*\([^|].\{-}\)$','\1','e') |
4844 endfun | 5468 else |
4845 | 5469 let treedir= "" |
4846 " --------------------------------------------------------------------- | 5470 endif |
4847 " SetSort: sets up the sort based on the g:netrw_sort_sequence {{{2 | 5471 |
4848 " What this function does is to compute a priority for the patterns | 5472 " call Decho("treedir<".treedir.">") |
4849 " in the g:netrw_sort_sequence. It applies a substitute to any | 5473 |
4850 " "files" that satisfy each pattern, putting the priority / in | 5474 " detect user attempting to close treeroot |
4851 " front. An "*" pattern handles the default priority. | 5475 if getline('.') !~ '|' && getline('.') != '..' |
4852 fun! s:SetSort() | 5476 " call Decho("user attempted to close treeroot") |
4853 " call Dfunc("SetSort() bannercnt=".w:netrw_bannercnt) | 5477 " now force a refresh |
5478 " call Decho("clear buffer<".expand("%")."> with :%d") | |
5479 keepjumps %d | |
5480 " call Dret("NetrwTreeDir <".treedir."> : (side effect) s:treecurpos<".string(s:treecurpos).">") | |
5481 return b:netrw_curdir | |
5482 endif | |
5483 | |
5484 " elide all non-depth information | |
5485 let depth = substitute(getline('.'),'^\(\%(| \)*\)[^|].\{-}$','\1','e') | |
5486 " call Decho("depth<".depth."> 1st subst") | |
5487 | |
5488 " elide first depth | |
5489 let depth = substitute(depth,'^| ','','') | |
5490 " call Decho("depth<".depth."> 2nd subst") | |
5491 | |
5492 " construct treedir by searching backwards at correct depth | |
5493 " call Decho("constructing treedir<".treedir."> depth<".depth.">") | |
5494 while depth != "" && search('^'.depth.'[^|].\{-}/$','bW') | |
5495 let dirname= substitute(getline('.'),'^\(| \)*','','e') | |
5496 let treedir= dirname.treedir | |
5497 let depth = substitute(depth,'^| ','','') | |
5498 " call Decho("constructing treedir<".treedir.">: dirname<".dirname."> while depth<".depth.">") | |
5499 endwhile | |
5500 if w:netrw_treetop =~ '/$' | |
5501 let treedir= w:netrw_treetop.treedir | |
5502 else | |
5503 let treedir= w:netrw_treetop.'/'.treedir | |
5504 endif | |
5505 " call Decho("bufnr(.)=".bufnr("%")." line($)=".line("$")." line(.)=".line(".")) | |
5506 endif | |
5507 let treedir= substitute(treedir,'//$','/','') | |
5508 | |
5509 " " now force a refresh | |
5510 "" call DECHO("clear buffer<".expand("%")."> with :%d") | |
5511 " setlocal ma noro | |
5512 " keepjumps %d | |
5513 | |
5514 " call Dret("NetrwTreeDir <".treedir."> : (side effect) s:treecurpos<".string(s:treecurpos).">") | |
5515 return treedir | |
5516 endfun | |
5517 | |
5518 " --------------------------------------------------------------------- | |
5519 " s:NetrwTreeDisplay: recursive tree display {{{2 | |
5520 fun! s:NetrwTreeDisplay(dir,depth) | |
5521 " call Dfunc("NetrwTreeDisplay(dir<".a:dir."> depth<".a:depth.">)") | |
5522 | |
5523 " insure that there are no folds | |
5524 setlocal nofen | |
5525 | |
5526 " install ../ and shortdir | |
5527 if a:depth == "" | |
5528 call setline(line("$")+1,'../') | |
5529 " call Decho("setline#".line("$")." ../ (depth is zero)") | |
5530 endif | |
5531 if a:dir =~ '^\a\+://' | |
5532 if a:dir == w:netrw_treetop | |
5533 let shortdir= a:dir | |
5534 else | |
5535 let shortdir= substitute(a:dir,'^.*/\([^/]\+\)/$','\1/','e') | |
5536 endif | |
5537 call setline(line("$")+1,a:depth.shortdir) | |
5538 else | |
5539 let shortdir= substitute(a:dir,'^.*/','','e') | |
5540 call setline(line("$")+1,a:depth.shortdir.'/') | |
5541 endif | |
5542 " call Decho("setline#".line("$")." shortdir<".a:depth.shortdir.">") | |
5543 | |
5544 " append a / to dir if its missing one | |
5545 let dir= a:dir | |
5546 if dir !~ '/$' | |
5547 let dir= dir.'/' | |
5548 endif | |
5549 | |
5550 " display subtrees (if any) | |
5551 let depth= "| ".a:depth | |
5552 | |
5553 " call Decho("display subtrees with depth<".depth."> and current leaves") | |
5554 for entry in w:netrw_treedict[a:dir] | |
5555 let direntry= substitute(dir.entry,'/$','','e') | |
5556 " call Decho("dir<".dir."> entry<".entry."> direntry<".direntry.">") | |
5557 if entry =~ '/$' && has_key(w:netrw_treedict,direntry) | |
5558 " call Decho("<".direntry."> is a key in treedict - display subtree for it") | |
5559 call s:NetrwTreeDisplay(direntry,depth) | |
5560 elseif entry =~ '/$' && has_key(w:netrw_treedict,direntry.'/') | |
5561 " call Decho("<".direntry."/> is a key in treedict - display subtree for it") | |
5562 call s:NetrwTreeDisplay(direntry.'/',depth) | |
5563 else | |
5564 " call Decho("<".entry."> is not a key in treedict (no subtree)") | |
5565 call setline(line("$")+1,depth.entry) | |
5566 endif | |
5567 endfor | |
5568 " call Dret("NetrwTreeDisplay") | |
5569 endfun | |
5570 | |
5571 " --------------------------------------------------------------------- | |
5572 " s:NetrwTreeListing: displays tree listing from treetop on down, using NetrwTreeDisplay() {{{2 | |
5573 fun! s:NetrwTreeListing(dirname) | |
5574 if w:netrw_liststyle == s:TREELIST | |
5575 " call Dfunc("NetrwTreeListing() bufname<".expand("%").">") | |
5576 " call Decho("curdir<".a:dirname.">") | |
5577 " call Decho("win#".winnr().": w:netrw_treetop ".(exists("w:netrw_treetop")? "exists" : "doesn't exit")." w:netrw_treedict ".(exists("w:netrw_treedict")? "exists" : "doesn't exit")) | |
5578 | |
5579 " update the treetop | |
5580 " call Decho("update the treetop") | |
5581 if !exists("w:netrw_treetop") | |
5582 let w:netrw_treetop= a:dirname | |
5583 " call Decho("w:netrw_treetop<".w:netrw_treetop."> (reusing)") | |
5584 elseif (w:netrw_treetop =~ ('^'.a:dirname) && s:Strlen(a:dirname) < s:Strlen(w:netrw_treetop)) || a:dirname !~ ('^'.w:netrw_treetop) | |
5585 let w:netrw_treetop= a:dirname | |
5586 " call Decho("w:netrw_treetop<".w:netrw_treetop."> (went up)") | |
5587 endif | |
5588 | |
5589 " insure that we have at least an empty treedict | |
5590 if !exists("w:netrw_treedict") | |
5591 let w:netrw_treedict= {} | |
5592 endif | |
5593 | |
5594 " update the directory listing for the current directory | |
5595 " call Decho("updating dictionary with ".a:dirname.":[..directory listing..]") | |
5596 " call Decho("bannercnt=".w:netrw_bannercnt." line($)=".line("$")) | |
5597 exe "silent! keepjumps ".w:netrw_bannercnt.',$g@^\.\.\=/$@d' | |
5598 let w:netrw_treedict[a:dirname]= getline(w:netrw_bannercnt,line("$")) | |
5599 " call Decho("w:treedict[".a:dirname."]= ".w:netrw_treedict[a:dirname]) | |
5600 exe "silent! keepjumps ".w:netrw_bannercnt.",$d" | |
5601 | |
5602 " if past banner, record word | |
5603 if exists("w:netrw_bannercnt") && line(".") > w:netrw_bannercnt | |
5604 let fname= expand("<cword>") | |
5605 else | |
5606 let fname= "" | |
5607 endif | |
5608 " call Decho("fname<".fname.">") | |
5609 | |
5610 " display from treetop on down | |
5611 call s:NetrwTreeDisplay(w:netrw_treetop,"") | |
5612 | |
5613 " call Dret("NetrwTreeListing : bufname<".expand("%").">") | |
5614 endif | |
5615 endfun | |
5616 | |
5617 " --------------------------------------------------------------------- | |
5618 " s:NetrwWideListing: {{{2 | |
5619 fun! s:NetrwWideListing() | |
5620 | |
5621 if w:netrw_liststyle == s:WIDELIST | |
5622 " call Dfunc("NetrwWideListing() w:netrw_liststyle=".w:netrw_liststyle.' fo='.&fo.' l:fo='.&l:fo) | |
5623 " look for longest filename (cpf=characters per filename) | |
5624 " cpf: characters per file | |
5625 " fpl: files per line | |
5626 " fpc: files per column | |
5627 setlocal ma noro | |
5628 " call Decho("setlocal ma noro") | |
5629 let b:netrw_cpf= 0 | |
5630 if line("$") >= w:netrw_bannercnt | |
5631 exe 'silent keepjumps '.w:netrw_bannercnt.',$g/^./if virtcol("$") > b:netrw_cpf|let b:netrw_cpf= virtcol("$")|endif' | |
5632 else | |
5633 " call Dret("NetrwWideListing") | |
5634 return | |
5635 endif | |
5636 " call Decho("max file strlen+1=".b:netrw_cpf) | |
5637 let b:netrw_cpf= b:netrw_cpf + 1 | |
5638 | |
5639 " determine qty files per line (fpl) | |
5640 let w:netrw_fpl= winwidth(0)/b:netrw_cpf | |
5641 if w:netrw_fpl <= 0 | |
5642 let w:netrw_fpl= 1 | |
5643 endif | |
5644 " call Decho("fpl= ".winwidth(0)."/[b:netrw_cpf=".b:netrw_cpf.']='.w:netrw_fpl) | |
5645 | |
5646 " make wide display | |
5647 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^.*$/\=escape(printf("%-'.b:netrw_cpf.'s",submatch(0)),"\\")/' | |
5648 let fpc = (line("$") - w:netrw_bannercnt + w:netrw_fpl)/w:netrw_fpl | |
5649 let newcolstart = w:netrw_bannercnt + fpc | |
5650 let newcolend = newcolstart + fpc - 1 | |
5651 " call Decho("bannercnt=".w:netrw_bannercnt." fpl=".w:netrw_fpl." fpc=".fpc." newcol[".newcolstart.",".newcolend."]") | |
5652 silent! let keepregstar = @* | |
5653 while line("$") >= newcolstart | |
5654 if newcolend > line("$") | let newcolend= line("$") | endif | |
5655 let newcolqty= newcolend - newcolstart | |
5656 exe newcolstart | |
5657 if newcolqty == 0 | |
5658 exe "silent keepjumps norm! 0\<c-v>$hx".w:netrw_bannercnt."G$p" | |
5659 else | |
5660 exe "silent keepjumps norm! 0\<c-v>".newcolqty.'j$hx'.w:netrw_bannercnt.'G$p' | |
5661 endif | |
5662 exe "silent keepjumps ".newcolstart.','.newcolend.'d' | |
5663 exe 'silent keepjumps '.w:netrw_bannercnt | |
5664 endwhile | |
5665 silent! let @*= keepregstar | |
5666 exe "silent keepjumps ".w:netrw_bannercnt.',$s/\s\+$//e' | |
5667 setlocal noma nomod ro | |
5668 " call Dret("NetrwWideListing") | |
5669 endif | |
5670 | |
5671 endfun | |
5672 | |
5673 " --------------------------------------------------------------------- | |
5674 " s:PerformListing: {{{2 | |
5675 fun! s:PerformListing(islocal) | |
5676 " call Dfunc("s:PerformListing(islocal=".a:islocal.") buf(%)=".bufnr("%")."<".bufname("%").">") | |
5677 | |
5678 call s:NetrwSafeOptions() | |
5679 setlocal noro ma | |
5680 " call Decho("setlocal noro ma") | |
5681 | |
5682 " if exists("g:netrw_silent") && g:netrw_silent == 0 && &ch >= 1 " Decho | |
5683 " call Decho("(netrw) Processing your browsing request...") | |
5684 " endif " Decho | |
5685 | |
5686 " call Decho('w:netrw_liststyle='.(exists("w:netrw_liststyle")? w:netrw_liststyle : 'n/a')) | |
5687 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST && exists("w:netrw_treedict") | |
5688 " force a refresh for tree listings | |
5689 " call Decho("force refresh for treelisting: clear buffer<".expand("%")."> with :%d") | |
5690 keepjumps %d | |
5691 endif | |
5692 | |
5693 " save current directory on directory history list | |
5694 call s:NetrwBookmarkDir(3,b:netrw_curdir) | |
5695 | |
5696 " Set up the banner {{{3 | |
5697 " call Decho("set up banner") | |
5698 keepjumps put ='\" ============================================================================' | |
5699 keepjumps put ='\" Netrw Directory Listing (netrw '.g:loaded_netrw.')' | |
5700 keepjumps put ='\" '.b:netrw_curdir | |
5701 keepjumps 1d | |
5702 let w:netrw_bannercnt= 3 | |
5703 exe "keepjumps ".w:netrw_bannercnt | |
5704 | |
5705 let sortby= g:netrw_sort_by | |
5706 if g:netrw_sort_direction =~ "^r" | |
5707 let sortby= sortby." reversed" | |
5708 endif | |
5709 | |
5710 " Sorted by... {{{3 | |
5711 " call Decho("handle specified sorting: g:netrw_sort_by<".g:netrw_sort_by.">") | |
5712 if g:netrw_sort_by =~ "^n" | |
5713 " call Decho("directories will be sorted by name") | |
5714 " sorted by name | |
5715 keepjumps put ='\" Sorted by '.sortby | |
5716 keepjumps put ='\" Sort sequence: '.g:netrw_sort_sequence | |
5717 let w:netrw_bannercnt= w:netrw_bannercnt + 2 | |
5718 else | |
5719 " call Decho("directories will be sorted by size or time") | |
5720 " sorted by size or date | |
5721 keepjumps put ='\" Sorted by '.sortby | |
5722 let w:netrw_bannercnt= w:netrw_bannercnt + 1 | |
5723 endif | |
5724 exe "keepjumps ".w:netrw_bannercnt | |
5725 | |
5726 " show copy/move target, if any | |
5727 if exists("s:netrwmftgt") && exists("s:netrwmftgt_islocal") | |
5728 " call Decho("show copy/move target<".s:netrwmftgt.">") | |
5729 keepjumps put ='' | |
5730 if s:netrwmftgt_islocal | |
5731 call setline(line("."),'" Copy/Move Tgt: '.s:netrwmftgt.' (local)') | |
5732 else | |
5733 call setline(line("."),'" Copy/Move Tgt: '.s:netrwmftgt.' (remote)') | |
5734 endif | |
5735 let w:netrw_bannercnt= w:netrw_bannercnt + 1 | |
5736 else | |
5737 " call Decho("s:netrwmftgt does not exist, don't make Copy/Move Tgt") | |
5738 endif | |
5739 exe "keepjumps ".w:netrw_bannercnt | |
5740 | |
5741 " Hiding... -or- Showing... {{{3 | |
5742 " call Decho("handle hiding/showing (g:netrw_hide=".g:netrw_list_hide." g:netrw_list_hide<".g:netrw_list_hide.">)") | |
5743 if g:netrw_list_hide != "" && g:netrw_hide | |
5744 if g:netrw_hide == 1 | |
5745 keepjumps put ='\" Hiding: '.g:netrw_list_hide | |
5746 else | |
5747 keepjumps put ='\" Showing: '.g:netrw_list_hide | |
5748 endif | |
5749 let w:netrw_bannercnt= w:netrw_bannercnt + 1 | |
5750 endif | |
5751 exe "keepjumps ".w:netrw_bannercnt | |
5752 keepjumps put ='\" Quick Help: <F1>:help -:go up dir D:delete R:rename s:sort-by x:exec' | |
5753 keepjumps put ='\" ============================================================================' | |
5754 let w:netrw_bannercnt= w:netrw_bannercnt + 2 | |
5755 | |
5756 " bannercnt should index the line just after the banner | |
5757 let w:netrw_bannercnt= w:netrw_bannercnt + 1 | |
5758 exe "keepjumps ".w:netrw_bannercnt | |
5759 " call Decho("bannercnt=".w:netrw_bannercnt." (should index line just after banner) line($)=".line("$")) | |
5760 | |
5761 " set up syntax highlighting {{{3 | |
5762 " call Decho("set up syntax highlighting") | |
5763 if has("syntax") | |
5764 setlocal ft=netrw | |
5765 if !exists("g:syntax_on") || !g:syntax_on | |
5766 setlocal ft= | |
5767 endif | |
5768 endif | |
5769 | |
5770 " get list of files | |
5771 " call Decho("Get list of files - islocal=".a:islocal) | |
5772 if a:islocal | |
5773 call s:LocalListing() | |
5774 else " remote | |
5775 call s:NetrwRemoteListing() | |
5776 endif | |
5777 " call Decho("w:netrw_bannercnt=".w:netrw_bannercnt." (banner complete)") | |
5778 | |
5779 " manipulate the directory listing (hide, sort) {{{3 | |
5780 if line("$") >= w:netrw_bannercnt | |
5781 " call Decho("manipulate directory listing (hide)") | |
5782 " call Decho("g:netrw_hide=".g:netrw_hide." g:netrw_list_hide<".g:netrw_list_hide.">") | |
5783 if g:netrw_hide && g:netrw_list_hide != "" | |
5784 call s:NetrwListHide() | |
5785 endif | |
5786 if line("$") >= w:netrw_bannercnt | |
5787 " call Decho("manipulate directory listing (sort) : g:netrw_sort_by<".g:netrw_sort_by.">") | |
5788 | |
5789 if g:netrw_sort_by =~ "^n" | |
5790 " sort by name | |
5791 call s:NetrwSetSort() | |
5792 | |
5793 if w:netrw_bannercnt < line("$") | |
5794 " call Decho("g:netrw_sort_direction=".g:netrw_sort_direction." (bannercnt=".w:netrw_bannercnt.")") | |
5795 if g:netrw_sort_direction =~ 'n' | |
5796 " normal direction sorting | |
5797 exe 'silent keepjumps '.w:netrw_bannercnt.',$sort' | |
5798 else | |
5799 " reverse direction sorting | |
5800 exe 'silent keepjumps '.w:netrw_bannercnt.',$sort!' | |
5801 endif | |
5802 endif | |
5803 " remove priority pattern prefix | |
5804 " call Decho("remove priority pattern prefix") | |
5805 let sepchr= "\<Char-0xff>" | |
5806 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^\d\{3}'.sepchr.'//e' | |
5807 | |
5808 elseif a:islocal | |
5809 if w:netrw_bannercnt < line("$") | |
5810 " call Decho("g:netrw_sort_direction=".g:netrw_sort_direction) | |
5811 if g:netrw_sort_direction =~ 'n' | |
5812 " call Decho('exe silent keepjumps '.w:netrw_bannercnt.',$sort') | |
5813 exe 'silent keepjumps '.w:netrw_bannercnt.',$sort' | |
5814 else | |
5815 " call Decho('exe silent keepjumps '.w:netrw_bannercnt.',$sort!') | |
5816 exe 'silent keepjumps '.w:netrw_bannercnt.',$sort!' | |
5817 endif | |
5818 endif | |
5819 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^\d\{-}\///e' | |
5820 endif | |
5821 | |
5822 elseif g:netrw_sort_direction =~ 'r' | |
5823 " call Decho('reverse the sorted listing') | |
5824 exe 'silent keepjumps '.w:netrw_bannercnt.'g/^/m '.w:netrw_bannercnt | |
5825 endif | |
5826 endif | |
5827 | |
5828 " convert to wide/tree listing {{{3 | |
5829 " call Decho("modify display if wide/tree listing style") | |
5830 call s:NetrwWideListing() | |
5831 call s:NetrwTreeListing(b:netrw_curdir) | |
5832 | |
5833 if exists("w:netrw_bannercnt") && line("$") > w:netrw_bannercnt | |
5834 " place cursor on the top-left corner of the file listing | |
5835 " call Decho("place cursor on top-left corner of file listing") | |
5836 exe 'silent keepjumps '.w:netrw_bannercnt | |
5837 norm! 0 | |
5838 endif | |
5839 | |
5840 " record previous current directory | |
5841 let w:netrw_prvdir= b:netrw_curdir | |
5842 " call Decho("record netrw_prvdir<".w:netrw_prvdir.">") | |
5843 | |
5844 " save certain window-oriented variables into buffer-oriented variables {{{3 | |
5845 call s:SetBufWinVars() | |
5846 call s:NetrwOptionRestore("w:") | |
5847 | |
5848 " set display to netrw display settings | |
5849 " call Decho("set display to netrw display settings (noma nomod etc)") | |
5850 setlocal noma nomod nonu nobl nowrap ro | |
5851 if exists("s:treecurpos") | |
5852 | |
5853 call netrw#NetrwRestorePosn(s:treecurpos) | |
5854 unlet s:treecurpos | |
5855 endif | |
5856 | |
5857 " call Dret("s:PerformListing : curpos<".string(getpos(".")).">") | |
5858 endfun | |
5859 | |
5860 " --------------------------------------------------------------------- | |
5861 " s:SetupNetrwStatusLine: {{{2 | |
5862 fun! s:SetupNetrwStatusLine(statline) | |
5863 " call Dfunc("SetupNetrwStatusLine(statline<".a:statline.">)") | |
5864 | |
5865 if !exists("s:netrw_setup_statline") | |
5866 let s:netrw_setup_statline= 1 | |
5867 " call Decho("do first-time status line setup") | |
5868 | |
5869 if !exists("s:netrw_users_stl") | |
5870 let s:netrw_users_stl= &stl | |
5871 endif | |
5872 if !exists("s:netrw_users_ls") | |
5873 let s:netrw_users_ls= &laststatus | |
5874 endif | |
5875 | |
5876 " set up User9 highlighting as needed | |
5877 let keepa= @a | |
5878 redir @a | |
5879 try | |
5880 hi User9 | |
5881 catch /^Vim\%((\a\+)\)\=:E411/ | |
5882 if &bg == "dark" | |
5883 hi User9 ctermfg=yellow ctermbg=blue guifg=yellow guibg=blue | |
5884 else | |
5885 hi User9 ctermbg=yellow ctermfg=blue guibg=yellow guifg=blue | |
5886 endif | |
5887 endtry | |
5888 redir END | |
5889 let @a= keepa | |
5890 endif | |
5891 | |
5892 " set up status line (may use User9 highlighting) | |
5893 " insure that windows have a statusline | |
5894 " make sure statusline is displayed | |
5895 let &stl=a:statline | |
5896 setlocal laststatus=2 | |
5897 " call Decho("stl=".&stl) | |
5898 redraw | |
5899 | |
5900 " call Dret("SetupNetrwStatusLine : stl=".&stl) | |
5901 endfun | |
5902 | |
5903 " --------------------------------------------------------------------- | |
5904 " Remote Directory Browsing Support: {{{1 | |
5905 " =========================================== | |
5906 | |
5907 " --------------------------------------------------------------------- | |
5908 " s:NetrwRemoteListing: {{{2 | |
5909 fun! s:NetrwRemoteListing() | |
5910 " call Dfunc("s:NetrwRemoteListing() b:netrw_curdir<".b:netrw_curdir.">)") | |
5911 | |
5912 call s:RemotePathAnalysis(b:netrw_curdir) | |
5913 | |
5914 " sanity check: | |
5915 if exists("b:netrw_method") && b:netrw_method =~ '[235]' | |
5916 " call Decho("b:netrw_method=".b:netrw_method) | |
5917 if !executable("ftp") | |
5918 if !exists("g:netrw_quiet") | |
5919 call netrw#ErrorMsg(s:ERROR,"this system doesn't support remote directory listing via ftp",18) | |
5920 endif | |
5921 call s:NetrwOptionRestore("w:") | |
5922 " call Dret("s:NetrwRemoteListing") | |
5923 return | |
5924 endif | |
5925 | |
5926 elseif !exists("g:netrw_list_cmd") || g:netrw_list_cmd == '' | |
5927 if !exists("g:netrw_quiet") | |
5928 if g:netrw_list_cmd == "" | |
5929 call netrw#ErrorMsg(s:ERROR,g:netrw_ssh_cmd." is not executable on your system",47) | |
5930 else | |
5931 call netrw#ErrorMsg(s:ERROR,"this system doesn't support remote directory listing via ".g:netrw_list_cmd,19) | |
5932 endif | |
5933 endif | |
5934 | |
5935 call s:NetrwOptionRestore("w:") | |
5936 " call Dret("s:NetrwRemoteListing") | |
5937 return | |
5938 endif " (remote handling sanity check) | |
5939 | |
5940 if exists("b:netrw_method") | |
5941 " call Decho("setting w:netrw_method<".b:netrw_method.">") | |
5942 let w:netrw_method= b:netrw_method | |
5943 endif | |
5944 | |
5945 if s:method == "ftp" | |
5946 " use ftp to get remote file listing | |
5947 " call Decho("use ftp to get remote file listing") | |
5948 let s:method = "ftp" | |
5949 let listcmd = g:netrw_ftp_list_cmd | |
5950 if g:netrw_sort_by =~ '^t' | |
5951 let listcmd= g:netrw_ftp_timelist_cmd | |
5952 elseif g:netrw_sort_by =~ '^s' | |
5953 let listcmd= g:netrw_ftp_sizelist_cmd | |
5954 endif | |
5955 " call Decho("listcmd<".listcmd."> (using g:netrw_ftp_list_cmd)") | |
5956 call s:NetrwRemoteFtpCmd(s:path,listcmd) | |
5957 " exe "keepjumps ".w:netrw_bannercnt.',$g/^./call Decho("raw listing: ".getline("."))' | |
5958 | |
5959 if w:netrw_liststyle == s:THINLIST || w:netrw_liststyle == s:WIDELIST || w:netrw_liststyle == s:TREELIST | |
5960 " shorten the listing | |
5961 " call Decho("generate short listing") | |
5962 exe "keepjumps ".w:netrw_bannercnt | |
5963 | |
5964 " cleanup | |
5965 if g:netrw_ftp_browse_reject != "" | |
5966 exe "silent! g/".g:netrw_ftp_browse_reject."/keepjumps d" | |
5967 endif | |
5968 silent! keepjumps %s/\r$//e | |
5969 | |
5970 " if there's no ../ listed, then put ./ and ../ in | |
5971 let line1= line(".") | |
5972 exe "keepjumps ".w:netrw_bannercnt | |
5973 let line2= search('^\.\.\/\%(\s\|$\)','cnW') | |
5974 if line2 == 0 | |
5975 " call Decho("netrw is putting ./ and ../ into listing") | |
5976 keepjumps put='../' | |
5977 keepjumps put='./' | |
5978 endif | |
5979 exe "keepjumps ".line1 | |
5980 keepjumps norm! 0 | |
5981 | |
5982 " call Decho("line1=".line1." line2=".line2." line(.)=".line(".")) | |
5983 if search('^\d\{2}-\d\{2}-\d\{2}\s','n') " M$ ftp site cleanup | |
5984 " call Decho("M$ ftp cleanup") | |
5985 exe 'silent! keepjumps '.w:netrw_bannercnt.',$s/^\d\{2}-\d\{2}-\d\{2}\s\+\d\+:\d\+[AaPp][Mm]\s\+\%(<DIR>\|\d\+\)\s\+//' | |
5986 else " normal ftp cleanup | |
5987 " call Decho("normal ftp cleanup") | |
5988 exe 'silent! keepjumps '.w:netrw_bannercnt.',$s/^\(\%(\S\+\s\+\)\{7}\S\+\)\s\+\(\S.*\)$/\2/e' | |
5989 exe "silent! keepjumps ".w:netrw_bannercnt.',$g/ -> /s# -> .*/$#/#e' | |
5990 exe "silent! keepjumps ".w:netrw_bannercnt.',$g/ -> /s# -> .*$#/#e' | |
5991 endif | |
5992 endif | |
5993 | |
5994 else | |
5995 " use ssh to get remote file listing {{{3 | |
5996 " call Decho("use ssh to get remote file listing: s:path<".s:path.">") | |
5997 let listcmd= s:MakeSshCmd(g:netrw_list_cmd) | |
5998 " call Decho("listcmd<".listcmd."> (using g:netrw_list_cmd)") | |
5999 if g:netrw_scp_cmd =~ '^pscp' | |
6000 " call Decho("1: exe silent r! ".listcmd.shellescape(s:path)) | |
6001 exe "silent r! ".listcmd.shellescape(s:path) | |
6002 " remove rubbish and adjust listing format of 'pscp' to 'ssh ls -FLa' like | |
6003 g/^Listing directory/d | |
6004 g/^d[-rwx][-rwx][-rwx]/s+$+/+e | |
6005 silent g/^l[-rwx][-rwx][-rwx]/s+$+@+e | |
6006 if g:netrw_liststyle != s:LONGLIST | |
6007 g/^[dlsp-][-rwx][-rwx][-rwx]/s/^.*\s\(\S\+\)$/\1/e | |
6008 endif | |
6009 else | |
6010 if s:path == "" | |
6011 " call Decho("2: exe silent r! ".listcmd) | |
6012 exe "silent r! ".listcmd | |
6013 else | |
6014 " call Decho("3: exe silent r! ".listcmd.' "'.shellescape(s:path).'"') | |
6015 exe "silent r! ".listcmd.' "'.shellescape(s:path).'"' | |
6016 " call Decho("listcmd<".listcmd."> path<".s:path.">") | |
6017 endif | |
6018 endif | |
6019 | |
6020 " cleanup | |
6021 if g:netrw_ftp_browse_reject != "" | |
6022 " call Decho("(cleanup) exe silent! g/".g:netrw_ssh_browse_reject."/keepjumps d") | |
6023 exe "silent! g/".g:netrw_ssh_browse_reject."/keepjumps d" | |
6024 endif | |
6025 endif | |
6026 | |
4854 if w:netrw_liststyle == s:LONGLIST | 6027 if w:netrw_liststyle == s:LONGLIST |
4855 let seqlist = substitute(g:netrw_sort_sequence,'\$','\\%(\t\\|\$\\)','ge') | 6028 " do a long listing; these substitutions need to be done prior to sorting {{{3 |
6029 " call Decho("fix long listing:") | |
6030 | |
6031 if s:method == "ftp" | |
6032 " cleanup | |
6033 exe "keepjumps ".w:netrw_bannercnt | |
6034 while getline('.') =~ g:netrw_ftp_browse_reject | |
6035 keepjumps d | |
6036 endwhile | |
6037 " if there's no ../ listed, then put ./ and ../ in | |
6038 let line1= line(".") | |
6039 keepjumps 1 | |
6040 silent keepjumps call search('^\.\.\/\%(\s\|$\)','W') | |
6041 let line2= line(".") | |
6042 if line2 == 0 | |
6043 exe 'keepjumps '.w:netrw_bannercnt."put='./'" | |
6044 if b:netrw_curdir != '/' | |
6045 exe 'keepjumps '.w:netrw_bannercnt."put='../'" | |
6046 endif | |
6047 endif | |
6048 exe "keepjumps ".line1 | |
6049 keepjumps norm! 0 | |
6050 endif | |
6051 | |
6052 if search('^\d\{2}-\d\{2}-\d\{2}\s','n') " M$ ftp site cleanup | |
6053 " call Decho("M$ ftp site listing cleanup") | |
6054 exe 'silent! keepjumps '.w:netrw_bannercnt.',$s/^\(\d\{2}-\d\{2}-\d\{2}\s\+\d\+:\d\+[AaPp][Mm]\s\+\%(<DIR>\|\d\+\)\s\+\)\(\w.*\)$/\2\t\1/' | |
6055 elseif exists("w:netrw_bannercnt") && w:netrw_bannercnt <= line("$") | |
6056 " call Decho("normal ftp site listing cleanup: bannercnt=".w:netrw_bannercnt." line($)=".line("$")) | |
6057 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/ -> .*$//e' | |
6058 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^\(\%(\S\+\s\+\)\{7}\S\+\)\s\+\(\S.*\)$/\2\t\1/e' | |
6059 exe 'silent keepjumps '.w:netrw_bannercnt | |
6060 endif | |
6061 endif | |
6062 | |
6063 " if exists("w:netrw_bannercnt") && w:netrw_bannercnt <= line("$") " Decho | |
6064 " exe "keepjumps ".w:netrw_bannercnt.',$g/^./call Decho("listing: ".getline("."))' | |
6065 " endif " Decho | |
6066 " call Dret("s:NetrwRemoteListing") | |
6067 endfun | |
6068 | |
6069 " --------------------------------------------------------------------- | |
6070 " s:NetrwRemoteRm: remove/delete a remote file or directory {{{2 | |
6071 fun! s:NetrwRemoteRm(usrhost,path) range | |
6072 " call Dfunc("s:NetrwRemoteRm(usrhost<".a:usrhost."> path<".a:path.">) virtcol=".virtcol(".")) | |
6073 " call Decho("firstline=".a:firstline." lastline=".a:lastline) | |
6074 let svpos= netrw#NetrwSavePosn() | |
6075 | |
6076 let all= 0 | |
6077 if exists("s:netrwmarkfilelist_{bufnr('%')}") | |
6078 " remove all marked files | |
6079 for fname in s:netrwmarkfilelist_{bufnr("%")} | |
6080 let ok= s:NetrwRemoteRmFile(a:path,fname,all) | |
6081 if ok =~ 'q\%[uit]' | |
6082 break | |
6083 elseif ok =~ 'a\%[ll]' | |
6084 let all= 1 | |
6085 endif | |
6086 endfor | |
6087 unlet s:netrwmarkfilelist_{bufnr("%")} | |
6088 unlet s:netrwmarkfilemtch_{bufnr("%")} | |
6089 2match none | |
6090 | |
4856 else | 6091 else |
4857 let seqlist = g:netrw_sort_sequence | 6092 " remove files specified by range |
4858 endif | 6093 |
4859 " sanity check -- insure that * appears somewhere | 6094 " preparation for removing multiple files/directories |
4860 if seqlist == "" | 6095 let ctr= a:firstline |
4861 let seqlist= '*' | 6096 |
4862 elseif seqlist !~ '\*' | 6097 " remove multiple files and directories |
4863 let seqlist= seqlist.',*' | 6098 while ctr <= a:lastline |
4864 endif | 6099 exe ctr |
4865 let priority = 1 | 6100 let ok= s:NetrwRemoteRmFile(a:path,s:NetrwGetWord(),all) |
4866 while seqlist != "" | 6101 if ok =~ 'q\%[uit]' |
4867 if seqlist =~ ',' | 6102 break |
4868 let seq = substitute(seqlist,',.*$','','e') | 6103 elseif ok =~ 'a\%[ll]' |
4869 let seqlist = substitute(seqlist,'^.\{-},\(.*\)$','\1','e') | 6104 let all= 1 |
6105 endif | |
6106 let ctr= ctr + 1 | |
6107 endwhile | |
6108 endif | |
6109 | |
6110 " refresh the (remote) directory listing | |
6111 " call Decho("refresh remote directory listing") | |
6112 call s:NetrwRefresh(0,s:NetrwBrowseChgDir(0,'./')) | |
6113 call netrw#NetrwRestorePosn(svpos) | |
6114 | |
6115 " call Dret("s:NetrwRemoteRm") | |
6116 endfun | |
6117 | |
6118 " --------------------------------------------------------------------- | |
6119 " s:NetrwRemoteRmFile: {{{2 | |
6120 fun! s:NetrwRemoteRmFile(path,rmfile,all) | |
6121 " call Dfunc("s:NetrwRemoteRmFile(path<".a:path."> rmfile<".a:rmfile.">) all=".a:all) | |
6122 | |
6123 let all= a:all | |
6124 let ok = "" | |
6125 | |
6126 if a:rmfile !~ '^"' && (a:rmfile =~ '@$' || a:rmfile !~ '[\/]$') | |
6127 " attempt to remove file | |
6128 " call Decho("attempt to remove file (all=".all.")") | |
6129 if !all | |
6130 echohl Statement | |
6131 " call Decho("case all=0:") | |
6132 call inputsave() | |
6133 let ok= input("Confirm deletion of file<".a:rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") | |
6134 call inputrestore() | |
6135 echohl NONE | |
6136 if ok == "" | |
6137 let ok="no" | |
6138 endif | |
6139 let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') | |
6140 if ok =~ 'a\%[ll]' | |
6141 let all= 1 | |
6142 endif | |
6143 endif | |
6144 | |
6145 if all || ok =~ 'y\%[es]' || ok == "" | |
6146 " call Decho("case all=".all." or ok<".ok.">".(exists("w:netrw_method")? ': netrw_method='.w:netrw_method : "")) | |
6147 if exists("w:netrw_method") && (w:netrw_method == 2 || w:netrw_method == 3) | |
6148 " call Decho("case ftp:") | |
6149 let path= a:path | |
6150 if path =~ '^\a\+://' | |
6151 let path= substitute(path,'^\a\+://[^/]\+/','','') | |
6152 endif | |
6153 silent! keepjumps .,$d | |
6154 call s:NetrwRemoteFtpCmd(path,"delete ".'"'.a:rmfile.'"') | |
6155 else | |
6156 " call Decho("case ssh: g:netrw_rm_cmd<".g:netrw_rm_cmd.">") | |
6157 let netrw_rm_cmd= s:MakeSshCmd(g:netrw_rm_cmd) | |
6158 " call Decho("netrw_rm_cmd<".netrw_rm_cmd.">") | |
6159 if !exists("b:netrw_curdir") | |
6160 call netrw#ErrorMsg(s:ERROR,"for some reason b:netrw_curdir doesn't exist!",53) | |
6161 let ok="q" | |
6162 else | |
6163 let remotedir= substitute(b:netrw_curdir,'^.*//[^/]\+/\(.*\)$','\1','') | |
6164 " call Decho("netrw_rm_cmd<".netrw_rm_cmd.">") | |
6165 " call Decho("remotedir<".remotedir.">") | |
6166 " call Decho("rmfile<".a:rmfile.">") | |
6167 if remotedir != "" | |
6168 let netrw_rm_cmd= netrw_rm_cmd." ".shellescape(fnameescape(remotedir.a:rmfile)) | |
6169 else | |
6170 let netrw_rm_cmd= netrw_rm_cmd." ".shellescape(fnameescape(a:rmfile)) | |
6171 endif | |
6172 " call Decho("call system(".netrw_rm_cmd.")") | |
6173 let ret= system(netrw_rm_cmd) | |
6174 if ret != 0 | |
6175 call netrw#ErrorMsg(s:WARNING,"cmd<".netrw_rm_cmd."> failed",60) | |
6176 endif | |
6177 " call Decho("returned=".ret." errcode=".v:shell_error) | |
6178 endif | |
6179 endif | |
6180 elseif ok =~ 'q\%[uit]' | |
6181 " call Decho("ok==".ok) | |
6182 break | |
6183 endif | |
6184 | |
6185 else | |
6186 " attempt to remove directory | |
6187 " call Decho("attempt to remove directory") | |
6188 if !all | |
6189 call inputsave() | |
6190 let ok= input("Confirm deletion of directory<".a:rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") | |
6191 call inputrestore() | |
6192 if ok == "" | |
6193 let ok="no" | |
6194 endif | |
6195 let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') | |
6196 if ok =~ 'a\%[ll]' | |
6197 let all= 1 | |
6198 endif | |
6199 endif | |
6200 | |
6201 if all || ok =~ 'y\%[es]' || ok == "" | |
6202 if exists("w:netrw_method") && (w:netrw_method == 2 || w:netrw_method == 3) | |
6203 call s:NetrwRemoteFtpCmd(a:path,"rmdir ".a:rmfile) | |
6204 else | |
6205 let rmfile = substitute(a:path.a:rmfile,'/$','','') | |
6206 let netrw_rmdir_cmd = s:MakeSshCmd(g:netrw_rmdir_cmd).' '.rmfile | |
6207 " call Decho("attempt to remove dir: system(".netrw_rmdir_cmd.")") | |
6208 let ret= s:System("system",netrw_rmdir_cmd) | |
6209 " call Decho("returned=".ret." errcode=".v:shell_error) | |
6210 | |
6211 if v:shell_error != 0 | |
6212 " call Decho("v:shell_error not 0") | |
6213 let netrw_rmf_cmd= s:MakeSshCmd(g:netrw_rmf_cmd).' '.substitute(rmfile,'[\/]$','','e') | |
6214 " call Decho("2nd attempt to remove dir: system(".netrw_rmf_cmd.")") | |
6215 let ret= s:System("system",netrw_rmf_cmd) | |
6216 " call Decho("returned=".ret." errcode=".v:shell_error) | |
6217 | |
6218 if v:shell_error != 0 && !exists("g:netrw_quiet") | |
6219 call netrw#ErrorMsg(s:ERROR,"unable to remove directory<".rmfile."> -- is it empty?",22) | |
6220 endif | |
6221 endif | |
6222 endif | |
6223 | |
6224 elseif ok =~ 'q\%[uit]' | |
6225 break | |
6226 endif | |
6227 endif | |
6228 | |
6229 " call Dret("s:NetrwRemoteRmFile ".ok) | |
6230 return ok | |
6231 endfun | |
6232 | |
6233 " --------------------------------------------------------------------- | |
6234 " s:NetrwRemoteFtpCmd: unfortunately, not all ftp servers honor options for ls {{{2 | |
6235 " This function assumes that a long listing will be received. Size, time, | |
6236 " and reverse sorts will be requested of the server but not otherwise | |
6237 " enforced here. | |
6238 fun! s:NetrwRemoteFtpCmd(path,listcmd) | |
6239 " call Dfunc("NetrwRemoteFtpCmd(path<".a:path."> listcmd<".a:listcmd.">) netrw_method=".w:netrw_method) | |
6240 " call Decho("line($)=".line("$")." bannercnt=".w:netrw_bannercnt) | |
6241 | |
6242 " because WinXX ftp uses unix style input | |
6243 let ffkeep= &ff | |
6244 setlocal ma ff=unix noro | |
6245 " call Decho("setlocal ma ff=unix noro") | |
6246 | |
6247 " clear off any older non-banner lines | |
6248 " note that w:netrw_bannercnt indexes the line after the banner | |
6249 " call Decho('exe silent! keepjumps '.w:netrw_bannercnt.",$d (clear off old non-banner lines)") | |
6250 exe "silent! keepjumps ".w:netrw_bannercnt.",$d" | |
6251 | |
6252 "......................................... | |
6253 if w:netrw_method == 2 || w:netrw_method == 5 | |
6254 " ftp + <.netrc>: Method #2 | |
6255 if a:path != "" | |
6256 put ='cd \"'.a:path.'\"' | |
6257 endif | |
6258 if exists("g:netrw_ftpextracmd") | |
6259 exe "put ='".g:netrw_ftpextracmd."'" | |
6260 " call Decho("filter input: ".getline('.')) | |
6261 endif | |
6262 call setline(line("$")+1,a:listcmd) | |
6263 " exe "keepjumps ".w:netrw_bannercnt.',$g/^./call Decho("ftp#".line(".").": ".getline("."))' | |
6264 if exists("g:netrw_port") && g:netrw_port != "" | |
6265 " call Decho("exe ".s:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) | |
6266 exe s:netrw_silentxfer." keepjumps ".w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port | |
4870 else | 6267 else |
4871 let seq = seqlist | 6268 " call Decho("exe ".s:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine) |
4872 let seqlist = "" | 6269 exe s:netrw_silentxfer." keepjumps ".w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i ".g:netrw_machine |
4873 endif | 6270 endif |
4874 let eseq= escape(seq,'/') | 6271 |
4875 if priority < 10 | 6272 "......................................... |
4876 let spriority= "00".priority.'\/' | 6273 elseif w:netrw_method == 3 |
4877 elseif priority < 100 | 6274 " ftp + machine,id,passwd,filename: Method #3 |
4878 let spriority= "0".priority.'\/' | 6275 setlocal ff=unix |
6276 if exists("g:netrw_port") && g:netrw_port != "" | |
6277 put ='open '.g:netrw_machine.' '.g:netrw_port | |
6278 else | |
6279 put ='open '.g:netrw_machine | |
6280 endif | |
6281 | |
6282 if exists("g:netrw_ftp") && g:netrw_ftp == 1 | |
6283 put =g:netrw_uid | |
6284 put ='\"'.s:netrw_passwd.'\"' | |
6285 else | |
6286 put ='user \"'.g:netrw_uid.'\" \"'.s:netrw_passwd.'\"' | |
6287 endif | |
6288 | |
6289 if a:path != "" | |
6290 put ='cd \"'.a:path.'\"' | |
6291 endif | |
6292 if exists("g:netrw_ftpextracmd") | |
6293 exe "put ='".g:netrw_ftpextracmd."'" | |
6294 " call Decho("filter input: ".getline('.')) | |
6295 endif | |
6296 call setline(line("$")+1,a:listcmd) | |
6297 | |
6298 " perform ftp: | |
6299 " -i : turns off interactive prompting from ftp | |
6300 " -n unix : DON'T use <.netrc>, even though it exists | |
6301 " -n win32: quit being obnoxious about password | |
6302 " exe w:netrw_bannercnt.',$g/^./call Decho("ftp#".line(".").": ".getline("."))' | |
6303 " call Decho("exe ".s:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i -n") | |
6304 exe s:netrw_silentxfer.w:netrw_bannercnt.",$!".g:netrw_ftp_cmd." -i -n" | |
6305 | |
6306 "......................................... | |
6307 else | |
6308 call netrw#ErrorMsg(s:WARNING,"unable to comply with your request<" . choice . ">",23) | |
6309 endif | |
6310 | |
6311 " cleanup for Windows | |
6312 if has("win32") || has("win95") || has("win64") || has("win16") | |
6313 silent! keepjumps %s/\r$//e | |
6314 endif | |
6315 if a:listcmd == "dir" | |
6316 " infer directory/link based on the file permission string | |
6317 silent! keepjumps g/d\%([-r][-w][-x]\)\{3}/s@$@/@ | |
6318 silent! keepjumps g/l\%([-r][-w][-x]\)\{3}/s/$/@/ | |
6319 if w:netrw_liststyle == s:THINLIST || w:netrw_liststyle == s:WIDELIST || w:netrw_liststyle == s:TREELIST | |
6320 exe "silent! keepjumps ".w:netrw_bannercnt.',$s/^\%(\S\+\s\+\)\{8}//e' | |
6321 endif | |
6322 endif | |
6323 | |
6324 " ftp's listing doesn't seem to include ./ or ../ | |
6325 if !search('^\.\/$\|\s\.\/$','wn') | |
6326 exe 'keepjumps '.w:netrw_bannercnt | |
6327 put ='./' | |
6328 endif | |
6329 if !search('^\.\.\/$\|\s\.\.\/$','wn') | |
6330 exe 'keepjumps '.w:netrw_bannercnt | |
6331 put ='../' | |
6332 endif | |
6333 | |
6334 " restore settings | |
6335 let &ff= ffkeep | |
6336 " call Dret("NetrwRemoteFtpCmd") | |
6337 endfun | |
6338 | |
6339 " --------------------------------------------------------------------- | |
6340 " s:NetrwRemoteRename: rename a remote file or directory {{{2 | |
6341 fun! s:NetrwRemoteRename(usrhost,path) range | |
6342 " call Dfunc("NetrwRemoteRename(usrhost<".a:usrhost."> path<".a:path.">)") | |
6343 | |
6344 " preparation for removing multiple files/directories | |
6345 let svpos = netrw#NetrwSavePosn() | |
6346 let ctr = a:firstline | |
6347 let rename_cmd = s:MakeSshCmd(g:netrw_rename_cmd) | |
6348 | |
6349 " rename files given by the markfilelist | |
6350 if exists("s:netrwmarkfilelist_{bufnr('%')}") | |
6351 for oldname in s:netrwmarkfilelist_{bufnr("%")} | |
6352 " call Decho("oldname<".oldname.">") | |
6353 if exists("subfrom") | |
6354 let newname= substitute(oldname,subfrom,subto,'') | |
6355 " call Decho("subfrom<".subfrom."> subto<".subto."> newname<".newname.">") | |
6356 else | |
6357 call inputsave() | |
6358 let newname= input("Moving ".oldname." to : ",oldname) | |
6359 call inputrestore() | |
6360 if newname =~ '^s/' | |
6361 let subfrom = substitute(newname,'^s/\([^/]*\)/.*/$','\1','') | |
6362 let subto = substitute(newname,'^s/[^/]*/\(.*\)/$','\1','') | |
6363 let newname = substitute(oldname,subfrom,subto,'') | |
6364 " call Decho("subfrom<".subfrom."> subto<".subto."> newname<".newname.">") | |
6365 endif | |
6366 endif | |
6367 | |
6368 if exists("w:netrw_method") && (w:netrw_method == 2 || w:netrw_method == 3) | |
6369 call s:NetrwRemoteFtpCmd(a:path,"rename ".oldname." ".newname) | |
6370 else | |
6371 let oldname= a:path.oldname | |
6372 let newname= a:path.newname | |
6373 " call Decho("system(rename_cmd".' "'.fnameescape(oldname," ").'" "'.escape(newname).'"') | |
6374 let ret= s:System("system",rename_cmd.' "'.fnameescape(oldname).'" "'.fnameescape(newname).'"') | |
6375 endif | |
6376 | |
6377 endfor | |
6378 call s:NetrwUnMarkFile(1) | |
6379 | |
6380 else | |
6381 | |
6382 " attempt to rename files/directories | |
6383 while ctr <= a:lastline | |
6384 exe "keepjumps ".ctr | |
6385 | |
6386 let oldname= s:NetrwGetWord() | |
6387 " call Decho("oldname<".oldname.">") | |
6388 | |
6389 call inputsave() | |
6390 let newname= input("Moving ".oldname." to : ",oldname) | |
6391 call inputrestore() | |
6392 | |
6393 if exists("w:netrw_method") && (w:netrw_method == 2 || w:netrw_method == 3) | |
6394 call s:NetrwRemoteFtpCmd(a:path,"rename ".oldname." ".newname) | |
6395 else | |
6396 let oldname= a:path.oldname | |
6397 let newname= a:path.newname | |
6398 " call Decho("system(rename_cmd".' "'.fnameescape(oldname," ").'" "'.escape(newname).'"') | |
6399 let ret= s:System("system",rename_cmd.' "'.fnameescape(oldname).'" "'.fnameescape(newname).'"') | |
6400 endif | |
6401 | |
6402 let ctr= ctr + 1 | |
6403 endwhile | |
6404 endif | |
6405 | |
6406 " refresh the directory | |
6407 call s:NetrwRefresh(0,s:NetrwBrowseChgDir(0,'./')) | |
6408 call netrw#NetrwRestorePosn(svpos) | |
6409 | |
6410 " call Dret("NetrwRemoteRename") | |
6411 endfun | |
6412 | |
6413 " --------------------------------------------------------------------- | |
6414 " Local Directory Browsing Support: {{{1 | |
6415 " ========================================== | |
6416 | |
6417 " --------------------------------------------------------------------- | |
6418 " netrw#LocalBrowseCheck: {{{2 | |
6419 fun! netrw#LocalBrowseCheck(dirname) | |
6420 " unfortunate interaction -- split window debugging can't be | |
6421 " used here, must use D-echoRemOn or D-echoTabOn -- the BufEnter | |
6422 " event triggers another call to LocalBrowseCheck() when attempts | |
6423 " to write to the DBG buffer are made. | |
6424 " The &ft == "netrw" test was installed because the BufEnter event | |
6425 " would hit when re-entering netrw windows, creating unexpected | |
6426 " refreshes (and would do so in the middle of NetrwSaveOptions(), too) | |
6427 " call Decho("netrw#LocalBrowseCheck: isdir<".a:dirname.">=".isdirectory(a:dirname)) | |
6428 if isdirectory(a:dirname) | |
6429 " call Decho(" ft<".&ft."> b:netrw_curdir<".(exists("b:netrw_curdir")? b:netrw_curdir : " doesn't exist")."> dirname<".a:dirname.">"." line($)=".line("$")) | |
6430 if &ft != "netrw" || (exists("b:netrw_curdir") && b:netrw_curdir != a:dirname) | |
6431 silent! call s:NetrwBrowse(1,a:dirname) | |
6432 elseif &ft == "netrw" && line("$") == 1 | |
6433 silent! call s:NetrwBrowse(1,a:dirname) | |
6434 endif | |
6435 endif | |
6436 " not a directory, ignore it | |
6437 endfun | |
6438 | |
6439 " --------------------------------------------------------------------- | |
6440 " s:LocalListing: does the job of "ls" for local directories {{{2 | |
6441 fun! s:LocalListing() | |
6442 " call Dfunc("s:LocalListing()") | |
6443 " call Decho("&ma=".&ma) | |
6444 " call Decho("&mod=".&mod) | |
6445 " call Decho("&ro=".&ro) | |
6446 " call Decho("bufname(%)<".bufname("%").">") | |
6447 | |
6448 " if exists("b:netrw_curdir") |call Decho('b:netrw_curdir<'.b:netrw_curdir.">") |else|call Decho("b:netrw_curdir doesn't exist") |endif | |
6449 " if exists("g:netrw_sort_by")|call Decho('g:netrw_sort_by<'.g:netrw_sort_by.">")|else|call Decho("g:netrw_sort_by doesn't exist")|endif | |
6450 | |
6451 " get the list of files contained in the current directory | |
6452 let dirname = escape(b:netrw_curdir,g:netrw_glob_escape) | |
6453 let dirnamelen = strlen(b:netrw_curdir) | |
6454 let filelist = glob(s:ComposePath(dirname,"*")) | |
6455 " call Decho("glob(dirname<".dirname."/*>)=".filelist) | |
6456 if filelist != "" | |
6457 let filelist= filelist."\n" | |
6458 endif | |
6459 let filelist= filelist.glob(s:ComposePath(dirname,".*")) | |
6460 " call Decho("glob(dirname<".dirname."/.*>)=".filelist) | |
6461 | |
6462 " Coding choice: either elide ./ if present | |
6463 " or include ./ if not present | |
6464 if filelist =~ '[\\/]\.[\\/]\=\(\n\|$\)' | |
6465 " elide /path/. from glob() entries if present | |
6466 " call Decho("elide /path/. from glob entries if present") | |
6467 let filelist = substitute(filelist,'\n','\t','g') | |
6468 let filelist = substitute(filelist,'^[^\t]\+[/\\]\.\t','','') | |
6469 let filelist = substitute(filelist,'[^\t]\+[/\\]\.$','','') | |
6470 let filelist = substitute(filelist,'\t\zs[^\t]\+[/\\]\.\t','','') | |
6471 let filelist = substitute(filelist,'\t','\n','g') | |
6472 endif | |
6473 " call Decho("filelist<".filelist.">") | |
6474 if filelist !~ '[\\/]\.\.[\\/]\=\(\n\|$\)' | |
6475 " include ../ in the glob() entry if its missing | |
6476 " call Decho("forcibly tacking on ..") | |
6477 let filelist= filelist."\n".s:ComposePath(b:netrw_curdir,"../") | |
6478 " call Decho("filelist<".filelist.">") | |
6479 endif | |
6480 if b:netrw_curdir == '/' | |
6481 " remove .. from filelist when current directory is root directory | |
6482 " call Decho("remove .. from filelist") | |
6483 let filelist= substitute(filelist,'/\.\.\n','','') | |
6484 endif | |
6485 " remove multiple contiguous newlines | |
6486 let filelist= substitute(filelist,'\n\{2,}','\n','ge') | |
6487 if !g:netrw_cygwin && (has("win32") || has("win95") || has("win64") || has("win16")) | |
6488 " change all \s to /s | |
6489 " call Decho('change all \s to /s') | |
6490 let filelist= substitute(filelist,'\','/','g') | |
6491 else | |
6492 " escape all \s to \\ | |
6493 " call Decho('escape all \s to \\') | |
6494 let filelist= substitute(filelist,'\','\\','g') | |
6495 endif | |
6496 | |
6497 " call Decho("(before while) dirname<".dirname.">") | |
6498 " call Decho("(before while) dirnamelen<".dirnamelen.">") | |
6499 " call Decho("(before while) filelist<".filelist.">") | |
6500 | |
6501 while filelist != "" | |
6502 if filelist =~ '\n' | |
6503 let filename = substitute(filelist,'\n.*$','','e') | |
6504 let filelist = substitute(filelist,'^.\{-}\n\(.*\)$','\1','e') | |
4879 else | 6505 else |
4880 let spriority= priority.'\/' | 6506 let filename = filelist |
4881 endif | 6507 let filelist = "" |
4882 " call Decho("priority=".priority." spriority<".spriority."> seq<".seq."> seqlist<".seqlist.">") | 6508 endif |
4883 | 6509 " call Decho(" ") |
4884 " sanity check | 6510 " call Decho("(while) filelist<".filelist.">") |
4885 if w:netrw_bannercnt > line("$") | 6511 " call Decho("(while) filename<".filename.">") |
4886 " apparently no files were left after a Hiding pattern was used | 6512 |
4887 " call Dret("SetSort : no files left after hiding") | 6513 if getftype(filename) == "link" |
4888 return | 6514 " indicate a symbolic link |
4889 endif | 6515 " call Decho("indicate <".filename."> is a symbolic link with trailing @") |
4890 if seq == '*' | 6516 let pfile= filename."@" |
4891 exe 'silent keepjumps '.w:netrw_bannercnt.',$v/^\d\{3}\//s/^/'.spriority.'/' | 6517 |
6518 elseif getftype(filename) == "socket" | |
6519 " indicate a socket | |
6520 " call Decho("indicate <".filename."> is a socket with trailing =") | |
6521 let pfile= filename."=" | |
6522 | |
6523 elseif getftype(filename) == "fifo" | |
6524 " indicate a fifo | |
6525 " call Decho("indicate <".filename."> is a fifo with trailing |") | |
6526 let pfile= filename."|" | |
6527 | |
6528 elseif isdirectory(filename) | |
6529 " indicate a directory | |
6530 " call Decho("indicate <".filename."> is a directory with trailing /") | |
6531 let pfile= filename."/" | |
6532 | |
6533 elseif exists("b:netrw_curdir") && b:netrw_curdir !~ '^.*://' && !isdirectory(filename) | |
6534 if (has("win32") || has("win95") || has("win64") || has("win16")) | |
6535 if filename =~ '\.[eE][xX][eE]$' || filename =~ '\.[cC][oO][mM]$' || filename =~ '\.[bB][aA][tT]$' | |
6536 " indicate an executable | |
6537 " call Decho("indicate <".filename."> is executable with trailing *") | |
6538 let pfile= filename."*" | |
6539 else | |
6540 " normal file | |
6541 let pfile= filename | |
6542 endif | |
6543 elseif executable(filename) | |
6544 " indicate an executable | |
6545 " call Decho("indicate <".filename."> is executable with trailing *") | |
6546 let pfile= filename."*" | |
6547 else | |
6548 " normal file | |
6549 let pfile= filename | |
6550 endif | |
6551 | |
4892 else | 6552 else |
4893 exe 'silent keepjumps '.w:netrw_bannercnt.',$g/'.eseq.'/s/^/'.spriority.'/' | 6553 " normal file |
4894 endif | 6554 let pfile= filename |
4895 let priority = priority + 1 | 6555 endif |
6556 " call Decho("pfile<".pfile."> (after *@/ appending)") | |
6557 | |
6558 if pfile =~ '//$' | |
6559 let pfile= substitute(pfile,'//$','/','e') | |
6560 " call Decho("change // to /: pfile<".pfile.">") | |
6561 endif | |
6562 let pfile= strpart(pfile,dirnamelen) | |
6563 let pfile= substitute(pfile,'^[/\\]','','e') | |
6564 " call Decho("filename<".filename.">") | |
6565 " call Decho("pfile <".pfile.">") | |
6566 | |
6567 if w:netrw_liststyle == s:LONGLIST | |
6568 let sz = getfsize(filename) | |
6569 let fsz = strpart(" ",1,15-s:Strlen(sz)).sz | |
6570 let pfile= pfile."\t".fsz." ".strftime(g:netrw_timefmt,getftime(filename)) | |
6571 " call Decho("sz=".sz." fsz=".fsz) | |
6572 endif | |
6573 | |
6574 if g:netrw_sort_by =~ "^t" | |
6575 " sort by time (handles time up to 1 quintillion seconds, US) | |
6576 " call Decho("getftime(".filename.")=".getftime(filename)) | |
6577 let t = getftime(filename) | |
6578 let ft = strpart("000000000000000000",1,18-s:Strlen(t)).t | |
6579 " call Decho("exe keepjumps put ='".ft.'/'.filename."'") | |
6580 let ftpfile= ft.'/'.pfile | |
6581 keepjumps silent! put=ftpfile | |
6582 | |
6583 elseif g:netrw_sort_by =~ "^s" | |
6584 " sort by size (handles file sizes up to 1 quintillion bytes, US) | |
6585 " call Decho("getfsize(".filename.")=".getfsize(filename)) | |
6586 let sz = getfsize(filename) | |
6587 let fsz = strpart("000000000000000000",1,18-s:Strlen(sz)).sz | |
6588 " call Decho("exe keepjumps put ='".fsz.'/'.filename."'") | |
6589 let fszpfile= fsz.'/'.pfile | |
6590 keepjumps silent! put =fszpfile | |
6591 | |
6592 else | |
6593 " sort by name | |
6594 " call Decho("exe keepjumps put ='".pfile."'") | |
6595 keepjumps silent! put=pfile | |
6596 endif | |
4896 endwhile | 6597 endwhile |
4897 | 6598 |
4898 " Following line associated with priority -- items that satisfy a priority | 6599 " cleanup any windows mess at end-of-line |
4899 " pattern get prefixed by ###/ which permits easy sorting by priority. | 6600 silent! keepjumps %s/\r$//e |
4900 " Sometimes files can satisfy multiple priority patterns -- only the latest | 6601 exe "setlocal ts=".g:netrw_maxfilenamelen |
4901 " priority pattern needs to be retained. So, at this point, these excess | 6602 " call Decho("setlocal ts=".g:netrw_maxfilenamelen) |
4902 " priority prefixes need to be removed, but not directories that happen to | 6603 |
4903 " be just digits themselves. | 6604 " call Dret("s:LocalListing") |
4904 exe 'silent keepjumps '.w:netrw_bannercnt.',$s/^\(\d\{3}\/\)\%(\d\{3}\/\)\+\ze./\1/e' | 6605 endfun |
4905 | 6606 |
4906 " call Dret("SetSort") | 6607 " --------------------------------------------------------------------- |
4907 endfun | 6608 " s:LocalBrowseShellCmdRefresh: this function is called after a user has {{{2 |
4908 | 6609 " performed any shell command. The idea is to cause all local-browsing |
4909 " ===================================================================== | 6610 " buffers to be refreshed after a user has executed some shell command, |
6611 " on the chance that s/he removed/created a file/directory with it. | |
6612 fun! s:LocalBrowseShellCmdRefresh() | |
6613 " call Dfunc("LocalBrowseShellCmdRefresh() browselist=".(exists("s:netrw_browselist")? string(s:netrw_browselist) : "empty")." ".tabpagenr("$")." tabs") | |
6614 " determine which buffers currently reside in a tab | |
6615 if !exists("s:netrw_browselist") | |
6616 " call Dret("LocalBrowseShellCmdRefresh : browselist is empty") | |
6617 return | |
6618 endif | |
6619 if !exists("w:netrw_bannercnt") | |
6620 " call Dret("LocalBrowseShellCmdRefresh : don't refresh when focus not on netrw windwo") | |
6621 return | |
6622 endif | |
6623 let itab = 1 | |
6624 let buftablist = [] | |
6625 while itab <= tabpagenr("$") | |
6626 let buftablist = buftablist + tabpagebuflist() | |
6627 let itab = itab + 1 | |
6628 tabn | |
6629 endwhile | |
6630 " call Decho("buftablist".string(buftablist)) | |
6631 " call Decho("s:netrw_browselist<".(exists("s:netrw_browselist")? string(s:netrw_browselist) : "").">") | |
6632 " GO through all buffers on netrw_browselist (ie. just local-netrw buffers): | |
6633 " | refresh any netrw window | |
6634 " | wipe out any non-displaying netrw buffer | |
6635 let curwin = winnr() | |
6636 let ibl = 0 | |
6637 for ibuf in s:netrw_browselist | |
6638 " call Decho("bufwinnr(".ibuf.") index(buftablist,".ibuf.")=".index(buftablist,ibuf)) | |
6639 if bufwinnr(ibuf) == -1 && index(buftablist,ibuf) == -1 | |
6640 " wipe out any non-displaying netrw buffer | |
6641 " call Decho("wiping buf#".ibuf,"<".bufname(ibuf).">") | |
6642 exe "silent! bd ".ibuf | |
6643 call remove(s:netrw_browselist,ibl) | |
6644 " call Decho("browselist=".string(s:netrw_browselist)) | |
6645 continue | |
6646 elseif index(tabpagebuflist(),ibuf) != -1 | |
6647 " refresh any netrw buffer | |
6648 " call Decho("refresh buf#".ibuf.'-> win#'.bufwinnr(ibuf)) | |
6649 exe bufwinnr(ibuf)."wincmd w" | |
6650 call s:NetrwRefresh(1,s:NetrwBrowseChgDir(1,'./')) | |
6651 endif | |
6652 let ibl= ibl + 1 | |
6653 endfor | |
6654 exe curwin."wincmd w" | |
6655 | |
6656 " call Dret("LocalBrowseShellCmdRefresh") | |
6657 endfun | |
6658 | |
6659 " --------------------------------------------------------------------- | |
6660 " s:NetrwLocalRm: {{{2 | |
6661 fun! s:NetrwLocalRm(path) range | |
6662 " call Dfunc("s:NetrwLocalRm(path<".a:path.">)") | |
6663 " call Decho("firstline=".a:firstline." lastline=".a:lastline) | |
6664 | |
6665 " preparation for removing multiple files/directories | |
6666 let ret = 0 | |
6667 let all = 0 | |
6668 let svpos = netrw#NetrwSavePosn() | |
6669 | |
6670 if exists("s:netrwmarkfilelist_{bufnr('%')}") | |
6671 " remove all marked files | |
6672 " call Decho("remove all marked files") | |
6673 for fname in s:netrwmarkfilelist_{bufnr("%")} | |
6674 let ok= s:NetrwLocalRmFile(a:path,fname,all) | |
6675 if ok =~ 'q\%[uit]' || ok == "no" | |
6676 break | |
6677 elseif ok =~ 'a\%[ll]' | |
6678 let all= 1 | |
6679 endif | |
6680 endfor | |
6681 call s:NetrwUnMarkFile(1) | |
6682 | |
6683 else | |
6684 " remove (multiple) files and directories | |
6685 " call Decho("remove files in range [".a:firstline.",".a:lastline."]") | |
6686 | |
6687 let ctr = a:firstline | |
6688 while ctr <= a:lastline | |
6689 exe "keepjumps ".ctr | |
6690 | |
6691 " sanity checks | |
6692 if line(".") < w:netrw_bannercnt | |
6693 let ctr= ctr + 1 | |
6694 continue | |
6695 endif | |
6696 let curword= s:NetrwGetWord() | |
6697 if curword == "./" || curword == "../" | |
6698 let ctr= ctr + 1 | |
6699 continue | |
6700 endif | |
6701 let ok= s:NetrwLocalRmFile(a:path,curword,all) | |
6702 if ok =~ 'q\%[uit]' || ok == "no" | |
6703 break | |
6704 elseif ok =~ 'a\%[ll]' | |
6705 let all= 1 | |
6706 endif | |
6707 let ctr= ctr + 1 | |
6708 endwhile | |
6709 endif | |
6710 | |
6711 " refresh the directory | |
6712 " call Decho("bufname<".bufname("%").">") | |
6713 if bufname("%") != "NetrwMessage" | |
6714 call s:NetrwRefresh(1,s:NetrwBrowseChgDir(1,'./')) | |
6715 call netrw#NetrwRestorePosn(svpos) | |
6716 endif | |
6717 | |
6718 " call Dret("s:NetrwLocalRm") | |
6719 endfun | |
6720 | |
6721 " --------------------------------------------------------------------- | |
6722 " s:NetrwLocalRmFile: remove file fname given the path {{{2 | |
6723 " Give confirmation prompt unless all==1 | |
6724 fun! s:NetrwLocalRmFile(path,fname,all) | |
6725 " call Dfunc("s:NetrwLocalRmFile(path<".a:path."> fname<".a:fname."> all=".a:all) | |
6726 | |
6727 let all= a:all | |
6728 let ok = "" | |
6729 norm! 0 | |
6730 let rmfile= s:ComposePath(a:path,a:fname) | |
6731 " call Decho("rmfile<".rmfile.">") | |
6732 | |
6733 if rmfile !~ '^"' && (rmfile =~ '@$' || rmfile !~ '[\/]$') | |
6734 " attempt to remove file | |
6735 " call Decho("attempt to remove file<".rmfile.">") | |
6736 if !all | |
6737 echohl Statement | |
6738 call inputsave() | |
6739 let ok= input("Confirm deletion of file<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") | |
6740 call inputrestore() | |
6741 echohl NONE | |
6742 if ok == "" | |
6743 let ok="no" | |
6744 endif | |
6745 " call Decho("response: ok<".ok.">") | |
6746 let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') | |
6747 " call Decho("response: ok<".ok."> (after sub)") | |
6748 if ok =~ 'a\%[ll]' | |
6749 let all= 1 | |
6750 endif | |
6751 endif | |
6752 | |
6753 if all || ok =~ 'y\%[es]' || ok == "" | |
6754 let ret= s:System("delete",rmfile) | |
6755 " call Decho("errcode=".v:shell_error." ret=".ret) | |
6756 endif | |
6757 | |
6758 else | |
6759 " attempt to remove directory | |
6760 if !all | |
6761 echohl Statement | |
6762 call inputsave() | |
6763 let ok= input("Confirm deletion of directory<".rmfile."> ","[{y(es)},n(o),a(ll),q(uit)] ") | |
6764 call inputrestore() | |
6765 let ok= substitute(ok,'\[{y(es)},n(o),a(ll),q(uit)]\s*','','e') | |
6766 if ok == "" | |
6767 let ok="no" | |
6768 endif | |
6769 if ok =~ 'a\%[ll]' | |
6770 let all= 1 | |
6771 endif | |
6772 endif | |
6773 let rmfile= substitute(rmfile,'[\/]$','','e') | |
6774 | |
6775 if all || ok =~ 'y\%[es]' || ok == "" | |
6776 " call Decho("1st attempt: system(".g:netrw_local_rmdir.' '.shellescape(rmfile).')') | |
6777 call s:System("system",g:netrw_local_rmdir.' '.shellescape(rmfile)) | |
6778 " call Decho("v:shell_error=".v:shell_error) | |
6779 | |
6780 if v:shell_error != 0 | |
6781 " call Decho("2nd attempt to remove directory<".rmfile.">") | |
6782 let errcode= s:System("delete",rmfile) | |
6783 " call Decho("errcode=".errcode) | |
6784 | |
6785 if errcode != 0 | |
6786 if has("unix") | |
6787 " call Decho("3rd attempt to remove directory<".rmfile.">") | |
6788 call s:System("system","rm ".shellescape(rmfile)) | |
6789 if v:shell_error != 0 && !exists("g:netrw_quiet") | |
6790 call netrw#ErrorMsg(s:ERROR,"unable to remove directory<".rmfile."> -- is it empty?",34) | |
6791 let ok="no" | |
6792 endif | |
6793 elseif !exists("g:netrw_quiet") | |
6794 call netrw#ErrorMsg(s:ERROR,"unable to remove directory<".rmfile."> -- is it empty?",35) | |
6795 let ok="no" | |
6796 endif | |
6797 endif | |
6798 endif | |
6799 endif | |
6800 endif | |
6801 | |
6802 " call Dret("s:NetrwLocalRmFile ".ok) | |
6803 return ok | |
6804 endfun | |
6805 | |
6806 " --------------------------------------------------------------------- | |
6807 " s:NetrwLocalRename: rename a remote file or directory {{{2 | |
6808 fun! s:NetrwLocalRename(path) range | |
6809 " call Dfunc("NetrwLocalRename(path<".a:path.">)") | |
6810 | |
6811 " preparation for removing multiple files/directories | |
6812 let ctr = a:firstline | |
6813 let svpos= netrw#NetrwSavePosn() | |
6814 | |
6815 " rename files given by the markfilelist | |
6816 if exists("s:netrwmarkfilelist_{bufnr('%')}") | |
6817 for oldname in s:netrwmarkfilelist_{bufnr("%")} | |
6818 " call Decho("oldname<".oldname.">") | |
6819 if exists("subfrom") | |
6820 let newname= substitute(oldname,subfrom,subto,'') | |
6821 " call Decho("subfrom<".subfrom."> subto<".subto."> newname<".newname.">") | |
6822 else | |
6823 call inputsave() | |
6824 let newname= input("Moving ".oldname." to : ",oldname) | |
6825 call inputrestore() | |
6826 if newname =~ '^s/' | |
6827 let subfrom = substitute(newname,'^s/\([^/]*\)/.*/$','\1','') | |
6828 let subto = substitute(newname,'^s/[^/]*/\(.*\)/$','\1','') | |
6829 " call Decho("subfrom<".subfrom."> subto<".subto."> newname<".newname.">") | |
6830 let newname = substitute(oldname,subfrom,subto,'') | |
6831 endif | |
6832 endif | |
6833 let ret= rename(oldname,newname) | |
6834 endfor | |
6835 2match none | |
6836 unlet s:netrwmarkfilelist_{bufnr("%")} | |
6837 unlet s:netrwmarkfilemtch_{bufnr("%")} | |
6838 | |
6839 else | |
6840 | |
6841 " attempt to rename files/directories | |
6842 while ctr <= a:lastline | |
6843 exe "keepjumps ".ctr | |
6844 | |
6845 " sanity checks | |
6846 if line(".") < w:netrw_bannercnt | |
6847 let ctr= ctr + 1 | |
6848 continue | |
6849 endif | |
6850 let curword= s:NetrwGetWord() | |
6851 if curword == "./" || curword == "../" | |
6852 let ctr= ctr + 1 | |
6853 continue | |
6854 endif | |
6855 | |
6856 norm! 0 | |
6857 let oldname= s:ComposePath(a:path,curword) | |
6858 " call Decho("oldname<".oldname.">") | |
6859 | |
6860 call inputsave() | |
6861 let newname= input("Moving ".oldname." to : ",substitute(oldname,'/*$','','e')) | |
6862 call inputrestore() | |
6863 | |
6864 let ret= rename(oldname,newname) | |
6865 " call Decho("renaming <".oldname."> to <".newname.">") | |
6866 | |
6867 let ctr= ctr + 1 | |
6868 endwhile | |
6869 endif | |
6870 | |
6871 " refresh the directory | |
6872 " call Decho("refresh the directory listing") | |
6873 call s:NetrwRefresh(1,s:NetrwBrowseChgDir(1,'./')) | |
6874 call netrw#NetrwRestorePosn(svpos) | |
6875 | |
6876 " call Dret("NetrwLocalRename") | |
6877 endfun | |
6878 | |
6879 " --------------------------------------------------------------------- | |
6880 " s:LocalFastBrowser: handles setting up/taking down fast browsing for the local browser {{{2 | |
6881 " | |
6882 " g:netrw_ Directory Is | |
6883 " fastbrowse Local Remote | |
6884 " slow 0 D D D=Deleting a buffer implies it will not be re-used (slow) | |
6885 " med 1 D H H=Hiding a buffer implies it may be re-used (fast) | |
6886 " fast 2 H H | |
6887 " | |
6888 " Deleting a buffer means that it will be re-loaded when examined, hence "slow". | |
6889 " Hiding a buffer means that it will be re-used when examined, hence "fast". | |
6890 " (re-using a buffer may not be as accurate) | |
6891 fun! s:LocalFastBrowser() | |
6892 " call Dfunc("LocalFastBrowser() g:netrw_fastbrowse=".g:netrw_fastbrowse) | |
6893 | |
6894 " initialize browselist, a list of buffer numbers that the local browser has used | |
6895 if !exists("s:netrw_browselist") | |
6896 " call Decho("initialize s:netrw_browselist") | |
6897 let s:netrw_browselist= [] | |
6898 endif | |
6899 | |
6900 " append current buffer to fastbrowse list | |
6901 if empty(s:netrw_browselist) || bufnr("%") > s:netrw_browselist[-1] | |
6902 " call Decho("appendng current buffer to browselist") | |
6903 call add(s:netrw_browselist,bufnr("%")) | |
6904 " call Decho("browselist=".string(s:netrw_browselist)) | |
6905 endif | |
6906 | |
6907 " enable autocmd events to handle refreshing/removing local browser buffers | |
6908 " If local browse buffer is currently showing: refresh it | |
6909 " If local browse buffer is currently hidden : wipe it | |
6910 if !exists("s:netrw_browser_shellcmd") && g:netrw_fastbrowse <= 1 | |
6911 " call Decho("setting up local-browser shell command refresh") | |
6912 let s:netrw_browser_shellcmd= 1 | |
6913 augroup AuNetrwShellCmd | |
6914 au! | |
6915 if (has("win32") || has("win95") || has("win64") || has("win16")) | |
6916 au ShellCmdPost * call s:LocalBrowseShellCmdRefresh() | |
6917 else | |
6918 au ShellCmdPost,FocusGained * call s:LocalBrowseShellCmdRefresh() | |
6919 endif | |
6920 augroup END | |
6921 endif | |
6922 | |
6923 " user must have changed fastbrowse to its fast setting, so remove | |
6924 " the associated autocmd events | |
6925 if g:netrw_fastbrowse > 1 && exists("s:netrw_browser_shellcmd") | |
6926 " call Decho("remove AuNetrwShellCmd autcmd group") | |
6927 unlet s:netrw_browser_shellcmd | |
6928 augroup AuNetrwShellCmd | |
6929 au! | |
6930 augroup END | |
6931 augroup! AuNetrwShellCmd | |
6932 endif | |
6933 | |
6934 " call Dret("LocalFastBrowser : browselist<".string(s:netrw_browselist).">") | |
6935 endfun | |
6936 | |
6937 " --------------------------------------------------------------------- | |
4910 " Support Functions: {{{1 | 6938 " Support Functions: {{{1 |
4911 | 6939 |
4912 " --------------------------------------------------------------------- | 6940 " --------------------------------------------------------------------- |
4913 " ComposePath: Appends a new part to a path taking different systems into consideration {{{2 | 6941 " s:UpdateBuffersMenu: does emenu Buffers.Refresh (but due to locale, the menu item may not be called that) {{{2 |
6942 " The Buffers.Refresh menu calls s:BMShow(); unfortunately, that means that that function | |
6943 " can't be called except via emenu. But due to locale, that menu line may not be called | |
6944 " Buffers.Refresh; hence, s:NetrwBMShow() utilizes a "cheat" to call that function anyway. | |
6945 fun! s:UpdateBuffersMenu() | |
6946 " call Dfunc("s:UpdateBuffersMenu()") | |
6947 if has("gui") && has("menu") && has("gui_running") && &go =~ 'm' | |
6948 try | |
6949 silent emenu Buffers.Refresh\ menu | |
6950 catch /^Vim\%((\a\+)\)\=:E/ | |
6951 let v:errmsg= "" | |
6952 silent call s:NetrwBMShow() | |
6953 endtry | |
6954 endif | |
6955 " call Dret("s:UpdateBuffersMenu") | |
6956 endfun | |
6957 | |
6958 " --------------------------------------------------------------------- | |
6959 " s:NetrwBMShow: {{{2 | |
6960 fun! s:NetrwBMShow() | |
6961 " call Dfunc("s:NetrwBMShow()") | |
6962 redir => bmshowraw | |
6963 menu | |
6964 redir END | |
6965 let bmshowlist = split(bmshowraw,'\n') | |
6966 if bmshowlist != [] | |
6967 let bmshowfuncs= filter(bmshowlist,'v:val =~ "<SNR>\\d\\+_BMShow()"') | |
6968 if bmshowfuncs != [] | |
6969 let bmshowfunc = substitute(bmshowfuncs[0],'^.*:\(call.*BMShow()\).*$','\1','') | |
6970 if bmshowfunc =~ '^call.*BMShow()' | |
6971 exe "silent! ".bmshowfunc | |
6972 endif | |
6973 endif | |
6974 endif | |
6975 " call Dret("s:NetrwBMShow : bmshowfunc<".(exists("bmshowfunc")? bmshowfunc : 'n/a').">") | |
6976 endfun | |
6977 | |
6978 " --------------------------------------------------------------------- | |
6979 " s:ComposePath: Appends a new part to a path taking different systems into consideration {{{2 | |
4914 fun! s:ComposePath(base,subdir) | 6980 fun! s:ComposePath(base,subdir) |
4915 " call Dfunc("s:ComposePath(base<".a:base."> subdir<".a:subdir.">)") | 6981 " call Dfunc("s:ComposePath(base<".a:base."> subdir<".a:subdir.">)") |
6982 | |
4916 if(has("amiga")) | 6983 if(has("amiga")) |
6984 " call Decho("amiga") | |
4917 let ec = a:base[strlen(a:base)-1] | 6985 let ec = a:base[strlen(a:base)-1] |
4918 if ec != '/' && ec != ':' | 6986 if ec != '/' && ec != ':' |
4919 let ret = a:base . "/" . a:subdir | 6987 let ret = a:base . "/" . a:subdir |
4920 else | 6988 else |
4921 let ret = a:base . a:subdir | 6989 let ret = a:base . a:subdir |
4922 endif | 6990 endif |
6991 | |
6992 elseif a:subdir =~ '^\a:[/\\][^/\\]' && (has("win32") || has("win95") || has("win64") || has("win16")) | |
6993 " call Decho("windows") | |
6994 let ret= a:subdir | |
6995 | |
4923 elseif a:base =~ '^\a\+://' | 6996 elseif a:base =~ '^\a\+://' |
6997 " call Decho("remote linux/macos") | |
4924 let urlbase = substitute(a:base,'^\(\a\+://.\{-}/\)\(.*\)$','\1','') | 6998 let urlbase = substitute(a:base,'^\(\a\+://.\{-}/\)\(.*\)$','\1','') |
4925 let curpath = substitute(a:base,'^\(\a\+://.\{-}/\)\(.*\)$','\2','') | 6999 let curpath = substitute(a:base,'^\(\a\+://.\{-}/\)\(.*\)$','\2','') |
4926 let ret = urlbase.curpath.a:subdir | 7000 if a:subdir == '../' |
7001 if curpath =~ '[^/]/[^/]\+/$' | |
7002 let curpath= substitute(curpath,'[^/]\+/$','','') | |
7003 else | |
7004 let curpath="" | |
7005 endif | |
7006 let ret= urlbase.curpath | |
7007 else | |
7008 let ret= urlbase.curpath.a:subdir | |
7009 endif | |
4927 " call Decho("urlbase<".urlbase.">") | 7010 " call Decho("urlbase<".urlbase.">") |
4928 " call Decho("curpath<".curpath.">") | 7011 " call Decho("curpath<".curpath.">") |
4929 " call Decho("ret<".ret.">") | 7012 " call Decho("ret<".ret.">") |
7013 | |
4930 else | 7014 else |
7015 " call Decho("local linux/macos") | |
4931 let ret = substitute(a:base."/".a:subdir,"//","/","g") | 7016 let ret = substitute(a:base."/".a:subdir,"//","/","g") |
4932 endif | 7017 if a:base =~ '^//' |
7018 " keeping initial '//' for the benefit of network share listing support | |
7019 let ret= '/'.ret | |
7020 endif | |
7021 let ret= simplify(ret) | |
7022 endif | |
7023 | |
4933 " call Dret("s:ComposePath ".ret) | 7024 " call Dret("s:ComposePath ".ret) |
4934 return ret | 7025 return ret |
4935 endfun | 7026 endfun |
4936 | 7027 |
4937 " --------------------------------------------------------------------- | 7028 " --------------------------------------------------------------------- |
4938 " netrw#ErrorMsg: {{{2 | 7029 " netrw#ErrorMsg: {{{2 |
4939 " 0=note = s:NOTE | 7030 " 0=note = s:NOTE |
4940 " 1=warning = s:WARNING | 7031 " 1=warning = s:WARNING |
4941 " 2=error = s:ERROR | 7032 " 2=error = s:ERROR |
4942 " Mar 19, 2007 : max errnum currently is 49 | 7033 " Jun 11, 2008 : max errnum currently is 70 |
4943 fun! netrw#ErrorMsg(level,msg,errnum) | 7034 fun! netrw#ErrorMsg(level,msg,errnum) |
4944 " call Dfunc("netrw#ErrorMsg(level=".a:level." msg<".a:msg."> errnum=".a:errnum.") g:netrw_use_errorwindow=".g:netrw_use_errorwindow) | 7035 " call Dfunc("netrw#ErrorMsg(level=".a:level." msg<".a:msg."> errnum=".a:errnum.") g:netrw_use_errorwindow=".g:netrw_use_errorwindow) |
4945 | 7036 |
4946 if a:level == 1 | 7037 if a:level == 1 |
4947 let level= "**warning** (netrw) " | 7038 let level= "**warning** (netrw) " |
4948 elseif a:level == 2 | 7039 elseif a:level == 2 |
4949 let level= "**error** (netrw) " | 7040 let level= "**error** (netrw) " |
4950 else | 7041 else |
4951 let level= "**note** (netrw) " | 7042 let level= "**note** (netrw) " |
4952 endif | 7043 endif |
7044 " call Decho("level=".level) | |
4953 | 7045 |
4954 if g:netrw_use_errorwindow | 7046 if g:netrw_use_errorwindow |
4955 " (default) netrw creates a one-line window to show error/warning | 7047 " (default) netrw creates a one-line window to show error/warning |
4956 " messages (reliably displayed) | 7048 " messages (reliably displayed) |
4957 | 7049 |
4958 " record current window number for NetRestorePosn()'s benefit | 7050 " record current window number for NetrwRestorePosn()'s benefit |
4959 let s:winBeforeErr= winnr() | 7051 let s:winBeforeErr= winnr() |
4960 | 7052 " call Decho("s:winBeforeErr=".s:winBeforeErr) |
7053 | |
4961 " getting messages out reliably is just plain difficult! | 7054 " getting messages out reliably is just plain difficult! |
4962 " This attempt splits the current window, creating a one line window. | 7055 " This attempt splits the current window, creating a one line window. |
4963 if bufexists("NetrwMessage") && bufwinnr("NetrwMessage") > 0 | 7056 if bufexists("NetrwMessage") && bufwinnr("NetrwMessage") > 0 |
7057 " call Decho("write to NetrwMessage buffer") | |
4964 exe bufwinnr("NetrwMessage")."wincmd w" | 7058 exe bufwinnr("NetrwMessage")."wincmd w" |
4965 set ma noro | 7059 " call Decho("setlocal ma noro") |
7060 setlocal ma noro | |
4966 call setline(line("$")+1,level.a:msg) | 7061 call setline(line("$")+1,level.a:msg) |
4967 $ | 7062 $ |
4968 else | 7063 else |
7064 " call Decho("create a NetrwMessage buffer window") | |
4969 bo 1split | 7065 bo 1split |
4970 enew | 7066 enew |
4971 setlocal bt=nofile | 7067 setlocal bt=nofile |
4972 file NetrwMessage | 7068 file NetrwMessage |
7069 " call Decho("setlocal ma noro") | |
7070 setlocal ma noro | |
4973 call setline(line("$"),level.a:msg) | 7071 call setline(line("$"),level.a:msg) |
4974 endif | 7072 endif |
7073 " call Decho("wrote msg<".level.a:msg."> to NetrwMessage win#".winnr()) | |
4975 if &fo !~ '[ta]' | 7074 if &fo !~ '[ta]' |
4976 syn clear | 7075 syn clear |
4977 syn match netrwMesgNote "^\*\*note\*\*" | 7076 syn match netrwMesgNote "^\*\*note\*\*" |
4978 syn match netrwMesgWarning "^\*\*warning\*\*" | 7077 syn match netrwMesgWarning "^\*\*warning\*\*" |
4979 syn match netrwMesgError "^\*\*error\*\*" | 7078 syn match netrwMesgError "^\*\*error\*\*" |
4983 setlocal noma ro bh=wipe | 7082 setlocal noma ro bh=wipe |
4984 | 7083 |
4985 else | 7084 else |
4986 " (optional) netrw will show messages using echomsg. Even if the | 7085 " (optional) netrw will show messages using echomsg. Even if the |
4987 " message doesn't appear, at least it'll be recallable via :messages | 7086 " message doesn't appear, at least it'll be recallable via :messages |
4988 redraw! | 7087 " redraw! |
4989 if a:level == s:WARNING | 7088 if a:level == s:WARNING |
4990 echohl WarningMsg | 7089 echohl WarningMsg |
4991 elseif a:level == s:ERROR | 7090 elseif a:level == s:ERROR |
4992 echohl Error | 7091 echohl Error |
4993 endif | 7092 endif |
5032 | 7131 |
5033 if !exists("b:netrw_tmpfile") | 7132 if !exists("b:netrw_tmpfile") |
5034 " get a brand new temporary filename | 7133 " get a brand new temporary filename |
5035 let tmpfile= tempname() | 7134 let tmpfile= tempname() |
5036 " call Decho("tmpfile<".tmpfile."> : from tempname()") | 7135 " call Decho("tmpfile<".tmpfile."> : from tempname()") |
5037 | 7136 |
5038 let tmpfile= escape(substitute(tmpfile,'\','/','ge'),g:netrw_tmpfile_escape) | 7137 let tmpfile= escape(substitute(tmpfile,'\','/','ge'),g:netrw_tmpfile_escape) |
5039 " call Decho("tmpfile<".tmpfile."> : chgd any \\ -> /") | 7138 " call Decho("tmpfile<".tmpfile."> : chgd any \\ -> /") |
5040 | 7139 |
5041 " sanity check -- does the temporary file's directory exist? | 7140 " sanity check -- does the temporary file's directory exist? |
5042 if !isdirectory(substitute(tmpfile,'[^/]\+$','','e')) | 7141 if !isdirectory(substitute(tmpfile,'[^/]\+$','','e')) |
7142 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
5043 call netrw#ErrorMsg(s:ERROR,"your <".substitute(tmpfile,'[^/]\+$','','e')."> directory is missing!",2) | 7143 call netrw#ErrorMsg(s:ERROR,"your <".substitute(tmpfile,'[^/]\+$','','e')."> directory is missing!",2) |
5044 " call Dret("s:GetTempfile getcwd<".getcwd().">") | 7144 " call Dret("s:GetTempfile getcwd<".getcwd().">") |
5045 return "" | 7145 return "" |
5046 endif | 7146 endif |
5047 | 7147 |
5048 " let netrw#NetSource() know about the tmpfile | 7148 " let netrw#NetSource() know about the tmpfile |
5049 let s:netrw_tmpfile= tmpfile " used by netrw#NetSource() | 7149 let s:netrw_tmpfile= tmpfile " used by netrw#NetSource() |
5050 " call Decho("tmpfile<".tmpfile."> s:netrw_tmpfile<".s:netrw_tmpfile.">") | 7150 " call Decho("tmpfile<".tmpfile."> s:netrw_tmpfile<".s:netrw_tmpfile.">") |
5051 | 7151 |
5052 " o/s dependencies | 7152 " o/s dependencies |
5053 if g:netrw_cygwin == 1 | 7153 if g:netrw_cygwin != 0 |
5054 let tmpfile = substitute(tmpfile,'^\(\a\):','/cygdrive/\1','e') | 7154 let tmpfile = substitute(tmpfile,'^\(\a\):','/cygdrive/\1','e') |
5055 elseif has("win32") || has("win95") || has("win64") || has("win16") | 7155 elseif has("win32") || has("win95") || has("win64") || has("win16") |
5056 let tmpfile = substitute(tmpfile,'/','\\','g') | 7156 if !exists("+shellslash") || !&ssl |
7157 let tmpfile = substitute(tmpfile,'/','\','g') | |
7158 endif | |
5057 else | 7159 else |
5058 let tmpfile = tmpfile | 7160 let tmpfile = tmpfile |
5059 endif | 7161 endif |
5060 let b:netrw_tmpfile= tmpfile | 7162 let b:netrw_tmpfile= tmpfile |
5061 " call Decho("o/s dependent fixed tempname<".tmpfile.">") | 7163 " call Decho("o/s dependent fixed tempname<".tmpfile.">") |
5062 else | 7164 else |
5063 " re-use temporary filename | 7165 " re-use temporary filename |
5082 " call Decho("chgd tmpfile<".tmpfile."> (added ".suffix." suffix) netrw_fname<".b:netrw_fname.">") | 7184 " call Decho("chgd tmpfile<".tmpfile."> (added ".suffix." suffix) netrw_fname<".b:netrw_fname.">") |
5083 let s:netrw_tmpfile= tmpfile " supports netrw#NetSource() | 7185 let s:netrw_tmpfile= tmpfile " supports netrw#NetSource() |
5084 endif | 7186 endif |
5085 endif | 7187 endif |
5086 | 7188 |
7189 " call Decho("ro=".&ro." ma=".&ma." mod=".&mod." wrap=".&wrap) | |
5087 " call Dret("s:GetTempfile <".tmpfile.">") | 7190 " call Dret("s:GetTempfile <".tmpfile.">") |
5088 return tmpfile | 7191 return tmpfile |
5089 endfun | 7192 endfun |
5090 | 7193 |
5091 " --------------------------------------------------------------------- | 7194 " --------------------------------------------------------------------- |
5092 " s:MakeSshCmd: transforms input command using USEPORT HOSTNAME into {{{2 | 7195 " s:MakeSshCmd: transforms input command using USEPORT HOSTNAME into {{{2 |
5093 " a correct command | 7196 " a correct command |
5094 fun! s:MakeSshCmd(sshcmd) | 7197 fun! s:MakeSshCmd(sshcmd) |
5095 " call Dfunc("s:MakeSshCmd(sshcmd<".a:sshcmd.">)") | 7198 " call Dfunc("s:MakeSshCmd(sshcmd<".a:sshcmd.">) user<".s:user."> machine<".s:machine.">") |
5096 let sshcmd = substitute(a:sshcmd,'\<HOSTNAME\>',s:user.s:machine,'') | 7199 let sshcmd = substitute(a:sshcmd,'\<HOSTNAME\>',s:user.s:machine,'') |
5097 if exists("g:netrw_port") && g:netrw_port != "" | 7200 if exists("g:netrw_port") && g:netrw_port != "" |
5098 let sshcmd= substitute(sshcmd,"USEPORT",g:netrw_sshport.' '.g:netrw_port,'') | 7201 let sshcmd= substitute(sshcmd,"USEPORT",g:netrw_sshport.' '.g:netrw_port,'') |
5099 elseif exists("s:port") && s:port != "" | 7202 elseif exists("s:port") && s:port != "" |
5100 let sshcmd= substitute(sshcmd,"USEPORT",g:netrw_sshport.' '.s:port,'') | 7203 let sshcmd= substitute(sshcmd,"USEPORT",g:netrw_sshport.' '.s:port,'') |
5104 " call Dret("s:MakeSshCmd <".sshcmd.">") | 7207 " call Dret("s:MakeSshCmd <".sshcmd.">") |
5105 return sshcmd | 7208 return sshcmd |
5106 endfun | 7209 endfun |
5107 | 7210 |
5108 " --------------------------------------------------------------------- | 7211 " --------------------------------------------------------------------- |
7212 " s:RemoteSystem: runs a command on a remote host using ssh {{{2 | |
7213 " Returns status | |
7214 fun! s:RemoteSystem(cmd) | |
7215 " call Dfunc("s:RemoteSystem(cmd<".a:cmd.">)") | |
7216 if !executable(g:netrw_ssh_cmd) | |
7217 call netrw#ErrorMsg(s:ERROR,"g:netrw_ssh_cmd<".g:netrw_ssh_cmd."> is not executable!",52) | |
7218 elseif !exists("b:netrw_curdir") | |
7219 call netrw#ErrorMsg(s:ERROR,"for some reason b:netrw_curdir doesn't exist!",53) | |
7220 else | |
7221 let cmd = s:MakeSshCmd(g:netrw_ssh_cmd." USEPORT HOSTNAME") | |
7222 let remotedir= substitute(b:netrw_curdir,'^.*//[^/]\+/\(.*\)$','\1','') | |
7223 if remotedir != "" | |
7224 let cmd= cmd.' "cd '.shellescape(remotedir).";" | |
7225 else | |
7226 let cmd= cmd.' "' | |
7227 endif | |
7228 let cmd= cmd.a:cmd.'"' | |
7229 " call Decho("call system(".cmd.")") | |
7230 let ret= system(cmd) | |
7231 endif | |
7232 " call Dret("s:RemoteSystem ".ret) | |
7233 return ret | |
7234 endfun | |
7235 | |
7236 " --------------------------------------------------------------------- | |
5109 " s:NetrwEnew: opens a new buffer, passes netrw buffer variables through {{{2 | 7237 " s:NetrwEnew: opens a new buffer, passes netrw buffer variables through {{{2 |
5110 fun! s:NetrwEnew(curdir) | 7238 fun! s:NetrwEnew(curdir) |
5111 " call Dfunc("s:NetrwEnew(curdir<".a:curdir.">) buf#".bufnr("%")."<".bufname("%").">") | 7239 " call Dfunc("s:NetrwEnew(curdir<".a:curdir.">) buf#".bufnr("%")."<".bufname("%").">") |
5112 | 7240 |
5113 " grab a function-local copy of buffer variables | 7241 " grab a function-local-variable copy of buffer variables |
5114 if exists("b:netrw_bannercnt") |let netrw_bannercnt = b:netrw_bannercnt |endif | 7242 if exists("b:netrw_bannercnt") |let netrw_bannercnt = b:netrw_bannercnt |endif |
5115 if exists("b:netrw_browser_active") |let netrw_browser_active = b:netrw_browser_active |endif | 7243 if exists("b:netrw_browser_active") |let netrw_browser_active = b:netrw_browser_active |endif |
5116 if exists("b:netrw_cpf") |let netrw_cpf = b:netrw_cpf |endif | 7244 if exists("b:netrw_cpf") |let netrw_cpf = b:netrw_cpf |endif |
5117 if exists("b:netrw_curdir") |let netrw_curdir = b:netrw_curdir |endif | 7245 if exists("b:netrw_curdir") |let netrw_curdir = b:netrw_curdir |endif |
5118 if exists("b:netrw_explore_bufnr") |let netrw_explore_bufnr = b:netrw_explore_bufnr |endif | 7246 if exists("b:netrw_explore_bufnr") |let netrw_explore_bufnr = b:netrw_explore_bufnr |endif |
5126 if exists("b:netrw_liststyle") |let netrw_liststyle = b:netrw_liststyle |endif | 7254 if exists("b:netrw_liststyle") |let netrw_liststyle = b:netrw_liststyle |endif |
5127 if exists("b:netrw_method") |let netrw_method = b:netrw_method |endif | 7255 if exists("b:netrw_method") |let netrw_method = b:netrw_method |endif |
5128 if exists("b:netrw_option") |let netrw_option = b:netrw_option |endif | 7256 if exists("b:netrw_option") |let netrw_option = b:netrw_option |endif |
5129 if exists("b:netrw_prvdir") |let netrw_prvdir = b:netrw_prvdir |endif | 7257 if exists("b:netrw_prvdir") |let netrw_prvdir = b:netrw_prvdir |endif |
5130 | 7258 |
5131 if getline(2) =~ '^" Netrw Directory Listing' | 7259 call s:NetrwOptionRestore("w:") |
5132 " call Decho("generate a buffer with keepjumps keepalt enew! (1)") | 7260 " call Decho("generate a buffer with keepjumps keepalt enew!") |
5133 keepjumps keepalt enew! | 7261 keepjumps keepalt enew! |
5134 else | 7262 call s:NetrwOptionSave("w:") |
5135 " call Decho("generate a buffer with keepjumps enew! (2)") | 7263 |
5136 keepjumps enew! | 7264 " copy function-local-variables to buffer variable equivalents |
5137 endif | |
5138 | |
5139 " copy function-local variables to buffer variable equivalents | |
5140 if exists("netrw_bannercnt") |let b:netrw_bannercnt = netrw_bannercnt |endif | 7265 if exists("netrw_bannercnt") |let b:netrw_bannercnt = netrw_bannercnt |endif |
5141 if exists("netrw_browser_active") |let b:netrw_browser_active = netrw_browser_active |endif | 7266 if exists("netrw_browser_active") |let b:netrw_browser_active = netrw_browser_active |endif |
5142 if exists("netrw_cpf") |let b:netrw_cpf = netrw_cpf |endif | 7267 if exists("netrw_cpf") |let b:netrw_cpf = netrw_cpf |endif |
5143 if exists("netrw_curdir") |let b:netrw_curdir = netrw_curdir |endif | 7268 if exists("netrw_curdir") |let b:netrw_curdir = netrw_curdir |endif |
5144 if exists("netrw_explore_bufnr") |let b:netrw_explore_bufnr = netrw_explore_bufnr |endif | 7269 if exists("netrw_explore_bufnr") |let b:netrw_explore_bufnr = netrw_explore_bufnr |endif |
5156 | 7281 |
5157 let b:netrw_curdir= a:curdir | 7282 let b:netrw_curdir= a:curdir |
5158 if b:netrw_curdir =~ '/$' | 7283 if b:netrw_curdir =~ '/$' |
5159 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST | 7284 if exists("w:netrw_liststyle") && w:netrw_liststyle == s:TREELIST |
5160 file NetrwTreeListing | 7285 file NetrwTreeListing |
7286 nno <silent> <buffer> [ :silent call <SID>TreeListMove('[')<cr> | |
7287 nno <silent> <buffer> ] :silent call <SID>TreeListMove(']')<cr> | |
5161 else | 7288 else |
5162 exe "silent! file ".b:netrw_curdir | 7289 exe "silent! keepalt file ".b:netrw_curdir |
5163 endif | 7290 endif |
5164 endif | 7291 endif |
5165 | 7292 |
5166 " call Dret("s:NetrwEnew : buf#".bufnr("%")."<".bufname("%").">") | 7293 " call Dret("s:NetrwEnew : buf#".bufnr("%")."<".bufname("%")."> expand(%)<".expand("%")."> expand(#)<".expand("#").">") |
5167 endfun | 7294 endfun |
5168 | 7295 |
5169 " ------------------------------------------------------------------------ | 7296 " ------------------------------------------------------------------------ |
7297 " netrw#NetrwSavePosn: saves position of cursor on screen {{{2 | |
7298 fun! netrw#NetrwSavePosn() | |
7299 " call Dfunc("netrw#NetrwSavePosn()") | |
7300 " Save current line and column | |
7301 let w:netrw_winnr= winnr() | |
7302 let w:netrw_line = line(".") | |
7303 let w:netrw_col = virtcol(".") | |
7304 | |
7305 " Save top-of-screen line | |
7306 norm! H0 | |
7307 let w:netrw_hline= line(".") | |
7308 | |
7309 " set up string holding position parameters | |
7310 let ret = "let w:netrw_winnr=".w:netrw_winnr."|let w:netrw_line=".w:netrw_line."|let w:netrw_col=".w:netrw_col."|let w:netrw_hline=".w:netrw_hline | |
7311 | |
7312 call netrw#NetrwRestorePosn() | |
7313 " call Dret("netrw#NetrwSavePosn : winnr=".w:netrw_winnr." line=".w:netrw_line." col=".w:netrw_col." hline=".w:netrw_hline) | |
7314 return ret | |
7315 endfun | |
7316 | |
7317 " ------------------------------------------------------------------------ | |
7318 " netrw#NetrwRestorePosn: restores the cursor and file position as saved by NetrwSavePosn() {{{2 | |
7319 fun! netrw#NetrwRestorePosn(...) | |
7320 " call Dfunc("netrw#NetrwRestorePosn() a:0=".a:0." winnr=".(exists("w:netrw_winnr")? w:netrw_winnr : -1)." line=".(exists("w:netrw_line")? w:netrw_line : -1)." col=".(exists("w:netrw_col")? w:netrw_col : -1)." hline=".(exists("w:netrw_hline")? w:netrw_hline : -1)) | |
7321 let eikeep= &ei | |
7322 set ei=all | |
7323 if expand("%") == "NetrwMessage" | |
7324 exe s:winBeforeErr."wincmd w" | |
7325 endif | |
7326 | |
7327 if a:0 > 0 | |
7328 exe a:1 | |
7329 endif | |
7330 | |
7331 " restore window | |
7332 if exists("w:netrw_winnr") | |
7333 " call Decho("restore window: exe silent! ".w:netrw_winnr."wincmd w") | |
7334 exe "silent! ".w:netrw_winnr."wincmd w" | |
7335 endif | |
7336 if v:shell_error == 0 | |
7337 " as suggested by Bram M: redraw on no error | |
7338 " allows protocol error messages to remain visible | |
7339 " redraw! | |
7340 endif | |
7341 | |
7342 " restore top-of-screen line | |
7343 if exists("w:netrw_hline") | |
7344 " call Decho("restore topofscreen: exe norm! ".w:netrw_hline."G0z") | |
7345 exe "norm! ".w:netrw_hline."G0z\<CR>" | |
7346 endif | |
7347 | |
7348 " restore position | |
7349 if exists("w:netrw_line") && exists("w:netrw_col") | |
7350 " call Decho("restore posn: exe norm! ".w:netrw_line."G0".w:netrw_col."|") | |
7351 exe "norm! ".w:netrw_line."G0".w:netrw_col."\<bar>" | |
7352 endif | |
7353 | |
7354 let &ei= eikeep | |
7355 " call Dret("netrw#NetrwRestorePosn") | |
7356 endfun | |
7357 | |
7358 " --------------------------------------------------------------------- | |
7359 " s:NetrwSaveWordPosn: used to keep cursor on same word after refresh, {{{2 | |
7360 " changed sorting, etc. Also see s:NetrwRestoreWordPosn(). | |
7361 fun! s:NetrwSaveWordPosn() | |
7362 " call Dfunc("NetrwSaveWordPosn()") | |
7363 let s:netrw_saveword= '^'.fnameescape(getline('.')).'$' | |
7364 " call Dret("NetrwSaveWordPosn : saveword<".s:netrw_saveword.">") | |
7365 endfun | |
7366 | |
7367 " --------------------------------------------------------------------- | |
7368 " s:NetrwRestoreWordPosn: used to keep cursor on same word after refresh, {{{2 | |
7369 " changed sorting, etc. Also see s:NetrwSaveWordPosn(). | |
7370 fun! s:NetrwRestoreWordPosn() | |
7371 " call Dfunc("NetrwRestoreWordPosn()") | |
7372 silent! call search(s:netrw_saveword,'w') | |
7373 " call Dret("NetrwRestoreWordPosn") | |
7374 endfun | |
7375 | |
7376 " --------------------------------------------------------------------- | |
5170 " s:RemotePathAnalysis: {{{2 | 7377 " s:RemotePathAnalysis: {{{2 |
5171 fun! s:RemotePathAnalysis(dirname) | 7378 fun! s:RemotePathAnalysis(dirname) |
5172 " call Dfunc("s:RemotePathAnalysis()") | 7379 " call Dfunc("s:RemotePathAnalysis()") |
5173 | 7380 |
5174 let dirpat = '^\(\w\{-}\)://\(\w\+@\)\=\([^/:#]\+\)\%([:#]\(\d\+\)\)\=/\(.*\)$' | 7381 let dirpat = '^\(\w\{-}\)://\(\w\+@\)\=\([^/:#]\+\)\%([:#]\(\d\+\)\)\=/\(.*\)$' |
5203 | 7410 |
5204 " call Dret("s:RestoreBufVars") | 7411 " call Dret("s:RestoreBufVars") |
5205 endfun | 7412 endfun |
5206 | 7413 |
5207 " --------------------------------------------------------------------- | 7414 " --------------------------------------------------------------------- |
5208 " s:RestoreWinVars: (used by Explore() and NetSplit()) {{{2 | 7415 " s:RestoreWinVars: (used by Explore() and NetrwSplit()) {{{2 |
5209 fun! s:RestoreWinVars() | 7416 fun! s:RestoreWinVars() |
5210 " call Dfunc("s:RestoreWinVars()") | 7417 " call Dfunc("s:RestoreWinVars()") |
5211 if exists("s:bannercnt") |let w:netrw_bannercnt = s:bannercnt |unlet s:bannercnt |endif | 7418 if exists("s:bannercnt") |let w:netrw_bannercnt = s:bannercnt |unlet s:bannercnt |endif |
5212 if exists("s:col") |let w:netrw_col = s:col |unlet s:col |endif | 7419 if exists("s:col") |let w:netrw_col = s:col |unlet s:col |endif |
5213 if exists("s:curdir") |let w:netrw_curdir = s:curdir |unlet s:curdir |endif | 7420 if exists("s:curdir") |let w:netrw_curdir = s:curdir |unlet s:curdir |endif |
5228 if exists("s:winnr") |let w:netrw_winnr = s:winnr |unlet s:winnr |endif | 7435 if exists("s:winnr") |let w:netrw_winnr = s:winnr |unlet s:winnr |endif |
5229 " call Dret("s:RestoreWinVars") | 7436 " call Dret("s:RestoreWinVars") |
5230 endfun | 7437 endfun |
5231 | 7438 |
5232 " --------------------------------------------------------------------- | 7439 " --------------------------------------------------------------------- |
7440 " s:Rexplore: implements returning from a buffer to a netrw directory {{{2 | |
7441 " | |
7442 " s:SetRexDir() sets up <2-leftmouse> maps (if g:netrw_retmap | |
7443 " is true) and a command, :Rexplore, which call this function. | |
7444 " | |
7445 " s:nbcd_curpos_{bufnr('%')} is set up by s:NetrwBrowseChgDir() | |
7446 fun! s:NetrwRexplore(islocal,dirname) | |
7447 " call Dfunc("s:NetrwRexplore(islocal=".a:islocal." dirname<".a:dirname.">)") | |
7448 if a:islocal | |
7449 call netrw#LocalBrowseCheck(a:dirname) | |
7450 else | |
7451 call s:NetrwBrowse(0,a:dirname) | |
7452 endif | |
7453 if exists("s:nbcd_curpos_{bufnr('%')}") | |
7454 call netrw#NetrwRestorePosn(s:nbcd_curpos_{bufnr('%')}) | |
7455 unlet s:nbcd_curpos_{bufnr('%')} | |
7456 endif | |
7457 " call Dret("s:NetrwRexplore") | |
7458 endfun | |
7459 | |
7460 " --------------------------------------------------------------------- | |
5233 " s:SaveBufVars: {{{2 | 7461 " s:SaveBufVars: {{{2 |
5234 fun! s:SaveBufVars() | 7462 fun! s:SaveBufVars() |
5235 " call Dfunc("s:SaveBufVars()") | 7463 " call Dfunc("s:SaveBufVars()") |
5236 | 7464 |
5237 if exists("b:netrw_curdir") |let s:netrw_curdir = b:netrw_curdir |endif | 7465 if exists("b:netrw_curdir") |let s:netrw_curdir = b:netrw_curdir |endif |
5243 | 7471 |
5244 " call Dret("s:SaveBufVars") | 7472 " call Dret("s:SaveBufVars") |
5245 endfun | 7473 endfun |
5246 | 7474 |
5247 " --------------------------------------------------------------------- | 7475 " --------------------------------------------------------------------- |
5248 " s:SaveWinVars: (used by Explore() and NetSplit()) {{{2 | 7476 " s:SaveWinVars: (used by Explore() and NetrwSplit()) {{{2 |
5249 fun! s:SaveWinVars() | 7477 fun! s:SaveWinVars() |
5250 " call Dfunc("s:SaveWinVars()") | 7478 " call Dfunc("s:SaveWinVars()") |
5251 if exists("w:netrw_bannercnt") |let s:bannercnt = w:netrw_bannercnt |endif | 7479 if exists("w:netrw_bannercnt") |let s:bannercnt = w:netrw_bannercnt |endif |
5252 if exists("w:netrw_col") |let s:col = w:netrw_col |endif | 7480 if exists("w:netrw_col") |let s:col = w:netrw_col |endif |
5253 if exists("w:netrw_curdir") |let s:curdir = w:netrw_curdir |endif | 7481 if exists("w:netrw_curdir") |let s:curdir = w:netrw_curdir |endif |
5268 if exists("w:netrw_winnr") |let s:winnr = w:netrw_winnr |endif | 7496 if exists("w:netrw_winnr") |let s:winnr = w:netrw_winnr |endif |
5269 " call Dret("s:SaveWinVars") | 7497 " call Dret("s:SaveWinVars") |
5270 endfun | 7498 endfun |
5271 | 7499 |
5272 " --------------------------------------------------------------------- | 7500 " --------------------------------------------------------------------- |
5273 " s:SetBufWinVars: (used by NetBrowse() and LocalBrowseCheck()) {{{2 | 7501 " s:SetBufWinVars: (used by NetrwBrowse() and LocalBrowseCheck()) {{{2 |
5274 " To allow separate windows to have their own activities, such as | 7502 " To allow separate windows to have their own activities, such as |
5275 " Explore **/pattern, several variables have been made window-oriented. | 7503 " Explore **/pattern, several variables have been made window-oriented. |
5276 " However, when the user splits a browser window (ex: ctrl-w s), these | 7504 " However, when the user splits a browser window (ex: ctrl-w s), these |
5277 " variables are not inherited by the new window. SetBufWinVars() and | 7505 " variables are not inherited by the new window. SetBufWinVars() and |
5278 " UseBufWinVars() get around that. | 7506 " UseBufWinVars() get around that. |
5290 if exists("w:netrw_explore_list") |let b:netrw_explore_list = w:netrw_explore_list |endif | 7518 if exists("w:netrw_explore_list") |let b:netrw_explore_list = w:netrw_explore_list |endif |
5291 " call Dret("s:SetBufWinVars") | 7519 " call Dret("s:SetBufWinVars") |
5292 endfun | 7520 endfun |
5293 | 7521 |
5294 " --------------------------------------------------------------------- | 7522 " --------------------------------------------------------------------- |
7523 " s:SetRexDir: set directory for :Rexplore {{{2 | |
7524 fun! s:SetRexDir(islocal,dirname) | |
7525 " call Dfunc("s:SetRexDir(islocal=".a:islocal." dirname<".a:dirname.">)") | |
7526 " set up Rex and leftmouse-double-click | |
7527 if a:islocal | |
7528 exe 'com! Rexplore call s:NetrwRexplore(1,"'.a:dirname.'")' | |
7529 if g:netrw_retmap | |
7530 silent! unmap <2-leftmouse> | |
7531 if !hasmapto("<Plug>NetrwReturn") | |
7532 nmap <unique> <silent> <2-leftmouse> <Plug>NetrwReturn | |
7533 endif | |
7534 exe 'nnoremap <silent> <Plug>NetrwReturn :call <SID>NetrwRexplore(1,"'.a:dirname.'")<cr>' | |
7535 endif | |
7536 else | |
7537 exe 'com! Rexplore call s:NetrwRexplore(0,"'.a:dirname.'")' | |
7538 if g:netrw_retmap | |
7539 silent! unmap <2-leftmouse> | |
7540 if !hasmapto("<Plug>NetrwReturn") | |
7541 nmap <unique> <silent> <2-leftmouse> <Plug>NetrwReturn | |
7542 endif | |
7543 exe 'nnoremap <silent> <Plug>NetrwReturn :call <SID>NetrwRexplore(0,"'.a:dirname.'")<cr>' | |
7544 endif | |
7545 endif | |
7546 " call Dret("s:SetRexDir") | |
7547 endfun | |
7548 | |
7549 " --------------------------------------------------------------------- | |
7550 " s:Strlen: this function returns the length of a string, even if its {{{2 | |
7551 " using two-byte etc characters. | |
7552 " Currently, its only used if g:Align_xstrlen is set to a | |
7553 " nonzero value. Solution from Nicolai Weibull, vim docs | |
7554 " (:help strlen()), Tony Mechelynck, and my own invention. | |
7555 fun! s:Strlen(x) | |
7556 " call Dfunc("s:Strlen(x<".a:x.">") | |
7557 if g:netrw_xstrlen == 1 | |
7558 " number of codepoints (Latin a + combining circumflex is two codepoints) | |
7559 " (comment from TM, solution from NW) | |
7560 let ret= strlen(substitute(a:x,'.','c','g')) | |
7561 | |
7562 elseif g:netrw_xstrlen == 2 | |
7563 " number of spacing codepoints (Latin a + combining circumflex is one spacing | |
7564 " codepoint; a hard tab is one; wide and narrow CJK are one each; etc.) | |
7565 " (comment from TM, solution from TM) | |
7566 let ret=strlen(substitute(a:x, '.\Z', 'x', 'g')) | |
7567 | |
7568 elseif g:netrw_xstrlen == 3 | |
7569 " virtual length (counting, for instance, tabs as anything between 1 and | |
7570 " 'tabstop', wide CJK as 2 rather than 1, Arabic alif as zero when immediately | |
7571 " preceded by lam, one otherwise, etc.) | |
7572 " (comment from TM, solution from me) | |
7573 let modkeep= &mod | |
7574 exe "norm! o\<esc>" | |
7575 call setline(line("."),a:x) | |
7576 let ret= virtcol("$") - 1 | |
7577 d | |
7578 let &mod= modkeep | |
7579 | |
7580 else | |
7581 " at least give a decent default | |
7582 ret= strlen(a:x) | |
7583 endif | |
7584 " call Dret("s:Strlen ".ret) | |
7585 return ret | |
7586 endfun | |
7587 | |
7588 " --------------------------------------------------------------------- | |
5295 " s:System: using Steve Hall's idea to insure that Windows paths stay {{{2 | 7589 " s:System: using Steve Hall's idea to insure that Windows paths stay {{{2 |
5296 " acceptable. No effect on Unix paths. | 7590 " acceptable. No effect on Unix paths. |
5297 " Examples of use: let result= s:System("system",path) | 7591 " Examples of use: let result= s:System("rm",path) |
5298 " let result= s:System("delete",path) | 7592 " let result= s:System("delete",path) |
7593 fun! netrw#System(cmd,path) | |
7594 echomsg s:System(a:cmd,a:path) | |
7595 endfun | |
5299 fun! s:System(cmd,path) | 7596 fun! s:System(cmd,path) |
5300 " call Dfunc("s:System(cmd<".a:cmd."> path<".a:path.">)") | 7597 " call Dfunc("s:System(cmd<".a:cmd."> path<".a:path.">)") |
5301 | 7598 |
5302 let path = a:path | 7599 let path = a:path |
5303 if (has("win32") || has("win95") || has("win64") || has("win16")) | 7600 if !g:netrw_cygwin && (has("win32") || has("win95") || has("win64") || has("win16")) |
5304 " system call prep | 7601 " system call prep |
5305 " remove trailing slash (Win95) | 7602 " remove trailing slash (Win95) |
5306 let path = substitute(path, '\(\\\|/\)$', '', 'g') | 7603 let path = substitute(path, '\(\\\|/\)$', '', 'g') |
5307 " remove escaped spaces | 7604 " remove escaped spaces |
5308 let path = substitute(path, '\ ', ' ', 'g') | 7605 let path = substitute(path, '\ ', ' ', 'g') |
5312 let sskeep= &shellslash | 7609 let sskeep= &shellslash |
5313 setlocal noshellslash | 7610 setlocal noshellslash |
5314 exe "let result= ".a:cmd."('".path."')" | 7611 exe "let result= ".a:cmd."('".path."')" |
5315 let &shellslash = sskeep | 7612 let &shellslash = sskeep |
5316 else | 7613 else |
5317 exe "let result= ".a:cmd."(".g:netrw_shq.path.g:netrw_shq.")" | 7614 " call Decho("exe let result= ".a:cmd."('".path."')") |
7615 exe "let result= ".a:cmd."('".path."')" | |
5318 endif | 7616 endif |
5319 else | 7617 else |
7618 " call Decho("exe let result= ".a:cmd."('".path."')") | |
5320 exe "let result= ".a:cmd."('".path."')" | 7619 exe "let result= ".a:cmd."('".path."')" |
5321 endif | 7620 endif |
5322 | 7621 |
5323 " call Decho("result<".result.">") | 7622 " call Dret("s:System result<".result.">") |
5324 " call Dret("s:System") | |
5325 return result | 7623 return result |
5326 endfun | 7624 endfun |
5327 | 7625 |
5328 " --------------------------------------------------------------------- | 7626 " --------------------------------------------------------------------- |
5329 " s:UseBufWinVars: (used by NetBrowse() and LocalBrowseCheck() {{{2 | 7627 " s:TreeListMove: {{{2 |
7628 fun! s:TreeListMove(dir) | |
7629 " call Dfunc("s:TreeListMove(dir<".a:dir.">)") | |
7630 let curline = getline('.') | |
7631 let prvline = (line(".") > 1)? getline(line(".")-1) : '' | |
7632 let nxtline = (line(".") < line("$"))? getline(line(".")+1) : '' | |
7633 let curindent= substitute(curline,'^\([| ]*\).\{-}$','\1','') | |
7634 let indentm1 = substitute(curindent,'^| ','','') | |
7635 " call Decho("prvline <".prvline."> #".line(".")-1) | |
7636 " call Decho("curline <".curline."> #".line(".")) | |
7637 " call Decho("nxtline <".nxtline."> #".line(".")+1) | |
7638 " call Decho("curindent<".curindent.">") | |
7639 " call Decho("indentm1 <".indentm1.">") | |
7640 | |
7641 if curline !~ '/$' | |
7642 " call Decho('regfile') | |
7643 if a:dir == '[' && prvline != '' | |
7644 norm! 0 | |
7645 let nl = search('^'.indentm1.'[^|]','bWe') " search backwards from regular file | |
7646 " call Decho("regfile srch back: ".nl) | |
7647 elseif a:dir == ']' && nxtline != '' | |
7648 norm! $ | |
7649 let nl = search('^'.indentm1.'[^|]','We') " search forwards from regular file | |
7650 " call Decho("regfile srch fwd: ".nl) | |
7651 endif | |
7652 | |
7653 elseif a:dir == '[' && prvline != '' | |
7654 norm! 0 | |
7655 let curline= line(".") | |
7656 let nl = search('^'.curindent.'[^|]','bWe') " search backwards From directory, same indentation | |
7657 " call Decho("dir srch back ind: ".nl) | |
7658 if nl != 0 | |
7659 if line(".") == curline-1 | |
7660 let nl= search('^'.indentm1.'[^|]','bWe') " search backwards from directory, indentation - 1 | |
7661 " call Decho("dir srch back ind-1: ".nl) | |
7662 endif | |
7663 endif | |
7664 | |
7665 elseif a:dir == ']' && nxtline != '' | |
7666 norm! $ | |
7667 let curline = line(".") | |
7668 let nl = search('^'.curindent.'[^|]','We') " search forwards from directory, same indentation | |
7669 " call Decho("dir srch fwd ind: ".nl) | |
7670 if nl != 0 | |
7671 if line(".") == curline+1 | |
7672 let nl= search('^'.indentm1.'[^|]','We') " search forwards from directory, indentation - 1 | |
7673 " call Decho("dir srch fwd ind-1: ".nl) | |
7674 endif | |
7675 endif | |
7676 | |
7677 endif | |
7678 | |
7679 " call Dret("s:TreeListMove") | |
7680 endfun | |
7681 | |
7682 " --------------------------------------------------------------------- | |
7683 " s:UseBufWinVars: (used by NetrwBrowse() and LocalBrowseCheck() {{{2 | |
5330 " Matching function to BufferWinVars() | 7684 " Matching function to BufferWinVars() |
5331 fun! s:UseBufWinVars() | 7685 fun! s:UseBufWinVars() |
5332 " call Dfunc("s:UseBufWinVars()") | 7686 " call Dfunc("s:UseBufWinVars()") |
5333 if exists("b:netrw_liststyle") && !exists("w:netrw_liststyle") |let w:netrw_liststyle = b:netrw_liststyle |endif | 7687 if exists("b:netrw_liststyle") && !exists("w:netrw_liststyle") |let w:netrw_liststyle = b:netrw_liststyle |endif |
5334 if exists("b:netrw_bannercnt") && !exists("w:netrw_bannercnt") |let w:netrw_bannercnt = b:netrw_bannercnt |endif | 7688 if exists("b:netrw_bannercnt") && !exists("w:netrw_bannercnt") |let w:netrw_bannercnt = b:netrw_bannercnt |endif |