[perl-Glib-Object-Introspection] perli11ndoc: put special classes and records into their own category

[Torsten Schönfeld <tsch src gnome org>]

commit 1ca320ac464c542cdeb82eb91a77b246803168e3
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Fri Oct 28 16:55:22 2016 +0200

    perli11ndoc: put special classes and records into their own category

 bin/perli11ndoc |   13 +++++++++++--
 1 files changed, 11 insertions(+), 2 deletions(-)
---
diff --git a/bin/perli11ndoc b/bin/perli11ndoc
old mode 100644
new mode 100755
index ea48476..f021d9c
--- a/bin/perli11ndoc
+++ b/bin/perli11ndoc
@@ -272,15 +272,24 @@ sub enumerate_namespace {
   );
 
   my @categories = (
-    [Classes => 'core:class', \@class_and_interface_sub_categories],
+    [Classes => 'core:class', \@class_and_interface_sub_categories, sub { shift =~ /Accessible$/ }],
     [Interfaces => 'core:interface', \@class_and_interface_sub_categories],
     [Functions => 'core:function'],
     [Enumerations => 'core:enumeration'],
     [Bitfields => 'core:bitfield'],
     [Callbacks => 'core:callback'],
-    [Records => 'core:record', \@record_sub_categories, sub { shift =~ /(?:Private)$/ }],
+    [Records => 'core:record', \@record_sub_categories, sub { shift =~ /(?:Class|Iface|Interface|Private)$/ 
}],
     [Constants => 'core:constant'],
     [Aliases => 'core:alias', undef, sub { shift =~ /_autoptr$/ }],
+    ['Classes for accessibility' => 'core:class',
+     \@class_and_interface_sub_categories,
+     sub { shift !~ /Accessible$/ }],
+    ['Records for object classes' => 'core:record',
+     \@record_sub_categories,
+     sub { shift !~ /Class$/ }],
+    ['Records for interfaces' => 'core:record',
+     \@record_sub_categories,
+     sub { shift !~ /(?:Iface|Interface)$/ }],
   );
 
   my @results;