From mboxrd@z Thu Jan 1 00:00:00 1970 From: "pelzflorian (Florian Pelz)" Subject: Re: We need your feedback of the documentation videos! Date: Fri, 25 Oct 2019 10:12:26 +0200 Message-ID: <20191025081226.zidszbf4ulpapj6y@pelzflorian.localdomain> References: <87o90zwtdq.fsf@elephly.net> <20191017043403.hwv77ripwbrzco54@pelzflorian.localdomain> <8736fov6go.fsf@gnu.org> <20191019210034.elopd6mhzq2dinxl@pelzflorian.localdomain> <20191022120504.7cyoc5x2exylpzrg@pelzflorian.localdomain> <16df4499bf6.d6659b0f22661.6695205596769599213@zoho.com> <20191022185940.dvpzwtso6cvdq5yf@pelzflorian.localdomain> <20191025063559.7ok3gvrybrnb6na5@pelzflorian.localdomain> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:470:142:3::10]:46719) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iNuhy-00022l-S1 for guix-devel@gnu.org; Fri, 25 Oct 2019 04:12:32 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1iNuhx-0006LG-JO for guix-devel@gnu.org; Fri, 25 Oct 2019 04:12:30 -0400 Content-Disposition: inline In-Reply-To: <20191025063559.7ok3gvrybrnb6na5@pelzflorian.localdomain> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: Ludovic =?utf-8?Q?Court=C3=A8s?= , sirgazil Cc: Guix-devel On Fri, Oct 25, 2019 at 08:35:59AM +0200, pelzflorian (Florian Pelz) wrot= e: > On Tue, Oct 22, 2019 at 08:59:40PM +0200, pelzflorian (Florian Pelz) wr= ote: > > Thank you for your review. I will resend tomorrow with these changes= . > >=20 >=20 > Sorry it takes me longer than expected to implement all of sirgazil=E2=80= =99s > suggestions. I will finish today. Ludo, shall I push this evening > with videos coming from the Internet Archive (archive.org)? >=20 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 (<=3D (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 =E2=80=9Clicense=E2=80=9D header says: ;;; GNU Guix web site ;;; Initially written by sirgazil who waves all ;;; copyright interest on this file. sirgazil, shall I replace =E2=80=9Cwaves=E2=80=9D by =E2=80=9Cwaives=E2=80= =9D? I believe this is a typo. Regards, Florian