Tweaks to feed-test page

1 files changed, 11 insertions, 7 deletions

diff --git a/src/feed.clj b/src/feed.clj
index e075e69..ae7f54d 100755
--- a/src/feed.clj
+++ b/src/feed.clj
@@ -102,17 +102,21 @@ WHERE  NOT EXISTS (SELECT 1
 (defn feed-test [session params]
   (if-vip
    (if-let [feed (params :url)]
-     (let [[ms text]            (with-timing (slurp* feed))
-           imgs                 (extract-images text)
-           [good-imgs bad-imgs] (filter-images imgs)]
+     (let [[slurp-ms text]        (with-timing (slurp* feed))
+           [process-ms imgs]      (with-timing (extract-images text))
+           [good-imgs bad-imgs]   (filter-images imgs)]
        (html [:body 
               [:h1 (str "Images for " feed)]
-              [:div (format "Downloaded in %s ms" ms)]
-              [:h3 "Images"]
+              [:div (format "Downloaded in %s ms" slurp-ms)]
+              [:div (format "Processed in %s ms" process-ms)]
+              [:hr]
+              [:h2 "Good Images"]
               (show-good-images good-imgs)
-              [:h3 "Filtered Images"]
+              [:hr]
+              [:h2 "Filtered Out Images"]
               (show-bad-images bad-imgs)
-              [:h3 "Raw Feed Contents"]
+              [:hr]
+              [:h2 "Raw Feed Contents"]
               [:pre (escape-html text)]
               ]))
      (redirect-to "/feed-test"))))