diff --git a/main/app/gnab/core.hook b/main/app/gnab/core.hook new file mode 100644 index 000000000..00797a380 --- /dev/null +++ b/main/app/gnab/core.hook @@ -0,0 +1,21 @@ +:: gnaB: send gift to arvo +:: +:::: /hook/core/gnab/app + :: +/+ sh-utils +!: +:::: + :: +|_ [hide ~] +++ lima |*(a=(pole) ?~(a ~ [i t]=a(+ (..$ +.a)))) +++ poke--args + |* [ost=bone @ a=[* (pole)]] + => .(a ^.(lima a)) + :_(+> (turn a |*(b=_i.a [ost %give b]))) +:: +++ pour + %- add-exit + |= [@ * sih=*] + ~& gnab-resp/(,[term term] [&1 &2]:sih) + `+>.$ +-- diff --git a/main/app/peek/core.hook b/main/app/peek/core.hook new file mode 100644 index 000000000..0b9f0ea89 --- /dev/null +++ b/main/app/peek/core.hook @@ -0,0 +1,34 @@ +:: Peek imp path || Poke ship imp path. Subscribe to an app. +!: +:::: + :: +|_ [hide ~] +++ ptah ,[p=path q=path ~] +++ poke-peek-args + |= [ost=bone @ a=?(ptah [her=ship ptah])] + =- :_(+>.$ ~[[ost %give %nice ~] [ost %pass / %g %show -]]) + ^- [p=[ship path] q=ship r=path] + ?^ |2.a [[her p]:a our q.a] + [[our p.a] our q.a] +:: +++ posh + |* [@ * git=[@tas *]] + ~& peek-posh/git + `+> +++ pour + |= [ost=bone * sih=*] + ~& =+ cod=(,[term term] [&1 &2]:sih) + ?+ +.cod peek-resp/cod + %nice %peek-nice + %mean + =+ are=((soft ares) |2.sih) + ?~ are %peek-mean + ?~ u.are %peek-done + ~& > p.u.u.are + |- + ?~ q.u.u.are %peek-mean + ~> %slog.`rose/[~ "! " ~]^[i.q.u.u.are]~ + $(q.u.u.are t.q.u.u.are) + == + :_(+> ?+(&2.sih ~ %mean [ost %pass / %g %cide %$]~)) +-- diff --git a/main/app/twitter-auth/hoontap-keys.txt b/main/app/twitter-auth/hoontap-keys.txt new file mode 100644 index 000000000..3d4e6b523 --- /dev/null +++ b/main/app/twitter-auth/hoontap-keys.txt @@ -0,0 +1,4 @@ +2821727326-RZGXSeTn7hCFQfJqR0ViivM3YYpu2O1M71gelBl +jW9VygFPOTsEK0WmrJDHYSoEnofOPdCE1oQRzueemVTl8 +AP3G1t8ki6rPzeeAqdWCTw03F +VV784LPwZSaAxtF16RWWTnST4F85BHN8VqQKNyv7MprCkA0xZD \ No newline at end of file diff --git a/main/app/twitter-feed/core.hook b/main/app/twitter-feed/core.hook new file mode 100644 index 000000000..5eb549293 --- /dev/null +++ b/main/app/twitter-feed/core.hook @@ -0,0 +1,19 @@ +:: Display twitter feed +:: +:::: /hook/core/twitter-feed/app + :: +/+ sh-utils +!: +:: +:::: ~fyr + :: +|_ [hide ~] +++ stat ,[id=@u who=@ta now=@da txt=@t] +++ rens + |=(stat rose/[": " `~]^~[leaf/"{} @{(trip who)}" leaf/(trip txt)]) +++ peer ,_`. +++ poke--args (add-subs [[our /twit] our /mine] ,_`.) +++ posh-twit-feed + (args-into-gate . |=(a=(list stat) tang/(turn a rens))) +:: ++ pour |*([ost=@ * sih=[@ ^]] :_(+>.$ [ost %give +.sih]~)) +-- diff --git a/main/app/wipe/core.hook b/main/app/wipe/core.hook new file mode 100644 index 000000000..91e4f7e76 --- /dev/null +++ b/main/app/wipe/core.hook @@ -0,0 +1,13 @@ +:: Wipe path, retcon app existence +:: +:::: + :: +/+ sh-utils +!: +:::: + :: +|_ [hide ~] +++ poke--args + %+ gate-bang |=([a=path ~] [%g %wipe our a]) + (args-done ,_`.) +--