在Vim和Emacs中调用GoldenDict查词

软件经验交流展望
3

vim版本，我做了一点改动，简化一些：

设置快捷键：

nnoremap <silent> <M-d> :call GoldenDict#Lookup('n')<CR>
vnoremap <silent> <M-d> :call GoldenDict#Lookup('v')<CR>

使用 autoload 懒加载：

" autoload/GoldenDict.vim
" 查询当前单词/选区并发送到 GoldenDict
function! GoldenDict#Lookup(mode)
    " 备份寄存器
    let save_reg = @"
    let save_reg_type = getregtype('"')
    let word = ""

    if a:mode == 'v'
        " 可视模式处理
        silent normal! gvy
        let word = @"
        " 退出可视模式
        silent normal! \<Esc>
    else
        " 普通模式处理
        let word = expand("<cword>")
    endif

    " 恢复寄存器
    call setreg('"', save_reg, save_reg_type)

    " 清理单词：去除多余空格和两端符号
    let word = substitute(word, '\_s\+', ' ', 'g')
    let word = substitute(word, '^\W*\(.\{-}\)\W*$', '\1', '')

    if word == ""
        echohl ErrorMsg | echo "无可用查询内容" | echohl None
        return
    endif

    " 准备系统命令
    let cmd = ""
    if has("win32") || has("win64")
        let cmd = 'start /b c:\Apps\GoldenDict\GoldenDict.exe "' . word . '"'
    elseif has("mac")
        let cmd = 'open -a GoldenDict --args "' . word . '"'
    else
        let cmd = 'goldendict "' . word . '" &'
    endif

    " 执行命令（异步）
    silent! call system(cmd)
    echo "正在查询: " . word
endfunction
1 个赞