Misc apps

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)
+  `+>.$
+--

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 %$]~))
+--

main/app/twitter-auth/hoontap-keys.txt

@@ -0,0 +1,4 @@
+2821727326-RZGXSeTn7hCFQfJqR0ViivM3YYpu2O1M71gelBl
+jW9VygFPOTsEK0WmrJDHYSoEnofOPdCE1oQRzueemVTl8
+AP3G1t8ki6rPzeeAqdWCTw03F
+VV784LPwZSaAxtF16RWWTnST4F85BHN8VqQKNyv7MprCkA0xZD

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/"{<now>} @{(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]~))
+--

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 ,_`.)
+--