13 lines
337 B
Factor
13 lines
337 B
Factor
USING: arrays kernel xml-rpc ;
|
|
IN: lisppaste
|
|
|
|
CONSTANT: url "http://www.common-lisp.net:8185/RPC2"
|
|
|
|
: channels ( -- seq )
|
|
{ } "listchannels" url invoke-method ;
|
|
|
|
: lisppaste ( seq -- response )
|
|
! seq is { channel user title contents }
|
|
! or { channel user title contents annotation-number }
|
|
"newpaste" url invoke-method ;
|