From ddd9ae3798520a5502de9130c562c599bc1726f5 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sat, 1 Dec 2018 08:01:53 -0800
Subject: [PATCH] use more logger

---
 pollen/private/command.rkt | 17 ++++++++---------
 pollen/private/ts.rktd     |  2 +-
 2 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/pollen/private/command.rkt b/pollen/private/command.rkt
index ec031e1..eb0edf3 100644
--- a/pollen/private/command.rkt
+++ b/pollen/private/command.rkt
@@ -74,11 +74,11 @@ version                print the version" (current-server-port) (make-publish-di
   (displayln (dynamic-require 'pollen/private/version 'pollen:version)))
 
 (define (handle-reset directory-maybe)
-  (displayln "resetting cache ...")
+  (message "resetting cache ...")
   ((dynamic-require 'pollen/cache 'reset-cache) directory-maybe))
 
 (define (handle-setup directory-maybe)
-  (displayln "preheating cache ...")
+  (message "preheating cache ...")
   ((dynamic-require 'pollen/private/preheat-cache 'preheat-cache) directory-maybe)) 
 
 (define (handle-render)
@@ -116,10 +116,10 @@ version                print the version" (current-server-port) (make-publish-di
                (map very-nice-path
                     (cond
                       [(null? static-pagetrees)
-                       (displayln (format "rendering generated pagetree for directory ~a" dir))
+                       (message (format "rendering generated pagetree for directory ~a" dir))
                        (cdr (make-project-pagetree dir))]
                       [else
-                       (displayln (format "rendering preproc & pagetree files in directory ~a" dir))
+                       (message (format "rendering preproc & pagetree files in directory ~a" dir))
                        (append preprocs static-pagetrees)])))
              (apply render-batch batch-to-render)
              (when (render-with-subdirs?)
@@ -128,7 +128,7 @@ version                print the version" (current-server-port) (make-publish-di
                                  (not (omitted-path? path))))
                     (render-one-dir (->complete-path path))))))]
         [path-args ;; path mode
-         (displayln (format "rendering ~a" (string-join (map ->string path-args) " ")))
+         (message (format "rendering ~a" (string-join (map ->string path-args) " ")))
          (apply render-batch (map very-nice-path path-args))]))))
 
 (define (handle-start)
@@ -211,8 +211,7 @@ version                print the version" (current-server-port) (make-publish-di
   (when (equal? dest-dir (current-directory))
     (error 'publish "aborted because destination directory for publishing (~a) can't be the same as current directory (~a)" dest-dir (current-directory)))
   
-  (display (format "publishing from ~a " source-dir))
-  (displayln (format "to ~a ..." dest-dir))
+  (message (string-append (format "publishing from ~a to ~a ..." source-dir dest-dir)))
   (define do-publish-operation?
     (or (not (directory-exists? dest-dir))
         (force-target-overwrite?)
@@ -234,8 +233,8 @@ version                print the version" (current-server-port) (make-publish-di
        (define (delete-from-publish-dir? p)
          (and (omitted-path? p) (not (extra-path? p))))
        (for-each delete-it! (find-files delete-from-publish-dir? dest-dir)))
-     (displayln "publish completed")]
-    [else (displayln "publish aborted")]))
+     (message "publish completed")]
+    [else (message "publish aborted")]))
 
 (define (handle-unknown command)
   (match command
diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd
index 1da21e4..9f8ca31 100644
--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@@ -1 +1 @@
-1543185303
+1543680113