[elpa] externals/kiwix 8c60780 06/10: Fix "org-wikipedia-open-link" doesn’t start with package’s prefix "org-kiwix"

[Stefan Monnier]

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

    Fix "org-wikipedia-open-link" doesn’t start with package’s prefix 
"org-kiwix"
---
 org-kiwix.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/org-kiwix.el b/org-kiwix.el
index 2bf7233..6a586bf 100644
--- a/org-kiwix.el
+++ b/org-kiwix.el
@@ -1,6 +1,6 @@
 ;;; org-kiwix.el --- Org Mode link support -*- lexical-binding: t; -*-
 
-;;; Time-stamp: <2021-01-14 02:09:40 stardiviner>
+;;; Time-stamp: <2021-01-14 02:10:42 stardiviner>
 
 ;; Copyright (C) 2019-2020  Free Software Foundation, Inc.
 
@@ -70,7 +70,7 @@
           (kiwix-select-library "en"))
          (t (kiwix-select-library))))))
 
-(defun org-wikipedia-open-link (link)
+(defun org-kiwix-open-link (link)
   "Open LINK in external Wikipedia program."
   ;; The regexp: (library):query
   ;; - query : should not exclude space
@@ -98,7 +98,7 @@
     ;; (prin1 (format "library: %s, query: %s, url: %s" library query url))
     (browse-url url)))
 
-(defun org-wikipedia-export-link (link description format)
+(defun org-kiwix-export-link (link description format)
   "Export the Wikipedia LINK with DESCRIPTION for FORMAT from Org files."
   (when (string-match "\\(?:(\\(.*\\)):\\)?\\([^] \n\t\r]*\\)" link)
     (let* ((library (org-kiwix-get-library link))
@@ -114,7 +114,7 @@
          ((eq format 'latex) (format "\\href{%s}{%s}" path desc))
          (t path))))))
 
-(defun org-wikipedia-store-link ()
+(defun org-kiwix-store-link ()
   "Store a link to a Wikipedia link."
   ;; [C-c o C-l l] `org-store-link'
   ;; remove those interactive functions. use normal function instead.
@@ -127,7 +127,7 @@
                             :description query)
       link)))
 
-(defun org-wikipedia-complete-link (&optional arg)
+(defun org-kiwix-complete-link (&optional arg)
   "Use kiwix AJAX request to provide available completion keywords."
   (let* ((query (or arg (read-from-minibuffer "Search keyword: ")))
          (library (kiwix-select-library))
@@ -140,11 +140,11 @@
 (defun org-kiwix-setup-link ()
   "Setup Org link for org-kiwix."
   (org-link-set-parameters "wikipedia" ; NOTE: use `wikipedia' for future 
backend changing.
-                           :follow #'org-wikipedia-open-link
-                           :store #'org-wikipedia-store-link
-                           :export #'org-wikipedia-export-link
-                           :complete #'org-wikipedia-complete-link)
-  (add-hook 'org-store-link-functions 'org-wikipedia-store-link))
+                           :follow #'org-kiwix-open-link
+                           :store #'org-kiwix-store-link
+                           :export #'org-kiwix-export-link
+                           :complete #'org-kiwix-complete-link)
+  (add-hook 'org-store-link-functions 'org-kiwix-store-link))