sergiotarxz
/
burguillos.info
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding pinned posts and shuffle.

This commit is contained in:
Sergiotarxz 2023-09-11 01:10:23 +02:00
parent 0e12e058db
commit 78d88db6d9
7 changed files with 101 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
content/categories/comercios.xml
View File

@ -1,10 +1,11 @@
<category>
<title>Comercios de Burguillos.</title>
<description>
<p>Aquí puedes encontrar información acerca de los comercios de Burguillos.</p>
<p>¿Quieres que tu comercio aparezca aquí? Contacta con <a href="mailto:contact@owlcode.tech">contact@owlcode.tech</a></p>
</description>
<priority>2</priority>
<menu_text>Comercios</menu_text>
<slug>comercios</slug>
<title>Comercios de Burguillos.</title>
<description>
<p>Aquí puedes encontrar información acerca de los comercios de Burguillos.</p>
<p>¿Quieres que tu comercio aparezca aquí? Contacta con <a href="mailto:contact@owlcode.tech">contact@owlcode.tech</a></p>
</description>
<priority>2</priority>
<menu_text>Comercios</menu_text>
<slug>comercios</slug>
<random>true</random>
</category>

1
content/posts/0000015-meson-bar-cristobal.xml
View File

@ -9,6 +9,7 @@
<attributes>
<attribute>hamburguesas</attribute>
</attributes>
<pinned>1</pinned>
<img src="/img/cristobal-preview.webp"/>
<content>
<h2 style="background: black; color: red;">Menú actualizado con nuevos precios y productos 2023-09-06</h2>

1
content/posts/0000030-yo-te-lo-guiso.xml
View File

@ -9,6 +9,7 @@
<attribute>comida-vegana</attribute>
</attributes>
<slug>yo-te-lo-guiso</slug>
<pinned>1</pinned>
<content>
<img witdh="50%" alt="Cartel 'Yo te lo guiso'" style="border: solid 1px black" src="/img/yo-to-lo-guiso.webp"/>

3
content/posts/0000036-farmacia-de-guardia.xml
View File

@ -1,11 +1,12 @@
<post>
<author>Burguillos.info</author>
<date>2023-09-09T18:14:00+00:00</date>
<date>2023-09-07T16:11:00+00:00</date>
<title>Farmacia de Guardia en Burguillos.</title>
<ogdesc>Farmacia de Guardia en Burguillos.</ogdesc>
<img src="/img/farmacia.webp"/>
<category>index</category>
<slug>farmacia-guardia</slug>
<pinned>1</pinned>
<content>
<img alt="Imagen de cruz de Farmacia" src="/img/farmacia.webp"/>

3
content/posts/0000037-telefonos-de-interes.xml
View File

@ -1,11 +1,12 @@
<post>
<author>Burguillos.info</author>
<date>2023-09-09T18:13:00+00:00</date>
<date>2023-09-07T19:49:00+00:00</date>
<title>Teléfonos de interés de Burguillos.</title>
<ogdesc>Teléfonos de interés de Burguillos.</ogdesc>
<img src="/img/ayuntamiento.webp"/>
<category>index</category>
<slug>telefono-interes-burguillos</slug>
<pinned>1</pinned>
<content>
<img alt="Imagen del ayuntamiento" src="/img/ayuntamiento.webp"/>

24
lib/BurguillosInfo/Categories.pm
View File

@ -44,6 +44,20 @@ sub Retrieve($self) {
or die "Missing priority at $category_file";
my $attributes = $self->_GetAttributes($dom, $category_file);
my $parent_tag = $dom->at(':root > parent');
my $random_tag = $dom->at(':root > random');
my $random;
if (defined $random_tag) {{
$random = $random_tag->text;
if ($random =~ /^true$/i || $random =~ /^yes$/ ) {
$random = 1;
next;
}
if (int($random) != 0) {
$random = 1;
next;
}
$random = 0;
}}
my $parent;
if (defined $parent_tag) {
$parent = $parent_tag->content;
@ -60,6 +74,11 @@ sub Retrieve($self) {
()
),
attributes => $attributes,
(
(defined $random) ?
(random => $random):
()
)
};
$cached_categories->{$slug} = $category;
}
@ -106,7 +125,10 @@ sub _PopulateChildrenField($self, $categories) {
}
my $parent = $categories->{$parent_name};
if (!defined $parent) {
die "Category $parent not exists and 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};
}
$parent->{children} //= [];
push $parent->{children}->@*, $category;

104
lib/BurguillosInfo/Posts.pm
View File

