Skip to content

Instantly share code, notes, and snippets.

@masutaka

masutaka/init.el

Created Oct 7, 2011
Embed
What would you like to do?
A dictionary tool which can switch commandline-dictionary-app and sdic.
;; http://www.namazu.org/~tsuchiya/sdic/index.html
(require 'sdic)
;; hg clone http://hg.pqrs.org/commandline-dictionary-app
(defvar dict-bin "/Users/masutaka/repository/commandline-dictionary-app/src/dict"
"a path of commandline-dictionary-app")
(defun dictionary-app (word)
"Display the meaning of word using Dictionary.app."
(interactive (list (sdic-read-from-minibuffer)))
(set-buffer (get-buffer-create sdic-buffer-name))
(or (string= mode-name sdic-mode-name) (sdic-mode))
(setq buffer-read-only nil)
(erase-buffer)
(insert (format "============================================================\n%s\n" word))
(call-process dict-bin
nil sdic-buffer-name t word
"Japanese-English" "Japanese" "Japanese Synonyms")
(setq buffer-read-only t)
(set-buffer-modified-p nil)
(sdic-display-buffer 0))
(defun my-dictionary (arg)
(interactive "P")
(if arg
(sdic-describe-word (sdic-read-from-minibuffer))
(dictionary-app (sdic-read-from-minibuffer))))
@masutaka

This comment has been minimized.

Copy link
Owner Author

@masutaka masutaka commented Oct 7, 2011

The detail is the following.
http://masutaka.net/chalow/2011-05-18-1.html

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment