Add special case for ExcelHotkeyAnnotation in the AttributeAnnotationProvider

Author: Vogel612

Rubberduck.Parsing/Annotations/AttributeAnnotationProvider.cs

@@ -33,6 +33,11 @@ public class AttributeAnnotationProvider : IAttributeAnnotationProvider
             var flexibleValueAttributeAnnotation = FirstMatchingFlexibleAttributeValueAnnotation(annotationTypes, attributeName, attributeValues.Count);
             if (flexibleValueAttributeAnnotation != default)
             {
+                // FIXME special cased bodge for ExcelHotKeyAnnotation to deal with the value transformation:
+                if (flexibleValueAttributeAnnotation == AnnotationType.ExcelHotKey)
+                {
+                    return (flexibleValueAttributeAnnotation, attributeValues.Select(keySpec => keySpec.Substring(0, 1)).ToList());
+                }
                 return (flexibleValueAttributeAnnotation, attributeValues);
             }
 

Rubberduck.Parsing/Annotations/VBAParserAnnotationFactory.cs

@@ -33,6 +33,7 @@ public VBAParserAnnotationFactory()
             _creators.Add(AnnotationType.ModuleAttribute.ToString().ToUpperInvariant(), typeof(ModuleAttributeAnnotation));
             _creators.Add(AnnotationType.MemberAttribute.ToString().ToUpperInvariant(), typeof(MemberAttributeAnnotation));
             _creators.Add(AnnotationType.ModuleDescription.ToString().ToUpperInvariant(), typeof(ModuleDescriptionAnnotation));
+            _creators.Add(AnnotationType.ExcelHotKey.ToString().ToUpperInvariant(), typeof(ExcelHotKeyAnnotation));
         }
 
         public IAnnotation Create(VBAParser.AnnotationContext context, QualifiedSelection qualifiedSelection)