#Factor, 257 262 bytes
Factor, 257 262 bytes
TUPLE: p title options dupcheck ;
[ command-line rest [ first ] [ rest ] bi "normal" p boa >json "https://strawpoll.me/api/v2/polls" <post-request> "application/json" "Content-Type" set-header http-request nip json> id>> 10 base> "http://strawpoll.me/" prepend ]
Expects a name as the first command-line arg, then options after that.
Requires com-auto-use
.
Ungolfed:
TUPLE: poll
title options dupcheck ;
: post-json ( post-data url -- response data )
<post-request>
"application/json" "Content-Type" set-header
http-request ;
: strawpoll-main ( -- )
command-line rest [ first ] [ rest ] bi "normal" poll boa
>json "https://strawpoll.me/api/v2/polls" post-json nip
json> id>> 10 base> "http://strawpoll.me/" prepend print ;