Mercurial > lasercutter

     1 

     2 (ns clojureDemo.sys-utils

     3 

     4 (:use [clojure.contrib duck-streams str-utils shell-out])

     5 (:import java.io.File)

     6 )

     7 

     8 

     9 

    10 

    11 (defn escape-spaces

    12   [string]

    13   (re-gsub #" " (str \-) string))

    14 

    15 

    16 (defn view 

    17   [string]

    18   (seq (char-array string)))

    19 

    20 (defn parent-source [target file]

    21   (File. (str target "/" (.getName (.getParentFile file))"-" (.getName file))))

    22 

    23 

    24 (defn rsync [file1 file2]

    25   (let [*out* nil]

    26   (sh "rsync" "-avz" (str file1) (escape-spaces(str file2)))))

    27 

    28 (defn shunt-file [target file]

    29   (rsync (str file) (str (parent-source target file)))) 

    30 	

    31 	  

    32 

    33 (defn extract-files

    34   [regex source destination]

    35 

    36   (dorun (map (partial shunt-file destination) 

    37   (filter (comp not nil? (partial re-matches regex) str)  (file-seq source)))))

    38 

    39 

    40 (defn file-count [#^java.io.File file]

    41   (count (file-seq file)))

    42   

    43 

    44 

    45 

    46 (comment

    47 

    48 (defn test-extract

    49   []

    50   ((partial extract-files #".*\.JPG"

    51 	    (file-str " /home/r/Desktop/judy_yates_computer_archive/MyDocuments/dallas townhome") 

    52 	    (file-str "/home/r/Desktop/judyates_admin/archive-source-images/"))))

    53 

    54 

    55 (defn judy-jpg-extract

    56   []

    57   ((partial extract-files #".*\.JPG"

    58 	    (file-str "/home/r/Desktop/judy_yates_computer_archive") 

    59 	    (file-str "/home/r/Desktop/judyates_admin/archive-source-images/"))))

    60 

    61 )
author	Robert McIntyre <rlm@mit.edu>
date	Fri, 20 Aug 2010 00:32:44 -0400
parents
children