extra/mason/twitter/twitter.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: debugger fry kernel mason.config namespaces twitter ;
   4 IN: mason.twitter
   5
   6 : mason-tweet ( message -- )
   7     builder-twitter-username get builder-twitter-password get and
   8     [
   9         [
  10             builder-twitter-username get twitter-username set
  11             builder-twitter-password get twitter-password set
  12             '[ _ tweet ] try
  13         ] with-scope
  14     ] [ drop ] if ;