contrib/httpd/inspect-responder.factor

   1 ! Copyright (C) 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: inspect-responder
   4 USING: callback-responder generic hashtables help html httpd
   5 tools kernel namespaces prettyprint sequences ;
   6
   7 ! Mini object inspector
   8 : http-inspect ( obj -- )
   9     dup summary [ describe ] simple-html-document ;
  10
  11 M: general-t browser-link-href
  12     [ http-inspect ] curry t register-html-callback ;
  13
  14 : inspect-responder ( url -- )
  15     serving-html global http-inspect ;