Factorでツイートする

twitter-hello.factor

! Copyright (C) 2012 Jun SAITO
! See http://factorcode.org/license.txt for BSD license.
USING: kernel twitter locals namespaces sequences strings io.launcher present sbufs oauth ;
IN: twitter-hello

SYMBOL: request-token

! consumer-keyとconsumer-secretを設定する
: set-consumer-token ( -- )
  "consumer-keyの値"
  "consuemr-secretの値"
  <token> twitter-consumer-token set ;

! リクエストトークンを設定する
: set-request-token ( -- )
  set-consumer-token obtain-twitter-request-token request-token set ;

! 認証ページのURLを得る
: authorize-url ( -- url )
  request-token get twitter-authorize-url ;

! TwitterのOAuth認証ページをブラウザで開く．
! 注: open(1) 使ってURLを開いているので Mac OSX でしか動きません
: authorize ( -- )
  set-request-token SBUF" open " authorize-url present >sbuf append >string run-detached drop ;

! PINコード (verfier) を使ってアクセストークンを設定する
: set-access-token-with-verifier ( verifier -- )
  request-token get swap obtain-twitter-access-token twitter-access-token set ;

! hello とツイートする
: hello ( -- )
  "hello" tweet ;