Emacsから辞書を使う on Mac

以下の記事でEmacsからDictionary.appを叩く方法が紹介されていた。

Emacsから辞書.appを簡単に使う - Qiita

自分の場合はbrowse-url-browser-functionをデフォルトから変更していたので、記事で紹介されていたコードをこんな感じで修正した。

;; カーソル位置の単語を検索
(global-set-key
 (kbd "C-c w o")
 (lambda () (interactive)
   (let ((url (concat "dict://" (read-from-minibuffer "" (current-word))))
         (browse-url-browser-function 'browse-url-default-browser))
     (browse-url url))))
;; 単語を入力して検索
(global-set-key
 (kbd "C-c w s")
 (lambda (key) (interactive "MSearch: ")
   (let ((url (concat "dict://" key))
         (browse-url-browser-function 'browse-url-default-browser))
     (browse-url url))))