urbit/gen/cat.hoon

::  ConCATenate file listings
::  
::::  /hoon/cat/gen
  ::
//  /%%/ls+subdir
//  /%/pretty
!:
::::
  ::
:-  %say
|=  {^ {arg/(list path)} vane=?($c $g)}
=-  tang+(flop `tang`(zing -))
%+  turn  arg
|=  pax/path
^-  tang
=+  ark=;;(arch .^((cat 3 vane %y) pax))
?^  fil.ark
  ?:  =(%sched -:(flop pax))
    [>;;((map ,@da cord) .^((cat 3 vane %x) pax))<]~
  [leaf+(spud pax) (pretty-file .^((cat 3 vane %x) pax))]
?-     dir.ark                                          ::  handle ambiguity
    $~
  [rose+[" " `~]^~[leaf+"~" (smyt pax)]]~
::
    {{@t $~} $~ $~}
  $(pax (welp pax /[p.n.dir.ark]))
::
    *
  =-  [palm+[": " ``~]^-]~
  :~  rose+[" " `~]^~[leaf+"*" (smyt pax)] 
      `tank`(subdir vane pax dir.ark)
  ==
==
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`:: ConCATenate file listings`
			`::`
fix hoon location header information 2016-02-05 06:05:37 +03:00			`:::: /hoon/cat/gen`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`::`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`// /%%/ls+subdir`
added %core silk, transitioned mar lib ape etc. 2015-06-05 01:16:48 +03:00			`// /%/pretty`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`!:`
			`::::`
			`::`
rename generators to %say, %ask, %get 2015-09-12 03:24:51 +03:00			`:- %say`
Merge tag 'hoon-151' of https://github.com/juped/urbit into transfer Hoon 151 merge %gh crashes on startup Conflicts: urb/urbit.pill urb/zod/app/dojo.hoon urb/zod/app/hood.hoon urb/zod/arvo/eyre.hoon urb/zod/arvo/ford.hoon urb/zod/arvo/gall.hoon urb/zod/arvo/hoon.hoon urb/zod/arvo/zuse.hoon urb/zod/gen/cat.hoon urb/zod/gen/ls.hoon urb/zod/gen/ls/subdir.hoon 2016-02-17 21:12:28 +03:00			`\|= {^ {arg/(list path)} vane=?($c $g)}`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			=- tang+(flop `tang`(zing -))
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`%+ turn arg`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`\|= pax/path`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`^- tang`
initial %gy handling in %gh 2016-01-29 03:05:36 +03:00			`=+ ark=;;(arch .^((cat 3 vane %y) pax))`
merge from commit rather than desk 2015-09-08 23:15:40 +03:00			`?^ fil.ark`
demo sched mark 2015-06-17 04:06:58 +03:00			`?: =(%sched -:(flop pax))`
initial %gy handling in %gh 2016-01-29 03:05:36 +03:00			`[>;;((map ,@da cord) .^((cat 3 vane %x) pax))<]~`
Merge tag 'hoon-151' of https://github.com/juped/urbit into transfer Hoon 151 merge %gh crashes on startup Conflicts: urb/urbit.pill urb/zod/app/dojo.hoon urb/zod/app/hood.hoon urb/zod/arvo/eyre.hoon urb/zod/arvo/ford.hoon urb/zod/arvo/gall.hoon urb/zod/arvo/hoon.hoon urb/zod/arvo/zuse.hoon urb/zod/gen/cat.hoon urb/zod/gen/ls.hoon urb/zod/gen/ls/subdir.hoon 2016-02-17 21:12:28 +03:00			`[leaf+(spud pax) (pretty-file .^((cat 3 vane %x) pax))]`
merge from commit rather than desk 2015-09-08 23:15:40 +03:00			`?- dir.ark :: handle ambiguity`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`$~`
			[rose+[" " `~]^~[leaf+"~" (smyt pax)]]~
			`::`
			`{{@t $~} $~ $~}`
merge from commit rather than desk 2015-09-08 23:15:40 +03:00			`$(pax (welp pax /[p.n.dir.ark]))`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`::`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`*`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			=- [palm+[": " ``~]^-]~
			:~ rose+[" " `~]^~[leaf+"*" (smyt pax)]
initial %gy handling in %gh 2016-01-29 03:05:36 +03:00			`tank`(subdir vane pax dir.ark)
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`==`
			`==`