From e4b975eaecfb6d0a2ac325af5531ac3f2b1ba166 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Wed, 25 Jun 2014 14:52:01 -0400
Subject: [PATCH] Don't clobber K map

Closes #163.
---
 plugin/fireplace.vim | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/plugin/fireplace.vim b/plugin/fireplace.vim
index 9338d9d..9d0b1f0 100644
--- a/plugin/fireplace.vim
+++ b/plugin/fireplace.vim
@@ -1378,7 +1378,10 @@ nnoremap <Plug>FireplaceSource :Source <C-R><C-W><CR>
 
 augroup fireplace_doc
   autocmd!
-  autocmd FileType clojure nmap <buffer> K  <Plug>FireplaceK
+  autocmd FileType clojure setlocal keywordprg=:Doc |
+        \ if empty(mapcheck('K', 'n')) |
+        \   nmap <buffer> K <Plug>FireplaceK|
+        \ endif
   autocmd FileType clojure nmap <buffer> [d <Plug>FireplaceSource
   autocmd FileType clojure nmap <buffer> ]d <Plug>FireplaceSource
   autocmd FileType clojure command! -buffer -nargs=1 FindDoc :exe s:Lookup('clojure.repl', 'find-doc', printf('#"%s"', <q-args>))