From ab4e6f70c3706c5b2d37025afb65a151c694d826 Mon Sep 17 00:00:00 2001
From: JBGruber <johannesb.gruber@gmail.com>
Date: Thu, 14 Dec 2023 17:01:24 +0100
Subject: [PATCH] add reply and quote column in search

---
 R/feed.r | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/R/feed.r b/R/feed.r
index 7d83f02..06c011e 100644
--- a/R/feed.r
+++ b/R/feed.r
@@ -815,6 +815,11 @@ search_post <- function(q,
   req_limit <- ifelse(limit > 100, 100, limit)
   last_cursor <- NULL
 
+  if (stringr::str_detect(q, "^#")) {
+    q <- stringr::str_remove(q, "^#")
+    cli::cli_alert_info("The search endpoint currently does not support searching for hashtags. Searching for \"{q}\" instead")
+  }
+
   if (verbosity(verbose)) cli::cli_progress_bar(
     format = "{cli::pb_spin} Got {length(res)} posts, but there is more.. [{cli::pb_elapsed}]",
     format_done = "Retrieved {length(res)} posts from {resp$hitsTotal} total hits. All done! [{cli::pb_elapsed}]"
@@ -862,10 +867,15 @@ search_post <- function(q,
         indexed_at = parse_time(l$indexedAt),
         author_data = list(l$author),
         post_data = list(l$record),
-        embed_data = list(l$embed)
+        embed_data = list(l$embed),
+        # TODO: return URL instead of URI
+        in_reply_to = l$record$reply$parent$uri,
+        in_reply_root = l$record$reply$root$uri,
+        quotes = l$record$embed$record$uri
       )
     }) |>
       dplyr::bind_rows()
+
     if (verbosity(verbose)) cli::cli_process_done(msg_done = "Got {nrow(out)} results. All done!")
   } else {
     out <- res