steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/mason/config/config.factor
View File

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

11
extra/mason/twitter/twitter.factor
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. ! See http://factorcode.org/license.txt for BSD license.
USING: debugger fry kernel mason.config namespaces twitter ; USING: debugger fry kernel mason.config namespaces twitter ;
IN: mason.twitter IN: mason.twitter
: mason-tweet ( message -- ) : mason-tweet ( message -- )
builder-twitter-username get builder-twitter-password get and twitter-access-token get [ '[ _ tweet ] try ] [ drop ] if ;
[
[
builder-twitter-username get twitter-username set
builder-twitter-password get twitter-password set
'[ _ tweet ] try
] with-scope
] [ drop ] if ;