@ -20,10 +20,10 @@ use DateTime;
use BurguillosInfo::Preview;
const my $CURRENT_FILE => __FILE__;
const my $ROOT_PROJECT => path($CURRENT_FILE)->parent->parent->parent;
const my $PUBLIC_DIR => $ROOT_PROJECT->child('public');
const my $POSTS_DIR => $ROOT_PROJECT->child('content/posts');
const my $CURRENT_FILE => __FILE__;
const my $ROOT_PROJECT => path($CURRENT_FILE)->parent->parent->parent;
const my $PUBLIC_DIR => $ROOT_PROJECT->child('public');
const my $POSTS_DIR => $ROOT_PROJECT->child('content/posts');
my $cached_posts_by_category;
my $cached_posts_by_slug;
@ -41,9 +41,7 @@ sub _ReturnCacheFilter {
for my $category ( keys %$cached_posts_by_category ) {
for my $post ( @{ $cached_posts_by_category->{$category} } ) {
my $date_post;
eval {
$date_post = $iso8601->parse_datetime( $post->{date} );
};
eval { $date_post = $iso8601->parse_datetime( $post->{date} ); };
if ($@) {
print Data::Dumper::Dumper $post;
}
@ -59,7 +57,7 @@ sub _ReturnCacheFilter {
}
sub _GeneratePostFromFile ( $self, $post_file ) {
warn "Bad file $post_file, omiting...", return
warn "Bad file $post_file, omiting...", return
if !-f $post_file || $post_file !~ /\.xml$/;
my $dom = Mojo::DOM->new( $post_file->slurp_utf8 );
my $title = $dom->at(':root > title')->text
@ -76,10 +74,15 @@ sub _GeneratePostFromFile ( $self, $post_file ) {
or die "Missing slug at $post_file.";
my $content = $dom->at(':root > content')->content
or die "Missing content at $post_file.";
my $pinned_node = $dom->at(':root > pinned');
my $image_element = $dom->at(':root > img');
my $image;
my $attributes = $self->_GetAttributes($post_file, $dom);
my $attributes = $self->_GetAttributes( $post_file, $dom );
my $pinned;
if ( defined $pinned_node ) {
$pinned = int($pinned_node);
}
if ( defined $image_element ) {
$image = $image_element->attr->{src};
}
@ -92,31 +95,36 @@ sub _GeneratePostFromFile ( $self, $post_file ) {
}
return {
title => $title,
author => $author,
date => $date,
ogdesc => $ogdesc,
category => $category,
slug => $slug,
content => $content,
title => $title,
author => $author,
date => $date,
ogdesc => $ogdesc,
category => $category,
slug => $slug,
content => $content,
attributes => $attributes,
(
( defined $last_modification_date )
? ( last_modification_date => $last_modification_date )
: ()
),
( ( defined $image ) ? ( image => $image ) : () ),
attributes => $attributes,
(
( defined $pinned ) ? ( pinned => $pinned )
: ()
)
};
}
sub _GetAttributes($self, $post_file, $dom) {
sub _GetAttributes ( $self, $post_file, $dom ) {
my $attributes_tag = $dom->at(':root > attributes');
my %attributes;
if (defined $attributes_tag) {
my @attribute_list = $attributes_tag->find('attributes > attribute')->map('text')->each;
%attributes = map {
if ( defined $attributes_tag ) {
my @attribute_list =
$attributes_tag->find('attributes > attribute')->map('text')->each;
%attributes = map {
my $identifier = $_;
($identifier => 1);
( $identifier => 1 );
} @attribute_list;
}
return \%attributes;
@ -128,10 +136,10 @@ sub _GeneratePostCache ($self) {
$cached_posts_by_slug = {};
for my $post_file ( sort { $b cmp $a } $POSTS_DIR->children ) {
my $post = $self->_GeneratePostFromFile($post_file);
if (!defined $post) {
if ( !defined $post ) {
next;
}
my $category = $post->{category};
my $category = $post->{category};
$cached_posts_by_category->{$category} //= [];
my $slug = $post->{slug};
my $category_posts = $cached_posts_by_category->{$category};
@ -150,24 +158,41 @@ sub Retrieve {
}
my $cache_all_post_categories = {};
sub RetrieveAllPostsForCategory ( $self, $category_name ) {
if (defined $cache_all_post_categories->{$category_name}) {
return $cache_all_post_categories->{$category_name};
}
my $categories = BurguillosInfo::Categories->new->Retrieve;
my $category = $categories->{$category_name};
my $posts = $self->RetrieveDirectPostsForCategory($category_name);
if ( defined $cache_all_post_categories->{$category_name} ) {
my $posts = $cache_all_post_categories->{$category_name};
return $self->shufflePostsIfRequired( $category, $posts );
}
my $posts = $self->RetrieveDirectPostsForCategory($category_name);
for my $child_category ( $category->{children}->@* ) {
my $child_category_name = $child_category->{slug};
push @$posts,
@{$self->RetrieveDirectPostsForCategory($child_category_name)};
@{ $self->RetrieveDirectPostsForCategory($child_category_name) };
}
@$posts = sort {
DateTime::Format::ISO8601->parse_datetime($b->{date}) <=>
DateTime::Format::ISO8601->parse_datetime($a->{date})
@$posts = sort {
DateTime::Format::ISO8601->parse_datetime( $b->{date} )
<=> DateTime::Format::ISO8601->parse_datetime( $a->{date} )
} @$posts;
$cache_all_post_categories->{$category_name} = $posts;
return $posts;
return $self->shufflePostsIfRequired( $category, $posts );
}
sub shufflePostsIfRequired ( $self, $category, $posts ) {
my $pinned_posts = [ grep {
exists $_->{pinned}
} @$posts ];
$posts = [ grep {
!exists $_->{pinned}
} @$posts ];
$pinned_posts = [ sort { $b <=> $a } @$pinned_posts ];
if ( exists $category->{random} && $category->{random} ) {
require List::AllUtils;
$posts = [ List::AllUtils::shuffle @$posts ];
}
return [@$pinned_posts, @$posts];
}
sub RetrieveDirectPostsForCategory ( $self, $category_name ) {
@ -183,14 +208,11 @@ sub RetrieveDirectPostsForCategory ( $self, $category_name ) {
}
sub PreviewOg {
my $self = shift;
my $post = shift;
my $title = $post->{title};
my $content = $post->{content};
my $self = shift;
my $post = shift;
my $title = $post->{title};
my $content = $post->{content};
my $image_file = $post->{image};
return BurguillosInfo::Preview->Generate($title, $content, $image_file);
return BurguillosInfo::Preview->Generate( $title, $content, $image_file );
}
1;