add find-doc REPL function

fixes #141

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## [master](https://github.com/anmonteiro/lumo/compare/1.4.1...HEAD) (unreleased)
 
+### New features
+
+- Add `find-doc` REPL function ([#141](https://github.com/anmonteiro/lumo/issues/141)).
+
 ## [1.4.1](https://github.com/anmonteiro/lumo/compare/1.4.0...1.4.1) (2017-04-20)
 
 ### Changes

src/cljs/snapshot/lumo/repl.cljs

@@ -685,6 +685,27 @@
                                :arglists (seq sigs)}]))
                 (into {})))))))))
 
+(defn- namespace-doc [nspace]
+  (select-keys (get-in @st [::ana/namespaces nspace]) [:name :doc]))
+
+(defn find-doc
+  "Prints documentation for any var whose documentation or name
+   contains a match for re-string-or-pattern"
+  [re-string-or-pattern]
+  (let [re (re-pattern re-string-or-pattern)
+        ms (concat (mapcat #(sort-by :name
+                              (map (fn [[k v]]
+                                     (assoc (:meta v) :name (symbol % k)))
+                                (get-in @st [::ana/namespaces % :defs])))
+                     (all-ns))
+             (map namespace-doc (all-ns))
+             (map special-doc (keys special-doc-map)))]
+    (doseq [m ms
+            :when (and (:doc m)
+                    (or (re-find re (:doc m))
+                        (re-find re (str (:name m)))))]
+      (doc* (:name m)))))
+
 ;; --------------------
 ;; Code evaluation
 

src/js/__tests__/__snapshots__/cli-test.js.snap

@@ -16,6 +16,7 @@ Array [
 ClojureScript clojurescript-version
 Node.js X.X.X
  Docs: (doc function-name-here)
+       (find-doc \\"part-of-name-here\\")
  Exit: Control+D or :cljs/quit or exit
 
 ",
@@ -34,6 +35,7 @@ Array [
 ClojureScript clojurescript-version
 Node.js X.X.X
  Docs: (doc function-name-here)
+       (find-doc \\"part-of-name-here\\")
  Exit: Control+D or :cljs/quit or exit
 
 ",

src/js/cli.js

@@ -40,6 +40,7 @@ export function createBanner(): string {
 ClojureScript ${lumo.load('clojurescript-version')}
 Node.js ${process.version}
  Docs: (doc function-name-here)
+       (find-doc "part-of-name-here")
  Exit: Control+D or :cljs/quit or exit
 
 `;

src/js/cljs.js

@@ -362,7 +362,7 @@ export default function startClojureScriptEngine(opts: CLIOptsType): void {
       setPrintFns(new DiscardingSender());
 
       execute(
-        "(require '[lumo.repl :refer-macros [doc dir]])",
+        "(require '[lumo.repl :refer [find-doc] :refer-macros [dir doc]])",
         'text',
         true,
         false,