Vim script: kr4mb sample.

kr4mb_sample.vim

let g:kr4mb_identifier_aliases = {
      \  'to_dvorak': 'private.remap.device_kinesis_qwerty2dvorak_qwerty'
      \ }

command! -nargs=0 DvorakEnable
      \ KR4MBEnable to_dvorak
command! -nargs=0 DvorakDisable
      \ KR4MBDisable to_dvorak
command! -nargs=0 DvorakToggle
      \ KR4MBToggle to_dvorak

nnoremap : :<C-u>DvorakEnable<CR>:
cnoremap <silent> <Esc> <C-u>DvorakDisable<CR>

augroup kr4mb-dvorak
  autocmd!
  autocmd InsertEnter * call kr4mb#enable('to_dvorak')
  autocmd InsertLeave * call kr4mb#disable('to_dvorak')
augroup END