updates

Author: arnoudbuzing

Prototypes/FrontEnd.wl

@@ -23,6 +23,30 @@ FrontEndExecute[
       Global`MenuKey["/", Global`Modifiers -> {"Command"}]]}]]
 
 
+QuickSearch[] := DynamicModule[{index, input = "", result = ConstantArray["",5], type},
+  index = SearchIndexObject["NotebookIndex"];
+  Column[{
+    InputField[Dynamic[input], String, ContinuousAction -> True],
+    Dynamic[
+      If[input =!= "",
+        result = TextSearch[index, input, MaxItems -> 5];
+        If[ result =!= $Failed,
+          result = result[All];
+          result = Map[
+            Function[
+              type = Part[FileNameSplit[#["ReferenceLocation"]], -2];
+              Row[{type, " ", Hyperlink[#["Title"], #["ReferenceLocation"]]}] ],
+              result
+          ];
+          result = PadRight[result,5,""],
+          result = ConstantArray["",5]
+        ];
+      Column[result]
+    ]]
+  }]
+]
+
+
 BoxSyntaxQ[boxes_,form_:StandardForm] := Not[MatchQ[MakeExpression[boxes, form],_ErrorBox]]
 
 (*

Prototypes/PacletInfo.m

@@ -78,7 +78,8 @@
      "Prototypes`Penultimate",
      "Prototypes`Antepenultimate",
      "Prototypes`ElapsedTime",
-     "Prototypes`CreateNotebookIndex"
+     "Prototypes`CreateNotebookIndex",
+     "Prototypes`QuickSearch"
      },
      Context -> {"Prototypes`"} }
   }

Prototypes/Prototypes.wl

@@ -89,7 +89,7 @@ Antepenultimate::usage = "Antepenultimate[expr] gives Part[expr,-3]";
 ElapsedTime::usage = "ElapsedTime[unit,expr] evaluates 'expr' and returns the elapsed time in the specified unit";
 
 CreateNotebookIndex::usage = "CreateNotebookIndex[] creates a SearchIndexObject of all notebooks located in $InstallationDirectory";
-
+QuickSearch::usage = "QuickSearch[] provides a quick interactive way to search all notebooks under $InstallationDirectory. You need to run CreateNotebookIndex[] once before using this function";
 Begin["`Private`"];
 
 (* general extensions *)