[elpa] externals/kiwix 1782487 029/192: re-enable org-mode wiki link support

[Stefan Monnier]

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

    re-enable org-mode wiki link support
---
 kiwix.el | 39 ++++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index b65c2d1..2e1a380 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -22,25 +22,6 @@
 ;; [M-x kiwix-launch-server] to launch Kiwix server.
 ;; [M-x kiwix-at-point] to search the word under point or the region selected 
string.
 
-
-;; ;;; Support Org-mode
-;; ;; [[wiki:]]
-;; ;; for open wiki search query with local application database.
-;; (defalias 'org-wiki-link-open 'kiwix-query)
-
-;; (if kiwix-support-org-mode-link-type
-;;     (org-add-link-type "wiki" 'org-wiki-link-open))
-
-;; ;; [[Wikipedia_Local:]]
-;; (if (and
-;;      kiwix-support-org-mode-link-abbrev
-;;      (member '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";) 
org-link-abbrev-alist)
-;;      (assoc "Wikipedia_Local" org-link-abbrev-alist))
-
-;;     (setq org-link-abbrev-alist
-;;           (cons '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";) 
org-link-abbrev-alist))
-;;   )
-
 ;;; Code:
 
 
@@ -133,6 +114,26 @@ for query string and library interactively."
                                              kiwix-libraries)))))
     (kiwix-query query-string library)))
 
+
+
+;;; Support Org-mode
+;; [[wiki:]]
+;; for open wiki search query with local application database.
+(defalias 'org-wiki-link-open 'kiwix-query)
+
+(if kiwix-support-org-mode-link-type
+    (org-add-link-type "wiki" 'org-wiki-link-open))
+
+;; [[Wikipedia_Local:]]
+(if (and
+     kiwix-support-org-mode-link-abbrev
+     (member '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";) 
org-link-abbrev-alist)
+     (assoc "Wikipedia_Local" org-link-abbrev-alist))
+
+    (setq org-link-abbrev-alist
+          (cons '("Wikipedia_Local" . 
"http://127.0.0.1:8000/wikipedia_zh_all_2015-11/A/%s.html";) 
org-link-abbrev-alist))
+  )
+
 
 (provide 'kiwix)