Merge branch 'jquery-autocomplete'

Conflicts:
	lib/MetaCPAN/Web.pm

Author: monken

lib/MetaCPAN/Web.pm

@@ -30,7 +30,7 @@ $app = Plack::Middleware::Assets->wrap(
     $app,
     files => [
         map { "static/js/$_.js" }
-          qw(jquery.min jquery.cookie jquery.relatize_date shCore shBrushPerl cpan)
+          qw(jquery.min jquery.cookie jquery.relatize_date jquery.autocomplete.pack shCore shBrushPerl cpan)
     ]
 );
 $app = Plack::Middleware::Assets->wrap( $app, files => [<static/css/*.css>] );

lib/MetaCPAN/Web/Controller/Search/AutoComplete.pm

@@ -0,0 +1,36 @@
+package MetaCPAN::Web::Controller::Search::AutoComplete;
+use strict;
+use warnings;
+use base 'MetaCPAN::Web::Controller';
+use JSON;
+use Plack::Response;
+
+sub index {
+    my ( $self, $req ) = @_;
+
+    my $cv = AE::cv;
+
+    my $model = $self->model('Module');
+    my $query = join( ' ', $req->parameters->get_all('q') );
+    $query =~ s/::/ /g if ($query);
+
+    my $cond = $model->autocomplete($query);
+
+    $cond->cb(
+        sub {
+            my ($data) = shift->recv;
+
+            my $response = Plack::Response->new(
+                200,
+                [ 'Content-Type' => 'application/json', ],
+                [ JSON::encode_json( $data->{results} ) ]
+            );
+
+            $cv->send($response);
+        }
+    );
+
+    return $cv;
+}
+
+1;

lib/MetaCPAN/Web/Model/Module.pm

@@ -24,6 +24,60 @@ sub source {
     $self->request( '/source/' . join( '/', @module ), undef, { raw => 1 } );
 }
 
+sub autocomplete {
+    my ( $self, $query ) = @_;
+    my $cv     = $self->cv;
+    my @query  = split( /\s+/, $query );
+    my $should = [
+        map {
+            { field   => { 'documentation.analyzed'  => "$_*" } },
+              { field => { 'documentation.camelcase' => "$_*" } }
+          } grep { $_ } @query
+    ];
+    $self->request(
+        '/file/_search',
+        {
+            query => {
+                filtered => {
+                    query => {
+                        custom_score => {
+                            query => { bool => { should => $should } },
+                            script =>
+"_score - doc['documentation'].stringValue.length()/100"
+                        },
+                    },
+                    filter => {
+                        and => [
+                            { exists => { field          => 'documentation' } },
+                            { term   => { 'file.indexed' => \1 } },
+                            { term   => { 'file.status'  => 'latest' } },
+                            {
+                                not => {
+                                    filter =>
+                                      { term => { 'file.authorized' => \0 } }
+                                }
+                            }
+                        ]
+                    }
+                }
+            },
+            fields => [qw(documentation release author distribution)],
+            size   => 20,
+        }
+      )->(
+        sub {
+            my $data = shift->recv;
+            $cv->send(
+                {
+                    results =>
+                      [ map { $_->{fields} } @{ $data->{hits}->{hits} || [] } ]
+                }
+            );
+        }
+      );
+    return $cv;
+}
+
 sub search_distribution {
     my ( $self, $query, $from ) = @_;
 

static/css/jquery.autocomplete.css

@@ -0,0 +1,43 @@
+.ac_results {
+  padding: 0px;
+  border: 1px solid #ccc;
+  background-color: white;
+  overflow: hidden;
+  z-index: 99999;
+}
+
+.ac_results ul {
+  width: 100%;
+  list-style-position: outside;
+  list-style: none;
+  padding: 0;
+  margin: 0;
+}
+
+.ac_results li {
+  margin: 0px;
+  padding: 2px 5px;
+  cursor: default;
+  display: block;
+  /*
+  if width will be 100% horizontal scrollbar will apear
+  when scroll mode will be used
+  */
+  /*width: 100%;*/
+  font-size: 18px;
+  /*
+  it is very important, if line-height not setted or setted
+  in relative units scroll will be broken in firefox
+  */
+  line-height: 20px;
+  font-family: arial, 'sans-serif bold';
+  overflow: hidden;
+}
+
+.ac_odd {
+  background-color: #f9f9f9;
+}
+
+.ac_over {
+  background-color: #BAD3EA;
+}

static/css/shThemeEmacs.css

@@ -50,6 +50,28 @@ $(document).ready(function() {
         }
     });
 
+    $("#search-input").autocomplete('/search/autocomplete', {
+        dataType: 'json',
+        delay: 100,
+        max: 20,
+        selectFirst: false,
+        width: $("#search-input").width() + 5,
+        parse: function(data) {
+            return $.map(data, function(row) {
+                return {
+                    data: row,
+                    value: row.documentation,
+                    result: row.documentation
+                }
+            });
+        },
+        formatItem: function(item) {
+            return item.documentation;
+        }
+    }).result(function(e, item) {
+        document.location.href = '/module/'+ item.documentation;
+    });
+
     var el = $('.search-bar');
     if (!el.length) return;
     var originalTop = el.offset().top; // store original top position