From 3c466997bd7f62dcc063b94c9f3a5f73efe4b0c7 Mon Sep 17 00:00:00 2001
From: Christophe Dervieux <christophe.dervieux@gmail.com>
Date: Wed, 28 Aug 2024 21:29:33 +0200
Subject: [PATCH] normalize quarto_path() (#209)

---
 DESCRIPTION | 2 +-
 NEWS.md     | 2 ++
 R/quarto.R  | 3 ++-
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index f125ed9..72a9eb5 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: quarto
 Title: R Interface to 'Quarto' Markdown Publishing System
-Version: 1.4.4.9001
+Version: 1.4.4.9002
 Authors@R: c(
     person("JJ", "Allaire", , "jj@posit.co", role = "aut",
            comment = c(ORCID = "0000-0003-0174-9868")),
diff --git a/NEWS.md b/NEWS.md
index aa02c68..abb5166 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -3,6 +3,8 @@
 - Add `quarto.quiet` options to allow more verbose error message when `quarto_*` function are used inside other package. 
   For example, inside **pkgdown** for building Quarto vignettes. **pkgdown** sets `quiet = TRUE` internally for its call to `quarto_render()`, 
   and setting `options(quarto.quiet = TRUE)` allows to overwrite this.
+  
+- `quarto_path()` now returns a normalized path with potential symlink resolved, for less confusion with `quarto_binary_sitrep()` (thanks, @jennybc).
 
 # quarto 1.4.4
 
diff --git a/R/quarto.R b/R/quarto.R
index 997c0cf..a17d1b1 100644
--- a/R/quarto.R
+++ b/R/quarto.R
@@ -8,12 +8,13 @@
 #' @export
 quarto_path <- function() {
   path_env <- get_quarto_path_env()
-  if (is.na(path_env)) {
+  quarto_path <- if (is.na(path_env)) {
     path <- unname(Sys.which("quarto"))
     if (nzchar(path)) path else NULL
   } else {
     path_env
   }
+  normalizePath(quarto_path, winslash = "/", mustWork = FALSE)
 }
 
 get_quarto_path_env <- function() {