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 @@ -586,6 +586,19 @@ If you are using flavors, it will pickup the most approapriate
586
586
" Command to query inferior Clojure for completion candidates."
587
587
:type 'string )
588
588
589
+ (defcustom inf-clojure-completion-command-lumo
590
+ " (doall (map str (lumo.repl/get-completions \" %s\" )))\n "
591
+ " Lumo command to query inferior Clojure for completion candidates."
592
+ :type 'string )
593
+
594
+ (defun inf-clojure-completion-form ()
595
+ " Return the form to query inferior Clojure for a var's documentation.
596
+ If you are using flavors, it will pickup the most approapriate
597
+ `inf-clojure-completion-command` variant."
598
+ (pcase inf-clojure-repl-flavor
599
+ (lumo inf-clojure-completion-command-lumo)
600
+ (_ inf-clojure-completion-command)))
601
+
589
602
(defcustom inf-clojure-ns-vars-command
590
603
" (clojure.repl/dir %s)\n "
591
604
" Command to show the public vars in a namespace."
@@ -750,7 +763,7 @@ See variable `inf-clojure-buffer'."
750
763
(unwind-protect
751
764
(let ((completion-snippet
752
765
(format
753
- inf-clojure-completion-command (substring-no-properties expr))))
766
+ ( inf-clojure-completion-form) (substring-no-properties expr))))
754
767
(process-send-string proc completion-snippet)
755
768
(while (and (not (string-match inf-clojure-prompt kept))
756
769
(accept-process-output proc 2 )))
You can’t perform that action at this time.
0 commit comments