Better layot for OTP structure

example.ex

defmodule ArchJS do
  use Application
  import ArchJS.Macros.Sup

  defsup User, [] do
    defsofo Sessions, ArchJS.User.Session
    children = [
      worker(ArchJS.User.Registry, []),
      worker(ArchJS.User.Sessions, [])
    ]
    supervise(children, strategy: :one_for_one)
  end

  defsup Content, [] do
    defsofo Threads, ArchJS.Content.Thread
    children = [
      worker(ArchJS.Content.Registry, []),
      worker(ArchJS.Content.Threads,  [])
    ]
    supervise(children, strategy: :one_for_one)
  end

  defsup Root, link: [name: __MODULE__] do
    children = [
      worker(ArchJS.User,    []),
      worker(ArchJS.Content, []),
      worker(ArchJS.Persist, [])
    ]
    supervise(children, strategy: :one_for_one)
  end

  def start(_type, _args) do
    ArchJS.Root.start_link
  end
end