Re: We need your feedback of the documentation videos!

[pelzflorian (Florian Pelz)]

On Fri, Oct 25, 2019 at 08:35:59AM +0200, pelzflorian (Florian Pelz) wrote:
> On Tue, Oct 22, 2019 at 08:59:40PM +0200, pelzflorian (Florian Pelz) wrote:
> > Thank you for your review.  I will resend tomorrow with these changes.
> > 
> 
> Sorry it takes me longer than expected to implement all of sirgazil’s
> suggestions.  I will finish today.  Ludo, shall I push this evening
> with videos coming from the Internet Archive (archive.org)?
> 

P.S. I would like to request a review of this functions I would like
to add to website/apps/aux/lists.scm:

(define (take-random list n)
  "Return a list containing N elements from LIST, if possible, chosen
randomly and evenly distributed.  If LIST has less than N elements,
the result is a permutation of LIST."
  (let loop ((list list)
             (n n)
             (len (length list)))
    (if (<= (min n len) 0)
        '()
        (let ((r (random-integer len)))
          (cons (list-ref list r)
                (loop (append (take list r)
                              (drop list (1+ r)))
                      (- len 1)
                      (- n 1)))))))


It is meant for selecting 6 screenshots at random when building the
site, as suggested by sirgazil.  Performance is not important, I
suppose.

Also I want to ask, the “license” header says:

;;; GNU Guix web site
;;; Initially written by sirgazil who waves all
;;; copyright interest on this file.

sirgazil, shall I replace “waves” by “waives”?  I believe this is a
typo.

Regards,
Florian