From 4f56301fff832189cb253ef98e62a064f82e2c54 Mon Sep 17 00:00:00 2001
From: Gustav Eek <gustav.eek@fripost.org>
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/Plugin')

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