Initial commit

elpa/slime-20171102.1213/contrib/slime-hyperdoc.el

@@ -0,0 +1,48 @@
+(require 'slime)
+(require 'url-http)
+(require 'browse-url)
+(eval-when-compile (require 'cl)) ; lexical-let
+
+(defvar slime-old-documentation-lookup-function 
+  slime-documentation-lookup-function)
+
+(define-slime-contrib slime-hyperdoc
+  "Extensible C-c C-d h."
+  (:authors "Tobias C Rittweiler <tcr@freebits.de>")
+  (:license "GPL")
+  (:swank-dependencies swank-hyperdoc)
+  (:on-load
+   (setq slime-documentation-lookup-function 'slime-hyperdoc-lookup))
+  (:on-unload
+   (setq slime-documentation-lookup-function 
+         slime-old-documentation-lookup-function)))
+
+;;; TODO: `url-http-file-exists-p' is slow, make it optional behaviour.
+
+(defun slime-hyperdoc-lookup-rpc (symbol-name)
+  (slime-eval-async `(swank:hyperdoc ,symbol-name)
+    (lexical-let ((symbol-name symbol-name))
+      #'(lambda (result)
+          (slime-log-event result)
+          (cl-loop with foundp = nil
+                   for (doc-type . url) in result do
+                   (when (and url (stringp url)
+                              (let ((url-show-status nil))
+                                (url-http-file-exists-p url)))
+                     (message "Visiting documentation for %s `%s'..."
+                              (substring (symbol-name doc-type) 1)
+                              symbol-name)
+                     (browse-url url)
+                     (setq foundp t))
+                   finally
+                   (unless foundp
+                     (error "Could not find documentation for `%s'." 
+                            symbol-name)))))))
+
+(defun slime-hyperdoc-lookup (symbol-name)
+  (interactive (list (slime-read-symbol-name "Symbol: ")))
+  (if (memq :hyperdoc (slime-lisp-features))
+      (slime-hyperdoc-lookup-rpc symbol-name)
+      (slime-hyperspec-lookup symbol-name)))
+
+(provide 'slime-hyperdoc)