Skip to content

Instantly share code, notes, and snippets.

@skoji
Last active August 26, 2023 01:22
Show Gist options
  • Save skoji/936a89f5e1e7c6f93d4a216175408659 to your computer and use it in GitHub Desktop.
Save skoji/936a89f5e1e7c6f93d4a216175408659 to your computer and use it in GitHub Desktop.
辞書 by 物書堂 macOS版をEmacsから使う
(defun monokakido-lookup (word)
"Lookup word with Dictionaries.app by Monokakido"
(call-process "open" nil 0 nil (concat "mkdictionaries:///?text=" word)))
(defun monokakido-lookup-word ()
"Lookup the word at point with Dictionaries.app by Monokakido."
(interactive)
(monokakido-lookup (read-from-minibuffer "Monokakido: " (current-word))))
(global-set-key (kbd "C-c w") 'monokakido-lookup-word)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment