emacsからalcでの単語検索を楽にする

emacsからアルクで単語検索する便利コマンド書いた

環境
コード
(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'

エスケープ処理とか全くしてないので動きが怪しいこともある気がするけどそこそこ便利!!!