ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-11 08:55:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

Hall newdm action: ship names are sorted by alphabetical order.

Browse Source
This commit is contained in:
Logan Allen 2018-08-21 16:15:53 -07:00
parent d525dcdedd
commit e7dc9895f2
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
app/hall.hoon
View File

@ -581,13 +581,14 @@
=/ nom/name
%^ rsh 3 1
%+ roll
%+ sort (weld ~(tap in sis) [our.bol ~])
|= [a=ship b=ship]
^- ?
(lth a b)
|= {p/ship nam/name}
%+ sort %+ turn (weld ~(tap in sis) [our.bol ~])
|= p/ship
^- cord
(scot %p p)
aor
|= {p/cord nam/name}
^- @tas
(crip "{(trip `@t`nam)}.{(slag 1 (trip (scot %p p)))}")
(crip "{(trip `@t`nam)}.{(slag 1 (trip p))}")
=/ dels/(list delta)
:~
:*