Adding some previews to attributes and categories.

content/categories/comercios.xml

@@ -5,6 +5,7 @@
             <p>¿Quieres que tu comercio aparezca aquí? Contacta con <a href="mailto:contact@owlcode.tech">contact@owlcode.tech</a></p>
     </description>
     <priority>2</priority>
+    <img src="/img/comercio.webp" bottom-preview="600"/>
     <menu_text>Comercios</menu_text>
     <slug>comercios</slug>
     <random>true</random>

content/categories/donde-comer.xml

@@ -10,12 +10,14 @@
     <priority>0</priority>
     <menu_text>Donde comer</menu_text>
     <slug>donde-comer</slug>
+    <img src="/img/donde-comer.webp"/>
     <attributes>
         <attribute>
             <title>Comida vegana en Burguillos.</title>
             <identifier>comida-vegana</identifier>
             <priority>1</priority>
             <menu_text>Listado de sitios que tienen oferta de platos veganos.</menu_text>
+            <img src="/img/vegano.webp" bottom-preview="400"/>
             <description>
                 <h2>Restaurantes y bares con comida vegana en Burguillos.</h2>
 
@@ -31,6 +33,7 @@
             <identifier>reparto-a-domicilio-comida</identifier>
             <priority>0</priority>
             <menu_text>Listado de sitios de comida con reparto a domicilio.</menu_text>
+            <img src="/img/comida-domicilio.webp" bottom-preview="400"/>
             <description>
                 <h2>Cartas y Menús de Pizzerías, Hamburgueserías, Kebab, Restaurantes, Bares, etc.</h2>
 
@@ -43,6 +46,7 @@
             <title>Comer hamburguesas en Burguillos - Cartas y Menús.</title>
             <identifier>hamburguesas</identifier>
             <priority>0</priority>
+            <img src="/img/hamburguesa.webp" bottom-preview="600"/>
             <menu_text>Listado de sitios de comida que preparan hamburguesas.</menu_text>
             <description>
                 <h2>Hamburgueserias y todo tipo de establecimientos que preparan hamburguesas.</h2>

content/categories/index.xml

@@ -6,10 +6,11 @@
                 <img alt="The logo of Burguillos.info" src="/img/burguillos-new-logo.svg"/>
             </div>
         </div>
-		<p>Burguillos.info no está afiliado con el Ayuntamiento de Burguillos.</p>
+        <p>Descubre todo lo que Burguillos, Sevilla tiene para ofrecerte.</p>
 
-		<p>Esta página está destinada a informar de los sucesos y negocios de nuestro pueblo, cualquiera puede redactar una noticia para que aparezca en este medio mientras pase un proceso de revisión por parte del staff de Burguillos.info.</p>
+        <p>Un mundo de posibilidades a tu alcance en Burguillos.</p>
     </description>
+    <img src="/img/rotonda.webp"/>
     <priority>0</priority>
     <menu_text><img alt="Principio" class="index-image-menu" src="/img/burguillos-new-logo.svg?v=1"/></menu_text>
     <slug>index</slug>

lib/BurguillosInfo/Categories.pm

