mason: update for twitter vocab changes
parent
77d7a92b9e
commit
58b5c60886
|
@ -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
|
||||
|
||||
|
|
|
@ -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 ;
|
Loading…
Reference in New Issue