Index: svn/Synchronizer.cls.xml
===================================================================
diff -u -r1850 -r1862
--- svn/Synchronizer.cls.xml	(.../Synchronizer.cls.xml)	(revision 1850)
+++ svn/Synchronizer.cls.xml	(.../Synchronizer.cls.xml)	(revision 1862)
@@ -175,11 +175,35 @@
 		Set NieuweLijn = "<br/>"
 	}
 	
-	Set itList = ##class(TECH.ListIterator).%New(..SynchronizeList)
+	#dim SynchronizeList As %ArrayOfObjects
+	#dim ToonListMetCategories As %Boolean = (IsVoorMail)
+	If ToonListMetCategories {
+		Set SynchronizeList = ..GeefSynchronizeListMetCategories("§")
+	}
+	Else {
+		Set SynchronizeList = ..SynchronizeList
+	}
+	
+	#dim SectieTitel As %String = ""
+	#dim IsEersteSectie As %Boolean = $$$True
+	
+	Set itList = ##class(TECH.ListIterator).%New(SynchronizeList)
 	While itList.HasNext() {
 		#dim SyncStatus As svn.SyncStatus = itList.Next()
 		#dim InternalName As %String = SyncStatus.InternalName
 		
+		If ToonListMetCategories {
+			#dim ElementKey As %String = itList.Key()
+			#dim Categorie As %String = $P(ElementKey,"§",1)
+			#dim IsSectieTitelGewijzigd = $$$Not(SectieTitel = Categorie)
+			If IsSectieTitelGewijzigd {
+				Set SectieTitel = Categorie
+				Do:($$$Not(IsEersteSectie)) ShowActionsAlsStream.WriteLine(NieuweLijn)
+				Do ShowActionsAlsStream.WriteLine(NieuweLijn _ "<U>" _ SectieTitel _ "</U>")
+				Set IsEersteSectie = $$$False
+			}
+		}
+		
 		Do:SyncStatus.ImportNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Import " _ InternalName)
 		Do:SyncStatus.DeleteNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Delete " _ InternalName)
 	}
@@ -188,6 +212,81 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSynchronizeListMetCategories">
+<FormalSpec>SectionDelimiter:%String="§"</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set itList = ##class(TECH.ListIterator).%New(..SynchronizeList)
+	
+	Set SynchronizeListMetCategories = ##class(%ArrayOfObjects).%New()
+	While itList.HasNext() {
+		#dim SyncStatus As svn.SyncStatus = itList.Next()
+		#dim InternalName As %String = SyncStatus.InternalName
+		#dim NewKey As %String = ..GeefCategoriePrefix(InternalName) _ SectionDelimiter _ InternalName
+		Do SynchronizeListMetCategories.SetAt(SyncStatus,NewKey)
+	}
+	
+	Quit SynchronizeListMetCategories
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategoriePrefix">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	// OPGELET: alles hieronder zal moeten testen op Lowercase-waarden! 
+	Set InternalName = $$$LCase(InternalName)
+	
+	#dim CategoriePrefix As %String = ""
+	If ($$$Right(InternalName,4) = ".cls") {
+		Set CategoriePrefix = ..GeefCategoriePrefixVoorKlasse(InternalName)
+	}
+	Else {
+		Set CategoriePrefix = ..GeefCategoriePrefixVoorNietKlasses(InternalName)
+	}
+	
+	Quit CategoriePrefix
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategoriePrefixVoorKlasse">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:(##class(TECH.StringUtils).Contains(InternalName, ".enu.",".autocomplete.cls")) "17. enu AutoComplete:"
+	Quit:($$$StartsWith(InternalName,"vhtest.fake")) "17. UT Mock/Fake:"
+	Quit:($$$StartsWith(InternalName,"vhtest.mock")) "17. UT Mock/Fake:"
+	Quit:($$$StartsWith(InternalName,"vhunittest") ) "16. vhUnitTest:"
+	Quit:($$$StartsWith(InternalName,"tech.")      ) "13. TECH/Tools:"
+	Quit:($$$StartsWith(InternalName,"tools.")     ) "13. TECH/Tools:"
+	Quit:($$$StartsWith(InternalName,"svn.")       ) "12. Svn tooling:"
+	Quit "11. Class files:"
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategoriePrefixVoorNietKlasses">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	// De klasse TECH.StringUtils bevat ook EndsWith(), maar die implementatie is helaas niet erg performant.
+	#define EndsWith(%v,%sub)     (%v?.E1%sub)
+	
+	Quit:($$$EndsWith(InternalName,".css")) "29. Scripts:"
+	Quit:($$$EndsWith(InternalName,".js" )) "29. Scripts:"
+	Quit:($$$EndsWith(InternalName,".csp")) "26. csp-files:"
+	Quit:($$$EndsWith(InternalName,".int")) "25. INT-files (!)"
+	Quit:($$$EndsWith(InternalName,".inc")) "24. INC-files:"
+	Quit:($$$EndsWith(InternalName,".mac"))&&(##class(TECH.StringUtils).Occurrences(InternalName,".")=1) "22. MAC-files: (zonder sub-package)"
+	Quit:($$$EndsWith(InternalName,".mac")) "21. MAC-files: (met sub-package)"
+	
+	Quit "0. Not categorised !!!"
+]]></Implementation>
+</Method>
+
 <Method name="SynchronizeAll">
 <Implementation><![CDATA[
 	do ..BuildSynchronizeList()