@@ -45,8 +45,13 @@ sub Retrieve($self) {
         my $attributes    = $self->_GetAttributes( $dom, $category_file );
         my $parent_tag    = $dom->at(':root > parent');
         my $random_tag    = $dom->at(':root > random');
+        my $image_element = $dom->at(':root > img');
+        my $image;
+        my $image_bottom_preview;
         my $random;
-        if (defined $random_tag) {{
+
+        if ( defined $random_tag ) {
+            {
                 $random = $random_tag->text;
                 if ( $random =~ /^true$/i || $random =~ /^yes$/ ) {
                     $random = 1;
@@ -57,7 +62,12 @@ sub Retrieve($self) {
                     next;
                 }
                 $random = 0;
-        }}
+            }
+        }
+        if ( defined $image_element ) {
+            $image                = $image_element->attr->{src};
+            $image_bottom_preview = $image_element->attr->{'bottom-preview'};
+        }
         my $parent;
         if ( defined $parent_tag ) {
             $parent = $parent_tag->content;
@@ -69,16 +79,16 @@ sub Retrieve($self) {
             description => $description,
             priority    => $priority,
             (
-                (defined $parent) ?
+                  ( defined $parent ) ? ( parent => $parent )
-                (parent => $parent) :
+                : ()
-                ()
             ),
             attributes => $attributes,
             (
-                (defined $random) ?
+                  ( defined $random ) ? ( random => $random )
-                (random => $random):
+                : ()
-                ()
+            ),
-            )
+            image_bottom_preview => $image_bottom_preview,
+            image                => $image,
         };
         $cached_categories->{$slug} = $category;
     }
@@ -91,24 +101,40 @@ sub _GetAttributes($self, $dom, $category_file) {
     my $attributes_tag = $dom->at(':root > attributes');
     my %attributes;
     if ( defined $attributes_tag ) {
-        my @attribute_tag_list = $attributes_tag->find('attributes > attribute')->each;
+        my @attribute_tag_list =
+          $attributes_tag->find('attributes > attribute')->each;
         for my $attribute_tag (@attribute_tag_list) {
-            defined (my $menu_text = $attribute_tag->at('attribute > menu_text')->content)
+            defined( my $menu_text =
+                  $attribute_tag->at('attribute > menu_text')->content )
               or die "Missing attribute menu_text at $category_file";
-            defined (my $description = $attribute_tag->at('attribute > description')->content)
+            defined( my $description =
+                  $attribute_tag->at('attribute > description')->content )
               or die "Missing attribute description at $category_file";
             defined( my $title = $attribute_tag->at('attribute > title')->text )
               or die "Missing attribute title at $category_file";
-            defined (my $identifier = $attribute_tag->at('attribute > identifier')->text)
+            defined( my $identifier =
+                  $attribute_tag->at('attribute > identifier')->text )
               or die "Missing attribute identifier at $category_file";
-            defined (my $priority = $attribute_tag->at('attribute > priority')->text)
+            defined( my $priority =
+                  $attribute_tag->at('attribute > priority')->text )
               or die "Missing attribute priority at $category_file";
+            my $image_element = $attribute_tag->at('attribute > img');
+            my $image;
+            my $image_bottom_preview;
+
+            if ( defined $image_element ) {
+                $image = $image_element->attr->{src};
+                $image_bottom_preview =
+                  $image_element->attr->{'bottom-preview'};
+            }
             $attributes{$identifier} = {
                 title                => $title,
                 identifier           => $identifier,
                 priority             => $priority,
                 menu_text            => $menu_text,
                 description          => $description,
+                image                => $image,
+                image_bottom_preview => $image_bottom_preview,
             };
         }
     }
@@ -125,7 +151,8 @@ sub _PopulateChildrenField($self, $categories) {
         }
         my $parent = $categories->{$parent_name};
         if ( !defined $parent ) {
-            die "Category $parent_name not exists and it is the parent of $category_name.";
+            die
+"Category $parent_name not exists and it is the parent of $category_name.";
         }
         if ( !exists $category->{random} && exists $parent->{random} ) {
             $category->{random} = $parent->{random};
@@ -140,7 +167,8 @@ sub _AvoidGrandChildCategories($self, $categories) {
         my $category = $categories->{$category_slug};
         my $parent   = $category->{parent};
         if ( defined $parent && defined $categories->{$parent}{parent} ) {
-            die "$category_slug category is grandchild of $categories->{$parent}{parent}) category and this is not allowed.";
+            die
+"$category_slug category is grandchild of $categories->{$parent}{parent}) category and this is not allowed.";
         }
     }
 }
@@ -148,6 +176,9 @@ sub _AvoidGrandChildCategories($self, $categories) {
 sub PreviewOg ( $self, $category ) {
     my $title                = $category->{title};
     my $description          = $category->{description};
-    return BurguillosInfo::Preview->Generate($title, $description, undef);
+    my $image                = $category->{image};
+    my $image_bottom_preview = $category->{image_bottom_preview};
+    return BurguillosInfo::Preview->Generate( $title, $description, $image,
+        $image_bottom_preview );
 }
 1;

lib/BurguillosInfo/Command/index.pm

@@ -50,15 +50,21 @@ sub _index_categories ( $self, $index, $categories ) {
           ->all_text;
         my $title      = $category->{title};
         my $attributes = $category->{attributes};
+        my $image      = $category->{image};
         $self->_index_attributes( $index, $slug, $attributes );
-        push @$index,
+        push @$index, {
-          {
             title             => $title,
             titleNormalized   => $index_utils->n($title),
             content           => $content,
             contentNormalized => $index_utils->n( $content =~ s/\s+/ /gr ),
             url               => $url,
             urlNormalized     => $index_utils->n($url),
+            (
+                  ( defined $image )
+                ? ( urlImage => $image )
+                : ()
+            )
+
         };
     }
 }
@@ -70,6 +76,7 @@ sub _index_attributes ( $self, $index, $category_slug, $attributes ) {
         my $slug      = $attribute->{identifier};
         my $url       = "/$category_slug/atributo/$slug";
         my $title     = $attribute->{title};
+        my $image     = $attribute->{image};
         my $content =
           Mojo::DOM->new( '<html>' . $attribute->{description} . '</html>' )
           ->all_text;
@@ -81,6 +88,11 @@ sub _index_attributes ( $self, $index, $category_slug, $attributes ) {
             content           => $content =~ s/\s+/ /gr,
             urlNormalized     => $index_utils->n($url),
             url               => $url,
+            (
+                  ( defined $image )
+                ? ( urlImage => $image )
+                : ()
+            )
           };
     }
 }

lib/BurguillosInfo/Controller/Attribute.pm

@@ -28,7 +28,8 @@ sub get_attribute_preview ($self) {
     $self->render(
         format => 'png',
         data   => BurguillosInfo::Preview->Generate(
-            $attribute->{title}, $attribute->{description}, undef
+            $attribute->{title}, $attribute->{description},
+            $attribute->{image}, $attribute->{image_bottom_preview}
         ),
     );
 }

lib/BurguillosInfo/Preview.pm

@@ -23,7 +23,7 @@ const my $SVG_HEIGHT      => 627;
 const my $SVG_EMBEDDED_IMAGE_MAX_WIDTH  => 1200;
 const my $SVG_EMBEDDED_IMAGE_MAX_HEIGHT => 400;
 
-sub Generate($self, $title, $content, $image_file, $image_bottom_preview) {
+sub Generate($self, $title, $content, $image_file = undef, $image_bottom_preview = undef) {
     my $dom     = Mojo::DOM->new($content);
     $content = $dom->all_text;