vim/after/plugin/fireplace-map-unfucking.vim @ 4ddd1c8ca46c

more clojure stuff
author Steve Losh <steve@stevelosh.com>
date Tue, 02 Jul 2013 17:03:11 -0700
parents 1c0e66191283
children 68b8d179f0d4
" These are all out here in the middle of goddamned nowhere because Fireplace is
" an asshole and won't let you disable mappings like any other plugin.

augroup unmap_fireplace_bullshit
    au!

    au Filetype clojure nunmap <buffer> cp
    au Filetype clojure nunmap <buffer> cpp

    au Filetype clojure nunmap <buffer> c!
    au Filetype clojure nunmap <buffer> c!!

    au Filetype clojure nunmap <buffer> cq
    au Filetype clojure nunmap <buffer> cqq

    au Filetype clojure nunmap <buffer> cqp
    au Filetype clojure nunmap <buffer> cqc

    au Filetype clojure nunmap <buffer> cpr

    au Filetype clojure nunmap <buffer> K
    au Filetype clojure nunmap <buffer> [d
    au Filetype clojure nunmap <buffer> ]d

    au Filetype clojure nunmap <buffer> [<c-d>
    au Filetype clojure nunmap <buffer> ]<c-d>

    au Filetype clojure nunmap <buffer> <c-w><c-d>
    au Filetype clojure nunmap <buffer> <c-w>d
    au Filetype clojure nunmap <buffer> <c-w>gd
augroup END

augroup map_good_fireplace_keys
    au!

    " [M]an (get documentation)
    au Filetype clojure nmap <buffer> M <Plug>FireplaceK

    " Go to Definition
    au Filetype clojure nmap <buffer> gd <Plug>FireplaceDjump

    " Require
    au Filetype clojure nnoremap <buffer> <localleader>r :Require<cr>

    " Require Harder
    au Filetype clojure nnoremap <buffer> <localleader>R :Require!<cr>

    " Get [S]ource
    au Filetype clojure nmap <buffer> <localleader>s <Plug>FireplaceSource

    " Eval Form
    au Filetype clojure nmap <buffer> <localleader>ef <Plug>FireplacePrintab

    " Eval Top-Level Form
    au Filetype clojure nmap <buffer> <localleader>ee mz:call PareditFindDefunBck()<cr><Plug>FireplacePrintab'z

    " Open clojure command line editor client window thing
    au Filetype clojure exe 'nmap <buffer> <localleader>E <Plug>FireplacePrompt' . &cedit . 'i'
augroup END