     [(.substring suffix 0 slashx)
      (.substring suffix (inc slashx))]))
 
-(def ^:private far-future (-> (doto (Calendar/getInstance (TimeZone/getTimeZone "UTC"))
-                                (.add Calendar/YEAR 10))
-                              .getTime))
+(def ^:private far-future
+  (-> (doto (Calendar/getInstance (TimeZone/getTimeZone "UTC"))
+        (.add Calendar/YEAR 10))
+      .getTime))
 
 (defn- asset->ring-response
   [asset]

      (handler asset-path context))))

(defn default-asset-pipeline
  "Sets up the default pipeline in either development mode or production mode."
  [twixt-options development-mode]
  (let [resolver (make-asset-resolver twixt-options)
        production-mode (not development-mode)]

(defn wrap-with-twixt-setup
  "Wraps a handler with another handler that provides the :twixt key in the request object.

  The :twixt key is the default asset pipeline context, which is needed by get-asset-uri in order to resolve asset paths
  to an actual asset. It also contains the keys :asset-pipeline (the pipeline used to resolve assets) and
  :stack-frame-filter (which is used by the HTML exception report).

  This provides the information needed by the actual Twixt handler, as well as anything else downstream that needs to
  generate Twixt asset URIs."
  [handler twixt-options asset-pipeline]
  (let [twixt (-> twixt-options
                  ;; Pass down only what is needed to generate asset URIs, or to produce the HTML exception report.
