annotate src/clojureDemo/sys_utils.clj @ 21:e72220627685 tip

0.002 inch discrepancy with target. going to test anyway
author Robert McIntyre <rlm@mit.edu>
date Mon, 30 Aug 2010 01:19:21 -0400
parents 6d9bdaf919f7
children
rev   line source
rlm@1 1
rlm@1 2 (ns clojureDemo.sys-utils
rlm@1 3
rlm@1 4 (:use [clojure.contrib duck-streams str-utils shell-out])
rlm@1 5 (:import java.io.File)
rlm@1 6 )
rlm@1 7
rlm@1 8
rlm@1 9
rlm@1 10 (defn rename [file]
rlm@1 11
rlm@1 12 (if (re-matches #".*\.JPG$" (str file))
rlm@1 13 (sh "mv" (str file) (re-sub #"\.JPG" ".jpg" (str file)))
rlm@1 14 nil))
rlm@1 15
rlm@1 16
rlm@1 17
rlm@1 18
rlm@1 19 (defn escape-spaces
rlm@1 20 [string]
rlm@1 21 (re-gsub #" " (str \-) string))
rlm@1 22
rlm@1 23
rlm@1 24 (defn view
rlm@1 25 [string]
rlm@1 26 (seq (char-array string)))
rlm@1 27
rlm@1 28 (defn parent-source [target file]
rlm@1 29 (File. (str target "/" (.getName (.getParentFile file))"-" (.getName file))))
rlm@1 30
rlm@1 31
rlm@1 32 (defn rsync [file1 file2]
rlm@1 33 (let [*out* nil]
rlm@1 34 (sh "rsync" "-avz" (str file1) (escape-spaces(str file2)))))
rlm@1 35
rlm@1 36 (defn shunt-file [target file]
rlm@1 37 (rsync (str file) (str (parent-source target file))))
rlm@1 38
rlm@1 39
rlm@1 40
rlm@1 41 (defn extract-files
rlm@1 42 [regex source destination]
rlm@1 43
rlm@1 44 (dorun (map (partial shunt-file destination)
rlm@1 45 (filter (comp not nil? (partial re-matches regex) str) (file-seq source)))))
rlm@1 46
rlm@1 47
rlm@1 48 (defn file-count [#^java.io.File file]
rlm@1 49 (count (file-seq file)))
rlm@1 50
rlm@1 51
rlm@1 52
rlm@1 53
rlm@1 54 (comment
rlm@1 55
rlm@1 56 (defn test-extract
rlm@1 57 []
rlm@1 58 ((partial extract-files #".*\.JPG"
rlm@1 59 (file-str " /home/r/Desktop/judy_yates_computer_archive/MyDocuments/dallas townhome")
rlm@1 60 (file-str "/home/r/Desktop/judyates_admin/archive-source-images/"))))
rlm@1 61
rlm@1 62
rlm@1 63 (defn judy-jpg-extract
rlm@1 64 []
rlm@1 65 ((partial extract-files #".*\.JPG"
rlm@1 66 (file-str "/home/r/Desktop/judy_yates_computer_archive")
rlm@1 67 (file-str "/home/r/Desktop/judyates_admin/archive-source-images/"))))
rlm@1 68
rlm@1 69 )