From debbugs-submit-bounces@debbugs.gnu.org Thu Jun 01 07:24:51 2017 Received: (at 27155) by debbugs.gnu.org; 1 Jun 2017 11:24:51 +0000 Received: from localhost ([127.0.0.1]:48606 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dGODj-00063C-Bg for submit@debbugs.gnu.org; Thu, 01 Jun 2017 07:24:51 -0400 Received: from eggs.gnu.org ([208.118.235.92]:46774) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dGODi-00062z-3q for 27155@debbugs.gnu.org; Thu, 01 Jun 2017 07:24:50 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dGODZ-00048m-Pp for 27155@debbugs.gnu.org; Thu, 01 Jun 2017 07:24:45 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-0.0 required=5.0 tests=BAYES_20,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:53467) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dGODZ-00048i-Md; Thu, 01 Jun 2017 07:24:41 -0400 Received: from [193.50.110.69] (port=42310 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1dGODZ-0007xN-2d; Thu, 01 Jun 2017 07:24:41 -0400 From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=) To: Alex Kost Subject: Re: bug#27155: [PATCH 0/2] Support service extensions on the "final" service values References: <20170530215850.7522-1-ludo@gnu.org> <8760ggrpxm.fsf@gmail.com> X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 13 Prairial an 225 de la =?utf-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-unknown-linux-gnu Date: Thu, 01 Jun 2017 13:24:38 +0200 In-Reply-To: <8760ggrpxm.fsf@gmail.com> (Alex Kost's message of "Thu, 01 Jun 2017 12:57:09 +0300") Message-ID: <871sr43q89.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: 27155 Cc: 27155@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) Hi Alex, Alex Kost skribis: > This is great! Just what I wanted, and thanks for this example! Based > on it, I made the following service: > > (define replace-etc/profile-type > (let ((replace > (lambda (file entries) > (cons `("profile" ,file) > (map (match-lambda > ((name . rest) > (cons (if (string=3D name "profile") > (string-append "original-profile") > name) > rest))) > entries))))) > (service-type > (name 'replace-etc/profile) > (extensions (list (service-extension etc-service-type > (const '()) > replace)))))) > > (service replace-etc/profile-type (local-file ".../my-system-profile")) > > So now I can use my own "/etc/profile", moreover I can look at the > "/etc/original-profile" anytime. I already use a system with this > service and I enjoy it, thanks a lot! Awesome, I=E2=80=99m glad you like it! It was long overdue. Thanks for taking the time to test! Ludo=E2=80=99.