文章分类
相关博文
- ·
- ·
- ·
- ·
- ·
- ·
- ·
- ·
- ·
- ·
分类： linux
2012-09-18 17:29:50
这个主要是方便在emacs下直接查单词，因为如果再打开一个stardict，非常麻烦。
碰巧在网上看到有关stardict的elisp代码，我就把它封装过来。下面是整个安装
和使用过程。
** 安装stardict
下面的命令直接安装stardict.
: sudo apt-get install stardict
** 添加词库
直接搜索“stardict 词库”，就能找到词库的凯发app官方网站主页，按照它的说明即可。
** 安装stardict命令行程序
这个命令可以在命令行下使用stardict查询单词。
: sudo apt-get install sdcv
** 添加stardict.el
下面是stardict.el，你可以把它放到~/.emacs.d/下。
- # begin_src emacs-lisp
- ;; author : pluskid
- ;; modified by : lishuo
- ;;
- ;; 调用 stardict 的命令行程序 sdcv 来查辞典
- ;; 安装: sudo apt-get install stardict
- ;; sudo apt-get install sdcv
- ;;
- ;; 如果选中了 region 就查询 region 的内容，否则查询当前光标所在的单词
- ;; 查询结果在一个叫做 *sdcv* 的 buffer 里面显示出来，在这个 buffer 里面
- ;; 按 q 可以把这个 buffer 放到 buffer 列表末尾，按 d 可以查询单词
- ;; 注意自己编写.el的时候必须加上开头和结尾
- (require 'cl)
- (defun view-stardict-in-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") 'view-stardict-in-buffer)
- (local-set-key (kbd "q") (lambda ()
- (interactive)
- (bury-buffer)
- (unless (null (cdr (window-list))) ; only one window
- (delete-window)))))
- (goto-char (point-min))))))))
- (provide 'stardict)
- # end_src
** 启用stardict
在~/.emacs下启用stardict
- : (require 'stardict)
- : (global-set-key (kbd "c-c-d") 'view-stardict-in-buffer)
** 效果图
给主人留下些什么吧！~~
zh1314432013-09-16 12:13:53
我不是学it的，都是在网上自己学下，现在非常想用你介绍的这个功能。希望您能帮个忙，我是这样操作的，敬请您的指点
1、我的环境是emacs是安装在在win7中（e:\emacs\)
2、现已装好cygwin32，sdcv在命令行下也可正常使用了。
3、把stardict.el放入到e:\emacs\.emacs.d下
4、.emacs也加入了
(require 'stardict)
(global-set-key (kbd "c-c-d") 'view-stardict-in-buffer)
5、但是启动后emacs就提示是错误的。
这里先谢谢您！
|