adds glimpse for power users

src/cljc/auto_ap/permissions.cljc

@@ -1,4 +1,6 @@
-(ns auto-ap.permissions)
+(ns auto-ap.permissions
+  #?(:clj 
+     (:require [cemerick.url :as url])))
 
 ;; TODO after getting rid of cljs, use malli schemas to decode this
 (defn get-client-id [client]
@@ -113,3 +115,13 @@
 
           :else
           false)))
+
+#? (:clj
+   (defn wrap-must [handler policy] 
+     (fn [request]
+       (if (can? (:identity request) policy)
+         (handler request)
+         {:status  302
+         :headers {"Location" (str "/login?"
+                                   (url/map->query {"redirect-to" (:uri request)}))}}))))
+