mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-20 23:18:00 +03:00
Properly implemented %ire, the reply speech type.
Refactored how known messages are accessed.
This commit is contained in:
Fang
parent
e30e2508ea
commit
2f6a7e3916
@ -85,6 +85,7 @@
|
||||
{$say p/(list speech)} ::< send message
|
||||
{$eval p/cord q/twig} ::< send #-message
|
||||
{$target p/where q/(unit work)} ::< set active targets
|
||||
{$reply p/$@(@ud {@u @ud}) q/(list speech)} ::< reply to
|
||||
:: displaying info ::
|
||||
{$number p/$@(@ud {@u @ud})} ::< relative/absolute
|
||||
{$who p/where} ::< presence
|
||||
@ -142,6 +143,22 @@
|
||||
:_ inbox
|
||||
(true-self our.bol)
|
||||
::
|
||||
++ renum ::< gram i# by serial
|
||||
::> find the grams list index for gram with serial.
|
||||
|= ser/serial
|
||||
^- (unit @ud)
|
||||
=+ num=(~(get by known) ser)
|
||||
?~ num ~
|
||||
`(sub count +(u.num))
|
||||
::
|
||||
++ recall ::< gram by serial
|
||||
::> find a known gram with serial {ser}.
|
||||
|= ser/serial
|
||||
^- (unit telegram)
|
||||
=+ num=(renum ser)
|
||||
?~ num ~
|
||||
`(snag u.num grams)
|
||||
::
|
||||
++ nik-from-nak ::< nik from nak
|
||||
::>
|
||||
::
|
||||
@ -372,7 +389,7 @@
|
||||
::
|
||||
|= gam/telegram
|
||||
^+ +>
|
||||
=+ old=(~(get by known) uid.gam)
|
||||
=+ old=(renum uid.gam)
|
||||
?~ old
|
||||
(ta-append gam) ::< add
|
||||
(ta-revise u.old gam) ::< modify
|
||||
@ -393,10 +410,9 @@
|
||||
::> modify a telegram we know.
|
||||
::
|
||||
|= {num/@ud gam/telegram}
|
||||
=+ way=(sub count num)
|
||||
=+ old=(snag (dec way) grams)
|
||||
=+ old=(snag num grams)
|
||||
?: =(gam old) +>.$ :: no change
|
||||
=. grams (welp (scag (dec way) grams) [gam (slag way grams)])
|
||||
=. grams (welp (scag num grams) [gam (slag +(num) grams)])
|
||||
?: =(sep.gam sep.old) +>.$ :: no worthy change
|
||||
=< sh-done
|
||||
(~(sh-gram sh cli) gam)
|
||||
@ -575,6 +591,9 @@
|
||||
%+ cook ~(gas by *(map circle range))
|
||||
(most ;~(plug com (star ace)) ;~(plug circ rang))
|
||||
::
|
||||
++ pick ::< message reference
|
||||
;~(pose nump (cook lent (star sem)))
|
||||
::
|
||||
++ nump ::< number reference
|
||||
;~ pose
|
||||
;~(pfix hep dem:ag)
|
||||
@ -602,15 +621,16 @@
|
||||
++ message ::< exp, lin or url msg
|
||||
;~ pose
|
||||
;~(plug (cold %eval hax) expr)
|
||||
::
|
||||
%+ stag %say
|
||||
%+ most (jest '•') ::TODO why is this not breaking msgs up?
|
||||
;~ pose
|
||||
(stag %url aurf:urlp)
|
||||
::TODO maybe reverse loobs. at least document properly! confusing.
|
||||
:(stag %lin | ;~(pfix pat text))
|
||||
:(stag %lin & ;~(less sem hax text))
|
||||
==
|
||||
(stag %say speeches)
|
||||
==
|
||||
::
|
||||
++ speeches ::< lin or url msgs
|
||||
%+ most (jest '•') ::TODO why is this not breaking msgs up?
|
||||
;~ pose
|
||||
(stag %url aurf:urlp)
|
||||
::TODO maybe reverse loobs. at least document properly! confusing.
|
||||
:(stag %lin | ;~(pfix pat text))
|
||||
:(stag %lin & ;~(less sem hax text))
|
||||
==
|
||||
::
|
||||
++ nick (cook crip (stun [1 14] low)) ::< nickname
|
||||
@ -727,10 +747,11 @@
|
||||
::
|
||||
(stag %target ;~(plug cirs (punt ;~(pfix ace message))))
|
||||
::
|
||||
(stag %reply ;~(plug pick ;~(pfix ace speeches)))
|
||||
::
|
||||
:: displaying info
|
||||
::
|
||||
(stag %number nump)
|
||||
(stag %number (cook lent (star sem)))
|
||||
(stag %number pick)
|
||||
==
|
||||
--
|
||||
::
|
||||
@ -829,6 +850,7 @@
|
||||
$say (say +.job)
|
||||
$eval (eval +.job)
|
||||
$target (target +.job)
|
||||
$reply (reply +.job)
|
||||
:: displaying info
|
||||
$number (number +.job)
|
||||
$who (who +.job)
|
||||
@ -1052,6 +1074,23 @@
|
||||
=. ..sh-pact (sh-pact pan)
|
||||
?~(woe ..sh-work work(job u.woe))
|
||||
::
|
||||
++ reply ::< %reply
|
||||
::> send a reply to the selected message.
|
||||
::
|
||||
|= {num/$@(@ud {p/@u q/@ud}) sep/(list speech)}
|
||||
^+ ..sh-work
|
||||
::TODO =- (say (turn ... [%ire - s])) nest-fails on the - ???
|
||||
::TODO what's friendlier, reply-to-null or error?
|
||||
=/ ser/serial
|
||||
?@ num
|
||||
?: (gte num count) 0v0
|
||||
uid:(snag num grams)
|
||||
?: (gth q.num count) 0v0
|
||||
?: =(count 0) 0v0
|
||||
=+ msg=(deli (dec count) num)
|
||||
uid:(snag (sub count +(msg)) grams)
|
||||
(say (turn sep |=(s/speech [%ire `serial`ser s])))
|
||||
::
|
||||
::> ||
|
||||
::> || %displaying-info
|
||||
::> ||
|
||||
@ -1897,6 +1936,18 @@
|
||||
::
|
||||
$exp
|
||||
tan+~[rose+[" " ~ ~]^[leaf+"# {(trip exp.sep)}" res.sep]]
|
||||
::
|
||||
$ire
|
||||
=+ gam=(recall top.sep)
|
||||
?~ gam $(sep sep.sep)
|
||||
:- %mor
|
||||
=- [- $(sep sep.sep) ~]
|
||||
:- %tan
|
||||
::TODO in "wrong" order because they get printed in reverse...
|
||||
:~ :+ %rose [" " ~ ~]
|
||||
(turn (~(tr-text tr sef u.gam) termwidth) |=(t/tape [%leaf t]))
|
||||
[%leaf :(weld "in reply to: " (cite aut.u.gam) ": ")]
|
||||
==
|
||||
::
|
||||
$fat
|
||||
[%mor $(sep sep.sep) tan+(tr-tach tac.sep) ~]
|
||||
@ -1965,6 +2016,9 @@
|
||||
::TODO print truncated res on its own line.
|
||||
:_ ~
|
||||
(tr-chow wyd '#' ' ' (trip exp.sep))
|
||||
::
|
||||
$ire
|
||||
$(sep sep.sep)
|
||||
::
|
||||
$url
|
||||
:_ ~
|
||||
|
||||
@ -226,6 +226,7 @@
|
||||
$% {$lin pat/? msg/cord} ::< no/@ text line
|
||||
{$url url/purf} ::< parsed url
|
||||
{$exp exp/cord res/(list tank)} ::< hoon line
|
||||
{$ire top/serial sep/speech} ::< in reply to
|
||||
{$fat tac/attache sep/speech} ::< attachment
|
||||
{$inv inv/? cir/circle} ::< inv/ban for circle
|
||||
{$app app/term msg/cord} ::< app message
|
||||
|
||||
Loading…
Reference in New Issue
Block a user