[nongnu] elpa/lua-mode 8a37fce 288/468: Merge pull request #82 from holomorph/browse-url

[Philip Kaludercic]

branch: elpa/lua-mode
commit 8a37fce95f346236efa716775a914ecf36c0efbd
Merge: 5995697 d6f7e0b
Author: immerrr again <immerrr@gmail.com>
Commit: immerrr again <immerrr@gmail.com>

    Merge pull request #82 from holomorph/browse-url
    
    Make documentation browser customizable
---
 lua-mode.el | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index 0903a1e..6640468 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -222,8 +222,19 @@ Should be a list of strings."
   :type 'boolean
   :group 'lua)
 
-(defcustom lua-search-url-prefix 
"http://www.lua.org/manual/5.1/manual.html#pdf-";
-  "*URL at which to search for documentation on a word"
+(defcustom lua-documentation-function 'browse-url
+  "Function used to fetch the Lua reference manual."
+  :type `(radio (function-item browse-url)
+                ,@(when (fboundp 'eww) '((function-item eww)))
+                ,@(when (fboundp 'w3m-browse-url) '((function-item 
w3m-browse-url)))
+                (function :tag "Other function"))
+  :group 'lua)
+
+(defcustom lua-documentation-url
+  (or (and (file-readable-p "/usr/share/doc/lua/manual.html")
+           "file:///usr/share/doc/lua/manual.html")
+      "http://www.lua.org/manual/5.1/manual.html";)
+  "URL pointing to the Lua reference manual."
   :type 'string
   :group 'lua)
 
@@ -1786,7 +1797,8 @@ Create a Lua process if one doesn't already exist."
 (defun lua-search-documentation ()
   "Search Lua documentation for the word at the point."
   (interactive)
-  (browse-url (concat lua-search-url-prefix (lua-funcname-at-point))))
+  (let ((url (concat lua-documentation-url "#pdf-" (lua-funcname-at-point))))
+    (funcall lua-documentation-function url)))
 
 (defun lua-toggle-electric-state (&optional arg)
   "Toggle the electric indentation feature.