         (recur (->> chars (drop-while #(not= \` %)))
                (->> chars (take-while #(not= \` %)) (apply str) (str/trim) (#(str/split % #" ")) (remove str/blank?) (into acc)))))))
 
-(defn sh-wrapper [dir env & commands]
+(defn- sh-wrapper [dir env & commands]
   (sh/with-sh-dir dir
     (sh/with-sh-env (merge {:PATH path-env} env)
       (doseq [cmd commands]

            [collect-earth-online.logging  :refer [log]]
            [collect-earth-online.views    :refer [data-response]]))

;;; Constants

(def tmp-dir  (System/getProperty "java.io.tmpdir"))
(def path-env (System/getenv "PATH"))

;;; Auth Functions

(defn- check-auth-common [user-id project-id token-key sql-query]
  (or (and token-key

       (filter #(= ext (peek (str/split % #"\."))))
       (first)))

(defn- format-simple
  "Use any char after % for format."
  [f-str & args]
  (apply format (str/replace f-str #"(%[^ ])" "%s") args))

(defn- parse-as-sh-cmd
  "Split string into an array for use with clojure.java.shell/sh."
  [s]
  (loop [chars (seq s)
