Is there some core function that helps with adding a stateful transducer to an xform that has your own logic? Something to add a xform step that receives both the current value and the previous one to build things like dedupe?

Quick question - in Emacs is there a keybinding in clojure-mode that sorts out indentations in clojure code? I'm fairly sure there's something like it in org-mode, but it's been a few months since I was looking at Emacs & Clojure, and I've forgotten a bunch.

Hi, I submitted this problem on Stackoverflow: https://stackoverflow.com/questions/73613891/how-to-edit-the-inline-style-of-a-re-frame-component-to-add-a-scroll-to-an-overf Any help would be appreciated

Hi, I'm trying to troubleshoot a CORS error. I followed a couple previous suggestions here about using Ring wrap-cors middleware https://github.com/prestancedesign/todo-backend-reitit/blob/master/src/todo_backend/core.clj#L61 as well as trying someone's custom handler

(defn allow-cross-origin
  ([handler]
   (allow-cross-origin handler "*"))
  ([handler allowed-origins]
   (fn [request]
     (if (= (:request-method request) :options)
       (-> {:status 200 :body ""}
           (assoc-in [:headers "Access-Control-Allow-Headers"] "*")
           (assoc-in [:headers "Access-Control-Allow-Origin"] allowed-origins)
           (assoc-in [:headers "Access-Control-Allow-Methods"] "HEAD,GET,POST,DELETE"))

       (-> (handler request)
           (assoc-in [:headers "Access-Control-Allow-Headers"] "*")
           (assoc-in [:headers "Access-Control-Allow-Origin"] allowed-origins)
           (assoc-in [:headers "Access-Control-Allow-Methods"] "HEAD,GET,POST,DELETE"))))))

(def app
  (ring/ring-handler
   (ring/router
    [["/" {:name ::root
           :get (fn [_] {:status 200
                         :body {:info "Backend API"}})}]
     ["/api" {:name ::api
              :get {:parameters {:query {:url string? :start string? :end string?}}
                    :responses {200 {:body {:file string?}}}
                    :handler (fn [{{{:keys [start end url]} :query} :parameters}]
                               (get-sample start end url)
                               {:status 200
                                :body {:file (str "samples/" (hash (str start end url)) "." extension)}})}}]]
    {:data {:coercion reitit.coercion.spec/coercion
            :muuntaja m/instance
            :middleware [format-negotiate-middleware
                         format-response-middleware
                         rrc/coerce-response-middleware
                         exception-middleware
                         rrc/coerce-exceptions-middleware
                         format-request-middleware
                         rrc/coerce-request-middleware
                         parameters/parameters-middleware
                         ;;allow-cross-origin
                         [wrap-cors :access-control-allow-origin #".*"
                          :access-control-allow-methods [:get :put :post :patch :delete]]]}})))