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

    execp))

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

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

  :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\")
