Fix inconsistent formatting with cljfmt

Author: weavejester

ring-core/src/ring/middleware/cookies.clj

@@ -123,7 +123,7 @@
   (for [[key value] cookies]
     (if (map? value)
       (apply str (write-value key (:value value) encoder)
-                 (write-attr-map (dissoc value :value)))
+             (write-attr-map (dissoc value :value)))
       (write-value key value encoder))))
 
 (defn- set-cookies [response encoder]

ring-core/src/ring/middleware/multipart_params/temp_file.clj

@@ -10,10 +10,10 @@
 
 (defmacro ^{:private true} do-every [delay & body]
   `(background-thread
-     #(while true
-        (Thread/sleep ~(with-meta `(* ~delay 1000) {:tag 'long}))
-        (try ~@body
-             (catch Exception ex#)))))
+    #(while true
+       (Thread/sleep ~(with-meta `(* ~delay 1000) {:tag 'long}))
+       (try ~@body
+            (catch Exception ex#)))))
 
 (defn- expired? [^File file expiry-time]
   (< (.lastModified file)
@@ -34,14 +34,14 @@
 (defn- start-clean-up [file-set expires-in]
   (when expires-in
     (do-every expires-in
-      (remove-old-files file-set expires-in))))
+              (remove-old-files file-set expires-in))))
 
 (defn- ensure-shutdown-clean-up [file-set]
   (.addShutdownHook
-    (Runtime/getRuntime)
-    (Thread.
-      #(doseq [^File file @file-set]
-         (.delete file)))))
+   (Runtime/getRuntime)
+   (Thread.
+    #(doseq [^File file @file-set]
+       (.delete file)))))
 
 (defn temp-file-store
   "Returns a function that stores multipart file parameters as temporary files.
@@ -60,13 +60,13 @@
   {:arglists '([] [options])}
   ([] (temp-file-store {:expires-in 3600}))
   ([{:keys [expires-in]}]
-     (let [file-set (atom #{})
-           clean-up (delay (start-clean-up file-set expires-in))]
-       (ensure-shutdown-clean-up file-set)
-       (fn [item]
-         (force clean-up)
-         (let [temp-file (make-temp-file file-set)]
-           (io/copy (:stream item) temp-file)
-           (-> (select-keys item [:filename :content-type])
-               (assoc :tempfile temp-file
-                      :size (.length temp-file))))))))
+   (let [file-set (atom #{})
+         clean-up (delay (start-clean-up file-set expires-in))]
+     (ensure-shutdown-clean-up file-set)
+     (fn [item]
+       (force clean-up)
+       (let [temp-file (make-temp-file file-set)]
+         (io/copy (:stream item) temp-file)
+         (-> (select-keys item [:filename :content-type])
+             (assoc :tempfile temp-file
+                    :size (.length temp-file))))))))

ring-core/src/ring/middleware/nested_params.clj

@@ -38,22 +38,22 @@
   "Return a list of name-value pairs for a parameter map."
   [params]
   (mapcat
-    (fn [[name value]]
-      (if (and (sequential? value) (not (coll? (first value))))
-        (for [v value] [name v])
-        [[name value]]))
-    params))
+   (fn [[name value]]
+     (if (and (sequential? value) (not (coll? (first value))))
+       (for [v value] [name v])
+       [[name value]]))
+   params))
 
 (defn- nest-params
   "Takes a flat map of parameters and turns it into a nested map of
   parameters, using the function parse to split the parameter names
   into keys."
   [params parse]
   (reduce
-    (fn [m [k v]]
-      (assoc-nested m (parse k) v))
-    {}
-    (param-pairs params)))
+   (fn [m [k v]]
+     (assoc-nested m (parse k) v))
+   {}
+   (param-pairs params)))
 
 (defn nested-params-request
   "Converts a request with a flat map of parameters to a nested map.

ring-core/src/ring/middleware/session.clj

@@ -44,7 +44,7 @@
 (defn- bare-session-response
   [response {session-key :session/key} {:keys [store cookie-name cookie-attrs]}]
   (let [new-session-key (if (contains? response :session)
-                         (if-let [session (response :session)]
+                          (if-let [session (response :session)]
                             (if (:recreate (meta session))
                               (do
                                 (store/delete-session store session-key)
@@ -103,17 +103,17 @@
   :set-cookies? - If true, automatically include cookie middleware. Defaults to
                   true for backward compatibility."
   ([handler]
-     (wrap-session handler {}))
+   (wrap-session handler {}))
   ([handler options]
-     (let [options (session-options options)]
-       (fn
-         ([request]
-          (let [request (session-request request options)]
-            (-> (handler request)
-                (session-response request options))))
-         ([request respond raise]
-          (let [request (session-request request options)]
-            (handler request
-                     (fn [response]
-                       (respond (session-response response request options)))
-                     raise)))))))
+   (let [options (session-options options)]
+     (fn
+       ([request]
+        (let [request (session-request request options)]
+          (-> (handler request)
+              (session-response request options))))
+       ([request respond raise]
+        (let [request (session-request request options)]
+          (handler request
+                   (fn [response]
+                     (respond (session-response response request options)))
+                   raise)))))))

ring-core/src/ring/middleware/session/cookie.clj

@@ -42,8 +42,8 @@
         iv         (random/bytes (.getBlockSize cipher))]
     (.init cipher Cipher/ENCRYPT_MODE secret-key (IvParameterSpec. iv))
     (->> (.doFinal cipher data)
-      (concat iv)
-      (byte-array))))
+         (concat iv)
+         (byte-array))))
 
 (defn- decrypt
   "Decrypt an array of bytes with a key."
@@ -121,6 +121,6 @@
              clojure.core/print-method or clojure.core/print-dup multimethods."
   ([] (cookie-store {}))
   ([options]
-    (let [key (get-secret-key options)]
-      (assert (valid-secret-key? key) "the secret key must be exactly 16 bytes")
-      (CookieStore. key options))))
+   (let [key (get-secret-key options)]
+     (assert (valid-secret-key? key) "the secret key must be exactly 16 bytes")
+     (CookieStore. key options))))

ring-core/src/ring/util/io.clj

@@ -2,11 +2,11 @@
   "Utility functions for handling I/O."
   (:require [clojure.java.io :as io])
   (:import [java.io PipedInputStream
-                    PipedOutputStream
-                    ByteArrayInputStream
-                    File
-                    Closeable
-                    IOException]))
+            PipedOutputStream
+            ByteArrayInputStream
+            File
+            Closeable
+            IOException]))
 
 (defn piped-input-stream
   "Create an input stream from a function that takes an output stream as its
@@ -33,9 +33,9 @@
   "Returns a ByteArrayInputStream for the given String."
   {:added "1.1"}
   ([^String s]
-     (ByteArrayInputStream. (.getBytes s)))
+   (ByteArrayInputStream. (.getBytes s)))
   ([^String s ^String encoding]
-     (ByteArrayInputStream. (.getBytes s encoding))))
+   (ByteArrayInputStream. (.getBytes s encoding))))
 
 (defn close!
   "Ensure a stream is closed, swallowing any exceptions."

ring-core/src/ring/util/mime_type.clj

@@ -111,7 +111,7 @@
   "Get the mimetype from the filename extension. Takes an optional map of
   extensions to mimetypes that overrides values in the default-mime-types map."
   ([filename]
-     (ext-mime-type filename {}))
+   (ext-mime-type filename {}))
   ([filename mime-types]
-     (let [mime-types (merge default-mime-types mime-types)]
-       (mime-types (filename-ext filename)))))
+   (let [mime-types (merge default-mime-types mime-types)]
+     (mime-types (filename-ext filename)))))

ring-core/src/ring/util/request.clj

@@ -81,5 +81,5 @@
   [request ^String context]
   {:pre [(in-context? request context)]}
   (assoc request
-    :context context
-    :path-info (subs (:uri request) (.length context))))
+         :context context
+         :path-info (subs (:uri request) (.length context))))

ring-core/src/ring/util/response.clj

@@ -40,9 +40,9 @@
   {:added "1.2"}
   ([url] (created url nil))
   ([url body]
-     {:status  201
-      :headers {"Location" url}
-      :body    body}))
+   {:status  201
+    :headers {"Location" url}
+    :body    body}))
 
 (defn bad-request
   "Returns a 400 'bad request' response."
@@ -126,9 +126,9 @@
   (if-let [^File file (safely-find-file path opts)]
     (cond
       (.isDirectory file)
-        (and (:index-files? opts true) (find-index-file file))
+      (and (:index-files? opts true) (find-index-file file))
       (.exists file)
-        file)))
+      file)))
 
 (defn- file-data [^File file]
   {:content        file
@@ -214,10 +214,10 @@
   {:added "1.1"}
   [resp charset]
   (update-header resp "Content-Type"
-    (fn [content-type]
-      (-> (or content-type "text/plain")
-          (str/replace #";\s*charset=[^;]*" "")
-          (str "; charset=" charset)))))
+                 (fn [content-type]
+                   (-> (or content-type "text/plain")
+                       (str/replace #";\s*charset=[^;]*" "")
+                       (str "; charset=" charset)))))
 
 (defn get-charset
   "Gets the character encoding of a Ring response."

ring-core/test/ring/middleware/test/content_type.clj

@@ -69,6 +69,6 @@
 (deftest content-type-response-test
   (testing "function exists"
     (is (fn? content-type-response)))
-  
+
   (testing "nil response"
     (is (nil? (content-type-response nil {})))))