;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Marek Benc <merkur32@gmail.com>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.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 autotools)
  #: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)
  #:use-module (guix utils))

(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"))
        (modules '((guix build utils)))
        (snippet
          ;; Create a wrapper for the configure script, make it executable.
          '(let ((conf-wrap (open-output-file "confi<pre>
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Cyril Roelandt &lt;tipecaml@gmail.com&gt;
;;; Copyright © 2016-2024 Efraim Flashner &lt;efraim@flashner.co.il&gt;
;;; Copyright © 2016, 2017 Nikita &lt;nikita@n0.is&gt;
;;; Copyright © 2017 Ricardo Wurmus &lt;rekado@elephly.net&gt;
;;; Copyright © 2017 Marius Bakke &lt;mbakke@fastmail.com&gt;
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
;;; Copyright © 2019 HiPhish &lt;hiphish@posteo.de&gt;
;;; Copyright © 2019 Julien Lepiller &lt;julien@lepiller.eu&gt;
;;; Copyright © 2019, 2020 Jakub Kądziołka &lt;kuba@kadziolka.net&gt;
;;; Copyright © 2020, 2021 Jack Hill &lt;jackhill@jackhill.us&gt;
;;; Copyright © 2021 Simon Tournier &lt;zimon.toutoune@gmail.com&gt;
;;; Copyright © 2021 Tissevert &lt;tissevert+guix@marvid.fr&gt;
;;; Copyright © 2021 Foo Chuan Wei &lt;chuanwei.foo@hotmail.com&gt;
;;; Copyright © 2022, 2023 Luis Henrique Gomes Higino &lt;luishenriquegh2701@gmail.com&gt;
;;; Copyright © 2023 Charles Jackson &lt;charles.b.jackson@protonmail.com&gt;
;;; Copyright © 2023 Foundation Devices, Inc. &lt;hello@foundationdevices.com&gt;
;;; Copyright © 2023, 2024 Nguyễn Gia Phong &lt;mcsinyx@disroot.org&gt;
;;;
;;; 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 &lt;http://www.gnu.org/licenses/&gt;.

(define-module (gnu packages vim)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix gexp)
  #:use-module (guix utils)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system copy)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system python)
  #:use-module (guix build-system pyproject)
  #:use-module (guix