mason: update for twitter vocab changes

db4
Slava Pestov 2010-07-05 22:18:02 -04:00
parent 77d7a92b9e
commit 58b5c60886
2 changed files with 2 additions and 14 deletions

View File

@ -17,11 +17,6 @@ SYMBOL: builder-from
! Who receives build report e-mails.
SYMBOL: builder-recipients
! (Optional) twitter credentials for status updates.
SYMBOL: builder-twitter-username
SYMBOL: builder-twitter-password
! (Optional) CPU architecture to build for.
SYMBOL: target-cpu

View File

@ -1,14 +1,7 @@
! Copyright (C) 2009 Slava Pestov.
! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: debugger fry kernel mason.config namespaces twitter ;
IN: mason.twitter
: mason-tweet ( message -- )
builder-twitter-username get builder-twitter-password get and
[
[
builder-twitter-username get twitter-username set
builder-twitter-password get twitter-password set
'[ _ tweet ] try
] with-scope
] [ drop ] if ;
twitter-access-token get [ '[ _ tweet ] try ] [ drop ] if ;