[jackhill/guix/guix.git] / gnu / packages / nvi.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Marek Benc <merkur32@gmail.com>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(define-module (gnu packages nvi)
  #:use-module (gnu packages)
  #:use-module (gnu packages dbm)
  #:use-module (gnu packages ncurses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses))

(define-public nvi
  (package
    (name "nvi")
    (version "1.81.6")
    (source
      (origin
        (method url-fetch)
        (uri          ;; sites.google.coma/bostic.com/keithbostic/vi is stale.
          (string-append "http://harrier.slackbuilds.org/misc/nvi-" version
                         ".tar.bz2"))
        (sha256
          (base32 "0nbbs1inyrqds0ywn3ln5slv54v5zraq7lszkg8nsavv4kivhh9l"))
        (patches (search-patches "nvi-assume-preserve-path.patch"
                                 "nvi-dbpagesize-binpower.patch"
                                 "nvi-db4.patch"))
        (snippet
          ;; Create a wrapper for the configure script, make it executable.
          '(let ((conf-wrap (open-output-file "configure")))
             (display "#!/bin/sh" conf-wrap)
             (newline conf-wrap)
             (display
               "../nvi-1.81.6/dist/configure --srcdir=../nvi-1.81.6/dist $@"
               conf-wrap)
             (newline conf-wrap)
             (close-output-port conf-wrap)
             (chmod "configure" #o0755)
             #t))))

    (build-system gnu-build-system)
    (arguments
      `(#:out-of-source? #t
        #:configure-flags '("--enable-widechar")))
    (inputs
      `(("bdb" ,bdb)
        ("ncurses" ,ncurses)))
    (synopsis "The Berkeley Vi Editor")
    (description
      "Vi is the original screen based text editor for Unix systems.  It is
considered the standard text editor, and is available on almost all Unix
systems.  Nvi is intended as a \"bug-for-bug compatible\" clone of the original
BSD vi editor.  As such, it doesn't have a lot of snazzy features as do some
of the other vi clones such as elvis and vim.  However, if all you want is vi,
this is the one to get.")
    (home-page "https://sites.google.com/a/bostic.com/keithbostic/vi")
    (license bsd-3)))
Commit	Line	Data
bf2a56f8 MB	1	;;; GNU Guix --- Functional package management for GNU
	2	;;; Copyright © 2014 Marek Benc <merkur32@gmail.com>
	3	;;;
	4	;;; This file is part of GNU Guix.
	5	;;;
	6	;;; GNU Guix is free software; you can redistribute it and/or modify it
	7	;;; under the terms of the GNU General Public License as published by
	8	;;; the Free Software Foundation; either version 3 of the License, or (at
	9	;;; your option) any later version.
	10	;;;
	11	;;; GNU Guix is distributed in the hope that it will be useful, but
	12	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	13	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	;;; GNU General Public License for more details.
	15	;;;
	16	;;; You should have received a copy of the GNU General Public License
	17	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	18
	19	(define-module (gnu packages nvi)
	20	#:use-module (gnu packages)
255d1bbe	21	#:use-module (gnu packages dbm)
bf2a56f8 MB	22	#:use-module (gnu packages ncurses)
	23	#:use-module (guix packages)
	24	#:use-module (guix download)
	25	#:use-module (guix build-system gnu)
	26	#:use-module (guix licenses))
	27
	28	(define-public nvi
	29	(package
	30	(name "nvi")
	31	(version "1.81.6")
	32	(source
	33	(origin
	34	(method url-fetch)
	35	(uri ;; sites.google.coma/bostic.com/keithbostic/vi is stale.
	36	(string-append "http://harrier.slackbuilds.org/misc/nvi-" version
	37	".tar.bz2"))
	38	(sha256
	39	(base32 "0nbbs1inyrqds0ywn3ln5slv54v5zraq7lszkg8nsavv4kivhh9l"))
fc1adab1 AK	40	(patches (search-patches "nvi-assume-preserve-path.patch"
	41	"nvi-dbpagesize-binpower.patch"
	42	"nvi-db4.patch"))
bf2a56f8 MB	43	(snippet
	44	;; Create a wrapper for the configure script, make it executable.
	45	'(let ((conf-wrap (open-output-file "configure")))
	46	(display "#!/bin/sh" conf-wrap)
	47	(newline conf-wrap)
	48	(display
	49	"../nvi-1.81.6/dist/configure --srcdir=../nvi-1.81.6/dist $@"
	50	conf-wrap)
	51	(newline conf-wrap)
	52	(close-output-port conf-wrap)
6cbee49d MW	53	(chmod "configure" #o0755)
6cbee49d MW	54	#t))))
bf2a56f8 MB	55
	56	(build-system gnu-build-system)
	57	(arguments
4564782c LF	58	`(#:out-of-source? #t
4564782c LF	59	#:configure-flags '("--enable-widechar")))
bf2a56f8 MB	60	(inputs
	61	`(("bdb" ,bdb)
	62	("ncurses" ,ncurses)))
	63	(synopsis "The Berkeley Vi Editor")
	64	(description
	65	"Vi is the original screen based text editor for Unix systems. It is
	66	considered the standard text editor, and is available on almost all Unix
	67	systems. Nvi is intended as a \"bug-for-bug compatible\" clone of the original
	68	BSD vi editor. As such, it doesn't have a lot of snazzy features as do some
	69	of the other vi clones such as elvis and vim. However, if all you want is vi,
	70	this is the one to get.")
	71	(home-page "https://sites.google.com/a/bostic.com/keithbostic/vi")
	72	(license bsd-3)))