core.clj

(defn home [req]
  (let [path (get (:params req) "path-input" "")
        imgs (del-copy-get-imgs path)]
    (base {:pagetitle "Slideshow"
           :pagename "Start"
           :content (html [:p
                           "Enter a full path to a directory of images"
                           (path-form path)]
                          [:div.images])
           :scripts [:script {:type "text/javascript"}
                     (str "\n var imagelist = ["
                          (for [img imgs]
                            (str "/copies/"
                                 (.getName img)
                                 ",\n"))
                          "];\n")]})))