From mboxrd@z Thu Jan 1 00:00:00 1970 From: taylanbayirli@gmail.com ("Taylan Ulrich =?utf-8?Q?Bay=C4=B1rl=C4=B1?= =?utf-8?Q?=2FKammer=22?=) Subject: gnu: Add mg. Date: Wed, 26 Nov 2014 23:23:29 +0100 Message-ID: <877fyh38ke.fsf@taylan.uni.cx> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:49918) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xtkzo-0003yF-Qv for guix-devel@gnu.org; Wed, 26 Nov 2014 17:23:38 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xtkzl-0003hL-6j for guix-devel@gnu.org; Wed, 26 Nov 2014 17:23:36 -0500 Received: from mail-wg0-x22c.google.com ([2a00:1450:400c:c00::22c]:60095) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xtkzk-0003hH-TG for guix-devel@gnu.org; Wed, 26 Nov 2014 17:23:33 -0500 Received: by mail-wg0-f44.google.com with SMTP id b13so4983485wgh.31 for ; Wed, 26 Nov 2014 14:23:31 -0800 (PST) Received: from taylan.uni.cx (p200300514A0E18AD0213E8FFFEED36FB.dip0.t-ipconnect.de. [2003:51:4a0e:18ad:213:e8ff:feed:36fb]) by mx.google.com with ESMTPSA id pf4sm8086908wjb.36.2014.11.26.14.23.30 for (version=TLSv1.2 cipher=RC4-SHA bits=128/128); Wed, 26 Nov 2014 14:23:31 -0800 (PST) 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-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org I'm unsure about the ways I use `substitute*' to patch the Makefile.in of this (both in the source declaration and in the pre-configure phase); maybe someone can give me hints on more robust (future proof) patterns. ===File /home/tub/media/src/guix/0001-gnu-Add-mg.patch====== >From f5ee84666973c988633545e58ee84b6fa624862c Mon Sep 17 00:00:00 2001 From: Taylan Ulrich B Date: Wed, 26 Nov 2014 23:14:16 +0100 Subject: [PATCH] gnu: Add mg. * gnu/packages/mg.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add mg.scm. --- gnu-system.am | 1 + gnu/packages/mg.scm | 71 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 72 insertions(+) create mode 100644 gnu/packages/mg.scm diff --git a/gnu-system.am b/gnu-system.am index 4c9fcda..77d4915 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -173,6 +173,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/mc.scm \ gnu/packages/mcrypt.scm \ gnu/packages/messaging.scm \ + gnu/packages/mg.scm \ gnu/packages/miscfiles.scm \ gnu/packages/mit-krb5.scm \ gnu/packages/moe.scm \ diff --git a/gnu/packages/mg.scm b/gnu/packages/mg.scm new file mode 100644 index 0000000..9906c2c --- /dev/null +++ b/gnu/packages/mg.scm @@ -0,0 +1,71 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (gnu packages mg) + #:use-module (guix licenses) + #:use-module (guix download) + #:use-module (guix packages) + #:use-module (guix build-system gnu) + #:use-module (gnu packages ncurses) + #:use-module (gnu packages pkg-config)) + +(define-public mg + (package + (name "mg") + (version "20050429") + (source (origin + (method url-fetch) + (uri (string-append "http://homepage.boetes.org/software/mg/mg-" + version ".tar.gz")) + (sha256 + (base32 + "19kib0aha4a40izzds7r63qfb2akq4sily6k28fl0n0zdgq0cna1")) + (modules '((guix build utils))) + (snippet + '(begin + (substitute* "Makefile.in" + (("-Werror") "") + (("-lcurses") "-lncurses") + (("/usr/bin/install" install) + (string-append install " -D"))))))) + (build-system gnu-build-system) + (inputs + `(("ncurses" ,ncurses))) + (arguments + ;; No test suite available. + '(#:tests? #f + #:phases (alist-cons-before + 'configure 'pre-configure + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; Fix pathes in Makefile.in. + (substitute* "Makefile.in" + (("(prefix=[[:blank:]]*)/usr/local" all prefix) + (string-append prefix (assoc-ref outputs "out"))) + (("/usr/bin/install") + (string-append (assoc-ref inputs "coreutils") + "/bin/install")) + (("/usr/bin/strip") + (string-append (assoc-ref inputs "binutils") + "/bin/strip")))) + %standard-phases))) + (home-page "http://homepage.boetes.org/software/mg/") + (synopsis "Microscopic GNU Emacs clone") + (description + "mg is Micro GNU Emacs; this is a portable version of the mg maintained +by the OpenBSD team.") + (license public-domain))) -- 2.1.2 ============================================================