Adding obra el silencio.

This commit is contained in:
sergiotarxz 2022-11-19 19:56:59 +01:00
parent db9607da36
commit c311f33494
4 changed files with 25 additions and 7 deletions

View File

@ -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>

View File

@ -134,13 +134,15 @@ sub PostPreviewOg {
my $svg = my $svg =
$self->_GenerateSVGPostPreview( $title, \@new_content, $post->{image} ); $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 { sub _AttachImageSVG {
@ -248,6 +250,7 @@ sub _GenerateSVGPostPreview {
)->cdata($line); )->cdata($line);
$n++; $n++;
} }
path($ROOT_PROJECT)->child('a.svg')->spew_utf8($svg->xmlify);
return $svg->xmlify; return $svg->xmlify;
} }

Binary file not shown.

After

Width:  |  Height:  |  Size: 207 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 93 KiB