mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-23 23:12:04 +03:00
126 lines
3.4 KiB
Plaintext
126 lines
3.4 KiB
Plaintext
::
|
|
:::: /hook/door/talk-report/mar
|
|
::
|
|
/? 314
|
|
/- *talk
|
|
!:
|
|
|_ rep=report
|
|
::
|
|
++ grab :: convert from
|
|
|%
|
|
++ noun report :: clam from %noun
|
|
--
|
|
++ grow
|
|
|%
|
|
++ mime [/text/json (taco (crip (pojo json)))]
|
|
++ json
|
|
=> +
|
|
|^ %+ joba -.rep
|
|
?- -.rep
|
|
%cabal (cabl +.rep)
|
|
%house a/(turn (~(tap by +.rep)) jose)
|
|
%grams (jobe num/(jone p.rep) tele/[%a (turn q.rep gram)] ~)
|
|
%group (jobe local/(grop p.rep) global/%.(q.rep (jome parn grop)) ~)
|
|
==
|
|
++ joce |=(a=span [%s a])
|
|
++ jose
|
|
|= [a=span b=posture c=cord]
|
|
(jobe name/[%s a] posture/[%s a] caption/[%s b] ~)
|
|
::
|
|
++ jove
|
|
|= [a=envelope b=delivery]
|
|
%- jobe :~
|
|
envelope/(jobe visible/[%b p.a] sender/?~(q.a ~ s/(parn u.q.a)) ~)
|
|
delivery/[%s b]
|
|
==
|
|
++ jope |=(a=ship (jape +:<a>)) ::[%s (crip +:(scow %p a))])
|
|
++ joke |=(a=tank [%s (role (turn (wash 0^80 a) crip))])
|
|
++ jode |=(a=time (jone (div (mul (sub a ~1970.1.1) 1.000) ~s1)))
|
|
:: ++ jase
|
|
:: |* a=,json
|
|
:: |= b=(set ,_+<.a) ^- json
|
|
:: ~! b
|
|
:: [%a (turn (~(tap in b)) a)]
|
|
::
|
|
++ jome :: stringify keys
|
|
|* [a=_cord b=_json]
|
|
|= c=(map ,_+<.a ,_+<.b)
|
|
(jobe (turn (~(tap by c)) (both a b)))
|
|
::
|
|
++ both :: cons two gates
|
|
|* [a=_,* b=_,*]
|
|
|=(c=_[+<.a +<.b] [(a -.c) (b +.c)])
|
|
::
|
|
::
|
|
++ grop (jome phon stas) :: (map ship status)
|
|
++ phon |=(a=ship (scot %p a))
|
|
++ stas |=(status (jobe presence/(joce p) human/(huma q) ~))
|
|
++ gram |=(telegram (jobe ship/(jope p) thought/(thot q) ~))
|
|
++ thot
|
|
|= thought
|
|
(jobe serial/(jape <p>) audience/(audi q) statement/(stam r) ~)
|
|
::
|
|
++ audi (jome parn jove)
|
|
++ bouq
|
|
|= a=bouquet
|
|
a/(turn (~(tap in a)) |=(b=path a/(turn b |=(c=span s/c))))
|
|
::
|
|
++ parn
|
|
|= a=partner ^- cord
|
|
?- -.a
|
|
%& (stat p.a)
|
|
%| %- crip
|
|
?- -.p.a
|
|
%twitter "{(trip -.p.a)}/{(trip p.p.a)}"
|
|
==
|
|
==
|
|
::
|
|
++ stat
|
|
|= a=station ^- cord
|
|
(crip "{<p.a>}/{(trip q.a)}")
|
|
::
|
|
++ stam
|
|
|= statement
|
|
(jobe date/(jode p) bouquet/(bouq q) speech/(spec r) ~)
|
|
::
|
|
++ spec
|
|
|= a=speech
|
|
%+ joba -.a
|
|
~| stub/-.a
|
|
?+ -.a !!
|
|
%lin (jobe say/[%b p.a] txt/[%s q.a] ~)
|
|
%url (jobe url/[%s (crip (earf p.a))] ~)
|
|
%exp (jobe code/[%s p.a] ~)
|
|
%app (jobe txt/[%s p.a] ~)
|
|
:: %inv (jobe ship/(jope p.a) party/[%s q.a] ~)
|
|
==
|
|
::
|
|
++ huma
|
|
|= human
|
|
%^ jobe
|
|
hand/?~(hand ~ [%s u.hand])
|
|
:- %true
|
|
?~ true ~
|
|
=+ u.true
|
|
(jobe first/[%s p] middle/?~(q ~ [%s u.q]) last/[%s r] ~)
|
|
~
|
|
::
|
|
++ cabl
|
|
|= cabal
|
|
%- jobe :~
|
|
loc/(conf loc)
|
|
ham/((jome stat conf) ham)
|
|
==
|
|
::
|
|
++ conf
|
|
|= config
|
|
%- jobe :~
|
|
sources/[%a (turn (~(tap in sources)) |=(a=partner [%s (parn a)]))]
|
|
caption/[%s caption]
|
|
=- cordon/(jobe posture/[%s -.cordon] list/[%a -] ~)
|
|
(turn (~(tap in q.cordon)) jope) :: XX jase
|
|
==
|
|
--
|
|
-- --
|
|
|