Welcome Middleware registry!

modules/reitit-core/src/reitit/middleware.cljc

@@ -13,6 +13,17 @@
 
 (extend-protocol IntoMiddleware
 
+  #?(:clj  clojure.lang.Keyword
+     :cljs cljs.core.Keyword)
+  (into-middleware [this data {:keys [::registry] :as opts}]
+    (or (if-let [middleware (if registry (registry this))]
+          (into-middleware middleware data opts))
+        (throw
+          (ex-info
+            (str "Middleware " (pr-str this) " not found in registry.")
+            {:keyword this
+             :registry registry}))))
+
   #?(:clj  clojure.lang.APersistentVector
      :cljs cljs.core.PersistentVector)
   (into-middleware [[f & args] data opts]

test/cljc/reitit/middleware_test.cljc

@@ -45,6 +45,26 @@
               (is (= [:value :ok] (app request)))
               (is (= 1 @calls)))))
 
+        (testing "as keyword"
+          (reset! calls 0)
+          (let [app (create [:wrap] {::middleware/registry {:wrap #(wrap % :value)}})]
+            (dotimes [_ 10]
+              (is (= [:value :ok] (app request)))
+              (is (= 1 @calls)))))
+
+        (testing "as keyword vector"
+          (reset! calls 0)
+          (let [app (create [[:wrap :value]] {::middleware/registry {:wrap wrap}})]
+            (dotimes [_ 10]
+              (is (= [:value :ok] (app request)))
+              (is (= 1 @calls)))))
+
+        (testing "missing keyword"
+          (is (thrown-with-msg?
+                ExceptionInfo
+                #"Middleware :wrap not found in registry"
+                (create [:wrap]))))
+
         (testing "as function vector with value(s)"
           (reset! calls 0)
           (let [app (create [[wrap :value]])]