add bump.t last comment date

This commit is contained in:
Anton Dyudin 2016-07-29 15:19:44 -07:00
parent 908f38c13f
commit e2a0fb798c
5 changed files with 9 additions and 3 deletions

View File

@ -2,7 +2,6 @@
:::: /hoon/tree/lib
::
/? 314
/- tree-include
!:
|%
++ getall :: search in manx

View File

@ -5,4 +5,4 @@
/- tree-include
|_ tree-include
++ grab |% ++ noun tree-include
-- --
-- --

View File

@ -11,6 +11,8 @@
/= meta /&json&front&/|(/front/ /~[~])
/= plan /^ json /|(/plan-json/ /~[~])
/= comt /&json&/tree-comments/
/= bump /; |=(a/(list {p/time *}) =.(a (flop a) ?~(a '' (scot %da p.i.a))))
/tree-comments/
!:
^- tree-include
=+ rj=react-to-json:react
@ -22,4 +24,5 @@
sect
comt
plan
bump
==

View File

@ -2,6 +2,7 @@
:::: /hoon/json/tree/ren
::
/? 310
/- tree-include
/+ tree
/= gas /$ fuel
/= dat /^ tree-include /tree-include/
@ -20,6 +21,7 @@
{$path $t}
{$spur $t}
::
{$bump $t}
{$beak $t}
{$comt $j}
{$plan $j}
@ -56,6 +58,7 @@
$beak (from-type +.a (crip (spud (tope bem(s /)))))
$path (from-type +.a (crip (spud (flop s.bem))))
$spur (from-type +.a (crip (spud s.bem)))
$bump (from-type +.a bump.dat)
$plan (from-type +.a plan.dat)
$comt (from-type +.a comt.dat)
$head (from-type +.a head.dat)
@ -75,7 +78,7 @@
::
[tree .]
^- json
=+ default='spur.t_body.r_comt.j_plan.j_beak.t_meta.j_kids_meta.j_head.r'
=+ default='spur.t_body.r_comt.j_plan.j_beak.t_meta.j_kids_meta.j_head.r_bump.t'
=+ ^= schem
=+ seh=(fall (~(get by qix.gas) 'q') default)
~|(bad-noun+seh ;;(schema (rash seh read-schem)))

View File

@ -11,4 +11,5 @@ $: mime/mime
sect/json
comt/json
plan/json
bump/knot
==