handling comments and newlines; quick-fixes for #11 and #8

Author: siddhartha-gadgil

LeanSearchClient/LoogleSyntax.lean

@@ -56,6 +56,8 @@ initialize loogleCache :
 
 def getLoogleQueryJson (s : String) (num_results : Nat := 6) :
   CoreM <| LoogleResult:= do
+  let s := s.splitOn "/-" |>.getD 0 s |>.trim
+  let s := s.replace "\n" " "
   let cache ← loogleCache.get
   match cache.get? (s, num_results) with
   | some r => return r

LeanSearchClientTest/LoogleExamples.lean

@@ -6,17 +6,38 @@ import LeanSearchClient.LoogleSyntax
 Examples of using the Loogle API. The search is triggered by the word at the end of the query.
 -/
 
-#loogle List ?a → ?a
+-- #loogle List ?a → ?a
 
-example := #loogle List ?a → ?a
+-- example := #loogle List ?a → ?a
 
 
-set_option loogle.queries 1
+-- set_option loogle.queries 1
 
-example : 3 ≤ 5 := by
-  #loogle Nat.succ_le_succ
-  sorry
+-- example : 3 ≤ 5 := by
+--   #loogle Nat.succ_le_succ
+--   sorry
 
-example : 3 ≤ 5 := by
-  #loogle
-  decide
+-- example : 3 ≤ 5 := by
+--   #loogle
+--   decide
+
+/-!
+More examples to test comments do not interfere with the search or caching.
+-/
+
+#loogle ?a * _ < ?a * _ ↔ _
+#loogle ?a * _ < ?a * _ ↔ _ /- foo -/
+#loogle ?a * _ < ?a * _ ↔ _
+
+
+-- comment
+#loogle ?a * _ < ?a * _ ↔ _
+
+/--
+info: Loogle Search Results
+• #check Option.get!
+-/
+#guard_msgs in
+  #loogle Option ?a → ?a, "get!"
+
+/- hello -/