File Browsing: Define a :D command for easier invocation of Lusty

vimrc

@@ -39,6 +39,7 @@ set backspace=indent,eol,start
 set laststatus=2
 set relativenumber
 set undofile
+set report=25
 
 nnoremap / /\v
 vnoremap / /\v
@@ -68,6 +69,7 @@ autocmd VimEnter * call <SID>dynamic_remaps()
 function! s:dynamic_remaps()
 	if exists(":LustyFilesystemExplorerFromHere")
 		nnoremap <leader>d :LustyFilesystemExplorerFromHere<cr>
+		command -nargs=? -complete=dir D :call CallLusty('<args>')
 	elseif exists(":Perlbrws")
 		nnoremap <leader>d :Perlbrws<cr>
 	else
@@ -78,6 +80,15 @@ function! s:dynamic_remaps()
 	endif
 endfunction
 
+" Helper function to call LustyFilesystemExplorer with a directory-completed
+" argument. A little tricky since Lusty (currently) has a little bug that
+" doesn't properly escape backslashes. Note that an untested alternative may
+" be to use the 'shellslash' option
+function! CallLusty(dir)
+	let l:d = substitute(substitute(a:dir, '\\', '/', 'g'), '/$', '', '')
+	exe ":LustyFilesystemExplorer" l:d
+endfunction
+
 " Window navigation
 nnoremap <C-h> <C-w>h
 nnoremap <C-j> <C-w>j