From 36f075edba76a6ab679dedbaa6cf2354843ea648 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 9 Mar 2021 11:03:13 -0800 Subject: [PATCH] handle 'relative directory correctly (fixes #252) --- pollen/pagetree.rkt | 5 ++++- pollen/private/ts.rktd | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/pollen/pagetree.rkt b/pollen/pagetree.rkt index 409d17d..2708089 100644 --- a/pollen/pagetree.rkt +++ b/pollen/pagetree.rkt @@ -223,7 +223,10 @@ (define-values (dir-for-resolving-paths pt) (match pt-or-path [(? pagetree?) (values (current-project-root) pt-or-path)] - [_ (values (dirname (->path pt-or-path)) (cached-doc pt-or-path))])) + [_ (define dir (match (dirname (->path pt-or-path)) + ['relative (current-project-root)] + [dir dir])) + (values dir (cached-doc pt-or-path))])) (parameterize ([current-directory dir-for-resolving-paths]) (map ->complete-path (pagetree->list pt)))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index bff2346..acf5682 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1615307759 +1615316593