From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=)
Subject: New license headers
Date: Sun, 06 Jan 2013 00:53:17 +0100
Message-ID: <878v87p4pe.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:38820)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1TrdYH-0007Ru-Eq
	for bug-guix@gnu.org; Sat, 05 Jan 2013 18:53:22 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1TrdYG-0004sS-FM
	for bug-guix@gnu.org; Sat, 05 Jan 2013 18:53:21 -0500
Received: from mail1-relais-roc.national.inria.fr ([192.134.164.82]:54000)
	by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@gnu.org>)
	id 1TrdYG-0004sL-8N
	for bug-guix@gnu.org; Sat, 05 Jan 2013 18:53:20 -0500
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
To: bug-guix@gnu.org

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

Hi,

I=E2=80=99ve changed license headers to read =E2=80=9CGNU Guix=E2=80=9D and=
 to use the copyright
sign using this script:


--=-=-=
Content-Type: text/x-scheme; charset=utf-8
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

(use-modules (guix build utils)
             (srfi srfi-1))

(fluid-set! %default-port-encoding "UTF-8")

(substitute* (remove (lambda (f)
                       (or (string-contains f ".tar.")
                           (string-contains f ".git/")
                           (string-contains f ".so")
                           (string-suffix? ".o" f)
                           (string-suffix? ".a" f)
                           (string-suffix? ".go" f)
                           (string-suffix? ".pdf" f)
                           (string-suffix? ".png" f)
                           (string-suffix? ".info" f)
                           (equal? (basename f) "guix-daemon")
                           (equal? (basename f) "nix-setuid-helper")
                           (string-contains f "nix-upstream/")
                           (string-contains f "distro/packages/bootstrap/")=
))
                     (find-files "." "\\.[a-z]+$"))
  (("^([[:graph:]]+) This file is part of Guix." _ comment-start)
   (string-append comment-start " This file is part of GNU Guix."))
  (("^([[:graph:]]+) Guix --- Nix package management.*" _ comment-start)
   (string-append comment-start
                  " GNU Guix --- Functional package management for GNU\n"))
  (("^([[:graph:]]+) Guix is " _ comment-start)
   (string-append comment-start " GNU Guix is "))
  (("^([[:graph:]]+) along with Guix." _ comment-start)
   (string-append comment-start " along with GNU Guix."))
  (("^([[:graph:]]+) Copyright \\(C\\)" _ comment-start)
   (string-append comment-start " Copyright =C2=A9")))

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable


Notice how find + sed look old-fashioned and clunky in comparison.  ;-)

Thanks,
Ludo=E2=80=99.

--=-=-=--