diff --git a/emacs.el b/emacs.el
index a6b533f..7f38995 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2426,6 +2426,10 @@ result for that word.")
                    (shell-command-to-string
                     (format "alc '%s' | head -n 20"
                             word))))
+        ("app" . (lambda (word)
+                   (shell-command-to-string
+                    (format "dict_app '%s'"
+                            word))))
         ))
 
 (setq ilookup-default "ja")