From mboxrd@z Thu Jan 1 00:00:00 1970 From: Danny Milosavljevic Subject: [PATCH 2/5] gnu: arduino: Add "arduino-installer" helper. Date: Tue, 16 Aug 2016 20:36:29 +0200 Message-ID: <20160816183632.30820-3-dannym@scratchpost.org> References: <20160816183632.30820-1-dannym@scratchpost.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------2.9.1" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44584) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bZjEI-0000TB-3n for guix-devel@gnu.org; Tue, 16 Aug 2016 14:37:00 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bZjE9-0005MK-Kn for guix-devel@gnu.org; Tue, 16 Aug 2016 14:36:49 -0400 Received: from dd1012.kasserver.com ([85.13.128.8]:45014) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bZjE9-0005ME-Dh for guix-devel@gnu.org; Tue, 16 Aug 2016 14:36:41 -0400 In-Reply-To: <20160816183632.30820-1-dannym@scratchpost.org> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org This is a multi-part message in MIME format. --------------2.9.1 Content-Type: text/plain; charset=UTF-8; format=fixed Content-Transfer-Encoding: quoted-printable * gnu/packages/arduino.scm (arduino-installer): New procedure. --- gnu/packages/arduino.scm | 9 +++++++++ 1 file changed, 9 insertions(+) --------------2.9.1 Content-Type: text/x-patch; name="0002-gnu-arduino-Add-arduino-installer-helper.patch" Content-Disposition: attachment; filename="0002-gnu-arduino-Add-arduino-installer-helper.patch" Content-Transfer-Encoding: quoted-printable diff --git a/gnu/packages/arduino.scm b/gnu/packages/arduino.scm index fc9712c..b8d9aba 100644 --- a/gnu/packages/arduino.scm +++ b/gnu/packages/arduino.scm @@ -29,3 +29,12 @@ #:use-module (gnu packages flashing-tools) #:use-module (gnu packages java) #:use-module (gnu packages python)) + +(define (arduino-installer filename) + `(lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (out-share (string-append out "/share/arduino")) + (out-share-part (string-append out-share "/" ,filename))) + (mkdir-p out-share) + (copy-recursively ,filename out-share-part)))) + --------------2.9.1--