   :ssh-options        a ssh options string,for example \"-o ConnectTimeout=3000\"
   :scp-options       a scp options string
   :rsync-options    a rsync options string.
+  :user                    global user for cluster,if cluster do not have :user ,it will use this by default.
 
   Example:
         (set-options! :ssh-options \"-o ConnectTimeout=3000\")

    execp))

(defn ssh-client [host user]
  (str user "@" host))

(defn-  user-at-host? [host user]
  (fn [m]

(ns control.core
  #^{ :doc "Clojure control core"
     :author " Dennis Zhuang <killme2008@gmail.com>"}
  (:use [clojure.java.io :only [reader]]
        [clojure.java.shell :only [sh]]
        [clojure.string :only [join blank?]]
