| 1 | scriptencoding utf-8 |
| 2 | |
| 3 | command! -nargs=0 LSF :call s:LSF() |
| 4 | command! -nargs=0 LSD :call s:LSD() |
| 5 | |
| 6 | function! s:LS() |
| 7 | let l:list = glob("**/*") |
| 8 | let l:files = split(l:list, '\n') |
| 9 | return l:files |
| 10 | endfunction |
| 11 | |
| 12 | function! s:LSF() |
| 13 | let l:list = [] |
| 14 | let l:files = s:LS() |
| 15 | |
| 16 | for l:i in l:files |
| 17 | if isdirectory(l:i) |
| 18 | else |
| 19 | call add(l:list, l:i) |
| 20 | endif |
| 21 | endfor |
| 22 | |
| 23 | call setline(".", l:list) |
| 24 | endfunction |
| 25 | |
| 26 | function! s:LSD() |
| 27 | let l:list = [] |
| 28 | let l:files = s:LS() |
| 29 | |
| 30 | for l:i in l:files |
| 31 | if isdirectory(l:i) |
| 32 | call add(l:list, l:i) |
| 33 | else |
| 34 | endif |
| 35 | endfor |
| 36 | |
| 37 | call setline(".", l:list) |
| 38 | endfunction |
| 39 | |
| 40 | finish |
| 41 | |
| 42 | ============================================================================== |
| 43 | lsf.vim : カレントディレクトリ以下、ファイルの一覧を取得するスクリプト |
| 44 | ------------------------------------------------------------------------------ |
| 45 | $VIMRUNTIMEPATH/plugin/lsf.vim |
| 46 | ============================================================================== |
| 47 | author : 小見 拓 |
| 48 | url : http://nanasi.jp/ |
| 49 | email : mail@nanasi.jp |
| 50 | version : 2009/12/19 16:00:00 |
| 51 | ============================================================================== |
| 52 | 「LSF」コマンドを実行すると、カレントディレクトリ以下の全ファイルの一覧を、 |
| 53 | 「LSD」コマンドを実行すると、カレントディレクトリ以下の全ディレクトリの一覧を、 |
| 54 | カレント行に書き込む。 |
| 55 | |
| 56 | ============================================================================== |
| 57 | " vim: set et ft=vim nowrap : |
| 58 | |
