From ea2ec1ceaa0ce01b0dc3eb9867afc294f84ff2f4 Mon Sep 17 00:00:00 2001
From: Axel Burri <axel@tty0.ch>
Date: Wed, 7 Aug 2019 20:32:01 +0200
Subject: [PATCH] btrbk: print_formatted: allow custom format

---
 btrbk | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/btrbk b/btrbk
index 35fb74a..7ffcffd 100755
--- a/btrbk
+++ b/btrbk
@@ -4975,16 +4975,17 @@ sub print_formatted(@)
   my $default_format = "table";
   my %args = @_;
   my $title = $args{title};
+  my $table_format = ref($format_key) ? $format_key : $table_formats{$format_key};
   my $format = $args{output_format} || $output_format || $default_format;
   my $pretty = $args{pretty} // $output_pretty;
-  my $key_defs = $table_formats{$format_key}->{$format};
-  my $ralign = $table_formats{$format_key}->{RALIGN} // {};
+  my $key_defs = $table_format->{$format};
+  my $ralign = $table_format->{RALIGN} // {};
   my $fh = $args{outfile} // *STDOUT;
   my $table_spacing = 2;
 
   unless($key_defs) {
     WARN "Unsupported output format \"$format\", defaulting to \"$default_format\" format.";
-    $key_defs = $table_formats{$format_key}->{$default_format} || die;
+    $key_defs = $table_format->{$default_format} || die;
     $format = $default_format;
   }
   my @keys;