2006-12-01 22:32:55 -05:00
|
|
|
IN: lisppaste
|
|
|
|
|
REQUIRES: libs/xml-rpc ;
|
|
|
|
|
USING: arrays kernel xml-rpc ;
|
|
|
|
|
|
|
|
|
|
: 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 ;
|
2006-12-02 16:44:34 -05:00
|
|
|
|
|
|
|
|
PROVIDE: apps/lisppaste ;
|
