# HG changeset patch
# User Vincent Tondellier <tonton+hg@team1664.org>
# Date 1409176302 -7200
# Node ID b8a7a5ec6461f21563b4995171e3a0f03034212b
# Parent  278e9e00e3fd695039e99862a6d13acc54112336
Replace the modified pagination plugin with a cleaner one that supports bootstrap natively

diff -r 278e9e00e3fd -r b8a7a5ec6461 CrashTest.pl
--- a/CrashTest.pl	Wed Aug 20 00:07:32 2014 +0200
+++ b/CrashTest.pl	Wed Aug 27 23:51:42 2014 +0200
@@ -124,7 +124,7 @@
 push @{app->plugins->namespaces}, 'CrashTest::Helpers';
 
 plugin 'Config';
-plugin 'TagHelpers::BootstrapPagination';
+plugin 'bootstrap_pagination';
 plugin 'CrashTestHelpers';
 
 app->start;
diff -r 278e9e00e3fd -r b8a7a5ec6461 lib/Mojolicious/Plugin/TagHelpers/BootstrapPagination.pm
--- a/lib/Mojolicious/Plugin/TagHelpers/BootstrapPagination.pm	Wed Aug 20 00:07:32 2014 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,432 +0,0 @@
-# Based on Mojolicious-Plugin-TagHelpers-Pagination and slightly modified for bootstrap
-# Under Artistic License 2.0
-
-package Mojolicious::Plugin::TagHelpers::BootstrapPagination;
-use Mojo::Base 'Mojolicious::Plugin';
-use Mojo::ByteStream 'b';
-use Scalar::Util 'blessed';
-use POSIX 'ceil';
-
-our $VERSION = 0.01;
-
-our @value_list =
-  qw/prev
-     next
-     current_start
-     current_end
-     page_start
-     page_end
-     separator
-     ellipsis
-     placeholder/;
-
-# Register plugin
-sub register {
-  my ($plugin, $mojo, $param) = @_;
-
-  $param ||= {};
-
-  # Load parameter from Config file
-  if (my $config_param = $mojo->config('TagHelpers-Pagination')) {
-    $param = { %$config_param, %$param };
-  };
-
-  foreach (@value_list) {
-    $plugin->{$_} = $param->{$_} if defined $param->{$_};
-  };
-
-  # Set 'current_start' and 'current_end' symbols,
-  # if 'current' template is available.
-  # Same for 'page'.
-  foreach (qw/page current/) {
-    if (defined $param->{$_}) {
-      @{$plugin}{$_ . '_start', $_ . '_end'} = split("{$_}", $param->{$_});
-      $plugin->{$_ . '_end'} ||= '';
-    };
-  };
-
-  # Default current start and current end symbols
-  for ($plugin) {
-    $_->{current_start} //= '';
-    $_->{current_end}   //= '';
-    $_->{page_start}    //= '';
-    $_->{page_end}      //= '';
-    $_->{prev}          //= '&lt;';
-    $_->{next}          //= '&gt;';
-    $_->{separator}     //= '';
-    $_->{ellipsis}      //= '<li><span>...</span></li>';
-    $_->{placeholder}   //= 'page';
-  };
-
-  # Establish pagination helper
-  $mojo->helper(
-    pagination => sub {
-      shift; # Controller
-      return b( $plugin->pagination( @_ ) );
-    });
-};
-
-
-# Pagination helper
-sub pagination {
-  my $self = shift;
-
-  # $_[0] = current page
-  # $_[1] = page count
-  # $_[2] = template or Mojo::URL
-
-  return '' unless $_[0] || $_[1];
-
-  # No valid count given
-  local $_[1] = !$_[1] ? 1 : ceil($_[1]);
-
-  # New parameter hash
-  my %values =
-    map { $_ => $self->{$_} } @value_list;
-
-  # Overwrite plugin defaults
-  if ($_[3] && ref $_[3] eq 'HASH') {
-    my $overwrite = $_[3];
-    foreach (@value_list) {
-      $values{$_}  = $overwrite->{$_} if defined $overwrite->{$_};
-    };
-
-    foreach (qw/page current/) {
-      if (defined $overwrite->{$_}) {
-	@values{$_ . '_start', $_ . '_end'} = split("{$_}", $overwrite->{$_});
-	$values{$_ . '_end'} ||= '';
-      };
-    };
-  };
-
-  # Establish string variables
-  my ($p, $n, $cs, $ce, $ps, $pe, $s, $el, $ph) = @values{@value_list};
-  # prev next current_start current_end
-  # page_start page_end separator ellipsis placeholder
-
-  # Template
-  my $t = $_[2];
-  if (blessed $t && blessed $t eq 'Mojo::URL') {
-    $t = $t->to_string;
-    $t =~ s/\%7[bB]$ph\%7[dD]/{$ph}/g;
-  };
-
-
-  my $sub = sublink_gen($t,$ps,$pe,$ph);
-
-  # Pagination string
-  my $e;
-  my $counter = 1;
-
-  if ($_[1] >= 7){
-
-    # < [1] #2 #3
-    if ($_[0] == 1){
-      $e .= $sub->(undef, [$p, 'prev']) . $s .
-	    $sub->(undef, [$cs . 1  . $ce, 'self']) . $s .
-	    $sub->('2') . $s .
-	    $sub->('3') . $s;
-    }
-
-    # < #1 #2 #3
-    elsif (!$_[0]) {
-      $e .= $sub->(undef, [$p, 'prev']) . $s;
-      $e .= $sub->($_) . $s foreach (1 .. 3);
-    }
-
-    # #< #1
-    else {
-      $e .= $sub->(($_[0] - 1), [$p, 'prev']) . $s .
-            $sub->('1') . $s;
-    };
-
-    # [2] #3
-    if ($_[0] == 2){
-      $e .= $sub->(undef, [$cs . 2 . $ce, 'self']) . $s .
-	    $sub->('3') . $s;
-    }
-
-    # ...
-    elsif ($_[0] > 3){
-      $e .= $el . $s;
-    };
-
-    # #x-1 [x] #x+1
-    if (($_[0] >= 3) && ($_[0] <= ($_[1] - 2))){
-      $e .= $sub->($_[0] - 1) . $s .
-	    $sub->(undef, [$cs .$_[0] . $ce, 'self']) . $s .
-	    $sub->($_[0] + 1) . $s;
-    };
-
-    # ...
-    if ($_[0] < ($_[1] - 2)){
-      $e .= $el . $s;
-    };
-
-    # number is prefinal
-    if ($_[0] == ($_[1] - 1)){
-      $e .= $sub->($_[1] - 2) . $s .
-	    $sub->(undef, [$cs . $_[0] . $ce, 'self']) . $s;
-    };
-
-    # Number is final
-    if ($_[0] == $_[1]){
-      $e .= $sub->($_[1] - 1) . $s .
-            $sub->(undef, [$cs . $_[1] . $ce, 'self']) . $s .
-	    $sub->(undef, [$n, 'next']);
-    }
-
-    # Number is anywhere in between
-    else {
-      $e .= $sub->($_[1]) . $s .
-            $sub->(($_[0] + 1), [$n,'next']);
-    };
-  }
-
-  # Counter < 7
-  else {
-
-    # Previous
-    if ($_[0] > 1){
-      $e .= $sub->(($_[0] - 1), [$p, 'prev']) . $s;
-    } else {
-      $e .= $sub->(undef, [$p, 'prev']) . $s;
-    };
-
-    # All numbers in between
-    while ($counter <= $_[1]){
-      if ($_[0] != $counter) {
-        $e .= $sub->($counter) . $s;
-      }
-
-      # Current
-      else {
-        $e .= $sub->(undef, [$cs . $counter . $ce, 'self']) . $s;
-      };
-
-      $counter++;
-    };
-
-    # Next
-    if ($_[0] != $_[1]){
-      $e .= $sub->(($_[0] + 1), [$n, 'next']);
-    }
-
-    else {
-      $e .= $sub->(undef, [$n, 'next']);
-    };
-  };
-
-  # Pagination string
-  $e;
-};
-
-# Sublink function generator
-sub sublink_gen {
-  my ($url, $ps, $pe, $ph) = @_;
-
-  my $s = 'sub {';
-  # $_[0] = number
-  # $_[1] = number_shown
-
-  # Url is template
-  if ($url) {
-    $s .= 'my $url=' . b($url)->quote . ';';
-    $s .= 'if($_[0]){$url=~s/\{' . $ph . '\}/$_[0]/g}else{$url=undef};';
-  }
-
-  # No template given
-  else {
-    $s .= 'my $url = $_[0];';
-  };
-
-  $s .= 'my$n=$_[1]||' . b($ps)->quote . '.$_[0].' . b($pe)->quote . ';';
-  $s .= q{my $liclass='';};
-  $s .= q{if(ref $n && $n->[1] eq "self"){$liclass = "active"};};
-  $s .= q{my $rel='';};
-  $s .= q{if(ref $n){$rel=' rel="'.$n->[1].'"';$n=$n->[0]};};
-  $s .= q!if($url){$url=~s/&/&amp;/g;!;
-  $s .= q{$url=~s/</&lt;/g;};
-  $s .= q{$url=~s/>/&gt;/g;};
-  $s .= q{$url=~s/"/&quot;/g;};
-  $s .= q!$url=~s/'/&#39;/g;};!;
-
-  # Create sublink
-  $s .= q{return '<li'.($liclass?' class="'.$liclass.'"':'').'><a'.($url?' href="'.$url.'"':'').$rel.'>' . $n . '</a></li>';};
-  $s .= '}';
-
-  my $x = eval($s);
-
-  warn $@ if $@;
-
-  $x;
-};
-
-
-1;
-
-
-__END__
-
-=pod
-
-=head1 NAME
-
-Mojolicious::Plugin::TagHelpers::Pagination - Pagination Helper for Mojolicious
-
-
-=head1 SYNOPSIS
-
-  # Mojolicious
-  $app->plugin('TagHelpers::Pagination' => {
-    separator => ' ',
-    current => '<strong>{current}</strong>'
-  });
-
-  # Mojolicious::Lite
-  plugin 'TagHelpers::Pagination' => {
-    separator => ' ',
-    current   =>  '<strong>{current}</strong>'
-  };
-
-  # In Templates
-  %= pagination(2, 4, '?page={page}' => { separator => "\n" })
-  # <a href="?page=1" rel="prev">&lt;</a>
-  # <a href="?page=1">1</a>
-  # <a rel="self"><strong>2</strong></a>
-  # <a href="?page=3">3</a>
-  # <a href="?page=4">4</a>
-  # <a href="?page=3" rel="next">&gt;</a>
-
-=head1 DESCRIPTION
-
-L<Mojolicious::Plugin::TagHelpers::Pagination> helps you to create
-pagination elements in your templates, like this:
-
-L<E<lt>|/#> L<1|/#> ... L<5|/#> B<[6]> L<7|/#> ... L<18|/#> L<E<gt>|/#>
-
-=head1 METHODS
-
-L<Mojolicious::Plugin::TagHelpers::Pagination> inherits all methods from
-L<Mojolicious::Plugin> and implements the following new one.
-
-
-=head2 register
-
-  # Mojolicious
-  $app->plugin('TagHelpers::Pagination' => {
-    separator => ' ',
-    current => '<strong>{current}</strong>'
-  });
-
-  # Or in your config file
-  {
-    'TagHelpers-Pagination' => {
-      separator => ' ',
-      current => '<strong>{current}</strong>'
-    }
-  }
-
-Called when registering the plugin.
-
-All L<parameters|/PARAMETERS> can be set either on registration or
-as part of the configuration file with the key C<TagHelpers-Pagination>.
-
-
-=head1 HELPERS
-
-=head2 pagination
-
-  # In Templates:
-  %= pagination(4, 6 => '/page-{page}.html');
-  % my $url = Mojo::URL->new->query({ page => '{page}'});
-  %= pagination(4, 6 => $url);
-  %= pagination(4, 6 => '/page/{page}.html', { current => '<b>{current}</b>' });
-
-Generates a pagination string.
-Expects at least two numeric values: the current page number and
-the total count of pages.
-Additionally it accepts a link pattern and a hash reference
-with parameters overwriting the default plugin parameters for
-pagination.
-The link pattern can be a string using a placeholder in curly brackets
-(defaults to C<page>) for the page number it should link to.
-It's also possible to give a
-L<Mojo::URL> object containing the placeholder.
-The placeholder can be used multiple times.
-
-
-=head1 PARAMETERS
-
-For the layout of the pagination string, the plugin accepts the
-following parameters, that are able to overwrite the default
-layout elements. These parameters can again be overwritten in
-the pagination helper.
-
-=over 2
-
-=item current
-
-Pattern for current page number. The C<{current}> is a
-placeholder for the current number.
-Defaults to C<[{current}]>.
-Instead of a pattern, both sides of the current number
-can be defined with C<current_start> and C<current_end>.
-
-
-=item ellipsis
-
-Placeholder symbol for hidden pages. Defaults to C<...>.
-
-
-=item next
-
-Symbol for next pages. Defaults to C<&gt;>.
-
-
-=item page
-
-Pattern for page number. The C<{page}> is a
-placeholder for the page number.
-Defaults to C<{page}>.
-Instead of a pattern, both sides of the page number
-can be defined with C<page_start> and C<page_end>.
-
-
-=item placeholder
-
-String representing the placeholder for the page number in the URL
-pattern. Defaults to C<page>.
-
-
-=item prev
-
-Symbol for previous pages. Defaults to C<&lt;>.
-
-
-=item separator
-
-Symbol for the separation of pagination elements.
-Defaults to C<&nbsp;>.
-
-=back
-
-
-=head1 DEPENDENCIES
-
-L<Mojolicious>.
-
-
-=head1 AVAILABILITY
-
-  https://github.com/Akron/Mojolicious-Plugin-TagHelpers-Pagination
-
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (C) 2012-2014, L<Nils Diewald|http://nils-diewald.de/>.
-
-This program is free software, you can redistribute it
-and/or modify it under the terms of the Artistic License version 2.0.
-
-=cut
diff -r 278e9e00e3fd -r b8a7a5ec6461 templates/index.html.ep
--- a/templates/index.html.ep	Wed Aug 20 00:07:32 2014 +0200
+++ b/templates/index.html.ep	Wed Aug 27 23:51:42 2014 +0200
@@ -23,8 +23,5 @@
 % }
 % end
 % if($pager->first_page != $pager->last_page) {
-  %= t ul => (class => "pagination") => begin
-    % my $url = Mojo::URL->new->query({ page => '{page}'});
-    %= pagination($pager->current_page, $pager->last_page => $url);
-  % end
+  %= bootstrap_pagination($pager->current_page, $pager->last_page);
 % }