Support nested keys in yfm_keys (Markdown)

[rtsisyk]

Thanks for the great tool. It would be nice to add support for nested keys for --yfm_keys option:

title: "My title"
extra:
  menu_title: Home <!-- not supported currently

I took a look at implementation, but the code is too complex for me to patch it quickly. Please help.

po4a/lib/Locale/Po4a/TransTractor.pm

Lines 1291 to 1343 in 8279b57

	sub do_hash {
	my ( $self, $blockref, $hash, $indent, $ctx, $yfm_keys, $yfm_skip_array ) = @_;
	foreach my $name ( sort keys %$hash ) {
	my $el = $hash->{$name};
	my $header = ( ' ' x $indent ) . YAML::Tiny::_dump_scalar( "dummy", $name, 1 ) . ":";
	my $type = ref $el;
	if ( !$type ) {
	my %keys = %{$yfm_keys};
	if ( ( not %keys ) || $keys{$name} ) { # either no key is provided, or the key we need is also provided
	my $translation = $self->translate( $el, $blockref, "YAML Front Matter:$ctx $name", "wrap" => 0 );
	if ( $el =~ /^\[.*\]$/ ) { # Do not quote the lists
	$self->pushline( $header . " $translation\n" );
	} else {
	# add extra quotes to the parameter, as a protection to the extra chars that the translator could add
	$self->pushline( $header . ' ' . format_scalar($translation) . "\n" );
	}
	} else {
	# Work around a bug in YAML::Tiny that quotes numbers
	# See https://github.com/Perl-Toolchain-Gang/YAML-Tiny#additional-perl-specific-notes
	if ( Scalar::Util::looks_like_number($el) ) {
	$self->pushline("$header $el\n");
	} elsif ( $el =~ /^\[.*\]$/ ) { # Do not quote the lists either
	$self->pushline("$header $el\n");
	} else {
	$self->pushline( $header . ' ' . YAML::Tiny::_dump_scalar( "dummy", $el ) . "\n" );
	}
	}
	} elsif ( $type eq 'ARRAY' ) {
	if (@$el) {
	$self->pushline( $header . "\n" );
	do_array( $self, $blockref, $el, $indent + 1, "$ctx $name", $yfm_keys, $yfm_skip_array );
	} else {
	$self->pushline( $header . " []\n" );
	}
	} elsif ( $type eq 'HASH' ) {
	if ( keys %$el ) {
	$self->pushline( $header . "\n" );
	do_hash( $self, $blockref, $el, $indent + 1, "$ctx $name", $yfm_keys, $yfm_skip_array );
	} else {
	$self->pushline( $header . " {}\n" );
	}
	} else {
	die "YAML $type references not supported";
	}
	}
	}
	}

[mquinson]

Hello,

I have the feeling that this can be achieved with -o 'yfm_paths=extra menu_title' (and my commits of earlier today). Could you please test whether it's doing what you want and tell us?

Thanks,
Mt

[mquinson]

I'm rather sure that my change is actually fixing your problem, so I'm closing this issue. Please feel free to reopen if I'm off track.

[rtsisyk]

I'm rather sure that my change is actually fixing your problem, so I'm closing this issue. Please feel free to reopen if I'm off track.

Yeah, -o 'yfm_paths=extra menu_title' does work. Thanks a lot!

[zygisk-topjohnu]

Press C button for 5 Second.