urbit/main/app/bang/core.hook

::  Bang: send cards to arvo
::  
::::  /hook/core/bang/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 %pass / b])))
::
++  pour
  %-  add-exit
  |=  [@ * sih=*]
  ~&  bang-resp/(,[term term] [&1 &2]:sih)
  `+>.$
--
Project second pony is go. 2015-01-11 11:00:36 +03:00			`:: Bang: send cards to arvo`
			`::`
			`:::: /hook/core/bang/app`
			`::`
Promoted sh-utils to proper /+ library 2015-01-12 04:13:34 +03:00			`/+ sh-utils`
Added :poke, ++pock and ++pock-* typed poke interfaces 2014-12-17 01:01:13 +03:00			`!:`
Promoted sh-utils to proper /+ library 2015-01-12 04:13:34 +03:00			`::::`
			`::`
Liberalized date parser 2014-12-12 01:46:17 +03:00			`\|_ [hide ~]`
Added :poke, ++pock and ++pock-* typed poke interfaces 2014-12-17 01:01:13 +03:00			`++ lima \|*(a=(pole) ?~(a ~ [i t]=a(+ (..$ +.a))))`
Project second pony is go. 2015-01-11 11:00:36 +03:00			`++ poke--args`
Added :poke, ++pock and ++pock-* typed poke interfaces 2014-12-17 01:01:13 +03:00			`\|* [ost=bone @ a=[* (pole)]]`
			`=> .(a ^.(lima a))`
			`:_(+> (turn a \|*(b=_i.a [ost %pass / b])))`
			`::`
			`++ pour`
Project second pony is go. 2015-01-11 11:00:36 +03:00			`%- add-exit`
			`\|= [@ * sih=*]`
Added missed dependency 2015-01-11 04:33:01 +03:00			`~& bang-resp/(,[term term] [&1 &2]:sih)`
Project second pony is go. 2015-01-11 11:00:36 +03:00			`+>.$
Added :poke, ++pock and ++pock-* typed poke interfaces 2014-12-17 01:01:13 +03:00			`--`