From patchwork Wed Dec 15 07:25:22 2021 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Andrew Tropin X-Patchwork-Id: 35234 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 4D3F727BBEA; Wed, 15 Dec 2021 07:50:28 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-3.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H2,SPF_HELO_PASS autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id DA9B927BBE9 for ; Wed, 15 Dec 2021 07:50:27 +0000 (GMT) Received: from localhost ([::1]:38628 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mxP3S-0001jP-HG for patchwork@mira.cbaines.net; Wed, 15 Dec 2021 02:50:26 -0500 Received: from eggs.gnu.org ([209.51.188.92]:48164) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mxOfq-0007Dv-Si for guix-patches@gnu.org; Wed, 15 Dec 2021 02:26:04 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:48564) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mxOfq-0003Lm-MC for guix-patches@gnu.org; Wed, 15 Dec 2021 02:26:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1mxOfq-0004SE-GV for guix-patches@gnu.org; Wed, 15 Dec 2021 02:26:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#52502] [PATCH] home: Add gexp-compiler for home-environments. Resent-From: Andrew Tropin Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Wed, 15 Dec 2021 07:26:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 52502 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 52502@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.163955315117104 (code B ref -1); Wed, 15 Dec 2021 07:26:02 +0000 Received: (at submit) by debbugs.gnu.org; 15 Dec 2021 07:25:51 +0000 Received: from localhost ([127.0.0.1]:60110 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mxOff-0004Ro-ES for submit@debbugs.gnu.org; Wed, 15 Dec 2021 02:25:51 -0500 Received: from lists.gnu.org ([209.51.188.17]:40840) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mxOfd-0004Rg-Mp for submit@debbugs.gnu.org; Wed, 15 Dec 2021 02:25:49 -0500 Received: from eggs.gnu.org ([209.51.188.92]:48102) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mxOfY-0007BS-Cn for guix-patches@gnu.org; Wed, 15 Dec 2021 02:25:47 -0500 Received: from [2a00:1450:4864:20::132] (port=42945 helo=mail-lf1-x132.google.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mxOfS-0003GM-Hg for guix-patches@gnu.org; Wed, 15 Dec 2021 02:25:42 -0500 Received: by mail-lf1-x132.google.com with SMTP id t26so41401719lfk.9 for ; Tue, 14 Dec 2021 23:25:28 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=trop-in.20210112.gappssmtp.com; s=20210112; h=from:to:subject:date:message-id:mime-version; bh=BODUCw25StuRPKaLFh4T7OtsF0VDKcTPSuWx3WBJGII=; b=ZpRrzIQmeVrxJJOzhJpKTphPZWyyCLqVv2Z9SHfc1WqQJdiB244louz9E/9Vi9v6B6 oceLz8x6KzaNA9DcFjUoeP30oIBsc1fN2Eps65aHbKDEdQRi0FMYUsvDtX+v5RK6fB+P NZJhVsJ4TNN90/1w/b1NT7d0gFeKRW8BOo77F/p2ZoA0KmwBnj3XaUvzUA36cEKDHQBT YYTgAHHQQf8hddk1vvvpaR5KKpuOQiwYV8StsgYbAjILRlZXQiYgNPaq2W4HWnGqF71q iDCDObvBSm0Tsq8EdhRPt2LT8Eepro6/RiiQIn4Q+n1dfUT5x52Sw8LfKSdRvtrxRRPr 20vQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:subject:date:message-id:mime-version; bh=BODUCw25StuRPKaLFh4T7OtsF0VDKcTPSuWx3WBJGII=; b=TwOt+iclt7yIL7zB1USo8ZOzxSwiA4HwuIZB+HnaV9GxYEt0TeN4550pCPt2w+fSw/ h6X2t4nbHWpIxfsZ0mA+R9YxBl/L0uIvWESa7vJ2YlU373iStR65/Jy+E2MFf7HlwixG wuXPgwG9Uq7O54kCRn1XnMMbsS7IJudCuKQu74tYb2FDIKVGYjcyJSa/AL0T6/RlmWgB PILbA2RrsdjfLHZ7+7A7EHSpo+0JwSAdHqV6WRohZzdJO46NY7p0fQkrCzXsaS4hpuTr c2FMSV8H8Stx2gI+HDFM/wGtIk+/Cf6szGCPbG+u7oDTkWXjycKCvv9/LwnKuMY/1e6A ZdqA== X-Gm-Message-State: AOAM53001QUEyiCDmdoICWXQRrRnU7T/HFwqp6WY0SIAxfJ+Awi0zcwk wXRNyfZo8Lnwuj6EYnBOBkeHHpqR+3nLnw== X-Google-Smtp-Source: ABdhPJzHNRmoz5wVemLlGOF3Gy3+NB0CXCzlBWl/fnbhstR8hSwJc1WVQIB8S+gJ8pa6vijL6QOq5Q== X-Received: by 2002:a05:6512:2111:: with SMTP id q17mr8555776lfr.371.1639553126379; Tue, 14 Dec 2021 23:25:26 -0800 (PST) Received: from localhost (109-252-167-227.dynamic.spd-mgts.ru. [109.252.167.227]) by smtp.gmail.com with ESMTPSA id d11sm182613lfq.303.2021.12.14.23.25.24 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 14 Dec 2021 23:25:25 -0800 (PST) From: Andrew Tropin Date: Wed, 15 Dec 2021 10:25:22 +0300 Message-ID: <87czly9vod.fsf@trop.in> MIME-Version: 1.0 X-Host-Lookup-Failed: Reverse DNS lookup failed for 2a00:1450:4864:20::132 (failed) Received-SPF: none client-ip=2a00:1450:4864:20::132; envelope-from=andrew@trop.in; helo=mail-lf1-x132.google.com X-Spam_score_int: -10 X-Spam_score: -1.1 X-Spam_bar: - X-Spam_report: (-1.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, RCVD_IN_DNSWL_NONE=-0.0001, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_NONE=0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches * gnu/home.scm (home-environment-compiler): New variable. --- gnu/home.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/gnu/home.scm b/gnu/home.scm index d8134693e5..a9f0a469a5 100644 --- a/gnu/home.scm +++ b/gnu/home.scm @@ -25,6 +25,8 @@ (define-module (gnu home) #:use-module (gnu services) #:use-module (guix records) #:use-module (guix diagnostics) + #:use-module (guix gexp) + #:use-module (guix store) #:export (home-environment home-environment? @@ -104,3 +106,11 @@ (define* (home-environment-with-provenance he config-file) (inherit he) (services (cons (service home-provenance-service-type config-file) (home-environment-user-services he))))) + +(define-gexp-compiler (home-environment-compiler (he ) + system target) + ((store-lift + (lambda (store) + (run-with-store store (home-environment-derivation he) + #:system system + #:target target)))))