Paste to Sprunge

sprunge.us is a command line pastebin services. It's normally used like:

<command> | curl -F 'sprunge=<-' http://sprunge.us

This is a wrapper for sharing snippits from within RETRO.

The Code

~~~{{   :write  '/tmp/rx.paste file:spew ;   :curl   'curl_-s_-F_'sprunge=</tmp/rx.paste'_http://sprunge.us ;   :pipe{  curl file:R unix:popen ;   :get    here [ #100 [ dup file:read , ] times ] dip ;   :result s:chop s:temp ;   :}      swap unix:pclose '/tmp/rx.paste file:delete ; ---reveal---   :,paste (s-s)     &Heap [ write pipe{ get result } ] v:preserve ; }} ~~~

Test Case

```{{   :capture{  &buffer:add &c:put set-hook ;   :}         &c:put unhook ; ---reveal---   :capture-output (qa-)     [ buffer:set capture{ call } ] buffer:preserve ; }}   'Out d:create #128000 allot   [ d:words ] Out capture-output Out ,paste s:put nl ```