gistfile1.clj

(defn do-sftp-fn
  [sftp commands]
  (map (fn [command]
           (let
             [cmd_is? (partial = (first command))
              opts (next command)
              _ (println "cmd " command) ]
             (cond
               (cmd_is? :put) (do
                                (println (str "put " (first opts) " " (second opts) "."))
                                (.put sftp (first opts) (second opts)))
               (cmd_is? :get) (do
                                (println (str "get " (first opts) " " (second opts) "."))
                                (.get sftp (first opts) (second opts)))
               ))) commands))


(defmacro do-sftp
  [& commands]
  `(let
    [sftp# (.openChannel ~'session "sftp")]
    (.connect sftp#)
    (do-sftp-fn sftp# '~commands)
     (println-str  '~commands)
     (.disconnect sftp#)))