bhenry

;;restart swank
(fset 'restart-swank
      "\C-[xslime-disconna\C-?ect-all\C-m\C-[xswank-clojure-project\C-m\C-m")
(global-set-key "\C-cS" 'restart-swank)

bhenry

(do
  (use 'clojure.test)
  (defn re-test [ns]
    (remove-ns ns)
    (require :reload-all ns)
    (run-tests ns)))

;; pick a namespace
(re-test 'clojure.test-clojure.other-functions)

bhenry

;;problem 14

(defn do-to-odd [x]
  (+ 1 (* 3 x)))

(defn do-to-even [x]
  (/ x 2))

(defn get-next [x]

bhenry

(defn pow [x y]
  (apply * (repeat y x)))

bhenry

;;problem 18
(def triangle18-str "75
95 64
17 47 82
18 35 87 10
20 04 82 47 65
19 01 23 75 03 34
88 02 77 73 07 63 67
99 65 04 28 06 16 70 92
41 41 26 56 83 40 80 70 33

bhenry

(defn test-copy [str-from str-to]
  (let [from (file str-from)
        to (file str-to)
        in (java.io.FileReader. from)
        out (java.io.FileWriter. to)]
    (copy in out)))

bhenry

(defn copy-imgs [dir]
  (let [imgs (get-images dir)]
    (for [img imgs]
      (with-open [i (input-stream img)
                  o (output-stream (file (str
                                          "static/copies/"
                                          (.getName img))))]
        (copy i o)))))

bhenry

(ns slideshow.images
  (:use [clojure.java.io :only [copy file input-stream output-stream]])
  (:import [java.io File FileReader FileWriter]))

(defn get-files [dir]
  (let [data (filter #(.isFile #^File %)
                     (file-seq (java.io.File. dir)))]
    (sort-by #(.lastModified %) < data)))

(defn get-images [dir]

bhenry

(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"}

bhenry

(defn get-files [dir]                                                                                                                                                           
  (let [data (filter #(.isFile ^File %)                                                                                                                                         
                     (file-seq (java.io.File. dir)))]                                                                                                                           
    (sort-by #(.lastModified %) < data)))                                                                                                                                       
                                                                                                                                                                                
(defn image? [f]