From 1229bb6a838e96eb52be7aa1cac8d692746bc783 Mon Sep 17 00:00:00 2001
From: "Jannis M. Hoffmann" <jannis@fehcom.de>
Date: Thu, 17 Aug 2023 11:36:55 +0200
Subject: convert to bulma css framework

---
 lib/JWebmail/Plugin/Paginate.pm | 4 ++--
 lib/JWebmail/View/RenderMail.pm | 6 ++----
 2 files changed, 4 insertions(+), 6 deletions(-)

(limited to 'lib/JWebmail')

diff --git a/lib/JWebmail/Plugin/Paginate.pm b/lib/JWebmail/Plugin/Paginate.pm
index 9b39617..b4564b7 100644
--- a/lib/JWebmail/Plugin/Paginate.pm
+++ b/lib/JWebmail/Plugin/Paginate.pm
@@ -79,11 +79,11 @@ sub paginate {
 }
 
 sub make_link {
-    my ($c, $txt, $to) = @_;
+    my ($c, $txt, $to, %args) = @_;
 
     return $c->link_to(
         $txt => $c->url_with->query({start => $c->stash('pgn')->{$to}[0]}),
-        class => ($c->param('start')//0) == $c->stash('pgn')->{$to}[0] ? 'disabled' : '',
+        class => ($c->param('start')//0) == $c->stash('pgn')->{$to}[0] ? join(' ', $args{class}, $args{class_disabled}) : $args{class},
     );
 }
 
diff --git a/lib/JWebmail/View/RenderMail.pm b/lib/JWebmail/View/RenderMail.pm
index 90534dc..387e586 100644
--- a/lib/JWebmail/View/RenderMail.pm
+++ b/lib/JWebmail/View/RenderMail.pm
@@ -112,7 +112,7 @@ sub render_message {
 
     warn "unkown mime-subtype $subtype" unless $subtype eq 'rfc822';
 
-    my $R .= '<div clas="jwm-mail">';
+    my $R .= '<div class="jwm-mail">';
 
     $R .= '<dl class="jwm-mail-header">';
     $R .= '<dt>' . xml_escape(uc $self->c->l('subject')) . '</dt>';
@@ -127,8 +127,6 @@ sub render_message {
     $R .= '<dd>' . to_mime_type($msg->{head}{mime}) . "</dd>\n";
     $R .= "</dl>\n";
 
-    #my $content = ref $msg->{body} && exists $msg->{body}{parts} ? $msg->{body}{parts} : $msg->{body};
-
     $R .= $self->mime_render(to_mime_types($msg->{head}{mime}), $msg->{body}, [@$path, 0]);
 
     return $R . "</div>\n";
@@ -149,7 +147,7 @@ sub mime_render {
     my $renderer = $MIME_Render_Subs{"$maintype/$subtype"} || $MIME_Render_Subs{$maintype};
 
     unless ($renderer) {
-        return "<p>Unsupported MIME type of <code>$maintype/$subtype</code>.</p>\n";
+        return qq(<p class="jwm-body-unsupported">Unsupported MIME type of <code>$maintype/$subtype</code>.</p>\n);
     }
 
     return $renderer->($self, $subtype, $content, $path);
-- 
cgit v1.2.3