mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-11 16:09:31 +03:00
319 lines
8.1 KiB
Plaintext
319 lines
8.1 KiB
Plaintext
::
|
|
:::: /hoon/talk-telegrams/mar
|
|
::
|
|
/? 314
|
|
/- talk
|
|
!:
|
|
=+ talk
|
|
|_ gam=(list telegram)
|
|
::
|
|
++ grab-work-duty => [jo work-stuff]
|
|
|^ dute
|
|
++ as
|
|
:: |*(a=fist (cu sa (ar a))) :: XX types
|
|
|* a=fist
|
|
%- cu :_ (ar a)
|
|
~(gas in *(set ,_(need *a)))
|
|
++ ot
|
|
|* a=(pole ,[@tas fist])
|
|
|= b=json
|
|
%. ((^ot a) b)
|
|
%- slog
|
|
?+ b ~
|
|
[%o *]
|
|
%+ murn `(list ,[@tas fist])`a
|
|
|= [c=term d=fist] ^- (unit tank)
|
|
=+ (~(get by p.b) c)
|
|
?~ - (some >[c (turn (~(tap by p.b)) head)]<)
|
|
=+ (d u)
|
|
?~ - (some >[c u]<)
|
|
~
|
|
==
|
|
++ of
|
|
|* a=(pole ,[@tas fist])
|
|
|= b=json
|
|
%. ((of:jo a) b)
|
|
%- slog
|
|
?+ b ~
|
|
[%o *]
|
|
%+ murn `(list ,[@tas fist])`a
|
|
|= [c=term d=fist] ^- (unit tank)
|
|
=+ (~(get by p.b) c)
|
|
?~ - ~
|
|
=+ (d u)
|
|
?~ - (some >[c u]<)
|
|
~
|
|
==
|
|
++ id (ci (slat %uv) so)
|
|
++ ship (su fed:ag)
|
|
++ dute
|
|
%- of :~
|
|
create/task change/(ot id/id meat/uppd ~)
|
|
archive/id update/(ot id/id version/ni her/(su fed:ag) meat/uppd ~)
|
|
==
|
|
++ task
|
|
%- ot :~
|
|
id/id 'date_created'^di
|
|
version/ni 'date_modified'^di
|
|
creator/ship doer/(mu ship)
|
|
tags/(as so) 'date_due'^(mu di)
|
|
done/(mu di) title/so
|
|
description/so discussion/(ar (ot date/di ship/ship body/so ~))
|
|
==
|
|
++ audi (as stan)
|
|
++ stan (su ;~((glue fas) ;~(pfix sig fed:ag) urs:ab))
|
|
++ uppd
|
|
%- of :~
|
|
set-doer/(mu (su fed:ag))
|
|
set-date-due/(mu di)
|
|
set-tags/(as so)
|
|
set-title/so
|
|
set-description/so
|
|
set-done/bo
|
|
add-comment/so
|
|
==
|
|
--
|
|
++ grow-work-duty
|
|
=> work-stuff
|
|
=+ jope=|=(a=ship [%s (rsh 3 1 (scot %p a))])
|
|
=+ jove=|=(a=@uvI [%s (scot %uv a)])
|
|
=< |= duty
|
|
%+ joba +<-
|
|
?- +<-
|
|
%create (task tax)
|
|
%archive (jove id)
|
|
%change (jobe id/(jove id) meat/(flesh meat) ~)
|
|
%update
|
|
%- jobe :~
|
|
id/(jove id)
|
|
version/(jone version)
|
|
her/(jope her)
|
|
meat/(flesh meat)
|
|
==
|
|
==
|
|
|%
|
|
++ tags
|
|
|= a=(set ,@t)
|
|
[%a (turn (sort (~(tap in a)) aor) |=(b=cord s/b))]
|
|
::
|
|
++ task
|
|
|= ^task
|
|
%- jobe :~ id/[%s (scot %uv id)]
|
|
tags/(^tags tags)
|
|
doer/?~(doer ~ (jope u.doer))
|
|
title/[%s title]
|
|
creator/(jope creator)
|
|
version/(jone version)
|
|
'date_created'^(jode date-created)
|
|
'date_modified'^(jode date-modified)
|
|
description/[%s description]
|
|
=< discussion/[%a (turn discussion .)]
|
|
|=(comment (jobe date/(jode date) ship/(jope ship) body/[%s body] ~))
|
|
'date_due'^?~(date-due ~ (jode u.date-due))
|
|
done/?~(done ~ (jode u.done))
|
|
==
|
|
++ flesh
|
|
|= ^flesh
|
|
%+ joba +<-
|
|
?- +<-
|
|
%set-doer ?~(her ~ (jope u.her))
|
|
%set-date-due ?~(wen ~ (jode u.wen))
|
|
%set-tags (tags tag)
|
|
%set-title [%s til]
|
|
%set-description [%s des]
|
|
%set-done [%b don]
|
|
%add-comment [%s com]
|
|
==
|
|
--
|
|
++ grab
|
|
|%
|
|
++ noun (list telegram)
|
|
++ mime |=(^mime (json (rash q.q apex:poja)))
|
|
++ json
|
|
=> [jo ..telegram dute=grab-work-duty]
|
|
|= a=json ^- (list telegram)
|
|
=- (need ((ar (ot ship/(su fed:ag) thought/thot ~)) a))
|
|
|%
|
|
++ of
|
|
|* a=(pole ,[@tas fist])
|
|
|= b=json
|
|
%. ((of:jo a) b)
|
|
%- slog
|
|
?+ b ~
|
|
[%o *]
|
|
%+ murn `(list ,[@tas fist])`a
|
|
|= [c=term d=fist] ^- (unit tank)
|
|
=+ (~(get by p.b) c)
|
|
?~ - ~
|
|
=+ (d u)
|
|
?~ - (some >[c u]<)
|
|
~
|
|
==
|
|
++ op :: parse keys of map
|
|
|* [fel=_rule wit=fist]
|
|
%+ cu mo
|
|
%- ci :_ (om wit)
|
|
|= a=(map cord ,_(need *wit))
|
|
^- (unit (list ,_[(wonk *fel) (need *wit)]))
|
|
(zl (turn (~(tap by a)) (head-rush fel)))
|
|
::
|
|
++ as :: array as set
|
|
:: |*(a=fist (cu sa (ar a))) :: XX types
|
|
|* a=fist
|
|
%- cu :_ (ar a)
|
|
~(gas in *(set ,_(need *a)))
|
|
::
|
|
++ ke :: callbacks
|
|
|* [gar=* sef=_|.(fist)]
|
|
|= jon=json
|
|
^- (unit ,_gar)
|
|
=- ~! gar ~! (need -) -
|
|
((sef) jon)
|
|
::
|
|
++ lake |*(a=_,* $+(json (unit a)))
|
|
++ head-rush
|
|
|* a=_rule
|
|
|* [b=cord c=*]
|
|
=+ nit=(rush b a)
|
|
?~ nit ~
|
|
(some [u.nit c])
|
|
::
|
|
::
|
|
++ thot
|
|
^- $+(json (unit thought))
|
|
%- ot :~
|
|
serial/(ci (slat %uv) so)
|
|
audience/audi
|
|
statement/stam
|
|
==
|
|
::
|
|
++ audi (op parn memb) :: audience
|
|
++ auri (op parn (ci (soft presence) so))
|
|
++ memb (ot envelope/lope delivery/(ci (soft delivery) so) ~)
|
|
++ lope (ot visible/bo sender/(mu (su parn)) ~)
|
|
::
|
|
++ parn
|
|
^- $+(nail (like partner))
|
|
%+ pick
|
|
;~((glue fas) ;~(pfix sig fed:ag) urs:ab)
|
|
%+ sear (soft passport)
|
|
;~((glue fas) sym urs:ab) :: XX [a-z0-9_]{1,15}
|
|
::
|
|
++ stam (ot date/di bouquet/(as (ar so)) speech/spec ~)
|
|
++ spec
|
|
%+ ke *speech |. ~+
|
|
%- of :~
|
|
lin/(ot say/bo txt/so ~)
|
|
url/(su aurf:urlp)
|
|
exp/so
|
|
tax/dute
|
|
app/(ot txt/so src/so ~)
|
|
fat/(ot tor/tors taf/spec ~)
|
|
ext/(ot nom/so txe/blob ~)
|
|
non/ul
|
|
:: inv/(ot ship/(su fed:ag) party/(su urs:ab) ~)
|
|
==
|
|
++ tors
|
|
%+ ke *torso |. ~+
|
|
%- of :~
|
|
name/(ot nom/so mon/tors ~)
|
|
text/(cu lore so)
|
|
tank/(cu (hard (list tank)) blob)
|
|
==
|
|
::
|
|
++ blob (cu cue (su fel:ofis))
|
|
--
|
|
--
|
|
::
|
|
++ grow
|
|
|%
|
|
++ mime [/text/json (taco (crip (pojo json)))]
|
|
++ json
|
|
=> +
|
|
|^
|
|
:- %a
|
|
%+ turn gam
|
|
|= telegram
|
|
(jobe ship/(jope p) thought/(thot q) ~)
|
|
::
|
|
++ 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))])
|
|
++ jode |=(a=time (jone (div (mul (sub a ~1970.1.1) 1.000) ~s1)))
|
|
++ 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)])
|
|
::
|
|
++ 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
|
|
?+ -.a ~|(stub/-.a !!)
|
|
%lin (jobe txt/[%s q.a] say/[%b p.a] ~)
|
|
%url (jape (earf p.a))
|
|
%exp [%s p.a]
|
|
%tax (grow-work-duty p.a)
|
|
%app (jobe txt/[%s q.a] src/[%s p.a] ~)
|
|
%fat (jobe tor/(tors p.a) taf/$(a q.a) ~)
|
|
%ext (jobe nom/[%s p.a] txe/(jape (sifo (jam +.a))) ~)
|
|
%non ~
|
|
:: %inv (jobe ship/(jope p.a) party/[%s q.a] ~)
|
|
==
|
|
::
|
|
++ tors
|
|
|= a=torso
|
|
%+ joba -.a
|
|
?- -.a
|
|
%text [%s (role +.a)]
|
|
%tank (jape (sifo (jam +.a)))
|
|
%name (jobe nom/s/p.a mon/$(a q.a) ~)
|
|
==
|
|
::
|
|
--
|
|
--
|
|
::
|
|
++ grad
|
|
|%
|
|
++ form %talk-telegrams
|
|
++ diff |=((list telegram) +<)
|
|
++ pact |=((list telegram) +<)
|
|
++ join |=([(list telegram) (list telegram)] `(unit mime)`~)
|
|
--
|
|
--
|