me/guix
Archived
1
0
Fork 0
Code Activity

gnu: mg: Upgrade to 20161005.

Browse source 
* gnu/packages/mg.scm (mg)[source]: Upgrade to 20161005.
[native-inputs]: Add pkg-config.
[inputs]: Add libbsd.
[arguments]: Use modify-phases.  Use #:make-flags rather than patching the
Makefile.  Install tutorial.
[description]:  Clarify relation to GNU Emacs.
This commit is contained in:
Eric Bavier 2017-01-31 21:16:08 -06:00
parent f255a6db17
commit 25925725f4
No known key found for this signature in database
GPG key ID: 1EBBD204781F962C
1 changed files with 29 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/mg.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org> ;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org>
;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -21,44 +22,55 @@
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (gnu packages libbsd)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages pkg-config)) #:use-module (gnu packages pkg-config))
(define-public mg (define-public mg
(package (package
(name "mg") (name "mg")
(version "20050429") (version "20161005")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://homepage.boetes.org/software/mg/mg-" (uri (string-append "http://homepage.boetes.org/software/mg/mg-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"19kib0aha4a40izzds7r63qfb2akq4sily6k28fl0n0zdgq0cna1")) "0qaydk2cy765n9clghmi5gdnpwn15y2v0fj6r0jcm0v7d89vbz5p"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
(substitute* "Makefile.in" (substitute* "GNUmakefile"
(("-Werror") "") (("/usr/bin/") ""))))))
(("-lcurses") "-lncurses")
(("/usr/bin/install") "install -D")
(("/usr/bin/strip") "strip"))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs (inputs
`(("ncurses" ,ncurses))) `(("libbsd" ,libbsd)
("ncurses" ,ncurses)))
(arguments (arguments
;; No test suite available. ;; No test suite available.
'(#:tests? #f '(#:tests? #f
#:phases (alist-cons-before #:make-flags (list (string-append "prefix=" %output)
'configure 'pre-configure "CURSES_LIBS=-lncurses"
(lambda* (#:key outputs #:allow-other-keys) "CC=gcc")
(substitute* "Makefile.in" #:phases (modify-phases %standard-phases
(("(prefix=[[:blank:]]*)/usr/local" all prefix) (delete 'configure)
(string-append prefix (assoc-ref outputs "out"))))) (add-before 'install 'patch-tutorial-location
%standard-phases))) (lambda* (#:key outputs #:allow-other-keys)
(substitute* "mg.1"
(("/usr") (assoc-ref outputs "out")))
#t))
(add-after 'install 'install-tutorial
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/mg")))
(install-file "tutorial" doc)
#t))))))
(home-page "http://homepage.boetes.org/software/mg/") (home-page "http://homepage.boetes.org/software/mg/")
(synopsis "Microscopic GNU Emacs clone") (synopsis "Microscopic GNU Emacs clone")
(description (description
"mg is Micro GNU Emacs; this is a portable version of the mg maintained "Mg (mg) is a GNU Emacs style editor, with which it is \"broadly\"
by the OpenBSD team.") compatible. This is a portable version of the mg maintained by the OpenBSD
team.")
(license public-domain))) (license public-domain)))