urbit/main/bin/ls.hoon

14 lines
224 B
Plaintext
Raw Normal View History

2013-09-29 00:21:18 +04:00
!:
:: /=main=/bin/ls/hoon
::
|= *
|= [pax=path ~]
:_ ~
^- (list gift)
=+ lon=((hard arch) .^(%cy pax))
?: =(~ r.lon) ~
:_ ~
:- %la
:+ %rose [" " "" ""]
(turn (~(tap by r.lon) ~) |=([a=@ta b=*] [%leaf (trip a)]))