linux Emacs利用有道API翻译

懒得找星际译王的词库， 不过Emacs没有翻译功能怎么行呢？利用有道的api实现一个简单的在线的。选中词后按组合键Ctrl-c f。

1. 首先先到有道的api申请页面申请一个key,随便写点，不过邮件要准确，因为会把key和keyfrom发到你的邮箱的。然后利用得到的key和夫keyfrom替换一下:

http://fanyi.youdao.com/openapi.do?keyfrom=<keyfrom>&key=<key>&type=data&doctype=<doctype>&version=1

注：有三种方式调用api:json,jsonp,xml,这边我用的是xml.

2.到emacs wiki下面找到这个xmlparser加入到你的emacs中，因为要用这个库解析获取到的xml结果.

http://emacswiki.org/emacs/XmlParser

注：我是这样放的：我把xml.el和xml-parse.el文件放在~/.emacs.d/config/目录下面，下面的代码也是新建一个el文件放进去的。在~/.emacs中加入下面的代码:

(add-to-list 'load-path "~/elisp-sites" "~/.emacs.d/config")
(mapc 'load (directory-files "~/.emacs.d/config" t "^[a-zA-Z0-9].*.el$"))

3. 将下面的代码加入到~/.emacs文件中，或者可以和我一样。

;获取要翻译的词典
(defun get-current-word ()
  (interactive)
  (let ((begin (point-min)) (end (point-max)))
    (save-excursion      
      (when (not mark-active)        
        (backward-word)
        (mark-word))
      (setq begin (region-beginning)
            end (region-end)))
    (buffer-substring begin end)))

;;抓取翻译结果
(defun get-translate-result (word)
  (shell-command-to-string (concat (format "curl 'http://fanyi.youdao.com/openapi.do?keyfrom=&key=&type=data&doctype=xml&version=1.1&q=%s' 2>/dev/null" word))))

;;分析翻译结果,并返回显示字符串
(defun analytic-translate-result (translateresult)
  (let* ((root (with-temp-buffer (insert translateresult)
                                 (xml-parse-region (point-min) (point-max))))
         (youdao-fanyi (car root))
         (basic (car (xml-get-children youdao-fanyi 'basic)))
         (explains-ex (xml-get-children (car (xml-get-children basic 'explains)) 'ex))
         (phonetic-texts (car (xml-node-children (car (xml-get-children basic 'phonetic))))) 
         (explains-texts (concat "音标：" phonetic-texts "\n")))
    (loop for ex in explains-ex
          do (setq explains-texts (concat explains-texts  (car (xml-node-children ex)) "\n")))
    explains-texts))

;;主函数
(defun lookup-word ()
  (interactive)
  (let* ((word (get-current-word))
         (translate-result (get-translate-result word))
         (explains-texts (analytic-translate-result translate-result)))
    (tooltip-show explains-texts)))
;;绑定到Ctrl-c f组合键上
(global-set-key (kbd "C-c f") 'lookup-word)

注意：抓取翻译的结果代码中的url要加上你的key和keyfrom,重启一下emacs。
结果就像这样: