From a731428072b65581a342aa7bbc96b279896d395d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 13 Dec 2017 13:21:19 -0800 Subject: [PATCH] let `get-doc` and `get-metas` work with pagetree sources (fixes #159) --- pollen/core.rkt | 15 ++++++--------- pollen/private/ts.rktd | 2 +- 2 files changed, 7 insertions(+), 10 deletions(-) diff --git a/pollen/core.rkt b/pollen/core.rkt index eab3914..b68f266 100644 --- a/pollen/core.rkt +++ b/pollen/core.rkt @@ -85,15 +85,12 @@ (define (convert+validate-path pagenode-or-path caller) - (let ([path (get-source (if (pagenode? pagenode-or-path) - (build-path (current-project-root) (symbol->string pagenode-or-path)) - pagenode-or-path))]) - (unless path - ;; use `pagenode-or-path` in error message because at this point `path` is #f - (raise - (make-exn:fail:filesystem - (format "~a: no source found for '~a' in directory ~a" caller pagenode-or-path (current-directory)) - (current-continuation-marks)))) + (let* ([path (if (pagenode? pagenode-or-path) + (build-path (current-project-root) (symbol->string pagenode-or-path)) + pagenode-or-path)] + [path (or (get-source path) path)]) + (unless (file-exists? path) + (raise-argument-error caller "existing Pollen source, or name of its output path" path)) path)) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index aece7ea..7d07995 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1513026723 +1513200079