emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/kiwix b585e25 026/192: move org-mode relative code to c


From: Stefan Monnier
Subject: [elpa] externals/kiwix b585e25 026/192: move org-mode relative code to commentary
Date: Sat, 19 Dec 2020 00:41:26 -0500 (EST)

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

    move org-mode relative code to commentary
---
 kiwix.el | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index 6167158..c1052b7 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -18,6 +18,25 @@
 ;; [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:
 
 
@@ -110,25 +129,6 @@ 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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]