make search screen mappings configurable via dictionary

diff --git a/vim/plugin/notmuch.vim b/vim/plugin/notmuch.vim
index 0151160268a3bdf2015d0835710853ced9cf5a1a..b9fc8d220288d7968bd2385c39fb32942a200e00 100644 (file)
--- a/vim/plugin/notmuch.vim
+++ b/vim/plugin/notmuch.vim
@@ -53,6 +53,13 @@ if !exists('g:notmuch_show_headers')
         let g:notmuch_show_headers = [ 'Subject', 'From' ]
 endif
 
+" --- keyboard mapping definitions {{{1
+
+let g:notmuch_search_maps = {
+        \ '<Enter>': ':call <SID>NM_search_display()<CR>',
+        \ 's':       ':call <SID>NM_cmd_search(split(input(''NotMuch Search:'')))<CR>',
+        \ }
+
 " --- process and set the defaults {{{1
 
 function! NM_set_defaults(force)
@@ -77,6 +84,15 @@ function! NM_set_defaults(force)
 endfunction
 call NM_set_defaults(0)
 
+" --- assign keymaps {{{1
+
+function! s:NM_set_map(maps)
+        for [key, code] in items(a:maps)
+                exec printf('nnoremap <buffer> %s %s', key, code)
+        endfor
+endfunction
+
+
 " --- implement search screen {{{1
 
 function! s:NM_cmd_search(words)
@@ -94,8 +110,7 @@ function! s:NM_cmd_search(words)
         call s:NM_newBuffer('search', join(disp, "\n"))
         let b:nm_raw_lines = lines
 
-        nnoremap <buffer> <Enter> :call <SID>NM_search_display()<CR>
-        nnoremap <buffer> s       :call <SID>NM_cmd_search(split(input('NotMuch Search:')))<CR>
+        call <SID>NM_set_map(g:notmuch_search_maps)
         setlocal cursorline
         setlocal nowrap
 endfunction