Add a command for refreshing the ClojureDocs cache

Author: bbatsov

CHANGELOG.md

@@ -7,6 +7,7 @@
 * New configuration variable `cider-result-overlay-position` determining where debugger and inline eval result overlays should be displayed. Current options are 'at-eol and 'at-point.
 * [#2606](https://github.com/clojure-emacs/cider/pull/2606): Defcustom `cider-path-translations` for translating paths from nREPL messages (useful where a file appears to be somewhere, but it's actually somewhere else).
 * [#2698](https://github.com/clojure-emacs/cider/pull/2689): Infer figwheel builds automatically.
+* New command `cider-clojuredocs-refresh-cache`.
 
 ### Changes
 

cider-clojuredocs.el

@@ -47,6 +47,12 @@
     (cider-nrepl-send-sync-request)
     (nrepl-dict-get "clojuredocs")))
 
+(defun cider-sync-request:clojuredocs-refresh ()
+  "Refresh the ClojureDocs cache."
+  (thread-first '("op" "clojuredocs-refresh-cache")
+    (cider-nrepl-send-sync-request)
+    (nrepl-dict-get "status")))
+
 (defun cider-clojuredocs-replace-special (name)
   "Convert the dashes in NAME to a ClojureDocs friendly format.
 We need to handle \"?\", \".\", \"..\" and \"/\"."
@@ -81,6 +87,15 @@ opposite of what that option dictates."
            "ClojureDocs doc for"
            #'cider-clojuredocs-web-lookup))
 
+;;;###autoload
+(defun cider-clojuredocs-refresh-cache ()
+  "Refresh the ClojureDocs cache."
+  (interactive)
+  (let ((result (cider-sync-request:clojuredocs-refresh)))
+    (if (member "ok" result)
+        (message "ClojureDocs cache refreshed successfully")
+      (message "An error occurred while trying to refresh the ClojureDocs cache"))))
+
 (defun cider-create-clojuredocs-buffer (content)
   "Create a new ClojureDocs buffer with CONTENT."
   (with-current-buffer (cider-popup-buffer cider-clojuredocs-buffer t)

cider-doc.el

@@ -83,8 +83,11 @@
   '("Documentation"
     ["CiderDoc" cider-doc]
     ["JavaDoc in browser" cider-javadoc]
+    "--"
     ["Clojuredocs" cider-clojuredocs]
     ["Clojuredocs in browser" cider-clojuredocs-web]
+    ["Refresh ClojureDocs cache" cider-clojuredocs-refresh-cache]
+    "--"
     ["Search symbols" cider-apropos]
     ["Search symbols & select" cider-apropos-select]
     ["Search documentation" cider-apropos-documentation]