factor/extra/http/server/auth/auth.factor

! Copyright (c) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: http.server.sessions accessors
http.server.auth.providers assocs namespaces kernel ;
IN: http.server.auth

SYMBOL: logged-in-user
SYMBOL: user-profile-changed?

GENERIC: init-user-profile ( responder -- )

M: object init-user-profile drop ;

: uid ( -- string ) logged-in-user sget username>> ;

: profile ( -- assoc ) logged-in-user sget profile>> ;

: uget ( key -- value )
    profile at ;

: uset ( value key -- )
    profile set-at user-profile-changed? on ;

: uchange ( quot key -- )
    profile swap change-at
    user-profile-changed? on ; inline