diff --git a/try/bin/twit.hoon b/try/bin/twit.hoon new file mode 100644 index 0000000000..f0c63a20fc --- /dev/null +++ b/try/bin/twit.hoon @@ -0,0 +1,116 @@ +!: :: /=try=/bin/http/hoon +!? 164 +:::: +:: +=> %= . + + + => + + |% + :: + ++ sifo + |= tig=@ + ^- tape + =+ poc=(mod (sub 3 (mod (met 3 tig) 3)) 3) + =+ pad=(lsh 3 poc (swap 3 tig)) + =+ ^= ska + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" + =+ ^= sif + %- flop + |- ^- tape + ?~ pad + ~ + =+ d=(end 0 6 pad) + [(snag d ska) $(pad (rsh 0 6 pad))] + (weld (scag (sub (lent sif) poc) sif) (trip (fil 3 poc '='))) + :: + ++ cuss :: upper + |= vib=tape + ^- @t + %+ rap 3 + (turn vib |=(a=@ ?.(&((gte a 'a') (lte a 'z')) a (sub a 32)))) + :: + ++ hmac + |= [key=@ mes=@] + =+ ip=(fil 3 64 0x36) + =+ op=(fil 3 64 0x5c) + =+ ^= kex + ?: (gth (met 3 key) 64) + (lsh 3 44 (shan (swap 3 key))) + (lsh 3 (sub 64 (met 3 key)) (swap 3 key)) + =+ inn=(shan (swap 3 (cat 3 (swap 3 mes) (mix ip kex)))) + (shan (swap 3 (cat 3 inn (mix op kex)))) + :: + ++ unt |=(a=@ (div (sub a ~1970.1.1) (bex 64))) + :: + ++ curl + |= [met=meth req=[p=path q=tape r=purl] head=math body=(unit octs)] + =+ ^= work + |= [now=@da pax=path not=note] + ^- bowl + ?> ?=([%hp *] not) + ?~ r.p.not + !! + :_ ~ + ^- (list gift) + [[%$ !>((trip q.u.r.p.not))] ~] + =+ gifts=`(list gift)`[[%tq p.req [r.req [met head body]]] ~] + =+ stuff=[~ `(list slip)`[[p.req [%hp ~]] ~] work] + ^- bowl + [gifts stuff] + ++ req + |= a=tape + ^- [p=path q=tape r=purl] + [`path`[(scot %t (rap 3 a)) ~] a (scan a auri:epur)] + :: + ++ app + |% ++ cok 'hDDOTPfGHGlsOUbhpy6qc6XbW' + ++ cos 'olCkea6wm3XG4pnVCHuPIozUF2ggH1sHjnBtuT4Ai6rCOeQGzO' + ++ aok '2485712317-R77Lpdu5rAJadRVxTXPpnxvcwS0IfNG7QEzLPty' + ++ aos 'a41d83XId0P7QQbodkPYv3zxoEL0Cq9EsN2eXZBZAwAWA' + -- + :: + ++ oath + |_ [met=meth lur=tape et=@ en=@] + ++ non (turn (rip 2 (shaw et 128 en)) |=(a=@ ~(x ne a))) + ++ tim (slag 2 (scow %ui (unt et))) + :: + ++ bas ^- tape + ;: weld (trip (cuss (trip `@t`met))) "&" (urle lur) "&" + %- urle + ;: weld + "oauth_consumer_key=" (trip cok:app) "&" + "oauth_nonce=" non "&" + "oauth_signature_method=HMAC-SHA1&" + "oauth_timestamp=" tim "&" + "oauth_token=" (trip aok:app) "&" + "oauth_version=1.0" + == + == + ++ sky ^- @t + (crip :(weld (urle (trip cos:app)) "&" (urle (trip aos:app)))) + ++ sig ^- tape + (sifo (swap 3 (hmac (swap 3 sky) (crip bas)))) + ++ hed + %- crip + ;: weld "OAuth " + "oauth_consumer_key=" "\"" (trip cok:app) "\", " + "oauth_nonce=" "\"" non "\", " + "oauth_signature=" "\"" (urle sig) "\", " + "oauth_signature_method=\"HMAC-SHA1\", " + "oauth_timestamp=" "\"" tim "\", " + "oauth_token=" "\"" (trip aok:app) "\", " + "oauth_version=1.0" + == + -- + -- + == +|= [est=time eny=@uw] +|= ~ +^- bowl +:::: +=+ a="https://api.twitter.com/1.1/help/privacy.json" +=+ token=~(hed oath %get a est eny) +=+ ^= head + %- ~(gas by *math) + [['Authorization' [token ~]] ~] +(curl %get (req a) head ~)