From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:57905) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hgr5k-0005I4-Bc for guix-patches@gnu.org; Fri, 28 Jun 2019 09:39:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hgr5j-0003lt-6z for guix-patches@gnu.org; Fri, 28 Jun 2019 09:39:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:55289) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hgr5j-0003ld-0U for guix-patches@gnu.org; Fri, 28 Jun 2019 09:39:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hgr5i-00035w-Tu for guix-patches@gnu.org; Fri, 28 Jun 2019 09:39:02 -0400 Subject: [bug#36404] [PATCH 4/5] Export the (gnu machine) interface. Resent-Message-ID: From: zerodaysfordays@sdf.lonestar.org (Jakob L. Kreuze) References: <87o92ianbj.fsf@sdf.lonestar.org> <87imspj0ks.fsf_-_@sdf.lonestar.org> <87ef3dj0j9.fsf_-_@sdf.lonestar.org> <87a7e1j0hy.fsf_-_@sdf.lonestar.org> <875zopj0gs.fsf_-_@sdf.lonestar.org> Date: Fri, 28 Jun 2019 09:37:09 -0400 In-Reply-To: <875zopj0gs.fsf_-_@sdf.lonestar.org> (Jakob L. Kreuze's message of "Fri, 28 Jun 2019 09:36:35 -0400") Message-ID: <871rzdj0fu.fsf_-_@sdf.lonestar.org> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: "Thompson, David" Cc: 36404@debbugs.gnu.org --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable * gnu.scm (%public-modules): Add '(gnu machine)'. * gnu.scm (use-machine-modules): New macro. =2D-- gnu.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/gnu.scm b/gnu.scm index 2c29b6dc3f..fa643a5b92 100644 =2D-- a/gnu.scm +++ b/gnu.scm @@ -27,7 +27,8 @@ #:use-module (guix packages) #:use-module (gnu packages) #:use-module (gnu services) =2D #:export (use-package-modules + #:export (use-machine-modules + use-package-modules use-service-modules use-system-modules)) =20 @@ -45,6 +46,7 @@ (gnu system file-systems) (gnu bootloader) (gnu bootloader grub) + (gnu machine) (gnu system keyboard) (gnu system pam) (gnu system shadow) ; 'user-account' @@ -142,6 +144,10 @@ Try adding @code{(use-service-modules ~a)}.") (current-source-location)) hint))) =20 +(define-syntax-rule (use-machine-modules module ...) + (try-use-modules package-module-hint + (gnu machine module) ...)) + (define-syntax-rule (use-package-modules module ...) (try-use-modules package-module-hint (gnu packages module) ...)) =2D-=20 2.22.0 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAEBCAAdFiEEa1VJLOiXAjQ2BGSm9Qb9Fp2P2VoFAl0WGAUACgkQ9Qb9Fp2P 2VrGRQ/7BfLsxyTcRd+hQfNxfxHjken4Ji8Bo2y/YuZq+VY11pJQRK4fL1S3fQ93 HiCufo1hS0YCcmlvEWMWxi/ljRnbaI58uR94YVQ7nVNyXmM+2EO78IQR2zqISRDg Qq+WWf7ZbPMBo3ZPXdD7NLkbdQnAdv+XhPEl1bmbz4NR6xsATs+H5gQPXXN9pxk/ b+fXl3glZtSobPJYYDsa6FhFAiUr2YOSfy1qePEjQy30d61DOKSB6nhnYK4otLca /HCGbK3Town11REebphuj+3lRHvfvLNF98nWoxpH5QVBjAOBkD6vFYkX32tTLAKb mXCOedeW7xp2wFMNGDDOap80hePullBfS9YjQiAeYUsOMDiYHbGj5Fo45s2eamiX ujQ7LsQWXt2eNDM5jZCvk02Bc2qMG6uovj0pdOOfKo0lnqJr2OB2k2nIoE3APKUz DqcqbVygDP8CJGAeLg5/LgR303a+wVu4FWeXSsJ+Yg+jcudRNsK+oA9Q7cvS1SFd 8bh3BAGoRV+s+k7NSXXF6SiOtQGNHH/KCesbPU5AxbuhANApgNdyBLnnhBtysixh eL/UsTmMMe26koG9rCR8dJcIZJAuRK28s2HyKzTLlgZ9rb9KyFWjlfJq7+4YUFoN LslzjO+f1Xrb9xNUPs+2H9hCRCpIczG2vznJVPNAxjVzFIUeHH8= =Luse -----END PGP SIGNATURE----- --=-=-=--