From b85308eca87fcd5b2494a03be08dcbd081e2ccb7 Mon Sep 17 00:00:00 2001
From: sergiotarxz <sergiotarxz@posteo.net>
Date: Sat, 19 Nov 2022 20:00:37 +0100
Subject: [PATCH] Removing svgexport.

---
 lib/BurguillosInfo/Posts.pm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/lib/BurguillosInfo/Posts.pm b/lib/BurguillosInfo/Posts.pm
index 4dbc994..f2e71d9 100644
--- a/lib/BurguillosInfo/Posts.pm
+++ b/lib/BurguillosInfo/Posts.pm
@@ -50,7 +50,7 @@ sub _ReturnCacheFilter {
             push @{ $posts_by_category_filtered{ $post->{category} } }, $post;
         }
     }
-    return (\%posts_by_category_filtered, \%posts_by_slug_filtered);
+    return ( \%posts_by_category_filtered, \%posts_by_slug_filtered );
 }
 
 sub Retrieve {
@@ -134,15 +134,14 @@ sub PostPreviewOg {
 
     my $svg =
       $self->_GenerateSVGPostPreview( $title, \@new_content, $post->{image} );
-    my $svgexport = path($ENV{HOME})->child('node_modules/.bin/svgexport');
-    die "No svgexport." if !-f $svgexport;
-    my $tmpdir = Path::Tiny->tempdir();
-    my $input = $tmpdir->child('input.svg');
-    my $output = $tmpdir->child('output.png');
-
-    $input->spew_utf8($svg);
-    system $svgexport, $input, $output, 'png';
-    return $output->slurp;
+    my ( $stdout, $stderr ) = capture {
+        open my $fh, '|-', qw{convert /dev/stdin png:fd:1};
+	binmode $fh, 'utf8';
+        print $fh $svg;
+        close $fh;
+    };
+    say STDERR $stderr;
+    return $stdout;
 }
 
 sub _AttachImageSVG {
@@ -250,7 +249,7 @@ sub _GenerateSVGPostPreview {
         )->cdata($line);
         $n++;
     }
-    path($ROOT_PROJECT)->child('a.svg')->spew_utf8($svg->xmlify);
+    path($ROOT_PROJECT)->child('a.svg')->spew_utf8( $svg->xmlify );
     return $svg->xmlify;
 }