早上写了个在 Emacs 里面查询 stardict 的辞典的东西

pluskid

               
                早上起来看到 Linuxsir 上面有个贴说 stardict 的网站上有新的辞典了，赶紧去下了一些下来，感觉不错。突发奇想想在 Emacs 里面弄个查辞典的功能，记得王垠的网站上有介绍的，看了下，好像是用什么 dictd 来查的，那个东西我不会用，而且好像没有英汉辞典的样子，想想反正系统里面装了 stardict ，为何不直接用它来查呢？于是就查了一下关于 tooltip 以及 shell-command 相关的资料，写了这个小东西：[color="#add8e6"];; [color="#add8e6"]author: pluskid
[color="#add8e6"];; [color="#add8e6"]调用 stardict 的命令行接口来查辞典
[color="#add8e6"];; [color="#add8e6"]如果选中了 region 就查询 region 的内容，
[color="#add8e6"];; [color="#add8e6"]否则就查询当前光标所在的词
(global-set-key [mouse-3] 'kid-star-dict)
([color="#afeeee"]defun [color="#7fffd4"]kid-star-dict ()
  (interactive)
  ([color="#afeeee"]let ((begin (point-min))
        (end (point-max)))
    ([color="#afeeee"]if mark-active
        (setq begin (region-beginning)
              end (region-end))
      ([color="#afeeee"]save-excursion
        (backward-word)
        (mark-word)
        (setq begin (region-beginning)
              end (region-end))))
    [color="#add8e6"];; [color="#add8e6"]有时候 stardict 会很慢，所以在回显区显示一点东西
    [color="#add8e6"];; [color="#add8e6"]以免觉得 Emacs 在干什么其他奇怪的事情。
    (message [color="#87cefa"]"searching for %s ..." (buffer-substring begin end))
    (tooltip-show
     (shell-command-to-string
      (concat [color="#87cefa"]"sdcv -n "
              (buffer-substring begin end))))))
呵呵！效果还不错的，不过只是自己玩玩，因为 stardict 本身就带有屏幕取词的功能的。但是如果在 Emacs 里面查询的话，就不用另外开一个 stardict 了，而且可以绑定到自己喜欢的快捷键。呵呵！效果如图，还不错吧？

               
               
               
               
               
               
               

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/18458/showart_108174.html