!7

concept User {
  S name;
  SecretValue<S> password = new(aGlobalID());
  S contact; // e.g. mail address
}

extend AuthedDialogID {
  new Ref<User> user; // who is logged in
}

concept UserCreatedObject {
  new Ref<User> creator;
  S repoName; // unique by user, for URL
}

concept UserPost {
  S text;
}

concept PostReference {
  new Ref<UserPost> post;
  new Ref<Concept> referenced;
  S as;
}

cmodule GazelleExamples > DynNewBot2 {
  void start {
    botName = heading = "Gazelle Examples";
    adminName = heading + " Admin";
    set enableUsers;
    super.start();
    indexConceptFieldCI(User, "name");
  }

  L<Class> crudClasses(bool masterAuthed) {
    L<Class> l = super.crudClasses(masterAuthed);
    if (masterAuthed)
      ret listPlus(l, User.class, UserCreatedObject.class);
    ret l;
  }
}