mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
57 lines
1.2 KiB
Plaintext
57 lines
1.2 KiB
Plaintext
!:
|
|
|_ gas=epic
|
|
::
|
|
++ get-path
|
|
^- path
|
|
(tope bem.gas(s (welp but.gas /pub)))
|
|
::
|
|
++ get-parent
|
|
^- path
|
|
(tope bem.gas(s (welp (slag 1 but.gas) /pub)))
|
|
::
|
|
++ get-tree
|
|
^- arch
|
|
((hard arch) .^(%cy get-path))
|
|
++ kids-json
|
|
|= kids=(list ,@ta)
|
|
:- %a
|
|
%+ turn kids
|
|
|= kid=@t [%s kid]
|
|
++ bread-json
|
|
|= kids=(list path)
|
|
:- %a
|
|
%+ turn kids
|
|
|= kid=path [%s (spat (flop kid))]
|
|
++ parent-json
|
|
|= pare=path [%s (spat (slag 3 pare))]
|
|
++ get-kids
|
|
%- sort :_ aor
|
|
^- (list span)
|
|
%+ murn (~(tap by r:get-tree))
|
|
=+ pax=get-path
|
|
|= [kid=span ~] ^- (unit span)
|
|
=+ ark=;;(arch .^(%cy (welp pax /[kid])))
|
|
?~ r.ark ~
|
|
(some kid)
|
|
++ get-link
|
|
|= [pax=path mal=marl]
|
|
^- manx
|
|
=+ rut=`path`[q.bem.gas (flop (slag 1 s.bem.gas))]
|
|
;a/"/gen{<rut>}{<(slag 4 pax)>}":"*{mal}"
|
|
++ get-down
|
|
^- marl
|
|
%+ turn get-kids
|
|
|= a=span
|
|
;span: +{(get-link (welp get-path /[a]) ;"{(trip a)}")}
|
|
++ render-bread
|
|
|= a=path
|
|
^- manx
|
|
;span: /+{(get-link (tope bem.gas(s a)) ;"{(trip (snag 0 a))}")}
|
|
::
|
|
++ get-bread
|
|
=+ [pax=`path`/pub paf=(flop but.gas)]
|
|
|- ^- (list path)
|
|
?~ paf ~[pax]
|
|
[pax $(paf t.paf, pax [i.paf pax])]
|
|
--
|