[elpa] externals/kiwix 90658b7 050/192: support old format library name

[Stefan Monnier]

branch: externals/kiwix
commit 90658b742e09b0daae5aacb9e246a085ec224abd
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    support old format library name
    
    [[wiki:(en|zh):query][description]]
---
 README.org |  2 +-
 kiwix.el   | 14 ++++++++++----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 68f20ae..f76677b 100644
--- a/README.org
+++ b/README.org
@@ -77,4 +77,4 @@ The link format is like this:
 [[wiki:(library):search][description]]
 #+END_EXAMPLE
 
-The =(library)= can be =wikipedia_en=, =wikipedia_zh=, =wiktionary_en= etc.
+The =(library)= can be =wikipedia_en=, =wikipedia_zh=, =wiktionary_en=, or 
=en=, =zh= etc.
diff --git a/kiwix.el b/kiwix.el
index 57523cd..5f6a427 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -107,14 +107,20 @@
   "The default kiwix library when library fragment in link not specified.")
 
 ;; add default key-value pair to libraries alist.
-(defvar kiwix-default-library-cons
-  (cons "default" (kiwix-get-library-fullname kiwix-default-library)))
+(dolist
+    (cons (list
+           (cons "default" (kiwix-get-library-fullname kiwix-default-library))
+           (cons "en" (kiwix-get-library-fullname kiwix-default-library))
+           (cons "zh" (kiwix-get-library-fullname "wikipedia_zh"))))
+  
+  (push cons kiwix-libraries-abbrev-alist)
+  )
 
-;; add `kiwix-default-library-cons' to alist.
-(push kiwix-default-library-cons kiwix-libraries-abbrev-alist)
 ;; test
 ;; (kiwix-get-library-fullname "wikipedia_en")
 ;; (kiwix-get-library-fullname "default")
+;; (kiwix-get-library-fullname "en")
+;; (kiwix-get-library-fullname "zh")
 
 (defun kiwix-select-library-name ()
   "Select Wikipedia library name abbrev."