@@ -157,11 +157,11 @@ sub MAIN(
157
157
sub process-pod-dir ($ dir , : & sorted-by = &[cmp ], : $ sparse ) {
158
158
say " Reading doc/$ dir ..." ;
159
159
my @ pod-sources =
160
- recursive-dir(" doc/$ dir /" )\
161
- . grep ({. path ~~ / '.pod' $ /})\
162
- . map ({;
163
- . path . subst (" doc/$ dir /" , ' ' )\
164
- . subst (rx {\. pod$ }, ' ' )\
160
+ recursive-dir(" doc/$ dir /" )
161
+ . grep ({. path ~~ / '.pod' $ /})
162
+ . map ({
163
+ . path . subst (" doc/$ dir /" , ' ' )
164
+ . subst (rx {\. pod$ }, ' ' )
165
165
. subst (: g, ' /' , ' ::' )
166
166
=> $ _
167
167
}). sort (& sorted-by );
@@ -584,7 +584,7 @@ sub write-search-file () {
584
584
$ s . trans ([</ \\ " >] => [<\\ / \\\\ \\ " > ]);
585
585
}
586
586
my $ items = $ * DR . get-kinds. map (-> $ kind {
587
- $ * DR . lookup($ kind , : by<kind >). categorize ({escape . name })\
587
+ $ * DR . lookup($ kind , : by<kind >). categorize ({escape . name })
588
588
. pairs . sort ({. key }). map : -> (: key($ name ), : value(@ docs )) {
589
589
qq [[ \{ label: "{
590
590
( @ docs > 1 ?? $ kind !! @ docs . [0 ]. subkinds[0 ] ). wordcase
@@ -688,7 +688,7 @@ sub write-main-index(:$kind, :&summary = {Nil}) {
688
688
" Use the above menu to narrow it down topically."
689
689
),
690
690
pod-table($ * DR . lookup($ kind , : by<kind >)\
691
- . categorize (*. name ). sort (*. key )>>. value \
691
+ . categorize (*. name ). sort (*. key )>>. value
692
692
. map ({[
693
693
. map ({. subkinds // Nil }). unique . join (' , ' ),
694
694
pod-link(. [0 ]. name , . [0 ]. url),
@@ -705,7 +705,7 @@ sub write-sub-index(:$kind, :$category, :&summary = {Nil}) {
705
705
" Perl 6 { $ category . tc} { $ kind . tc} s" ,
706
706
pod-table($ * DR . lookup($ kind , : by<kind >)\
707
707
. grep ({$ category ⊆ . categories})\ # XXX
708
- . categorize (*. name ). sort (*. key )>>. value \
708
+ . categorize (*. name ). sort (*. key )>>. value
709
709
. map ({[
710
710
. map ({. subkinds // Nil }). unique . join (' , ' ),
711
711
pod-link(. [0 ]. name , . [0 ]. url),
@@ -717,8 +717,8 @@ sub write-sub-index(:$kind, :$category, :&summary = {Nil}) {
717
717
718
718
sub write-kind ($ kind ) {
719
719
say " Writing per-$ kind files ..." ;
720
- $ * DR . lookup($ kind , : by<kind >)\
721
- . categorize ({. name })\
720
+ $ * DR . lookup($ kind , : by<kind >)
721
+ . categorize ({. name })
722
722
. kv . map : -> $ name , @ docs {
723
723
my @ subkinds = @ docs . map ({. subkinds}). unique ;
724
724
my $ subkind = @ subkinds . elems == 1 ?? @ subkinds . list[0 ] !! $ kind ;
0 commit comments