clojure sh utils

clojure sh.clj

(defn- -l [host port path]
  {:post [(= 0 (:exit %))]}
  (->> (sh "ssh" (str user "@" host)
         "-p" port
         "cd" path
         "&&"
         "ls -l")))


(defn l-humanize [user host port path]
  (->>
    (l user host port path)
    :out
    str/split-lines
    rest
    (map (fn [file-line]
           (->>
             (str/split file-line #"\s+")
             log/spy
             (zipmap [:modes :? :user1 :user2 :size-bytes :month :date :time :name]))))))