emacsからalcでの単語検索を楽にする
環境
コード
(defsubst marked-input () (when (use-region-p) (buffer-substring-no-properties (region-beginning) (region-end)))) (defun search-word-in-alc () (interactive) (let* ((cmd "open \"%s\"") (url (format "http://eow.alc.co.jp/search?q=%s" (or (marked-input) (read-shell-command "word: "))))) (shell-command-to-string (format cmd url)))) (global-set-key (kbd "s-E") 'search-word-in-alc)
ちなみにzshバージョンもある
function search-word-in-alc() { url="http://eow.alc.co.jp/search?q=" open "${url}$1" } alias e='search-word-in-alc'
エスケープ処理とか全くしてないので動きが怪しいこともある気がするけどそこそこ便利!!!