gistfile1.clj

(declare *session* *sftp*)

(defn sput [src dest]
  (println "put" src dest)
  (.put *sftp* src dest))

(defn sget [src dest]
  (println "put" src dest)
  (.get *sftp* src dest))

(defmacro with-sftp [& body]
  `(binding [*sftp* (.openChanngel *session* "sftp")]
     (.connect *sftp*)
     (try
      (do ~@body)
      (finally (.disconnect *sftp*)))))

;; usage
(with-sftp
  (sget "/blah" "/whatever")
  (if something
    (sput "/foo" "/")
    (sput "/other" "/")))