From 897a14542bbbfe12716fe94b7627bf71d3147b26 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 19 Jan 2014 01:16:18 +0900
Subject: [PATCH] update ilookup-alist

---
 emacs.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/emacs.el b/emacs.el
index 715afd1..7937ef7 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2419,9 +2419,21 @@ result for that word.")
                    (format "sdcv -n -u dictd_www.dict.org_gcide '%s'"
                            word))))
         ("ja" . (lambda (word)
-                  (shell-command-to-string
+                   (shell-command-to-string
+                   (format "sdcv -n -u EJ-GENE95 '%s'"
+                           word))))
+        ("jaj" . (lambda (word)
+                   (shell-command-to-string
                    (format "sdcv -n -u jmdict-en-ja '%s'"
                            word))))
+        ("jag" . (lambda (word)
+                  (with-temp-buffer
+                    (insert (shell-command-to-string
+                             (format "sdcv -n -u 'Genius English-Japanese' '%s'"
+                                     word)))
+                    (html2text)
+                    (buffer-substring (point-min)
+                                      (point-max)))))
         ("alc" . (lambda (word)
                    (shell-command-to-string
                     (format "alc '%s' | head -n 20"