From d28b2573605fb95b1c7eb46e1ff9a39d6218df1e Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sat, 18 Jan 2014 23:38:51 +0900
Subject: [PATCH] add alc function

---
 emacs.el | 4 ++++
 1 file changed, 4 insertions(+)

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