[elpa] externals/kiwix 39b96cb 119/192: let kiwix-launch-server support start Docker container

[Stefan Monnier]

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

    let kiwix-launch-server support start Docker container
---
 kiwix.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index e7b28d1..a1ff964 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -188,12 +188,20 @@
 (defun kiwix-launch-server ()
   "Launch Kiwix server."
   (interactive)
-  (let ((library "--library ")
+  (let ((library-option "--library ")
         (port (concat "--port=" kiwix-server-port " "))
         (daemon "--daemon ")
         (library-path (concat kiwix-default-data-path 
"/data/library/library.xml")))
-    (async-shell-command
-     (concat kiwix-server-command library port daemon (shell-quote-argument 
library-path)))))
+    (if kiwix-server-use-docker
+        (async-shell-command
+         (concat "docker run -d "
+                 "--name kiwix-serve "
+                 "-v " (file-name-directory library-path) ":" "/data "
+                 "kiwix/kiwix-serve"
+                 (kiwix-get-library-fullname (kiwix-select-library-name)) 
".zim"))
+      (async-shell-command
+       (concat kiwix-server-command
+               library-option port daemon (shell-quote-argument 
library-path))))))
 
 (defun kiwix-capitalize-first (string)
   "Only capitalize the first word of STRING."