File tree 1 file changed +14
-1
lines changed
1 file changed +14
-1
lines changed Original file line number Diff line number Diff line change @@ -580,6 +580,19 @@ If you are using flavors, it will pickup the most approapriate
580
580
" Command to query inferior Clojure for completion candidates."
581
581
:type 'string )
582
582
583
+ (defcustom inf-clojure-completion-command-lumo
584
+ " (doall (map str (lumo.repl/get-completions \" %s\" )))\n "
585
+ " Lumo command to query inferior Clojure for completion candidates."
586
+ :type 'string )
587
+
588
+ (defun inf-clojure-completion-form ()
589
+ " Return the form to query inferior Clojure for a var's documentation.
590
+ If you are using flavors, it will pickup the most approapriate
591
+ `inf-clojure-completion-command` variant."
592
+ (pcase inf-clojure-repl-flavor
593
+ (lumo inf-clojure-completion-command-lumo)
594
+ (_ inf-clojure-completion-command)))
595
+
583
596
(defcustom inf-clojure-ns-vars-command
584
597
" (clojure.repl/dir %s)\n "
585
598
" Command to show the public vars in a namespace."
@@ -744,7 +757,7 @@ See variable `inf-clojure-buffer'."
744
757
(unwind-protect
745
758
(let ((completion-snippet
746
759
(format
747
- inf-clojure-completion-command (substring-no-properties expr))))
760
+ ( inf-clojure-completion-form) (substring-no-properties expr))))
748
761
(process-send-string proc completion-snippet)
749
762
(while (and (not (string-match inf-clojure-prompt kept))
750
763
(accept-process-output proc 2 )))
You can’t perform that action at this time.
0 commit comments