 
 (def model-paths
   (->> (fs/find-files "model" #".*\.json")
-       (mapv #(.getPath %)))) 
+       (mapv #(.getPath %))))
 
 (defn read-model [path]
   (-> path
       slurp
-      (json/decode true))) 
+      (json/decode true)))
 
-(def model-maps (mapv read-model model-paths)) 
+(def model-maps (mapv read-model model-paths))
 
 (def storage-model (first (filter #(= (:id %) "storage:v1") model-maps)))
 
-(def storage-object-get (-> storage-model :resources :objects :methods :get)) 
+(def storage-object-get (-> storage-model :resources :objects :methods :get))
 
 (def base-url (-> storage-model :baseUrl))
 


(defn generate-request [base-url method]
  {:method (-> method :httpMethod s/lower-case keyword)
   :url `(str ~base-url ~@(generate-path method))}) 

(defn generate-function-from-method
  [base-url method]

  [method]
  (->> (:parameters method)
       ((juxt filter remove) (fn [[k v]] (:required v)))
       (mapv #(into {} %))))

(defn generate-function-name
  "Generates a symbol in the form of 'verb-resource', from a method map."
  [method]
  (let [[_ resource-name method-name] (s/split (:id method) #"\.")]
    (-> (str method-name "-" resource-name)
        ->kebab-case-symbol)))

(defn generate-docs [method]
  (str (:description method)
