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

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