gistfile1.bas

AutoMap.Assemblies(AdditionalAssemblies.Concat(New () {Assembly.GetExecutingAssembly()}).ToArray()) _
.Where(Function(t) GetType(IEntity).IsAssignableFrom(t) OrElse t = GetType(TechnologySequence) OrElse t = GetType(DrugSequence) OrElse GetType(IEvent).IsAssignableFrom(t)) _
.Setup(Function(s) InlineAssignHelper(s.IsComponentType, Function(type) GetType(IValueObject).IsAssignableFrom(type)))_
.IncludeBase(GetType([Event])) _
.IncludeBase(GetType(AggregateEvent))_
.IncludeBase(GetType(ChangedCompanyUsers))
.Conventions _.AddFromAssemblyOf(Of PrimaryKeyNameConvention)().UseOverridesFromAssemblyOf(Of IEntity)()