simplify more paths

pollen/cache.rkt

@@ -39,7 +39,7 @@
     (λ (path-or-path-string subkey caller-name)
       (define path
         (with-handlers ([exn:fail? (path-error-handler caller-name path-or-path-string)])
-          (path->complete-path (if (path? path-or-path-string)
+          (simple-form-path (if (path? path-or-path-string)
                                    path-or-path-string
                                    (string->path path-or-path-string)))))
       (unless (file-exists? path)

pollen/private/command.rkt

@@ -52,7 +52,7 @@
            'pollen)]))
 
 (define (very-nice-path x)
-  (path->complete-path (simplify-path (cleanse-path (->path x)))))
+  (simple-form-path (cleanse-path (->path x))))
 
 (define (handle-test)
   (displayln "raco pollen is installed correctly"))

pollen/private/file-utils.rkt

@@ -19,10 +19,9 @@
   (parameterize ([current-directory (dirname (->complete-path starting-path))])
     (let loop ([dir (current-directory)][path filename-to-find])
       (and dir ; dir is #f when it hits the top of the filesystem
-           (let ([completed-path (path->complete-path path)]) 
-             (if (exists-proc completed-path)
-                 (simplify-path completed-path)
-                 (loop (dirname dir) (build-path 'up path))))))))
+           (match (simple-form-path path)
+             [(? exists-proc sfp) sfp]
+             [_ (loop (dirname dir) (build-path 'up path))])))))
 
 
 ;; for files like svg that are not source in pollen terms,

pollen/private/preheat-cache.rkt

@@ -31,7 +31,7 @@
                                                     pagetree-source?))])
                               (proc path))
                #:unless (path-cached? path))
-              (path->complete-path path)))
+              (simple-form-path path)))
 
   (cond
     [wants-dry-run? (for-each message uncached-paths)]

pollen/private/ts.rktd

@@ -1 +1 @@
-1605630343
+1606102497

pollen/render.rkt

@@ -33,7 +33,7 @@
  (require racket/runtime-path)
  (define-runtime-path sample-dir "test/data/samples")
  (define samples (parameterize ([current-directory sample-dir])
-                   (map path->complete-path (filter (λ (name) (regexp-match "sample-" name)) (directory-list ".")))))
+                   (map simple-form-path (filter (λ (name) (regexp-match "sample-" name)) (directory-list ".")))))
  (define-values (sample-01 sample-02 sample-03) (apply values samples)))
 
 ;; each key for mod-date-hash is a list of file / mod-date pairs (using pollen/cache keymaking function)

pollen/setup.rkt

@@ -1,6 +1,7 @@
 #lang racket/base
 (require (for-syntax racket/base racket/syntax)
          racket/runtime-path
+         racket/path
          "private/constants.rkt")
 (provide (all-from-out "private/constants.rkt"))
 
@@ -23,10 +24,10 @@
                          [(not maybe-dir) (current-directory)]
                          [(directory-exists? maybe-dir) maybe-dir]
                          [else (define dir (dirname maybe-dir))
-                               (and (not (eq? 'relative dir)) (path->complete-path dir (current-directory)))]))
+                               (and (not (eq? 'relative dir)) (simple-form-path dir (current-directory)))]))
   (let loop ([dir starting-dir][path default-directory-require])
     (and dir ; dir is #f when it hits the top of the filesystem
-         (let ([simplified-path (simplify-path (path->complete-path path starting-dir))])
+         (let ([simplified-path (simple-form-path (path->complete-path path starting-dir))])
            (if (file-exists? simplified-path)
                simplified-path
                (loop (dirname dir) (build-path 'up path)))))))