[elpa] externals/kiwix e49d830 002/192: temporary push a not working version.

[Stefan Monnier]

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

    temporary push a not working version.
    
    Hope someone can involve in to make it better.
---
 kiwix.el | 77 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)

diff --git a/kiwix.el b/kiwix.el
new file mode 100644
index 0000000..25a2d7c
--- /dev/null
+++ b/kiwix.el
@@ -0,0 +1,77 @@
+;;; kiwix.el --- Emacs client to Kiwix.
+;;; -*- coding: utf-8 -*-
+
+;;; Commentary:
+
+
+
+;;; Code:
+
+
+(defcustom kiwix-search-command "/usr/lib/kiwix/bin/kiwix-search"
+  "The kiwix-search command path."
+  :group 'kiwix)
+(defcustom kiwix-data-profile-path "~/.www.kiwix.org/kiwix/8ip89lik.default/"
+  "The kiwix profile data directory."
+  :group 'kiwix)
+
+(defvar kiwix-data-index-path nil)
+
+(setq kiwix-data-index-path (concat kiwix-data-profile-path "data/index/"))
+
+(defun kiwix-serve-index ()
+  "Open kiwix HTTP server index page."
+  (interactive)
+  ;; (browse-url "http://127.0.0.1:8000";)
+  (browse-url-conkeror "http://127.0.0.1:8000";)
+  )
+
+(defun kiwix-libraries ()
+  "Get a list of dirs under a specific dir."
+  ;; ~/.www.kiwix.org/kiwix/8ip89lik.default/data/content/*.zim
+  (let ((libraries
+         ;; TODO: filter out ZIM files as libraries.
+         (mapcar #'(lambda (file)
+                     (let ((zim-file (string-match-p ".*\\.zim" file)))
+                       zim-file))
+                 (directory-files kiwix-data-index-path)
+                 )))
+    libraries))
+
+(defun kiwix-serve-search (library query)
+  "Execute shell command `kiwix-search' on `LIBRARY' with `QUERY'.
+Return a list of results."
+  (let ((search-results (shell-command
+                         (concat kiwix-search-command " "
+                                 kiwix-data-profile-path kiwix-data-index-path
+                                 library " " query
+                                 " 2> /dev/null"))))
+    search-results)
+  )
+
+(defun kiwix-serve-query (library)
+  "Query kiwix HTTP server in a specific `LIBRARY'."
+  (interactive ; FIXME: Don't know where is wrong yet.
+   (list (completing-read
+          "Kiwix Library: "
+          (let (libraries)
+            (dolist (elt (kiwix-libraries))
+              (setq libraries (append libraries (list (car elt)))))
+            libraries))))
+  
+  (let ((query (read-from-minibuffer "Kiwix Query: "))
+        (results (kiwix-search library query))
+        (result (interactive
+                 (list (completing-read
+                        "select a result to visit: "
+                        results)))))
+    (browse-url-conkeror
+     (concat "http://127.0.0.1:8000/"; library "/A/" result))
+    )
+  )
+
+
+
+(provide 'kiwix)
+
+;;; kiwix.el ends here