;;; 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)))
><span title='2018-07-22 17:00:47 +0200'>2018-07-22</span></td><td><a href='/guix/commit/HACKING?id=5285192150c83db12136af6a123e03bb9b9dbe5f'>doc: Fix typo (missing period)</a><span class='msg-avail'>...</span></td><td>Pierre Neidhardt</td></tr>
<tr><td><span title='2017-08-19 13:42:52 +0530'>2017-08-19</span></td><td><a href='/guix/commit/HACKING?id=acabbd597678e1f0be995297bb009b6dd38ae795'>doc: Mention how to use emacs-debbugs.</a><span class='msg-avail'>...</span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2017-03-27 00:13:18 +0200'>2017-03-27</span></td><td><a href='/guix/commit/HACKING?id=2fccc0d193497eb2ee3127270dea12be103f1bc2'>maint: Give command to install the pre-push hook.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-03-24 13:56:38 +0100'>2017-03-24</span></td><td><a href='/guix/commit/HACKING?id=ee7c21c7044355fc4c6bbe0906f061f6fbdfb79e'>maint: Mention the Signed-off-by line in 'HACKING'.</a><span class='msg-avail'>...</span></td><td>Clément Lassieur</td></tr>
<tr><td><span title='2017-03-15 15:19:53 +0100'>2017-03-15</span></td><td><a href='/guix/commit/HACKING?id=bc551cf32b6ccb3f8dd60b1d0d4e3c3e88cb1f8d'>maint: Mention guix-patches@gnu.org in 'HACKING'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-30 13:20:13 +0100'>2017-01-30</span></td><td><a href='/guix/commit/HACKING?id=8efc35a8902910ef7c09183c1d79d51498b2c10c'>maint: Fix invalid calls to 'info'.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2017-01-04 16:27:20 -0500'>2017-01-04</span></td><td><a href='/guix/commit/HACKING?id=69355e1283d300a663fb639ec426f10f3feb404b'>doc: Add a Git hook that verifies signatures before pushing.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2016-07-24 19:54:15 +0200'>2016-07-24</span></td><td><a href='/guix/commit/HACKING?id=20e29643449adbb9658c0d3bec9c8b117697fe41'>doc: Explain how to set up Git for signing.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-07-14 15:37:51 -0400'>2016-07-14</span></td><td><a href='/guix/commit/HACKING?id=a16db014d10659051037eb76a0424b46e94f2f2d'>doc: Mention commit signatures in HACKING.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2015-06-14 01:44:54 +0200'>2015-06-14</span></td><td><a href='/guix/commit/HACKING?id=8c01b9d05aa5d5449398d5babdf7fa1fe95af1c2'>doc: Move most 'HACKING' informations into the manual.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2015-06-10 10:03:19 +0200'>2015-06-10</span></td><td><a href='/guix/commit/HACKING?id=80cd1d89924a87e46d36bd102eff31cd3f95b8d9'>doc: Add 'help2man' to HACKING.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2015-05-23 15:57:18 +0200'>2015-05-23</span></td><td><a href='/guix/commit/HACKING?id=c71979f416df409425391e1de35ec95528ed0f84'>doc: Add "Running Guix Before It Is Installed".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-26 00:44:13 -0500'>2015-02-26</span></td><td><a href='/guix/commit/HACKING?id=24d77d103816ace1c8d3fb2cb8c1a38876e3633b'>doc: Remove reference to git submodules in HACKING.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2014-09-03 15:43:07 +0200'>2014-09-03</span></td><td><a href='/guix/commit/HACKING?id=141360b5b257715fdca2db4fc106b4220788ae06'>doc: Mention 'guix lint' and '--list-dependent' in 'HACKING'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>