02/02: website: index-builder: Pick random packages.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix-artwork.

commit c6830aef4c45094f4765e7e06cf34011297bebdd
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Feb 8 18:26:28 2019 +0100

    website: index-builder: Pick random packages.
    
    * website/apps/packages/builder.scm (index-builder): Pick random
    packages.
---
 website/apps/packages/builder.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/website/apps/packages/builder.scm 
b/website/apps/packages/builder.scm
index d85b5ee..beb7541 100644
--- a/website/apps/packages/builder.scm
+++ b/website/apps/packages/builder.scm
@@ -91,10 +91,12 @@
 
 (define (index-builder)
   "Return a Haunt page listing some random packages."
-  ;; TODO: Pick random packages.
+  (define (sample n from)
+    (map (lambda (id) (list-ref from id))
+         (list-tabulate n (lambda _ (random (length from))))))
   (let ((context (list (cons "packages"
-                             (take-at-most (all-packages)
-                                           %max-packages-on-index)))))
+                             (sample %max-packages-on-index
+                                     (all-packages))))))
     (make-page "packages/index.html" (index-t context) sxml->html)))