From 4f56301fff832189cb253ef98e62a064f82e2c54 Mon Sep 17 00:00:00 2001 From: Gustav Eek Date: Sat, 14 Dec 2019 15:58:21 +0100 Subject: Refactor. Move lists of meta lables to promote to top of file --- .ikiwiki/IkiWiki/Plugin/pandoc.pm | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) (limited to '.ikiwiki/IkiWiki') diff --git a/.ikiwiki/IkiWiki/Plugin/pandoc.pm b/.ikiwiki/IkiWiki/Plugin/pandoc.pm index 4a7eb31..0de38ff 100755 --- a/.ikiwiki/IkiWiki/Plugin/pandoc.pm +++ b/.ikiwiki/IkiWiki/Plugin/pandoc.pm @@ -33,6 +33,17 @@ my %extra_formats = ( latex => { ext=>'tex', label=>'LaTeX', format=>'latex', extra=>['--standalone'], order=>7 }, ); +my @scalar_meta_keys = qw/ + title date bibliography csl subtitle abstract summary description + version lang locale titlesort tag fripost_debug_inner + /; + +my @list_meta_keys = qw/ + author + /; + + /; + sub debug_get_filename_prefix { my $place = shift; @@ -549,15 +560,11 @@ sub htmlize ($@) { # as well as some configuration options (generate_*, *_extra_options, *_template). my @format_keys = grep { $_ ne 'pdf' } keys %extra_formats; - my %scalar_meta = map { ($_=>undef) } qw( - title date bibliography csl subtitle abstract summary - description version lang locale - titlesort tag - ); + my %scalar_meta = map { ($_=>undef) } @scalar_meta_keys; $scalar_meta{$_.'_template'} = undef for @format_keys; my %bool_meta = map { ("generate_$_"=>0) } keys %extra_formats; - my %list_meta = map { ($_=>[]) } qw/author references tags/; + my %list_meta = map { ($_=>[]) } @list_meta_keys; $list_meta{$_.'_extra_options'} = [] for @format_keys; my $have_bibl = 0; -- cgit v1.2.3