diff options
Diffstat (limited to 'src/feed.clj')
| -rwxr-xr-x | src/feed.clj | 18 |
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")))) |