roam.hoon

!:
=,  dejs:format
|%
++  dejs
  |%
  ++  roap
    %-  ou
    :~  [':create/user' (un ruid)]                     :: create
        ['children' (un (ar roan))]                         :: (ar node)
        ['edit-time' (un ni)]
        ['create-time' (un ni)]
        [':edit/user' (un ruid)]
        ['uid' (un sa)]
        ['title' (un so)]
     ==
  ++  roan
    %-  ot
    :~  ['string' so]
        [':block/refs' (ar blok)]
        ['refs' (ar reaf)]
        ['edit-time' no]
        ['create-time' no]
        [':edit/user' ruid]
        ['uid' sa]
    ==
  ++  ruid
    %-  ot
    :~  [':user/uid' so]

    ==
  ++  blok
    %-  ot
    :~  [':block/uid' sa]
  ==
  ++  reaf
    %-  ot
    :~  ['uid' sa]
  ==
--
++  json-to-roam
  |=  jon=json
  ((ar roap:dejs) jon)
--