From fdb4a7244df3a229dbf2b9af1027e8b962b8a59a Mon Sep 17 00:00:00 2001
From: Jenny Bryan <jenny.f.bryan@gmail.com>
Date: Fri, 8 Mar 2024 07:34:40 -0800
Subject: [PATCH] More PR hyperlinks

---
 R/pr.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/R/pr.R b/R/pr.R
index 384a4e6c1..8e2e2933b 100644
--- a/R/pr.R
+++ b/R/pr.R
@@ -867,16 +867,17 @@ choose_branch <- function(exclude = character()) {
     )
     prompt <- glue("{prompt}\n{fine_print}")
   }
-  dat$pretty_user <- glue_data(dat, "@{pr_user}")
   dat$pretty_name <- format(dat$name, justify = "right")
   dat_pretty <- purrr::pmap_chr(
-    dat[c("pretty_name", "pr_number", "pretty_user", "pr_title")],
-    function(pretty_name, pr_number, pretty_user, pr_title) {
+    dat[c("pretty_name", "pr_number", "pr_html_url", "pr_user", "pr_title")],
+    function(pretty_name, pr_number, pr_html_url, pr_user, pr_title) {
       if (is.na(pr_number)) {
         pretty_name
       } else {
+        href_number <- ui_pre_glue("{.href [PR #<<pr_number>>](<<pr_html_url>>)}")
+        at_user <- glue("@{pr_user}")
         template <- ui_pre_glue(
-          "{pretty_name} {cli::symbol$arrow_right} #{pr_number} ({.field <<pretty_user>>}): {pr_title}"
+          "{pretty_name} {cli::symbol$arrow_right} <<href_number>> ({.field <<at_user>>}): {.val <<pr_title>>}"
         )
         cli::format_inline(template)
       }