[elpa] externals/kiwix 004193f 005/192: first working version

[Stefan Monnier]

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

    first working version
---
 kiwix.el | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)

diff --git a/kiwix.el b/kiwix.el
new file mode 100644
index 0000000..ff1b37c
--- /dev/null
+++ b/kiwix.el
@@ -0,0 +1,73 @@
+;;; kiwix.el --- Kiwix interface and support for Emacs.
+;;; -*- coding: utf-8 -*-
+
+;;; Commentary:
+
+
+
+;;; Code:
+
+
+(defgroup kiwix nil
+  "kiwix group."
+  :group 'custom-group)
+
+(defcustom kiwix-browser "google-chrome-stable"
+  "Specify browser for Kiwix visiting."
+  :group 'kiwix)
+
+(defcustom kiwix-default-library "wikipedia_zh_all_2015-11"
+  "Specify the default Kiwix library you want to search."
+  :group 'kiwix)
+
+;; launch Kiwix server
+;;;###autoload
+(defun kiwix-launch-server ()
+  "Launch Kiwix server."
+  (interactive)
+  
+  (let ((kiwix-server-command "/usr/lib/kiwix/bin/kiwix-serve ")
+        (kiwix-server-library-option "--library ")
+        (kiwix-server-port "--port=8000 ")
+        (kiwix-server-daemon "--daemon ")
+        (kiwix-server-library-path (concat (getenv "HOME") 
"/.www.kiwix.org/kiwix/8ip89lik.default/data/library/library.xml"))
+        )
+    (async-shell-command
+     (concat kiwix-server-command kiwix-server-library-option 
kiwix-server-port kiwix-server-daemon kiwix-server-library-path))))
+
+
+(defun kiwix-query (query)
+  "Search `QUERY' with Kiwix."
+  (let* ((browser kiwix-browser)
+         (kiwix-server "http://127.0.0.1:8000/";)
+         (kiwix-library kiwix-default-library)
+         (url (concat kiwix-server kiwix-library "/A/" query ".html")))
+    (shell-command (concat browser " " url))))
+
+;;;###autoload
+(defun kiwix-at-point (&optional input)
+  "Search for the symbol at point with `kiwix-query' with `INPUT'."
+  (interactive "P")
+  (let* ((query-string (if mark-active
+                           (buffer-substring (region-beginning) (region-end))
+                         (thing-at-point 'symbol))))
+    (kiwix-query (if (or input (null query-string))
+                     (read-string "Kiwix search: " query-string-input)
+                   query-string))))
+
+;;; Support Org-mode
+;; [[wiki:]]
+;; for open wiki search query with local application database.
+(defalias 'org-wiki-link-open 'kiwix-search)
+
+(org-add-link-type "wiki" 'org-wiki-link-open)
+
+;; [[Wikipedia_Local:]]
+(add-to-list
+ org-link-abbrev-alist
+ '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";))
+
+
+(provide 'kiwix)
+
+;;; kiwix.el ends here