From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id mAgTGif8a2F05gAAgWs5BA (envelope-from ) for ; Sun, 17 Oct 2021 12:34:15 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id mGzHFSf8a2EBEQAAB5/wlQ (envelope-from ) for ; Sun, 17 Oct 2021 10:34:15 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 26459111AA for ; Sun, 17 Oct 2021 12:34:13 +0200 (CEST) Received: from localhost ([::1]:50282 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mc3UY-0000J3-LY for larch@yhetil.org; Sun, 17 Oct 2021 06:34:10 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:49600) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mc3UJ-0000Iv-DA for help-guix@gnu.org; Sun, 17 Oct 2021 06:33:55 -0400 Received: from mail-lj1-x230.google.com ([2a00:1450:4864:20::230]:35795) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mc3UH-0002rF-N1 for help-guix@gnu.org; Sun, 17 Oct 2021 06:33:55 -0400 Received: by mail-lj1-x230.google.com with SMTP id o26so3114126ljj.2 for ; Sun, 17 Oct 2021 03:33:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=OTV3e+4ue710pMr8i40M3yeBfUDLAQJzpsZrh4ns+WE=; b=gXughgQHbmyTymEfw6wmTh+VtYjrdXqaeWo+QS90vNF9j1biTlFFDFPZO0RbWf3G6p hQzzYUF2c7ReXYfBprvFlks9DljP/ttmoYWW/LsI0LT7PGxqqWLNEgRVUDKfE0a6Pne5 03We0mit/ev0cXr5B72nbZnucReyX2CriRe+CJ/FZDEucET7OuRFXDKmE7d/guDOTHDo 0jGPmaLBPJ5ZY5rQe/HFtzsMYsqOUBxwKPfnFk4n+4JhhT5sAPGYEMqWqTM68Q5MCAr4 KNc1hKlyQAtS75trSfCw/C7rUDzKS9cejxx+wNhHOcamyiRmc32e9CJ45NnpPC6HqTgO vzcA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=OTV3e+4ue710pMr8i40M3yeBfUDLAQJzpsZrh4ns+WE=; b=bV8dAqeepq9Q5beNT+lsExpd8gvTrrmBISn99tPZoEcTEDoPMYZ8nGgF7jYnv0MzII oDtfqlufSIhAlUiL5Rv7zSUgsc1CyHHVcbaSpltYm+K5TrJ3ZXyRn2Xd51n7Tp/PKlIR RSlpuse/L762RXfFy8R/yc+hZkZ3SJRbJW1oVdlChpFvjYOG5Q14k04A9LwV6WkTZqQg 5vzzPG/tEli1q44kXZzk0BCwOqsvAMYxMiaR6w6xeRJt81P94YZC+ADW5EC/CED7IfQM +Vr6C9gIeRaykI7JE8E9Qy+myseStSWNiib0CQQqbYrtdwEuwe2bc784rcLz91kI14QT zEfA== X-Gm-Message-State: AOAM532lKygWCUo0IX43zrAC2VxJHOoFZvAX/2gpXUMOIevnw56cb51i kd5nWFRnoF/rx4+KL+6vJ7HlS8m99TA= X-Google-Smtp-Source: ABdhPJwql0xw4nUhtbKG/SaJdFu8JYaos3LjOVipu9YBFATaVTBF4PsJLIwbMYCkvR6G7I4oiCHaHg== X-Received: by 2002:a2e:b6cc:: with SMTP id m12mr23941809ljo.297.1634466830977; Sun, 17 Oct 2021 03:33:50 -0700 (PDT) Received: from guixsd ([88.201.161.72]) by smtp.gmail.com with ESMTPSA id p28sm1122595lfo.71.2021.10.17.03.33.50 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sun, 17 Oct 2021 03:33:50 -0700 (PDT) From: Oleg Pykhalov To: Fredrik Salomonsson Subject: Re: Question about scripts in guix-home References: <87r1clfxcp.fsf@posteo.net> <87ilxx87n0.fsf@gmail.com> <87wnmc8vmk.fsf@posteo.net> Date: Sun, 17 Oct 2021 13:33:48 +0300 In-Reply-To: <87wnmc8vmk.fsf@posteo.net> (Fredrik Salomonsson's message of "Sat, 16 Oct 2021 22:14:59 +0000") Message-ID: <8735p07xf7.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" Received-SPF: pass client-ip=2a00:1450:4864:20::230; envelope-from=go.wigust@gmail.com; helo=mail-lj1-x230.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-guix@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: help-guix Errors-To: help-guix-bounces+larch=yhetil.org@gnu.org Sender: "Help-Guix" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1634466855; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=OTV3e+4ue710pMr8i40M3yeBfUDLAQJzpsZrh4ns+WE=; b=E1cthsAQcfQ7WQ7Vufe1v7zNMd4VOGInufBNODwAtPh6fNbiGVmv62FO91JvCEeXYyhZDU zitMmlfs2DyO9JUEvi3mgyZhyCdob+/tadfajEMEjTdzNdVnuzvjxfUeTu1kcpmcbY0uZZ 1AKC8sND8kcj/hcPWbPffa880G7CcN6K9bD2eDEFSOyWMur43qJvwL0PONjGzzFn2BQ999 vaGYXmy9raWB+1M1++irjxrIkON6neEjzBsbvYuoHIz59lX5QHijZLcFiTe/dFHo2QfAik uXTQHfWGdKhgqDNyNTYKRMf/I1xkRou7AoiK5/uwC3fgvmg02eOxq+YQTeGw4g== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1634466855; a=rsa-sha256; cv=none; b=rtR7YrP7CcOnxgVsHSEu2Db8x4nxM4lIDhnLXRugdx1gGyN8CYkaHihbLFcU6dNowJPP4P hxqK/P+j4fP/xkJDjhvGVAsr4GPFYJ9mc3IqaLHjzVZbM1Y+uUNf8bw42BFM8xtrd6YhQV XHp2WumNWYk4mGN9fAxvH4oOeyni9ZotjWhHHPMxeyi6JMSjhNpBAZg6Ere+/jGooW4TqU h30aesgrE9IujQbrAry2+3UrAXJW/DkZKojOb4kp5lANFgAFIVIUTpi5t0mO3M+VMCHVZ/ UW2Mz0XRq8FPXAXJiimQokGIpOy+1hXptG086nU86qzzFlLo+XRomgS6dTjECA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20210112 header.b=gXughgQH; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (aspmx1.migadu.com: domain of help-guix-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=help-guix-bounces@gnu.org X-Migadu-Spam-Score: -5.32 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20210112 header.b=gXughgQH; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (aspmx1.migadu.com: domain of help-guix-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=help-guix-bounces@gnu.org X-Migadu-Queue-Id: 26459111AA X-Spam-Score: -5.32 X-Migadu-Scanner: scn1.migadu.com X-TUID: 2LBtiRPsbanz --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Fredrik Salomonsson writes: [=E2=80=A6] > This is what I tried. Note that I only tested this on my mic.sh script > to see if it worked. > > #+begin_src scheme > (define-public (get-services host) > "Return services for HOST." > (let ((storage-script (program-file > "storage.sh" > #~(execl #$(local-file "files/waybar/modules-s= torage.sh") "storage.sh")))) > (list > (simple-service 'plt-waybar-config > home-files-service-type > `( > ("config/waybar/config" > ,(local-file (format #f "~a/files/waybar/~a.con= f" %source-dir host))) > ("config/waybar/style.css" > ,(local-file (format #f "~a/files/waybar/~a-sty= le.css" %source-dir host))) > ("config/waybar/modules/mic.sh" > ,(computed-file > "mic-wrapper" > #~(begin > (let ((script #$(local-file "files/waybar= /modules-mic.sh"))) > (with-output-to-file #$output > (lambda () > (format #t "\ > #!/bin/sh > exec -a \"$0\" ~a --shell=3Dbash \"$@\"\n" > script))) > (chmod script #o555)) ;; <-- trying to = chmod the script > (chmod #$output #o555)))) > ("config/waybar/modules/storage.sh" > ,storage-script) > ))))) > #+end_src Well, if you don't want to put the content of files/waybar/modules-mic.sh file inside a Scheme string, then you need to read the file to a string, e.g.: =2D-8<---------------cut here---------------start------------->8--- (simple-service 'shellcheck-wrapper home-files-service-type (list `("local/bin/shellcheck" ,(computed-file "shellcheck-wrapper" #~(begin (use-modules (ice-9 rdelim)) (with-output-to-file #$output (lambda () (display #$(with-input-from-file "/tmp= /foo" read-string)))) (chmod #$output #o555)))))) =2D-8<---------------cut here---------------end--------------->8--- Note that it's just an example which you should change according to your needs. ;-) Also, it creates not an executable but a symlink to an executable in a store, which I missed in a previous answer. --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQJIBAEBCgAyFiEEcjhxI46s62NFSFhXFn+OpQAa+pwFAmFr/AwUHGdvLndpZ3Vz dEBnbWFpbC5jb20ACgkQFn+OpQAa+pz6Nw/+PmcAiCC26E2pDfH6XbOC4499mirK viuLISM59QtFJoNFBKIDBqixIGebSUV6vdgFerp67XpGL4xlexPMuSq05nMkVUdq zTlHVlS9cm+5uSqZrNdT1uYh69GR6ovZAmeN86c65kK+YRg/P18yKNBDjRVKKYHV 5sdWx1feQqQsnu4IL9Obrwg3VX1fXWcqmv+gkHDkILxtB9511C0ya1DhWzwKddTk ZJChrmhNqqLf8Dyjsr0qKdHSNfHIVWygy34QAfu67nb3pXMF+hL6F4+43K6lzFfY aEP8ZQCDFBlU4ICnjasovB+60RL9xiK9F61RCWkGfwD+FLSWhm/QcXc93kpoKO8a pBOeTUBw7P97gyRocSrcT4TDnRw08TxPm2AyRYV4softuTmBvbRXGTdOyAcRWF4x axeq8wgD5yqpBee+3qTCDEd/Fl9GzDvyJddlWCeGSA8Or/aCBrJ6aVgrtxwfMCan JF3ke5AHFdODKWJpuSrIzSmx0fngwpBV5c4hfLduMTWYcmPwPnBpY2+MXjQSpacz IX3FYNuU5vwy9i23QnrwsBiFBCFymxFHIRNv7tFlU/GcBntl9exH7z5B9+tDrrUi iRyyooFbK/xW4GVtz63r/QMqhgmcn8t5/ux0TCaN3+20sNmIq52VudjBOD2KuX4s Hr52y/k2PePcJnc= =NDf7 -----END PGP SIGNATURE----- --=-=-=--