drum: Ensure dojo prompt on-boot

The previous method for doing this relied on "dojo" being first when
sorting alphabetically, which is not the case anymore.
This commit is contained in:
Fang 2019-10-09 18:02:03 +02:00
parent 79544a03d0
commit 9d63a3e9c7
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -273,9 +273,14 @@
::
++ se-adit :: update servers
^+ .
:: ensure dojo connects after talk
=* dojo-on-top aor
%+ roll (sort ~(tap in ray) dojo-on-top)
%+ roll
:: ensure dojo is first in the list,
:: guaranteeing its display on-boot.
::
%+ sort ~(tap in ray)
|= [a=well:gall b=well:gall]
?: |(=(%dojo q.a) =(%dojo q.b)) =(%dojo q.a)
(aor a b)
=< .(con +>)
|: $:{wel/well:gall con/_..se-adit} ^+ con
=. +>.$ con