Mercurial > lasercutter
annotate src/clojureDemo/sys_utils.clj~ @ 1:6d9bdaf919f7
added clojureDemo source
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Fri, 20 Aug 2010 00:32:44 -0400 |
| parents | |
| 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 |
| rlm@1 | 11 (defn escape-spaces |
| rlm@1 | 12 [string] |
| rlm@1 | 13 (re-gsub #" " (str \-) string)) |
| rlm@1 | 14 |
| rlm@1 | 15 |
| rlm@1 | 16 (defn view |
| rlm@1 | 17 [string] |
| rlm@1 | 18 (seq (char-array string))) |
| rlm@1 | 19 |
| rlm@1 | 20 (defn parent-source [target file] |
| rlm@1 | 21 (File. (str target "/" (.getName (.getParentFile file))"-" (.getName file)))) |
| rlm@1 | 22 |
| rlm@1 | 23 |
| rlm@1 | 24 (defn rsync [file1 file2] |
| rlm@1 | 25 (let [*out* nil] |
| rlm@1 | 26 (sh "rsync" "-avz" (str file1) (escape-spaces(str file2))))) |
| rlm@1 | 27 |
| rlm@1 | 28 (defn shunt-file [target file] |
| rlm@1 | 29 (rsync (str file) (str (parent-source target file)))) |
| rlm@1 | 30 |
| rlm@1 | 31 |
| rlm@1 | 32 |
| rlm@1 | 33 (defn extract-files |
| rlm@1 | 34 [regex source destination] |
| rlm@1 | 35 |
| rlm@1 | 36 (dorun (map (partial shunt-file destination) |
| rlm@1 | 37 (filter (comp not nil? (partial re-matches regex) str) (file-seq source))))) |
| rlm@1 | 38 |
| rlm@1 | 39 |
| rlm@1 | 40 (defn file-count [#^java.io.File file] |
| rlm@1 | 41 (count (file-seq file))) |
| rlm@1 | 42 |
| rlm@1 | 43 |
| rlm@1 | 44 |
| rlm@1 | 45 |
| rlm@1 | 46 (comment |
| rlm@1 | 47 |
| rlm@1 | 48 (defn test-extract |
| rlm@1 | 49 [] |
| rlm@1 | 50 ((partial extract-files #".*\.JPG" |
| rlm@1 | 51 (file-str " /home/r/Desktop/judy_yates_computer_archive/MyDocuments/dallas townhome") |
| rlm@1 | 52 (file-str "/home/r/Desktop/judyates_admin/archive-source-images/")))) |
| rlm@1 | 53 |
| rlm@1 | 54 |
| rlm@1 | 55 (defn judy-jpg-extract |
| rlm@1 | 56 [] |
| rlm@1 | 57 ((partial extract-files #".*\.JPG" |
| rlm@1 | 58 (file-str "/home/r/Desktop/judy_yates_computer_archive") |
| rlm@1 | 59 (file-str "/home/r/Desktop/judyates_admin/archive-source-images/")))) |
| rlm@1 | 60 |
| rlm@1 | 61 ) |