urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

sort alphabetically earlier

Browse Source
This commit is contained in:
Anton Dyudin 2017-11-29 13:32:22 -08:00
parent dbe8598720
commit 5715956caa
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
app/mark-dashboard.hoon
View File

@ -96,15 +96,17 @@
++ list-cores
|= a/path ^- (list spur)
=/ sup (flop a)
%- sort :_ |=({a/spur b/spur} (aor (flop a) (flop b)))
|- ^- (list spur)
%- ~(rep by dir:.^(arch %cy (en-beam now-beak sup)))
|= [[a=knot ~] b=(list spur)] ^+ b
%- zing
%+ turn
=- (sort ~(tap by -) aor)
dir:.^(arch %cy (en-beam now-beak sup))
|= [a=knot ~] ^- (list spur)
=. sup [a sup]
?^ [fil:.^(arch %cy (en-beam now-beak [%hoon sup]))]
~& (flop sup)
[sup (weld ^$ b)]
(weld ^$ b)
?~ [fil:.^(arch %cy (en-beam now-beak [%hoon sup]))]
^$
~& (flop sup)
[sup ^$]
::
++ now-beak %_(byk r [%da now])
++ list-marks