[elpa] externals/kiwix 7e18994 158/192: add a custom option for kiwix default libraries path

[Stefan Monnier]

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

    add a custom option for kiwix default libraries path
---
 kiwix.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index 3ef70e0..04fe236 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -96,6 +96,14 @@
     (concat (getenv "HOME") "/.www.kiwix.org/kiwix/" 
kiwix-default-data-profile-name))
   "Specify the default Kiwix data path."
   :type 'string
+  :safe #'stringp
+  :group 'kiwix-mode)
+
+(defcustom kiwix-default-library-path (file-name-directory
+                                       (concat kiwix-default-data-path 
"/data/library/library.xml"))
+  "Kiwix libraries path."
+  :type 'string
+  :safe #'stringp
   :group 'kiwix-mode)
 
 (defcustom kiwix-default-completing-read 'ivy
@@ -119,8 +127,7 @@
   "Check out all available Kiwix libraries."
   (when (kiwix-dir-detect)
     (mapcar #'kiwix--get-library-name
-            (directory-files
-             (concat kiwix-default-data-path "/data/library/") nil 
".*\.zim"))))
+            (directory-files kiwix-default-library-path nil ".*\.zim"))))
 
 (defvar kiwix-libraries (kiwix-get-libraries)
   "A list of Kiwix libraries.")
@@ -169,7 +176,7 @@ Like in function `kiwix-ajax-search-hints'.")
   (let ((library-option "--library ")
         (port (concat "--port=" kiwix-server-port " "))
         (daemon "--daemon ")
-        (library-path (concat kiwix-default-data-path 
"/data/library/library.xml")))
+        (library-path kiwix-default-library-path))
     (if kiwix-server-use-docker
         (async-shell-command
          (concat "docker run -d "