branch master updated: hydra/goggles: Sort Xapian documents before search.

[Ricardo Wurmus]

This is an automated email from the git hooks/post-receive script.

rekado pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new 2bc0a27  hydra/goggles: Sort Xapian documents before search.
2bc0a27 is described below

commit 2bc0a274b8ccf274b65c3acea6dffe9f1ae59a6b
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Fri Apr 24 17:32:20 2020 +0200

    hydra/goggles: Sort Xapian documents before search.
    
    * hydra/goggles.scm (search-results): Don't sort here.
    (search): Sort here.
---
 hydra/goggles.scm | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index 3053ebb..0795f46 100755
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -124,15 +124,17 @@
                                   #:stemmer (make-stem "en")
                                   #:boolean-prefixes
                                   '(("channel" . "B")
-                                    ("nick"    . "A")))))
-        (mset-fold (lambda (item acc)
-                     (cons (call-with-input-string
-                               (document-data (mset-item-document item))
-                             read)
-                           acc))
-                   '()
-                   (enquire-mset (enquire db query)
-                                 #:maximum-items pagesize))))))
+                                    ("nick"    . "A"))))
+             (enq (enquire db query)))
+        (Enquire-set-sort-by-value enq 0 #f)
+        (reverse (mset-fold (lambda (item acc)
+                              (cons (call-with-input-string
+                                        (document-data (mset-item-document 
item))
+                                      read)
+                                    acc))
+                            '()
+                            (enquire-mset enq
+                                          #:maximum-items pagesize)))))))
 
 
 (define (render-html sxml)
@@ -323,10 +325,7 @@ freenode." channel))
                                                            (assoc-ref result 
'id))))
                                   ,(assoc-ref result 'stamp)))
                               (td ,(assoc-ref result 'text))))
-                       (sort results
-                             (lambda (a b)
-                               (string< (assoc-ref a 'stamp)
-                                        (assoc-ref b 'stamp)))))))))
+                       results)))))
            '()))))
 
 (define-syntax-rule (-> target functions ...)