Add find-var to lumo

Now that we have eval, we can easily provide find-var at the REPL.

CHANGELOG.md

@@ -5,6 +5,7 @@
 ### New  features
 
 - Allow omitting version in -D – default to the latest locally available version ([#320](https://github.com/anmonteiro/lumo/issues/320)).
+- Add `find-var` to `lumo` ([#406](https://github.com/anmonteiro/lumo/pull/406)).
 
 ### Bug fixes
 

src/cljs/snapshot/lumo/repl.cljs

@@ -858,6 +858,12 @@
            (vreset! result value))))
      @result)))
 
+(defn find-var
+  "Returns the global var named by the namespace-qualified symbol, or
+  nil if no var with that name."
+  [sym]
+  (eval `(~'var ~sym)))
+
 (defn- intern
   ([ns name]
    (intern ns name nil))

src/js/cljs.js

@@ -544,7 +544,7 @@ async function startClojureScriptEngine(opts: CLIOptsType): Promise<mixed> {
       }
 
       execute(
-        "(require '[lumo.repl :refer [apropos find-doc] :refer-macros [dir doc source]])",
+        "(require '[lumo.repl :refer [apropos find-doc find-var] :refer-macros [dir doc source]])",
         'text',
         true,
         false,

src/test/lumo/lumo/repl_tests.cljs

@@ -208,3 +208,8 @@ Special Form
     (is (= 3 (core/eval (list + 1 2))))
     (is (= 17 (core/eval '(let [a 10] (+ 3 4 a)))))
     (is (= 5 ((eval (eval '+)) 2 3)))))
+
+(when test-util/lumo-env?
+  (deftest test-find-var
+    (is (= #'cljs.core/map (lumo/find-var 'map)) "it should find function vars")
+    (is (= #'lumo.repl/*pprint-results* (lumo/find-var 'lumo.repl/*pprint-results*)) "it should find a var in another namespace")))