Mercurial > lasercutter

view src/clojureDemo/sys_utils.clj @ 13:397ab24b4952

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving, to update with correct fix later
author Robert McIntyre <rlm@mit.edu>
date Sun, 29 Aug 2010 00:03:09 -0400
parents 6d9bdaf919f7
children
line wrap: on
line source
     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 (defn rename [file]



    11 



    12   (if (re-matches #".*\.JPG$" (str file))



    13     (sh "mv" (str file)  (re-sub #"\.JPG" ".jpg" (str file)))



    14     nil))



    15 



    16 



    17 



    18 



    19 (defn escape-spaces



    20   [string]



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



    22 



    23 



    24 (defn view 



    25   [string]



    26   (seq (char-array string)))



    27 



    28 (defn parent-source [target file]



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



    30 



    31 



    32 (defn rsync [file1 file2]



    33   (let [*out* nil]



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



    35 



    36 (defn shunt-file [target file]



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



    38 	



    39 	  



    40 



    41 (defn extract-files



    42   [regex source destination]



    43 



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



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



    46 



    47 



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



    49   (count (file-seq file)))



    50   



    51 



    52 



    53 



    54 (comment



    55 



    56 (defn test-extract



    57   []



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



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



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



    61 



    62 



    63 (defn judy-jpg-extract



    64   []



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



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



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



    68 



    69 )