Anonymous users with friend

gistfile1.clj

(defn credential-fn [guid]
  (if-let [user (persistence/find-user-by-guid guid)]
    (assoc user :roles #{:fashion.server/user})))

(defn guid [request]
  (if (empty? (:session request))
    (let [user (persistence/create-user {:guid (java.util.UUID/randomUUID) :password (str (java.util.UUID/randomUUID))})]
      (workflows/make-auth (assoc user :roles #{:fashion.server/user} :identity (:guid user)) {:cemerick.friend/workflow :guid}))
    (let [user (persistence/find-user-by-guid (get-in request [:session :cemerick.friend/identity :current]))]
      (when user
        (workflows/make-auth (assoc user :roles #{:fashion.server/user} :identity (:guid user)) {::cemerick.friend/workflow :guid ::friend/redirect-on-auth? false}))))) 

(defn secure-app [app]
  (-> app
    (friend/authenticate { :credential-fn (partial creds/bcrypt-credential-fn credential-fn)
                           :workflows [(workflows/interactive-form) guid] })))