@@ -37,7 +37,7 @@ my @menu =
37
37
# ('module', 'Modules' ) => (),
38
38
# ('formalities','' ) => ();
39
39
;
40
-
40
+
41
41
my $ head = slurp ' template/head.html' ;
42
42
my $ footer = footer-html;
43
43
sub header-html ($ current-selection = ' nothing selected' ) is cached {
@@ -56,7 +56,7 @@ sub header-html ($current-selection = 'nothing selected') is cached {
56
56
my $ sub-menu-items = ' ' ;
57
57
state % sub-menus = @ menu >>. key >> [0 ] Z => @ menu >>. value ;
58
58
if % sub-menus {$ current-selection } -> $ _ {
59
- $ sub-menu-items = [~ ]
59
+ $ sub-menu-items = [~ ]
60
60
q [ <div class="menu-items darker-green"> ] ,
61
61
qq [ <a class="menu-item" href="/$ current-selection .html">All</a> ] ,
62
62
. map ({qq [
@@ -426,7 +426,7 @@ sub find-definitions (:$pod, :$origin, :$min-level = -1) {
426
426
);
427
427
my @ orig-chunk = $ new-head , @ c [$ i ^.. $ new-i ];
428
428
my $ chunk = $ created . pod. push : pod-lower-headings(@ orig-chunk , : to(% attr <kind > eq ' type' ?? 0 !! 2 ));
429
-
429
+
430
430
if $ subkinds eq ' routine' {
431
431
# Determine proper subkinds
432
432
my Str @ subkinds = first-code-block($ chunk )\
@@ -616,14 +616,14 @@ sub write-index-files () {
616
616
. [0 ]. subkinds[0 ] ne ' role' ?? . [0 ]. summary !!
617
617
Pod ::FormattingCode. new (: type<I >, contents => [. [0 ]. summary]);
618
618
}
619
-
619
+
620
620
write-main-index : kind<type > : & summary ;
621
621
622
622
for <basic composite domain-specific exceptions > -> $ category {
623
623
write-sub-index : kind<type > : $ category : & summary ;
624
624
}
625
625
626
- & summary = {
626
+ & summary = {
627
627
pod-block(" (From " , $ _ >>. origin. map ({
628
628
pod-link(. name , . url)
629
629
}). reduce ({$ ^ a ," , " ,$ ^ b })," )" )
0 commit comments