Basic support for definitions via X<>

Author: Mouq

htmlify.p6

@@ -305,6 +305,10 @@ sub find-definitions (:$pod, :$origin, :$dr, :$min-level = -1) {
             my @header := $c.contents[0].contents;
             my @words;
             given @header {
+                when :("", Pod::FormattingCode $, "") {
+                    proceed unless .[1].type eq "X";
+                    @words = .[1].meta[0][0,1]; # XXX Multiple definitions
+                }
                 when :(Str $ where /^The \s \S+ \s \w+$/) {
                     # The Foo Infix
                     @words = .[0].words[2,1];
@@ -339,7 +343,7 @@ sub find-definitions (:$pod, :$origin, :$dr, :$min-level = -1) {
                     %attr = :kind<type>,
                             :categories($tg.types{$name}.?categories//''),
                 }
-                when 'variable'|'sigil'|'twigil'|'declarator' {
+                when 'variable'|'sigil'|'twigil'|'declarator'|'quote' {
                     # TODO: More types of syntactic features
                     %attr = :kind<syntax>,
                             :categories($subkinds),

lib/Language/grammars.pod

@@ -14,7 +14,7 @@ L<JSON::Simple module|https://github.com/moritz/json>, which can
 deserialize any valid JSON file, and yet the deserializing code is
 written in less than 100 lines of simple, extensible code.
 
-=head1 Named Regexes
+=head1 X<Named Regexes|declarator,regex;declarator,token;declarator,rule>
 
 The main ingredient of grammars is named L<regexes|/language/regexes>.  While
 the syntax of L<Perl 6 Regexes|/language/regexes> is outside the scope of this
@@ -61,7 +61,7 @@ effect for the Regex:
     say 'once upon a time' ~~ &space-y;
     =end code
 
-=head1 class Grammar
+=head1 X<Creating Grammars|class,Grammar;declarator,grammar>
 
     class Grammar is Cursor { }
 

lib/Language/objects.pod

@@ -115,7 +115,7 @@ if $type B<L<~~>> L<Real> {
     say '$type contains Real or a subtype thereof';
 }
 
-=head1 Classes
+=head1 X<Classes|declarator,class>
 
 Classes are declared using the C<class> keyword, typically followed by a
 name.
@@ -416,7 +416,7 @@ Another thing to note is that the name C<new> is not special in Perl 6. It is
 merely a common convention. You can call C<bless> from any method at all, or
 use C<CREATE> to fiddle around with low-level workings.
 
-=head1 Roles
+=head1 X<Roles|declarator,role>
 
 Roles are in some ways similar to classes, in that they are a collection of
 attributes and methods. They differ in that roles are also meant for

lib/Language/quoting.pod

@@ -12,7 +12,7 @@ shortcut C<｢…｣>, or via C<Q> followed by any pair of delimiters
 surrounding your text. Most of the time, though, the most you'll need
 is C<'…'> or C<"…">, described in more detail in the next sections.
 
-=head2 Literal strings: Q
+=head2 X<Literal strings: Q|quote,Q;quote,｢ ｣>
 
 =for code :allow<B>
 B<Q[>A literal stringB<]>
@@ -37,7 +37,7 @@ These examples produce:
 
 The other quote forms add on to this basic functionality:
 
-=head2 Escaping: q
+=head2 X<Escaping: q|quote,q;quote,' '>
 
 =for code :allow<B>
 B<'>Very plainB<'>
@@ -66,7 +66,7 @@ These examples produce:
     No $interpolation {here}!
     Just a literal "\n" here
 
-=head2 Interpolation: qq
+=head2 X<Interpolation: qq|quote,qq;quote," ">
 
 =for code :allow<B L>
 my $color = 'blue';
@@ -116,7 +116,7 @@ say "@neighborsB<.L<join>(', ')>, and I try our best to coexist peacefully."
 
     Felix, Danielle, Lucinda, and I try our best to coexist peacefully.
 
-=head2 Word quoting: qw
+=head2 X«Word quoting: qw|quote,qw;quote,< >»
 
 =for code :allow<B L>
 B«<»a b cB«>» L<eqv> ('a', 'b', 'c')
@@ -139,7 +139,7 @@ It's easier to write and to read this:
 
     my @directions = <left right up down>;
 
-=head2 Shell quoting: qqw
+=head2 X<Shell quoting: qqw|quote,qqw;quote,« »>
 
 TODO
 

lib/Language/regexes.pod

@@ -16,7 +16,7 @@ I<regular expression-like pattern matching>.
 In Perl 6, although they are capable of much more than regular languages, we
 continue to call them I<regex>.
 
-=head1 Lexical conventions
+=head1 X<Lexical conventions|quote,/ /;quote,rx;quote,m>
 
 Perl 6 has special syntax for writing regexes: