Add ClojureCLR support (#203)

Author: E-A-Griffin

CHANGELOG.md

@@ -1,6 +1,7 @@
 # Changelog
 
 ## master (unreleased)
+* [#202](https://github.com/clojure-emacs/inf-clojure/issues/202): Add ClojureCLR support.
 
 ## 3.2.1 (2022-07-22)
 

README.md

@@ -31,13 +31,14 @@ It supports the following REPLs:
 
 - Clojure
 - ClojureScript
+- ClojureCLR (via [lein-clr](https://github.com/kumarshantanu/lein-clr))
 - [Planck](http://planck-repl.org/)
 - [Lumo](https://github.com/anmonteiro/lumo)
 - [Joker](https://joker-lang.org/)
 - [babashka](https://github.com/borkdude/babashka)
 
 `inf-clojure` provides a set of essential features for interactive
-Clojure(Script) development:
+Clojure/ClojureScript/ClojureCLR development:
 
 * Enhanced REPL
 * Interactive code evaluation

inf-clojure.el

@@ -36,7 +36,7 @@
 ;; REPL.
 ;;
 ;; `inf-clojure` provides a set of essential features for interactive
-;; Clojure(Script) development:
+;; Clojure/ClojureScript/ClojureCLR development:
 ;;
 ;; * REPL
 ;; * Interactive code evaluation
@@ -75,6 +75,7 @@
                                     (boot . "boot repl")
                                     (clojure . "clojure")
                                     (cljs . "clojure -m cljs.main -r")
+                                    (lein-clr . "lein clr repl")
                                     (planck . "planck -d")
                                     (babashka . "bb")
                                     (lumo . "lumo -d")
@@ -153,7 +154,22 @@
                 (ns-vars . "(clojure.repl/dir %s)")
                 (set-ns . "(clojure.core/in-ns '%s)")
                 (macroexpand . "(clojure.core/macroexpand '%s)")
-                (macroexpand-1 . "(clojure.core/macroexpand-1 '%s)")))))
+                (macroexpand-1 . "(clojure.core/macroexpand-1 '%s)")))
+    (lein-clr . ((load . "(clojure.core/load-file \"%s\")")
+                 (doc . "(clojure.repl/doc %s)")
+                 (source . "(clojure.repl/source %s)")
+                 (arglists .
+                           "(try
+                             (:arglists
+                              (clojure.core/meta
+                               (clojure.core/resolve
+                                (clojure.core/read-string \"%s\"))))
+                             (catch Exception e nil))")
+                 (apropos . "(doseq [var (sort (clojure.repl/apropos \"%s\"))] (println (str var)))")
+                 (ns-vars . "(clojure.repl/dir %s)")
+                 (set-ns . "(clojure.core/in-ns '%s)")
+                 (macroexpand . "(clojure.core/macroexpand '%s)")
+                 (macroexpand-1 . "(clojure.core/macroexpand-1 '%s)")))))
 
 (defvar-local inf-clojure-repl-type nil
   "Symbol to define your REPL type.