Provide d maps for :Dispatch

Picking a fight with Netrw here, which seems to think that mkdir is
important enough to completely take over the letter d.  This is a
dubious strategy, and I'll abandon it for a different map (maybe
backtick?) if people have issues.

Author: tpope

doc/dispatch.txt

@@ -118,6 +118,15 @@ COMMANDS                                        *dispatch-commands*
 
 MAPS                                            *dispatch-maps*
 
+                                                *dispatch-d<CR>*
+d<CR>                   Equivalent to |:Dispatch|<CR>.
+
+                                                *dispatch-d<Space>*
+d<Space>                Equivalent to |:Dispatch|<Space>.
+
+                                                *dispatch-d!*
+d!                      Equivalent to |:Dispatch!|.
+
                                                 *dispatch-m<CR>*
 m<CR>                   Equivalent to |:Make|<CR>.
 

plugin/dispatch.vim

@@ -57,11 +57,22 @@ nmap <script> <SID>:.    :<C-R>=getcmdline() =~ ',' ? "\0250" : ""<CR>
 call s:map('n', 'm<CR>', '<SID>:.Make<CR>')
 call s:map('n', 'm<Space>', '<SID>:.Make<Space>')
 call s:map('n', 'm!', '<SID>:.Make!')
+call s:map('n', 'd<CR>', '<SID>:.Dispatch<CR>')
+call s:map('n', 'd<Space>', '<SID>:.Dispatch<Space>')
+call s:map('n', 'd!', '<SID>:.Dispatch!')
 
 function! DispatchComplete(id) abort
   return dispatch#complete(a:id)
 endfunction
 
+function! s:hijack_netrw_maps() abort
+  let rhs = maparg('d', 'n')
+  if len(rhs)
+    exe 'nnoremap <buffer> <silent> d' rhs
+    exe 'nnoremap <buffer> <silent> dd' rhs
+  endif
+endfunction
+
 if !exists('g:dispatch_handlers')
   let g:dispatch_handlers = [
         \ 'tmux',
@@ -79,4 +90,5 @@ augroup dispatch
         \ if &buftype ==# 'quickfix' && empty(getloclist(winnr())) && get(w:, 'quickfix_title') =~# '^:noautocmd cgetfile\>\|^:\d*Dispatch\>' |
         \   call dispatch#quickfix_init() |
         \ endif
+  autocmd FileType netrw call s:hijack_netrw_maps()
 augroup END