   (println (str summary "\n"))
   (println "  object: svn URI or name of versioned object in working-copy")
   (println "  regexp: only show diffs where a changed line matches regexp\n")
+  (println "  See https://github.com/maddenp/revdiff for notes on options.\n")
   (System/exit code))
 
 ;; If object is a uri, the "-rn:m" revision-range format will not work if object

;; 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!

(ns revdiff.core
  (:gen-class)

    (if (:help options) (usage summary 0))
    (if (not object)
      (usage summary 1)
      (let [revpairs (get-revpairs (get-revlist optsl object) object)]
        (diffrevpairs object filt revpairs)
        (shutdown-agents)))))
