[elpa] externals/kiwix 5bfc5a2 053/192: support more flexible library name

[Stefan Monnier]

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

    support more flexible library name
---
 kiwix.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index 1979861..f22f62d 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -83,16 +83,17 @@
   "A list of Kiwix libraries.")
 
 ;; - examples:
-;; - "wikipedia_en" - "wikipedia_en_all_2016-02"
-;; - "wikipedia_zh" - "wikipedia_zh_all_2015-17"
-;; - "wiktionary_en" - "wiktionary_en_all_2015-17"
-;; - "wiktionary_zh" - "wiktionary_zh_all_2015-17"
+;; - "wikipedia_en_all" - "wikipedia_en_all_2016-02"
+;; - "wikipedia_zh_all" - "wikipedia_zh_all_2015-17"
+;; - "wiktionary_en_all" - "wiktionary_en_all_2015-17"
+;; - "wiktionary_zh_all" - "wiktionary_zh_all_2015-17"
+;; - "wikipedia_en_medicine" - "wikipedia_en_medicine_2015-17"
 
 (defun kiwix-construct-libraries-abbrev-alist (alist)
   "Construct libraries abbrev alist from `ALIST'."
   (let* ((libraries-name
           (mapcar #'(lambda (library)
-                      (string-match "\\(.*\\)_all_.*"  library)
+                      (string-match "\\(.*\\)_[0-9]\\{4\\}-[0-9]\\{2\\}"  
library)
                       (let* ((library-name (match-string 1 library)))
                         library-name))
                   alist))