Log user in after registration

basis/furnace/auth/auth.factor

@@ -3,7 +3,7 @@
 USING: accessors assocs namespaces kernel sequences sets
 destructors combinators fry logging
 io.encodings.utf8 io.encodings.string io.binary random
-checksums checksums.sha2
+checksums checksums.sha2 urls
 html.forms
 http.server
 http.server.filters
@@ -60,6 +60,10 @@ TUPLE: realm < dispatcher name users checksum secure ;
 
 GENERIC: login-required* ( description capabilities realm -- response )
 
+GENERIC: user-registered ( user realm -- response )
+
+M: object user-registered 2drop URL" $realm" <redirect> ;
+
 GENERIC: init-realm ( realm -- )
 
 GENERIC: logged-in-username ( realm -- username )

basis/furnace/auth/features/registration/registration.factor

@@ -33,8 +33,7 @@ IN: furnace.auth.features.registration
             users new-user [ user-exists ] unless*
 
             realm get init-user-profile
-
-            URL" $realm" <redirect>
+            realm get user-registered
         ] >>submit
     <auth-boilerplate>
     <secure-realm-only> ;

basis/furnace/auth/login/login.factor

@@ -104,6 +104,9 @@ M: login-realm login-required* ( description capabilities login -- response )
         URL" $realm/login" <continue-conversation>
     ] if ;
 
+M: login-realm user-registered ( user realm -- )
+    drop successful-login ;
+
 : <login-realm> ( responder name -- auth )
     login-realm new-realm
         <login-action> "login" add-responder