basis/furnace/auth/features/deactivate-user/deactivate-user.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel assocs namespaces accessors db db.tuples urls
   4 http.server.dispatchers
   5 furnace.asides
   6 furnace.actions
   7 furnace.auth
   8 furnace.auth.providers ;
   9 IN: furnace.auth.features.deactivate-user
  10
  11 : <deactivate-user-action> ( -- action )
  12     <action>
  13         [
  14             logged-in-user get
  15                 1 >>deleted
  16                 t >>changed?
  17             drop
  18             URL" $realm" end-aside
  19         ] >>submit ;
  20
  21 : allow-deactivation ( realm -- realm )
  22     <deactivate-user-action> <protected>
  23         "delete your profile" >>description
  24     "deactivate-user" add-responder ;
  25
  26 : allow-deactivation? ( -- ? )
  27     realm get responders>> "deactivate-user" swap key? ;