From acf4835e1657035ff15ea637cbd154a6a42a1e01 Mon Sep 17 00:00:00 2001
From: astoff <astoff@users.noreply.github.com>
Date: Sat, 28 May 2016 11:56:35 -0400
Subject: [PATCH] Allow `helm-dictionary-database` to be an alist

---
 helm-dictionary.el | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/helm-dictionary.el b/helm-dictionary.el
index 38faff7..8a83fd3 100644
--- a/helm-dictionary.el
+++ b/helm-dictionary.el
@@ -122,9 +122,13 @@
   :group 'helm)
 
 (defcustom helm-dictionary-database "/usr/share/trans/de-en"
-  "The file containing the dictionary."
+  "The file containing the dictionary, or an alist of offline
+dictionaries where the key of each entry is the name of the
+dictionary and the value is the file."
   :group 'helm-dictionary
-  :type  'file)
+  :type  '(choice
+           (file)
+           (alist :key-type string :value-type: file)))
 
 (defcustom helm-dictionary-online-dicts
   '(("translate.reference.com de->eng" .
@@ -237,13 +241,20 @@ browser in `helm-browse-url-default-browser-alist'"
     (replace-regexp-in-string
       " *{.+}\\| *\\[.+\\]" "" (cdr entry))))
 
-
-(defvar helm-source-dictionary
-  (helm-build-in-file-source "Search dictionary" helm-dictionary-database
+(defun helm-dictionary-build (name file)
+  (helm-build-in-file-source name file
     :candidate-transformer 'helm-dictionary-transformer
     :action '(("Insert source language term" . helm-dictionary-insert-l1term)
               ("Insert target language term" . helm-dictionary-insert-l2term))))
 
+
+(defvar helm-source-dictionary
+  (mapcar
+   (lambda (x) (helm-dictionary-build (car x) (cdr x)))
+   (if (stringp helm-dictionary-database)
+       (list (cons "Search dictionary" helm-dictionary-database))
+     helm-dictionary-database)))
+
 (defvar helm-source-dictionary-online
   (helm-build-sync-source "Look up online"
     :match (lambda (_candidate) t)
@@ -260,7 +271,7 @@ browser in `helm-browse-url-default-browser-alist'"
 ;;;###autoload
 (defun helm-dictionary ()
   (interactive)
-  (helm :sources '(helm-source-dictionary helm-source-dictionary-online)
+  (helm :sources (append helm-source-dictionary (list helm-source-dictionary-online))
         :full-frame t
         :candidate-number-limit 500
         :buffer "*helm dictionary*"))