环境
系统:Linux luogw-pc 3.5.0-48-generic #72~precise1-Ubuntu SMP Tue Mar 11 20:09:08 UTC 2014 x86_64 x86_64 x86_64 GNU/Linux
emacs:GNU Emacs 24.3.1
步骤
1)安装星际译王:
sudo apt-get install stardict
2)安装星际译王命令行工具:
2)安装星际译王命令行工具:
sudo apt-get install sdcv
3)安装词典:中英和英中,当然你可以装的更多。
3)安装词典:中英和英中,当然你可以装的更多。
http://abloz.com/huzheng/stardict-dic/zh_CN/
词典安装目录:
安装的方法(以安装 stardict-oxford-gb-2.4.2.tar.bz2 为例)
先下好安装的词典软件包, stardict-oxford-gb-2.4.2.tar.bz2
在它的目录下面解压: tar -xjvf stardict-oxford-gb-2.4.2.tar.bz2
再把解压后的文件夹放入到/usr/share/stardict/dic中:
mv stardict-oxford-gb-2.4.2/usr/share/stardict/dic
注意:放置词典在自己的home目录下的.startdict/dic/ 会更合适应些,没有dic目录新建一个吧
4)在.emacs中添加如下lisp
(global-set-key (kbd "C-c d") 'kid-sdcv-to-buffer)
(defun kid-sdcv-to-buffer ()
(interactive)
(let ((word (if mark-active
(buffer-substring-no-properties (region-beginning) (region-end))
(current-word nil t))))
(setq word (read-string (format "Search the dictionary for (default %s): " word)
nil nil word))
(set-buffer (get-buffer-create "*sdcv*"))
(buffer-disable-undo)
(erase-buffer)
(let ((process (start-process-shell-command "sdcv" "*sdcv*" "sdcv" "-n" word)))
(set-process-sentinel
process
(lambda (process signal)
(when (memq (process-status process) '(exit signal))
(unless (string= (buffer-name) "*sdcv*")
(setq kid-sdcv-window-configuration (current-window-configuration))
(switch-to-buffer-other-window "*sdcv*")
(local-set-key (kbd "d") 'kid-sdcv-to-buffer)
(local-set-key (kbd "q") (lambda ()
(interactive)
(bury-buffer)
(unless (null (cdr (window-list))) ; only one window
(delete-window)))))
(goto-char (point-min))))))))
5)enjoy it
参考
http://bbs.chinaunix.net/thread-1986552-1-1.html
http://hi.baidu.com/migney/item/5ee3ca4f59916d0ec11613a6
http://hi.baidu.com/migney/item/5ee3ca4f59916d0ec11613a6