Adding obra el silencio.

content/posts/0000013-obra-el-silencio.xml

@@ -0,0 +1,15 @@
+<post>
+	<author>Burguillos.info</author>
+	<date>2022-11-19T18:03+00:00</date>
+	<title>¡Silencio, se piensa!.</title>
+	<ogdesc>¡Silencio, se piensa!.</ogdesc>
+	<category>index</category>
+	<slug>silencio-se-piensa</slug>
+	<img src="/img/silencio-se-piensa-preview.png"/>
+	<content>
+		<img alt="Portada silencio, se piensa" src="/img/silencio-se-piensa-1.jpg">
+		<p>Hemos recibido información adicional de la obra de teatro del día 2022/11/19, desde Burguillos.info procedemos a comunicaros las novedades:</p>
+
+		<p>🎭 Continuamos con el Certamen de teatro “Villa de Burguillos “ con la 2da compañía finalista , Producciones  el  dramaturgo de Jerez de la Frontera ( Cádiz) y que estrenan en primicia su obra : ¡Silencio, se piensa ! Escrita por José Mateos , director de la compañía. Los jóvenes actores Luis Guerrero y Emilio Rosales son los en cargados de envolvernos  en esta magnífica historia que narra  el futuro incierto de dos actores que acaban de quedarse sin trabajo... obra que recurre al auto sacramental como género clásico poco usado hoy día por los dramaturgos contemporáneos . Estilo que ejercen de forma magistral induciendo sutilmente al bonito ejercicio de pensar con profundidad y espíritu autocrítico. ¿¿Te vas a perder esta oportunidad?? Te esperamos a las 20 :00 H en el teatro municipal. 🎭</p>
+	</content>
+</post>

lib/BurguillosInfo/Posts.pm

@@ -134,13 +134,15 @@ sub PostPreviewOg {
 
     my $svg =
       $self->_GenerateSVGPostPreview( $title, \@new_content, $post->{image} );
-    my ( $stdout, $stderr ) = capture {
+    my $svgexport = path($ENV{HOME})->child('node_modules/.bin/svgexport');
-        open my $fh, '|-', qw{convert /dev/stdin png:fd:1};
+    die "No svgexport." if !-f $svgexport;
-        print $fh $svg;
+    my $tmpdir = Path::Tiny->tempdir();
-        close $fh;
+    my $input = $tmpdir->child('input.svg');
-    };
+    my $output = $tmpdir->child('output.png');
-    say STDERR $stderr;
+
-    return $stdout;
+    $input->spew_utf8($svg);
+    system $svgexport, $input, $output, 'png';
+    return $output->slurp;
 }
 
 sub _AttachImageSVG {
@@ -248,6 +250,7 @@ sub _GenerateSVGPostPreview {
         )->cdata($line);
         $n++;
     }
+    path($ROOT_PROJECT)->child('a.svg')->spew_utf8($svg->xmlify);
     return $svg->xmlify;
 }