Add flavor support for inf-clojure-var-doc-command

Author: arichiardi

inf-clojure.el

@@ -553,6 +553,19 @@ The prefix argument SWITCH-TO-REPL controls whether to switch to REPL after the
   "Command to query inferior Clojure for a var's documentation."
   :type 'string)
 
+(defcustom inf-clojure-var-doc-command-lumo
+  "(lumo.repl/doc %s)\n"
+  "Lumo command to query inferior Clojure for a var's documentation."
+  :type 'string)
+
+(defun inf-clojure-var-doc-form ()
+  "Return the form to query inferior Clojure for a var's documentation.
+If you are using flavors, it will pickup the most approapriate
+`inf-clojure-var-doc-command` variant."
+  (pcase inf-clojure-repl-flavor
+    (lumo inf-clojure-var-doc-command-lumo)
+    (_ inf-clojure-var-doc-command)))
+
 (defcustom inf-clojure-var-source-command
   "(clojure.repl/source %s)\n"
   "Command to query inferior Clojure for a var's source."
@@ -645,9 +658,9 @@ The value is nil if it can't find one."
 
 (defun inf-clojure-show-var-documentation (var)
   "Send a command to the inferior Clojure to give documentation for VAR.
-See variable `inf-clojure-var-doc-command'."
+See function `inf-clojure-var-doc-form'."
   (interactive (inf-clojure-symprompt "Var doc" (inf-clojure-var-at-pt)))
-  (comint-proc-query (inf-clojure-proc) (format inf-clojure-var-doc-command var)))
+  (comint-proc-query (inf-clojure-proc) (format (inf-clojure-var-doc-form) var)))
 
 (defun inf-clojure-show-var-source (var)
   "Send a command to the inferior Clojure to give source for VAR.