* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm, gnu/packages/backup.scm, gnu/packages/base.scm, gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm, gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm, gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm, gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm, gnu/packages/emulators.scm, gnu/packages/engineering.scm, gnu/packages/enlightenment.scm, gnu/packages/fpga.scm, gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm, gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm, gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm, gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm, gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm, gnu/packages/lxde.scm, gnu/packages/machine-learning.scm, gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm, gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm, gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm, gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm, gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm, gnu/packages/pretty-print.scm, gnu/packages/profiling.scm, gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm, gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm, gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm, gnu/packages/scribus.scm, gnu/packages/sdl.scm, gnu/packages/serialization.scm, gnu/packages/shells.scm, gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm, gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm, gnu/packages/terminals.scm, gnu/packages/texinfo.scm, gnu/packages/text-editors.scm, gnu/packages/textutils.scm, gnu/packages/tls.scm, gnu/packages/unrtf.scm, gnu/packages/version-control.scm, gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm, gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm: In all snippets, report errors using exceptions, or else return #t.
		
			
				
	
	
		
			72 lines
		
	
	
	
		
			2.8 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			72 lines
		
	
	
	
		
			2.8 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; 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 databases)
 | |
|   #: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)))
 |