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

早上起来看到 Linuxsir 上面有个贴说 stardict 的网站上有新的辞典了，赶紧去下了一些下来，感觉不错。突发奇想想在 Emacs 里面弄个查辞典的功能，记得王垠的网站上有介绍的，看了下，好像是用什么 dictd 来查的，那个东西我不会用，而且好像没有英汉辞典的样子，想想反正系统里面装了 stardict ，为何不直接用它来查呢？于是就查了一下关于 tooltip 以及 shell-command 相关的资料，写了这个小东西：

;; author: pluskid
;; 调用 stardict 的命令行接口来查辞典
;; 如果选中了 region 就查询 region 的内容，
;; 否则就查询当前光标所在的词
(global-set-key [mouse-3] 'kid-star-dict)
(defun kid-star-dict ()
  (interactive)
  (let ((begin (point-min))
        (end (point-max)))
    (if mark-active
        (setq begin (region-beginning)
              end (region-end))
      (save-excursion
        (backward-word)
        (mark-word)
        (setq begin (region-beginning)
              end (region-end))))
    ;; 有时候 stardict 会很慢，所以在回显区显示一点东西
    ;; 以免觉得 Emacs 在干什么其他奇怪的事情。
    (message "searching for %s ..." (buffer-substring begin end))
    (tooltip-show 
     (shell-command-to-string 
      (concat "sdcv -n " 
              (buffer-substring begin end))))))

呵呵！效果还不错的，不过只是自己玩玩，因为 stardict 本身就带有屏幕取词的功能的。但是如果在 Emacs 里面查询的话，就不用另外开一个 stardict 了，而且可以绑定到自己喜欢的快捷键。呵呵！效果如图，还不错吧？