ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

implement [n], show asks in proper order

Browse Source
This commit is contained in:
Anton Dyudin 2016-08-19 16:33:16 -07:00
parent a1a38b9684
commit 9aee0f53e7
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/ask.hoon
View File

@ -28,7 +28,7 @@
:_ +>.$(sos (~(put by sos) ost.bow *sole-share))
=- [(effect %mor pro+prompt -)]~
=+ all=adrs
[tan+(turn all message) (turn all put-mail)]
[tan+(turn (flop all) message) (turn all put-mail)]
::
++ adrs
=- (sort - lor)
@ -84,8 +84,14 @@
?: -.try `+>.$
(transmit inv bel+~ ~)
?: =(`*`"?" buf.som) (transmit inv help)
?: =(`*`"a" buf.som) (transmit inv tan+(turn adrs message) ~)
?: =(`*`"l" buf.som) (transmit inv tan+(turn new-adrs message) ~)
?: =(`*`"a" buf.som) (transmit inv tan+(turn (flop adrs) message) ~)
?: =(`*`"l" buf.som) (transmit inv tan+(turn (flop new-adrs) message) ~)
?: =(`*`"n" buf.som)
=/ new new-adrs
?~ new (transmit inv bel+~ ~)
=. inv.i.new %ignored
=. adr (~(put by adr) ask.i.new [tym inv]:i.new)
(transmit inv tan+[(message i.new)]~ pro+prompt ~)
?: =(`*`"w" buf.som)
=> .(wom ~) :: XX TMI
(transmit inv pro+prompt ~)