Handle requests for old URLs from CIDER specially

Fixes #150
clojure-grimoire · Dec 22, 2014 · bf5e277 · bf5e277
1 parent 44b4750
commit bf5e277
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/main/grimoire/web/routes.clj b/src/main/grimoire/web/routes.clj
@@ -245,9 +245,12 @@
   ;; Redirect legacy paths into the store
   (context ["/:version", :version #"[0-9]+.[0-9]+.[0-9]+"] [version]
     (fn [request]
-      (warn "Redirecting!")
-      (response/redirect (str "/store/org.clojure/clojure"
-                              (:uri request)))))
+      (let [user-agent (get-in request [:headers "user-agent"])
+            new-uri    (str "/store/org.clojure/clojure"
+                            (:uri request))]
+        (if (= user-agent "URL/Emacs")
+          (store (assoc request :uri new-uri)) ;; pass it forwards
+          (response/redirect new-uri))))) ;; everyone else
 
   (route/not-found
    (fn [{uri :uri :as req}]