 ;; copy to avoid following the history of a differently-named object.
 
 (defn log [item] (:out (sh "svn" "log" shhh "--stop-on-copy" "--xml" item)))
-;;(defn log [item] (slurp "xml"))
 
 ;; Try to explain why this has failed.
 

    (list (str path "@" r1) (str path "@" r2))
    (list (str "-r" r1 ":" r2) path)))
  
;; A string containing the output of "diff" on the two svn revision of item.

(defn diff [r1 r2 item]
  (let [v (vpaths r1 r2 item item)]
    (sh "svn" "diff" "--diff-cmd" "diff" "-x" "-u0" shhh (first v) (second v))))

;; Obtain a diff from svn for the given item between the specified revisions.

;; TODO is --stop-on-copy on log really a good idea?
;; TODO maybe print log message / committer info (could use awt/swing popup)?
;; TODO pass all '--' options (e.g. --username) to svn?
;; TODO add command-line switch for case insensitivity!

(def shhh "--non-interactive")  ; suppress svn user prompts
