extra/lisppaste/lisppaste.factor

   1 USING: xml-rpc ;
   2 IN: lisppaste
   3
   4 CONSTANT: url "http://www.common-lisp.net:8185/RPC2"
   5
   6 : channels ( -- seq )
   7     { } "listchannels" url invoke-method ;
   8
   9 : lisppaste ( seq -- response )
  10     ! seq is { channel user title contents }
  11     ! or { channel user title contents annotation-number }
  12     "newpaste" url invoke-method ;