/sur/hood: report aeon, abortive fix for +read-kelvin-local
:~ leaf/"/sys/kelvin: {<[lal num]:weft>}"
leaf/"base hash: {?:((gth len 1) <meb> <(head meb)>)}"
leaf/"%cz hash: {<hash>}"
+ leaf/"remote aeon: {<aeon.arak>}"
leaf/"force on: {?:(=(~ add.rein.arak) "~" <add.rein.arak>)}"
leaf/"force off: {?:(=(~ sub.rein.arak) "~" <sub.rein.arak>)}"
==
q:(need (~(get an:cloy ankh) /sys/kelvin))
::
++ read-kelvin-local
- |= [our=ship =desk now=@da]
- .^(weft cx+/(scot %p our)/[desk]/(scot %da now)/sys/kelvin)
+ |= [our=ship =desk =aeon]
+ .^(weft cx+/(scot %p our)/[desk]/(scot %ud aeon)/sys/kelvin)
::
++ read-kelvin-foreign
|= [=ship =desk =aeon]
