mirror of
https://github.com/urbit/shrub.git
synced 2025-01-05 19:46:50 +03:00
321 lines
8.4 KiB
Plaintext
321 lines
8.4 KiB
Plaintext
::
|
|
:::: /hoon/talk-telegrams/mar
|
|
::
|
|
/? 314
|
|
/- talk
|
|
/+ 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#(ot ship#(su fed:ag) com#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 (jobe ship#(jope who) com#[%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#(ot txt#(su aurf:urlp) ~)
|
|
exp#(ot txt#so ~)
|
|
tax#(ot xat#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#(ot dat#(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))])
|
|
++ 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)))
|
|
++ 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 (joba txt#(jape (earf p.a)))
|
|
$exp (joba txt#[%s p.a])
|
|
$tax (jobe txt#(jape (rend-work-duty p.a)) xat#(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 (jobe txt#[%a (turn +.a joke)] dat#(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)`~)
|
|
--
|
|
--
|